%setVar no-join true;
%speak all %concat §6 $bauer; §eWenn du schon hier bist, könntest du für mich aus dem Steinbruch etwas Stein holen, damit ich mir eine Hacke bauen kann. Die jetzige ist bei dem Tumult mit dem Magier leider verloren gegangen.;
%if %getItemAmountPlayer $player-name STONE_PICKAXE; > 0 goto jump1;
%giveItemPlayer $player-name STONE_PICKAXE;
%speak all %concat §6 $bauer; §eHier hast du eine Spitzhacke.;
@jump1
%loadEvent block-break;
%setVar broken 0;
%setVar woodbroken 0;
%setVar stickgiven 0;
%setVar cobblegiven 0;
%addList cobble;
%addList wood;

@waitbreak
%wait;
%if $event == block-break && $block-type == STONE && $block-data == 0 goto break;
%setVar cancel true;
%goto waitbreak;

@break
%setVar cancel false;
%addListElement cobble $block-loc;
%setVar broken %add $broken 1;;
%if $broken < 2 goto waitbreak;

%speak all %concat §6 $bauer; §eDas reicht fürs Erste. Hole nun ein Stück Holz. Hier hast du eine Axt.;
%if %getItemAmountPlayer $player-name STONE_AXE; > 0 goto jump2;
%giveItemPlayer $player-name STONE_AXE;
%speak all %concat §6 $bauer; §eHier hast du eine Axt.;
@jump2

@waitwoodbreak
%wait;
%if $event == block-break && $block-type == LOG && $block-data == 1 goto checktree;
%setVar cancel true;
%goto waitwoodbreak;

@checktree
%setVar i 1;
@treelabel
%if %blockType %modLoc $block-loc 0 $i 0;; == LEAVES goto woodbreak;
%setVar i %add $i 1;;
%if $i < 10 goto treelabel;
%setVar cancel true;
%goto waitwoodbreak;

@woodbreak
%setVar cancel false;
%addListElement wood $block-loc;
%setVar woodbroken %add $woodbroken 1;;

%unloadEvent block-break;
%loadEvent villager-give;
%speak all %concat §6 $bauer; §eSehr gut, bringe mir nun das Holz und zwei Pflastersteine.;

@waitgive
%wait;
%if $event == villager-give && $item-type == LOG goto stick;
%if $event == villager-give && $item-type == COBBLESTONE goto cobble;
%goto waitgive;

@stick
%setVar stickgiven %add $stickgiven $item-amount;;
%goto checkamount;

@cobble
%setVar cobblegiven %add $cobblegiven $item-amount;;
%goto checkamount;

@checkamount
%if $stickgiven >= 1 && $cobblegiven >= 2 goto finish;
%goto waitgive;

@finish
%speak all %concat §6 $bauer; §eHabt vielen Dank.;
%speak all %concat §6 $bauer; §eHauke meinte, sie hätte etwas für euch.;
%setGlobalVar $player-name insel1_bauer_hoe true;

%setVar i 0;
@resetcobble1
%setBlock %getListElementAt cobble $i; STONE;
%setVar i %add $i 1;;
%if $i < %getListSize cobble; goto resetcobble1;

%setVar i 0;
@resetwood1
%setBlock %getListElementAt wood $i; LOG:1;
%setVar i %add $i 1;;
%if $i < %getListSize wood; goto resetwood1;

%endQuest 4;

@giveup
%removeItemPlayer $player-name STONE_PICKAXE;
%removeItemPlayer $player-name STONE_AXE;

%setVar i 0;
@resetcobble2
%setBlock %getListElementAt cobble $i; STONE;
%setVar i %add $i 1;;
%if $i < %getListSize cobble; goto resetcobble2;

%setVar i 0;
@resetwood2
%setBlock %getListElementAt wood $i; LOG:1;
%setVar i %add $i 1;;
%if $i < %getListSize wood; goto resetwood2;
%term;