%if %getGlobalVar $player-name schiff5; == true goto start;
%q term;

@start;
%msg all Fälle den Baum am Strand und gib mir das Holz. Dann kann ich uns ein schönes Floß bauen.;
%loadEvent block-break;
%setVar broken 0;

%setBlock %modLoc $treeloc 0 -3 0; LOG:3:1;
%setBlock %modLoc $treeloc 0 -2 0; LOG:3:1;
%setBlock %modLoc $treeloc 0 -1 0; LOG:3:1;
%setBlock %modLoc $treeloc 0 0 0; LOG:3:1;
%setBlock %modLoc $treeloc 0 1 0; LOG:3:1;
%setBlock %modLoc $treeloc 0 2 0; LOG:3:1;
%setBlock %modLoc $treeloc 0 3 0; LOG:3:1;
%setBlock %modLoc $treeloc 0 4 0; LOG:3:1;

%setBlock %modLoc $treeloc -2 2 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc -2 2 0; LEAVES:3:1;
%setBlock %modLoc $treeloc -2 2 1; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 2 -2; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 2 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 2 0; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 2 1; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 2 2; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 2 -2; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 2 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 2 1; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 2 2; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 2 -2; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 2 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 2 0; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 2 1; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 2 2; LEAVES:3:1;
%setBlock %modLoc $treeloc 2 2 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 2 2 0; LEAVES:3:1;
%setBlock %modLoc $treeloc 2 2 1; LEAVES:3:1;

%setBlock %modLoc $treeloc -2 3 -2; LEAVES:3:1;
%setBlock %modLoc $treeloc -2 3 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc -2 3 0; LEAVES:3:1;
%setBlock %modLoc $treeloc -2 3 1; LEAVES:3:1;
%setBlock %modLoc $treeloc -2 3 2; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 3 -2; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 3 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 3 0; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 3 1; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 3 2; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 3 -2; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 3 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 3 1; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 3 2; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 3 -2; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 3 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 3 0; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 3 1; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 3 2; LEAVES:3:1;
%setBlock %modLoc $treeloc 2 3 -2; LEAVES:3:1;
%setBlock %modLoc $treeloc 2 3 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 2 3 0; LEAVES:3:1;
%setBlock %modLoc $treeloc 2 3 1; LEAVES:3:1;
%setBlock %modLoc $treeloc 2 3 2; LEAVES:3:1;

%setBlock %modLoc $treeloc -1 4 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 4 0; LEAVES:3:1;
%setBlock %modLoc $treeloc -1 4 1; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 4 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 4 1; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 4 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 4 0; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 4 1; LEAVES:3:1;

%setBlock %modLoc $treeloc -1 5 0; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 5 -1; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 5 0; LEAVES:3:1;
%setBlock %modLoc $treeloc 0 5 1; LEAVES:3:1;
%setBlock %modLoc $treeloc 1 5 0; LEAVES:3:1;

@wait1
%wait;
%if $event == block-break && $block-type == LOG && %distance $block-loc $treeloc; <= 5 goto breaklog;
%if $event == block-break && $block-type == LEAVES && %distance $block-loc $treeloc; <= 7 goto breakleaves;
%goto wait1;

@breaklog
%setVar cancel false;
%setVar broken %add $broken 1;
%if $broken >= 8 goto give2;
%goto wait1;

@breakleaves
%setVar cancel false;
%goto wait1;

@give2
%loadEvent villager-give;
%unloadEvent block-break;
%setVar given 0;

@wait2
%wait;
%if $event == villager-give && $item-type == LOG && $item-data == 3 goto checkloc;
%setVar cancel true;
%msg all Was soll ich damit?;
%goto wait2;

@checkloc
%if %distance $villager-loc $shipstartloc; <= 4 goto give;
%setVar cancel true;
%msg all Tut mir leid, ich bin nicht dein Kamerad.;
%goto wait2;

@give
%setVar given %add $given $item-amount;;
%if $given >= 8 goto endQuest;
%msg all Ich brauche noch %sub 8 $given; Stück Holz.;
%goto wait2;

@endQuest
%setGlobalVar $player-name schiff6 true
%setGlobalVar $player-name schiff5 false;
%msg all Bald kann die Reise beginnen.;
%endQuest 2;