%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;