minecraft-snuvi-scripts/Archiv/1vs1/1vs1.txt

%loadEvent player-death;
%loadEvent player-respawn;
%setVar add-same true;
%setVars %getQuestLeader;;
%addList all;

%setBlock %modLoc $spawnloc1 1 1 0; BARRIER;
%setBlock %modLoc $spawnloc1 -1 1 0; BARRIER;
%setBlock %modLoc $spawnloc1 0 1 1; BARRIER;
%setBlock %modLoc $spawnloc1 0 1 -1; BARRIER;
%setBlock %modLoc $spawnloc1 0 3 0; BARRIER;

%setBlock %modLoc $spawnloc2 1 1 0; BARRIER;
%setBlock %modLoc $spawnloc2 -1 1 0; BARRIER;
%setBlock %modLoc $spawnloc2 0 1 1; BARRIER;
%setBlock %modLoc $spawnloc2 0 1 -1; BARRIER;
%setBlock %modLoc $spawnloc2 0 3 0; BARRIER;

@join
%if %getGlobalVar $player-name playedgames; != null goto jump3;
%setGlobalVar $player-name allwins 0;
%setGlobalVar $player-name roundwins 0;
%setGlobalVar $player-name playedgames 0;
@jump3
%addListElement all $player-name;
%setGlobalVar $player-name wins 0;
%setHealth $player-name 200;
%setHunger $player-name 200;
%setSaturation $player-name 50;
%command clear $player-name;
%command gamemode survival $player-name;
%if %getListSize all; == 1 goto jump1;
%teleportplayer $player-name $spawnloc1;
%goto jump2;
@jump1
%teleportplayer $player-name $spawnloc2;
@jump2
%speak $player-name %concat §d 1vs1; §eGewinne drei Runden, um das Spiel zu gewinnen.;
%if %getListSize all; == 2 goto start;
%goto checklobby;

@checklobby
%wait;
%if $event == player-join goto join;
%goto checklobby;

@start
%setVar death false;
%setVar i 0;
%addList copyofaimchests;
@copychestlist
%addListElement copyofaimchests %getListElementAt aimchests $i;;
%setVar i %add $i 1;;
%if $i < %getListSize chests; goto copychestlist;

@fillchests
%setVar i 0;
@filllabel
%setVar index %random 0 %sub %getListSize copyofaimchests; 1;;;
%blockclone %getListElementAt chests $i; %getListElementAt aimchests $index;;
%removeListIndex copyofaimchests $index;
%setVar i %add $i 1;;
%if $i < %getListSize chests; goto filllabel;

%speak all %concat §d 1vs1; §eDas Spiel startet in 4 Sekunden.;
%waitfor 20;
%speak all %concat §d 1vs1; §eDas Spiel startet in 3 Sekunden.;
%waitfor 20;
%speak all %concat §d 1vs1; §eDas Spiel startet in 2 Sekunden.;
%waitfor 20;
%speak all %concat §d 1vs1; §eDas Spiel startet in 1 Sekunden.;
%waitfor 20;

%setBlock %modLoc $spawnloc1 1 1 0; AIR;
%setBlock %modLoc $spawnloc1 -1 1 0; AIR;
%setBlock %modLoc $spawnloc1 0 1 1; AIR;
%setBlock %modLoc $spawnloc1 0 1 -1; AIR;
%setBlock %modLoc $spawnloc1 0 3 0; AIR;

%setBlock %modLoc $spawnloc2 1 1 0; AIR;
%setBlock %modLoc $spawnloc2 -1 1 0; AIR;
%setBlock %modLoc $spawnloc2 0 1 1; AIR;
%setBlock %modLoc $spawnloc2 0 1 -1; AIR;
%setBlock %modLoc $spawnloc2 0 3 0; AIR;

%speak all %concat §d 1vs1; §eDie Runde läuft.;

@wait
%wait;
%if $event == player-death goto death;
%if $event == player-leave goto giveup;
%if $event == player-hurt && $death == true goto cancel;
%goto wait;

@cancel
%setVar cancel true;
%goto wait;

@death
%setVar death true;
%speak all %concat §d 1vs1; %concat §e $sec-player-name; hat die Runde gewonnen.;
%setGlobalVar $sec-player-name wins %add %getGlobalVar $sec-player-name wins; 1;;
%speak all §d1vs1 %concat §e $player-name : %getGlobalVar $player-name wins;; %concat $sec-player-name : %getGlobalVar $sec-player-name wins;;;

%setHealth $player-name 200;
%setHunger $player-name 200;
%setSaturation $player-name 50;
%setHealth $sec-player-name 200;
%setHunger $sec-player-name 200;
%setSaturation $sec-player-name 50;

%goto checkplayability;

@checkplayability
%if %getGlobalVar $sec-player-name wins; >= 3 goto win;
%sgoto 40 respawn;
%goto wait;

@respawn
%setBlock %modLoc $spawnloc1 1 1 0; BARRIER;
%setBlock %modLoc $spawnloc1 -1 1 0; BARRIER;
%setBlock %modLoc $spawnloc1 0 1 1; BARRIER;
%setBlock %modLoc $spawnloc1 0 1 -1; BARRIER;
%setBlock %modLoc $spawnloc1 0 3 0; BARRIER;

%setBlock %modLoc $spawnloc2 1 1 0; BARRIER;
%setBlock %modLoc $spawnloc2 -1 1 0; BARRIER;
%setBlock %modLoc $spawnloc2 0 1 1; BARRIER;
%setBlock %modLoc $spawnloc2 0 1 -1; BARRIER;
%setBlock %modLoc $spawnloc2 0 3 0; BARRIER;

%waitfor 1;
%respawn $player-name;
%if $player-name == %getListElementAt all 0; goto respawn1;
%setVar respawn-loc $spawnloc2;
%teleportplayer $player-name $spawnloc2;
%teleportplayer $sec-player-name $spawnloc1;
%command clear $player-name;
%command clear $sec-player-name;
%goto start;
@respawn1
%setVar respawn-loc $spawnloc1;
%teleportplayer $player-name $spawnloc1;
%teleportplayer $sec-player-name $spawnloc2;
%command clear $player-name;
%command clear $sec-player-name;
%goto start;

@giveup
%speak all §d1vs1 %concat §e $player-name; hat das Spiel verlassen.;
@win
%speak all §d1vs1 %concat §e $sec-player-name; hat das Spiel gewonnen.;
%setGlobalVar $sec-player-name allwins %add %getGlobalVar $sec-player-name allwins; 1;;
%setVar i 0;
@win1
%waitfor 2;
%setVar player %getListElementAt all $i;;
%command warp games $player;
%command clear $player;
%setHealth $player 200;
%setHunger $player 200;
%setSaturation $player 50;
@stats
%setGlobalVar $player roundwins %add %getGlobalVar $player roundwins; %getGlobalVar $player wins;;;
%setGlobalVar $player playedgames %add %getGlobalVar $player playedgames; 1;;
%speak $player §d1vs1 §eStatistik:;
#%speak $player §d1vs1 §eRang: %getGlobalVar $player rank;;
%speak $player §d1vs1 §eGewonnene Runden: %getGlobalVar $player roundwins;;
%speak $player §d1vs1 §eGewonnene Spiele: %getGlobalVar $player allwins;;
%speak $player §d1vs1 §eGespielte Spiele: %getGlobalVar $player playedgames;;

%setVar probability %div %mul %getGlobalVar marvinius allwins; 100; %getGlobalVar marvinius playedgames;;;
%speak marvinius §d1vs1 §eSiegwahrscheinlichkeit: %concat %div $probability 10; %mod $probability 10; "%percent;";;

%setVar i %add $i 1;;
%if $i < %getListSize all; goto win1;
%endQuest 10;