spawn_Papier_wird_gebraucht.txt 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
  1. %if %distance $entity-loc $bibliothecarloc; <= 4 goto start;
  2. %q term;
  3. @start
  4. %setVars %getQuestLeader;;
  5. %msg all Hallo, ich bin der Bibliothekar und schwer beschäftigt. Ich bräuchte für meine Arbeiten an der Erhaltung alter Dokumente noch ein paar Blätter Papier. Bitte ernte im Dorf Zuckerrohr und stelle daraus Papier her, welches du mir dann bringst.;
  6. %setInfo
  7. %loadEvent block-break;
  8. %setVar canebroken 0;
  9. @wait1
  10. %wait;
  11. %if $event == block-break && $block-type == SUGAR_CANE_BLOCK && %blockType %modLoc $block-loc 0 -1 0;; == SUGAR_CANE_BLOCK goto harvest;
  12. %goto wait1;
  13. @harvest
  14. %setVar cancel false;
  15. %if %blockType %modLoc $block-loc 0 1 0;; == SUGAR_CANE_BLOCK goto add2;
  16. %setVar canebroken %add $canebroken 1;;
  17. %if $canebroken >= 6 goto craft;
  18. %goto wait1;
  19. @add2
  20. %setVar canebroken %add $canebroken 2;;
  21. %if $canebroken >= 6 goto craft;
  22. %goto wait1;
  23. @craft
  24. %unloadEvent block-break;
  25. %loadEvent craft;
  26. %setVar craftedpaper 0;
  27. @wait2
  28. %wait;
  29. %if $event == craft && $item-type == PAPER goto craft2;
  30. %goto wait2;
  31. @craft2
  32. %setVar craftedpaper %add $craftedpaper $item-amount;;
  33. %if $craftedpaper >= 6 goto label;
  34. %msg all Es fehlen nochn %sub 6 $craftedpaper; Stück Papier.;
  35. %goto wait2;
  36. @label
  37. %unloadEvent craft;
  38. %loadEvent villager-give;
  39. %setInfo Gib dem Bibliothekar 6 Stück Papier.;
  40. %setVar papergiven 0;
  41. @wait3
  42. %wait;
  43. %if $event == villager-give && $player-item == PAPER goto checkloc;
  44. %setVar cancel true;
  45. %msg all Was soll ich damit?;
  46. %goto wait3;
  47. @checkloc
  48. %if %distance $villager-loc $bibliothecarloc; <= 4 goto give;
  49. %setVar cancel true;
  50. %msg all Tut mir leid, ich bin nicht der Bibliothekar.;
  51. %goto wait3;
  52. @give
  53. %setVar papergiven %add $papergiven $item-amount;;
  54. %if $papergiven >= 6 goto endQuest;
  55. %msg all Ich brauche noch %sub 6 $papergiven; Stück Papier.;
  56. %goto wait3;
  57. @endQuest
  58. %msg all Vielen Dank für deine Hilfe.;
  59. %endQuest 3;