1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 |
- %if %getGlobalVar $player-name schiff1; == true goto start;
- %q term;
- @start
- %msg all Berge die sieben Goldblöcke aus dem aufgelaufenem Schiff und bringe sie mir.;
- %loadEvent block-break;
- %setVar broken 0;
- %addList blocks;
- %addListElement blocks $goldblockloc1;
- %addListElement blocks $goldblockloc2;
- %addListElement blocks $goldblockloc3;
- %addListElement blocks $goldblockloc4;
- %addListElement blocks $goldblockloc5;
- %addListElement blocks $goldblockloc6;
- %addListElement blocks $goldblockloc7;
- %setVar i 0;
- @label
- %setBlock $getListElementAt blocks $i; GOLD_BLOCK:0:1;
- %setVar i %add $i 1;
- %if $i <= 6 goto label;
- @wait1
- %wait;
- %if $event == block-break && $block-type == GOLD_BLOCK && %checkForListELement blocks $block-loc; == true goto break;
- %goto wait1;
- @break
- %setVar cancel false;
- %removeListElement blocks $block-loc;
- %setVar broken %add broken 1;;
- %if $broken >= 8 goto startgive;
- @startgive
- %unloadEvent block-break;
- %loadEvent villager-give;
- %setVar given 0;
- @wait3
- %wait;
- %if $event == villager-give && $item-type == GOLD_BLOCK goto checkloc;
- %setVar cancel true;
- %msg all Was soll ich damit?;
- %goto wait3;
- @checkloc
- %if %distance $villager-loc $shipstartloc; <= 4 goto give;
- %setVar cancel true;
- %msg all Tut mir leid, ich bin nicht dein Kamerad.;
- %goto wait3;
- @give
- %setVar given %add $given $item-amount;;
- %if $given >= 8 goto endQuest;
- %msg all Ich bekomme noch %sub 8 $given; Goldblöcke von dir.;
- %goto wait3;
- @endQuest
- %msg all Wir haben den Schatz geborgen. Wenn wir überleben, dann sind wir reich!;
- %setGlobalVar $player-name schiff2 true;
- %setGlobalVar $player-name schiff1 false;
- %endQuest 3;
|