schiff_2_Schatz_der_Santa_Maria.txt 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. %if %getGlobalVar $player-name schiff1; == true goto start;
  2. %q term;
  3. @start
  4. %msg all Berge die sieben Goldblöcke aus dem aufgelaufenem Schiff und bringe sie mir.;
  5. %loadEvent block-break;
  6. %setVar broken 0;
  7. %addList blocks;
  8. %addListElement blocks $goldblockloc1;
  9. %addListElement blocks $goldblockloc2;
  10. %addListElement blocks $goldblockloc3;
  11. %addListElement blocks $goldblockloc4;
  12. %addListElement blocks $goldblockloc5;
  13. %addListElement blocks $goldblockloc6;
  14. %addListElement blocks $goldblockloc7;
  15. %setVar i 0;
  16. @label
  17. %setBlock $getListElementAt blocks $i; GOLD_BLOCK:0:1;
  18. %setVar i %add $i 1;
  19. %if $i <= 6 goto label;
  20. @wait1
  21. %wait;
  22. %if $event == block-break && $block-type == GOLD_BLOCK && %checkForListELement blocks $block-loc; == true goto break;
  23. %goto wait1;
  24. @break
  25. %setVar cancel false;
  26. %removeListElement blocks $block-loc;
  27. %setVar broken %add broken 1;;
  28. %if $broken >= 8 goto startgive;
  29. @startgive
  30. %unloadEvent block-break;
  31. %loadEvent villager-give;
  32. %setVar given 0;
  33. @wait3
  34. %wait;
  35. %if $event == villager-give && $item-type == GOLD_BLOCK goto checkloc;
  36. %setVar cancel true;
  37. %msg all Was soll ich damit?;
  38. %goto wait3;
  39. @checkloc
  40. %if %distance $villager-loc $shipstartloc; <= 4 goto give;
  41. %setVar cancel true;
  42. %msg all Tut mir leid, ich bin nicht dein Kamerad.;
  43. %goto wait3;
  44. @give
  45. %setVar given %add $given $item-amount;;
  46. %if $given >= 8 goto endQuest;
  47. %msg all Ich bekomme noch %sub 8 $given; Goldblöcke von dir.;
  48. %goto wait3;
  49. @endQuest
  50. %msg all Wir haben den Schatz geborgen. Wenn wir überleben, dann sind wir reich!;
  51. %setGlobalVar $player-name schiff2 true;
  52. %setGlobalVar $player-name schiff1 false;
  53. %endQuest 3;