%msg all Gut, dass du hier bist. Auf der anderen Seite der Insel habe ich eine Hexe gesehen.;

%addList placelocs;
%addListElement placelocs $placeloc1;
%addListElement placelocs $placeloc2;
%addListElement placelocs $placeloc3;
%addListElement placelocs $placeloc4;

%loadEvent entity-kill;
%loadEvent player-respawn;
%spawnMob $spawnhexeloc WITCH;
%setBlock $placeloc1 AIR:0:1;
%setBlock $placeloc2 AIR:0:1;
%setBlock $placeloc3 AIR:0:1;
%setBlock $placeloc4 AIR:0:1;
%setBlock $witherloc SKULL:1:1;
%setBlock $creeperloc SKULL:4:1;
%setBlock $zombieloc SKULL:2:1;
%setBlock $skelettloc SKULL:0:1;

@wait1
%wait;
%if $event == entity-kill && entity-type == WITCH goto killwitch;
%if $event == player-respawn goto respawn1;
%goto wait1;

@respawn1
%setVar respawn-loc $shipstartloc;
%goto wait1;

@killwitch
%msg all Hörst du das auch? Es scheint, als würden böse Kreaturen unter der Insel erwachen. Gehe besser nachschauen. Ich habe letztens ein kleines Loch in der Mitte der Insel gefunden. Vielleicht kommen die Geräsuche von dort.;
%loadEvent block-click;
%giveItemPlayer $player-name STICK:0:1 %concatspace Zauberstab der Elemente; %concatspace Achtung fragil!;;

%setVar i 0;
@label
%spawnMob $spawnwitherloc SKELETON WITHER;
%spawnMob $spawnskelettloc SKELETON;
%spawnMob $spawncreeperloc CREEPER;
%spawnMob $spawnzombieloc ZOMBIE;
%setVar i %add $i 1;
%if $i < 10 goto label;

%setVar skulls 0;

@wait2
%wait;
%if $event == entity-kill && $enter != true goto enter;
%if $event == player-respawn goto respawn2;
%if $event == block-click goto click;
%goto wait2;

@enter
%msg all Ach du meine Güte. Alles voller Monster. Und sie scheinen vier magische Blöcke zu bewachen. Was an denen wohl so wertvoll ist?;
%setVar enter true;
%goto wait2;

@respawn2
%setVar respawn-loc $shipstartloc;
%goto wait2;

@click
%if $player-item-type == STICK goto click2;
%msg all Vielleicht passiert etwas, wenn man diese Blöcke mit dem Zauberstab berührt.;
%goto wait2;

@click2
%if $block-loc == $witherloc goto skull1;
%if $block-loc == $zombieloc goto skull2;
%if $block-loc == $skelettloc goto skull3;
%if $block-loc == $creeperloc goto skull4;
%msg all Das ist keiner der magischen Blöcke.;
%goto wait2;

@skull1
%giveItemPlayer $player-name SKULL:0:1;
%setVar skulls %add $skulls 1;
%goto checkskulls;

@skull2
%giveItemPlayer $player-name SKULL:1:1;
%setVar skulls %add $skulls 1;
%goto checkskulls;

@skull3
%giveItemPlayer $player-name SKULL:2:1;
%setVar skulls %add $skulls 1;
%goto checkskulls;

@skull4
%giveItemPlayer $player-name SKULL:4:1;
%setVar skulls %add $skulls 1;
%goto checkskulls;

@checkskulls
%if $skulls < 4 goto wait2;
%msg all Es schaut so aus, als würden diese Köpfe auf die hervorgehobenen Plätze gehören.;
%loadEvent block-place;
%unloadEvent block-click;
%unloadEvent entity-kill;
%unloadEvent player-respawn;
%setVar i 0;

@wait3
%wait;
%if $event == block-place && %checkForListElement placelocs $block-loc; == true && $item-type == SKULL goto place;
%setVar cancel true;
%msg all Hier gehört keiner der Köpfe hin.;
%goto wait3;

@place
%setVar cancel false;
%setVar i %add $i 1;;
%msg all Gesetzte Köpfe: %concat $i /4;
%if $i >= 4 goto evil;
%goto wait3

@evil
%setVar evil %spawnMob $evilloc VILLAGER;;
%nameEntity $evil %concatspace Der Gefangene;;
%equipentity $evil IRON_HELMET:0:1 head;
%msg all Der Gefangene: Kannst du dich noch an mich erinnern? Wie ich sagte, vor mir hast du nie Ruhe! Vielleicht weißt du jetzt, wodurch dein Schiff gesunken ist?;
%waitfor 180;
%msg all Der Gefangene: Muahahaha... nimm dies.;
%spawnMob $evilloc WITCH;
%spawnMob $evilloc WITCH;
%spawnMob $evilloc WITCH;
%spawnMob $evilloc SILVERFISH;
%spawnMob $evilloc SILVERFISH;
%spawnMob $evilloc SILVERFISH;
%playParticle $evilloc EXPLOSION 5;
%teleportEntity $evil %modLoc $evilloc 0 100 0;
%damageEntity $evil 100;
%msg all Wie immer, bis zum nächsten Mal...;
%setGlobalVar $player-name schiff12 false;
%setGlobalVar $player-name shipquests true;
%teleportPlayer $player-name $shipquestloc;