%if %distance $entity-loc $shipquestloc; <= 4 && %getGlobalVar $player-name schiff1; != true goto start;
%term;

@start
%setVar no-join true;
%msg all Willkommen bei der Schiffbruch-Questreihe. Um fortzufahren, klicke mich erneut an. Du verlierst dabei dein Inventar. Gleich daneben ist eine Enderkiste.;
%loadEvent entity-click;

@wait1
%wait;
%if $event == entity-click && %distance $entity-loc $shipquestloc; <= 4 goto clear;
%goto wait1;

@clear
%command clear $player-name;
%teleportPlayer $player-name $shipstartloc;
%loadEvent block-break;
%unloadEvent entity-click;
%command effect $player-name nausea 9999;
%giveItemPlayer $player-name WOOD_PICKAXE:0:1;
%setBlock $ofenloc AIR:0:1;
%addList abgebaut_loc;
%addList abgebaut_type;
%setVar stone 0;
%msg all Guten Morgen Kamerad! Wie du merkst, waren wir heute Nacht "etwas" angetrunken. Leider haben wir dabei unser gutes Schiff auf Sand gesetzt. Was wir bei uns trugen, fiel ins tiefe Wasser. Alles was wir zum Überleben brauchen, müssen wir uns von dieser Insel holen. Mit "wir" mein ich dich, denn ich habe mir mein Bein gebrochen. Zuerst benötigen wir einen Ofen, um Mahlzeiten zubereiten zu können. Sammle 8 Bruchstein, crafte einen Ofen und setz ihn auf den gekennzeichneten Platz.;

@wait2
%wait;
%if $block-type == SAND || $block-type == STONE || $block-type == COBBLESTONE && $event == block-break goto break;
%goto wait2;

@break
%setVar cancel false;
%addListElement abgebaut_loc $block-loc;
%addListElement abgebaut_type $block-type;
%if $block-type != STONE goto wait2;
%setVar stone %add $stone 1;;
%if $stone >= 8 goto label;
%goto wait2;

@label
%unloadEvent block-break;
%loadEvent craft;

@wait3
%wait;
%if $event == craft && $item-type == FURNACE goto label2;
%goto wait3;

@label2
%unloadEvent craft;
%loadEvent block-place;

@wait4
%wait;
%if $event == block-place && $block-loc == $ofenloc && $block-type == FURNACE goto endQuest;
%goto wait4;

@endQuest
%msg all Lasst die Mahlzeiten brutzeln.;
%setGlobalVar $player-name schiff1 true;

%setVar i 0;
@label3
%setBlock %getListElementAt abgebaut_loc $i; %concat %getListElementAt abgebaut_type $i; :0:1;;
%setVar i %add $i 1;;
%if $i < %getListSize abgebaut_loc; goto label3;

%endQuest 5;

@giveup
%setVar i 0;
@label4
%setBlock %getListElementAt abgebaut_loc $i; %concat %getListElementAt abgebaut_type $i; :0:1;;
%setVar i %add $i 1;;
%if $i < %getListSize abgebaut_loc; goto label4;
%kick $player-name;