#----------------------------------------
#************* don´t delete *************
#----------------------------------------

%loadEvent air-click;
%loadEvent block-click;
%addList all;
%addListElement all %getQuestLeader;;
%addList blueteam;
%addListElement blueteam %getQuestLeader;;
%setVar bluespawnloc games:-67:45:262;

@checkgame
%wait;
%if $event == air-click || $event == block-click && $player-item-type == SULPHUR goto warphome;
%if $event == air-click || $event == block-click && $player-item-type == GLOWSTONE_DUST goto cancelwarphome;
%goto checkgame;

@warphome
%setItemInMainHand $player-name GLOWSTONE_DUST;
%playeffect $player-loc CLOUD 50 1;
%sgoto 20 warphome1;
%goto playwarphomesound;

@warphome1
%if %distance %getPlayerLoc $player-name; $player-loc; >= 2 goto cancelwarphome;
%playeffect $player-loc CLOUD 500 1;
%sgoto 20 warphome2;
%goto playwarphomesound;

@warphome2
%if %distance %getPlayerLoc $player-name; $player-loc; >= 2 goto cancelwarphome;
%playeffect $player-loc CLOUD 5000 1;
%sgoto 0 playwarphomesound;
%goto teleporthome;

@playwarphomesound
%setVar i 0;
@playwarphomesound2
%playsound %getPlayerLoc %getListElementAt all $i;; BLOCK_NOTE_BASS;
%setVar i %add $i 1;;
%if $i < %getListSize all; goto playwarphomesound2;
%goto checkgame;

@teleporthome
%if %checkForListElement blueteam $player-name; == true goto teleportbluebed;
%if %checkForListElement redteam $player-name; == true goto teleportredbed;
%if %checkForListElement yellowteam $player-name; == true goto teleportyellowbed;
%if %checkForListElement greenteam $player-name; == true goto teleportgreenbed;
%if %checkForListElement blackteam $player-name; == true goto teleportblackbed;
%if %checkForListElement whiteteam $player-name; == true goto teleportwhitebed;
%if %checkForListElement cyanteam $player-name; == true goto teleportcyanbed;
%if %checkForListElement purpleteam $player-name; == true goto teleportpurplebed;
%goto checkgame;

@teleportbluebed
%setVar color blue;
%goto teleporthome2;

@teleportredbed
%setVar color red;
%goto teleporthome2;

@teleportyellowbed
%setVar color yellow;
%goto teleporthome2;

@teleportgreenbed
%setVar color green;
%goto teleporthome2;

@teleportblackbed
%setVar color black;
%goto teleporthome2;

@teleportwhitebed
%setVar color white;
%goto teleporthome2;

@teleportcyanbed
%setVar color cyan;
%goto teleporthome2;

@teleportpurplebed
%setVar color purple;
%goto teleporthome2;

@teleporthome2
%teleportPlayer $player-name %getVar %concat $color spawnloc;;;
%goto checkgame;

@cancelwarphome
%setItemInMainHand $player-name SULPHUR;
%goto checkgame;