minecraft-snuvi-scripts/Archiv/ragemode_backup.txt

%setVar phase 0;
%setVar no-quest-msg true;
%loadEvent player-leave;
%loadEvent player-hurt;
%loadEvent block-break;
%loadEvent block-place;
%addList all;
%addMap all;

%addMap times;
%setVar time %getTime;;
%setVar i %sub %getListSize spawns; 1;;
@maplabel
%addMapElement times %getListELementAt spawns $i; $time;
%if %dec i; >= 0 then goto maplabel;

%loadMenu 0 1 §8Shop;
%setMenuItem 0 0 {id:"minecraft:stone_pressure_plate",Count:1b,tag:{display:{Lore:[0:"§7Setzt eine Mine an deiner momentanen Position.",1:"§rPreis: §a5 Smaragde"],Name:"§eMine"}},Damage:0s};
%setMenuItem 0 1 {id:"minecraft:potion",Count:1b,tag:{HideFlags:35,Potion:"minecraft:swiftness",display:{Lore:[0:"§7Verdopple deine Geschwindigkeit.",1:"§rPreis: §a15 Smaragde"],Name:"§eGeschwindigkeit"}},Damage:0s};
%setMenuItem 0 2 {id:"minecraft:iron_chestplate",Count:1b,tag:{HideFlags:2,display:{Lore:[0:"§7Schützt dich vor Direkttreffern.",1:"§rPreis: §a10 Smaragde"],Name:"§eRüstung"}},Damage:0s};
%setMenuItem 0 3 {id:"minecraft:blaze_rod",Count:1b,tag:{display:{Lore:[0:"§7Töte deine Gegner mit der Hilfe von Gottes Licht.",1:"§rPreis: §a30 Smaragde"],Name:"§eGottes Licht"}},Damage:0s};

%setVars %getQuestleader;;
@lobby
%if %getListSize all; >= 10 then goto fullhouse;
%speak $player-name §cRageMode §eDu befindest dich nun in der §bRageMode §eLobby.;
%command clear $player-name;
%teleportPlayer $player-name $lobby;
%setHealth $player-name 20;
%setHunger $player-name 20;
%setSaturation $player-name 1000000;
%addListElement all $player-name;
%addMapElement all $player-name 0;
%command title $player-name times 20 60 0;
%command title $player-name subtitle {"text":"%getVar mapname;"};
%command title $player-name title {"text":"RageMode","color":"red"};
%sbreset $player-name;
%sbadd $player-name 98 §6RageMode;
%sbadd $player-name 97 §cTeams verboten;
%sbadd $player-name 96 §r;
%sbadd $player-name 95 §eMap;
%sbadd $player-name 94 $mapname;
%goto checkstart;

@fullhouse
%speak $player-name §cRageMode §eDas Spiel ist voll.;
%kick $player-name;
%goto startgame;

@checklobby
%wait;
%if $event == player-join then goto lobby;
%if $event == player-hurt || $event == block-break || $event == block-place then goto cancellobby;
%if $event == player-leave then goto leavelobby;
%goto checklobby;

@cancellobby
%setVar cancel true;
%goto checklobby;

@leavelobby
%sbreset $player-name;
%removeListElement all $player-name;
%removeMapElement all $p;
%teleportPlayer $player-name $lobby;
%kick $player-name;
%command clear $player-name;
%goto checklobby;

@stopstart
%setVar started false;
%speak all §cRageMode Es wird auf weitere Spieler gewartet.;
%goto checklobby;

@checkstart
%if %getListSize all; > 1 && $started != true then goto start20;
%goto checklobby;

@start20
%setVar started true;
%speak all §cRageMode §eDas Spiel startet in §b20 §eSekunden.;
%sgoto 100 start15;
%goto playstartsound;

@start15
%if %getListSize all; < 2 then goto stopstart;
%speak all §cRageMode §eDas Spiel startet in §b15 §eSekunden.;
%sgoto 100 start10;
%goto playstartsound;

@start10
%if %getListSize all; < 2 then goto stopstart;
%speak all §cRageMode §eDas Spiel startet in §b10 §eSekunden.;
%sgoto 100 start5;
%goto playstartsound;

@start5
%if %getListSize all; < 2 then goto stopstart;
%speak all §cRageMode §eDas Spiel startet in §b5 §eSekunden.;
%command title $player-name subtitle {"text":"%getVar mapname;"};
%command title $player-name title {"text":"RageMode","color":"red"};
%sgoto 20 start4;
%goto playstartsound;

@start4
%if %getListSize all; < 2 then goto stopstart;
%speak all §cRageMode §eDas Spiel startet in §b4 §eSekunden.;
%sgoto 20 start3;
%goto playstartsound;

@start3
%if %getListSize all; < 2 then goto stopstart;
%speak all §cRageMode §eDas Spiel startet in §b3 §eSekunden.;
%sgoto 20 start2;
%goto playstartsound;

@start2
%if %getListSize all; < 2 then goto stopstart;
%speak all §cRageMode §eDas Spiel startet in §b2 §eSekunden.;
%sgoto 20 start1;
%goto playstartsound;

@start1
%if %getListSize all; < 2 then goto stopstart;
%speak all §cRageMode §eDas Spiel startet in §b1 §eSekunden.;
%sgoto 20 start0;
%goto playstartsound;

@playstartsound
%setVar i 0;
@playstartsoundlabel
%setVar p %getListElementAt all $i;;
%playsoundPlayer $p %getPlayerLoc $p; BLOCK_NOTE_BASS;
%setVar i %add $i 1;;
%if $i < %getListSize all; then goto playstartsoundlabel;
%goto checklobby;

@start0
%if %getListSize all; < 2 then goto stopstart;
%setVar no-join true;
%setVar phase 1;
%speak all §cRageMode §eDas Spiel läuft.;

%loadEvent player-drop;
%loadEvent inv-click;
%loadEvent item-hit;
%loadEvent item-hit-ground;
%loadEvent air-click;
%setVar starttime %getTime;;

%sbreset all;
%sbadd all 98 §6RageMode;
%sbadd all 97 §aGoal: §f25;
%setVar i 0;
%setVar id 96;
@sblabel1
%setVar p %getListElementAt all $i;;
%sbadd all $id 00 §8$p;
%sbadd $p $id 00 §e$p;
%setVar i %add $i 1;;
%setVar id %sub $id 1;;
%if $i < %getListSize all; then goto sblabel1;
%sbadd all $id §f;
%sbadd all %sub $id 1; Emeralds: §a0;

%setVar i 0;
@transfer
%setVar p %getListElementAt all $i;;

@position
%setVar position %getListElementAt spawns %random 0 %sub %getListSize spawns; 1;;;;
%if %sub %getTime; %getMapValue times $position;; < 5000 then goto position;
%if %getVar %concat $p lastposition;; == $position then goto position;
%setVar %concat $p lastposition; $position;
%teleportPlayer $p $position;
%addMapElement times $position %getTime;;

%playsoundPlayer $p %getPlayerLoc $p; BLOCK_NOTE_HARP;
%playsoundPlayer $p $position BLOCK_NOTE_HARP;

%if %hasFly $p; == false then goto jumpflyremove;
%command fly $p off;
@jumpflyremove
%if %getPlayerGameMode $p; == SURVIVAL then goto jumpgmremove;
%command gamemode SURVIVAL $p;
@jumpgmremove

%giveItemPlayer $p {id:"minecraft:bow",Count:1b,tag:{ench:[0:{lvl:1s,id:51s}],display:{Name:"§eRageBow"}},Damage:0s};
%giveItemPlayer $p {id:"minecraft:iron_sword",Count:1b,tag:{HideFlags:2,display:{Name:"§cRageKnife"}},Damage:0s};
%giveItemPlayer $p {id:"minecraft:iron_axe",Count:1b,tag:{HideFlags:2,display:{Name:"§bCombatAxe"}},Damage:0s};
%giveItemPlayer $p ARROW;
#%giveItemPlayer $p {id:"minecraft:chest",Count:1b,tag:{display:{Name:"§aShop"}},Damage:0s};

%setVar %concat $p kills; 0;
%setVar %concat $p theoretickills; 0;
%setVar %concat $p deaths; 0;
%setVar %concat $p killstreak; 0;
%setVar %concat $p maxkillstreak; 0;
%setVar %concat $p messerkills; 0;
%setVar %concat $p axekills; 0;
%setVar %concat $p emeralds; 0;

%setVar i %add $i 1;;
%if $i < %getListSize all; then goto transfer;
%sgoto 18000 endgame;

@checkgame
%wait;
%if $event == air-click && $action == RIGHT_CLICK_AIR && $player-item-type == CHEST then goto showmenu;
%if $event == air-click && $player-item-type == BOW then setVar cancel false;
%if $event == air-click || $event == block-click && $player-item-type == IRON_AXE then goto shootAxe;
%if $event == item-hit && $item-type == IRON_AXE then goto thrownAxeHit;
%if $event == player-hurt && $player-damage-cause == PROJECTILE && $projectile-type == ARROW then goto bowHit;
%if $event == player-hurt && $player-damage-cause == FALL then setVar cancel true;
%if $event == player-hurt && $sec-player-item-type == IRON_SWORD then goto swordHit;
%if $event == player-hurt && $sec-player-item-type == IRON_AXE then goto axeHit;
%if $event == inv-click && $inv-type == CHEST then goto choosemenu;
%if $event == block-click && $player-item-type == CHEST then goto showmenu;
%if $event == block-place && $block-type == CHEST then goto showmenu;
%if $event == player-hurt || $event == block-break || $event == block-place || $event == inv-click || $event == player-drop then setVar cancel true;
%if $event == item-hit-ground then goto dropaxe;
%if $event == player-leave then goto giveup;
%goto checkgame;

@showmenu
%setVar cancel true;
%openMenu 0 $player-name;
%goto checkgame;

@choosemenu
%if $inv-slot == 0 then goto mine;
%if $inv-slot == 1 then goto speed;
%if $inv-slot == 2 then goto chestplate;
%if $inv-slot == 3 then goto light;
%goto checkgame;

@mine
%setVar cancel true;

%goto checkgame;

@speed
%setVar cancel true;

%goto checkgame;

@chestplate
%setVar cancel true;

%goto checkgame;

@light
%setVar cancel true;

%goto checkgame;

@dropaxe
%setVar loc $item-loc;
%dropItem $loc {id:"minecraft:iron_axe",Count:1b,tag:{HideFlags:2,display:{Name:"§bCombatAxe"}},Damage:0s};
%goto checkgame;

@shootAxe
%shootItem $player-name 1.8 0.4 0.4 0.4 IRON_AXE;
%removeItemPlayer $player-name %getItemInMainHand $player-name;;
%goto checkgame;

@axeHit
%setVar p $player-name;
%setVar sp $sec-player-name;
%removeItemPlayer $sp %getItemInMainHand $sp;;
%goto axeCore;

@thrownAxeHit
%setVar sp $player-name;
%setVar i 0;
@thrownAxeHitLabel
%setVar p %getListElementAt ents $i;;
%if %checkForListElement all $p; == true then goto axeCore;
%if %inc i; < %getListSize ents; then goto thrownAxeHitLabel;
%goto dropaxe;

@axeCore
%setVar action1 axeHit;
%setVar cancel true;
%if $p == $sp then goto checkgame;
%playsoundPlayer $p %getPlayerLoc $p; ENTITY_WITHER_SPAWN;
%speak $sp §cRageMode §eDu hast §8$p §emit der Axt getötet;
%speak $p §cRageMode §eDu wurdest von §8$sp §emit der Axt getötet;
%speak $p §cRageMode §rDeine Kills: §c-25 §rProzent.;
%setVar %concat $p theoretickills; %rounddown %div %mul %getVar %concat $p theoretickills;; 3; 4;;;;
%addMapElement all $p %getVar %concat $p theoretickills;;;
%setVar %concat $sp axekills; %add %getVar %concat $sp axekills;; 1;;
%goto core;

@swordHit
%setVar cancel true;
%setVar p $player-name;
%setVar sp $sec-player-name;
%if $p == $sp then goto checkgame;
%speak $sp §cRageMode §eDu hast §8$p §egetötet;
%speak $p §cRageMode §eDu wurdest von §8$sp §egetötet;
%setVar %concat $sp messerkills; %add %getVar %concat $sp messerkills;; 1;;
%goto core;

@bowHit
%setVar cancel true;
%setVar p $player-name;
%setVar sp $sec-player-name;
%if $p == $sp then goto checkgame;
%speak $sp §cRageMode §eDu hast §8$p §egetötet;
%speak $p §cRageMode §eDu wurdest von §8$sp §egetötet;
%goto core;

@core
%setVar emeraldid %sub 95 %getListSize all;;;
%speak $sp §cRageMode §e+§r1 §aEmerald;
%setVar %concat $sp emeralds; %add %getVar %concat $sp emeralds;; 1;;
%sbadd $sp $emeraldid Emeralds: §a%getVar %concat $sp emeralds;;;
%if $p != %getVar %concat $sp nemesis;; then goto overridenemesis;
%speak $sp §cRageMode §eDu hast deinen §cNemesis Gegner §egetötet;
%setVar %concat $sp kills; %add %getVar %concat $sp kills;; 1;;
%speak $sp §cRageMode §e+§r1 §aEmerald;
%setVar %concat $sp emeralds; %add %getVar %concat $sp emeralds;; 1;;
%sbadd $sp $emeraldid Emeralds: §a%getVar %concat $sp emeralds;;;
@overridenemesis
%setVar %concat $p deaths; %add %getVar %concat $p deaths;; 1;;
%setVar %concat $sp kills; %add %getVar %concat $sp kills;; 1;;
%setVar %concat $sp theoretickills; %add %getVar %concat $sp theoretickills;; 1;;
%addMapElement all $sp %getVar %concat $sp theoretickills;;;
%command clear $p;
%setVar %concat $p nemesis; $sp;
%setVar %concat $sp nemesis; null;
%setVar %concat $p killstreak; 0;
%setVar %concat $sp killstreak; %add %getVar %concat $sp killstreak;; 1;;
%setVar index1 %sub 96 %getIndexOfListElement all $p;;;
%setVar index2 %sub 96 %getIndexOfListElement all $sp;;;
%sortMap all;
%inverseMap all;

%setVar i 0;
%setVar id 96;
@sblabel2
%setVar player %getMapKeyAt all $i;;
%sbadd all $id %getMapValue all $player; §8$player;
%sbadd $player $id %getMapValue all $player; §e$player;
%setVar id %sub $id 1;;
%if %inc i; < %getMapSize all; then goto sblabel2;

%setVar i 0;
%setVar id 96;
@sblabel4
%setVar player %getMapKeyAt all $i;;
%if %getVar %concat $player nemesis;; == null then goto noNemesis;
%setVar nemesisplayer %getVar %concat $player nemesis;;;
%setVar index %sub 96 %getIndexOfMapKey all $nemesisplayer;;;
%sbadd $player $index %getMapValue all $nemesisplayer; §c$nemesisplayer;
@noNemesis
%setVar id %sub $id 1;;
%if %inc i; < %getMapSize all; then goto sblabel4;
%giveItemPlayer $p {id:"minecraft:bow",Count:1b,tag:{ench:[0:{lvl:1s,id:51s}],display:{Name:"§eRageBow"}},Damage:0s};
%giveItemPlayer $p {id:"minecraft:iron_sword",Count:1b,tag:{HideFlags:2,display:{Name:"§cRageKnife"}},Damage:0s};
%giveItemPlayer $p {id:"minecraft:iron_axe",Count:1b,tag:{HideFlags:2,display:{Name:"§bCombatAxe"}},Damage:0s};
%giveItemPlayer $p ARROW;
#%giveItemPlayer $p {id:"minecraft:chest",Count:1b,tag:{display:{Name:"§aShop"}},Damage:0s};
%if %getVar %concat $sp killstreak;; > %getVar %concat $sp maxkillstreak;; then goto newmax;
%goto newposition;

@newmax
%setVar %concat $sp maxkillstreak; %add %getVar %concat $sp maxkillstreak;; 1;;
%goto newposition;

@newposition
%setVar position %getListElementAt spawns %random 0 %sub %getListSize spawns; 1;;;;
%if %sub %getTime; %getMapValue times $position;; < 5000 then goto newposition;
%if %getVar %concat $p lastposition;; == $position then goto newposition;
%setVar %concat $p lastposition; $position;
%teleportPlayer $p $position;
%if $action1 == axeHit then playsoundPlayer $p $position ENTITY_WITHER_SPAWN;
%setVar action1 null;
%addMapElement times $position %getTime;;
%goto checkwin;

@checkwin
%if %getVar %concat $sp theoretickills;; >= 25 then goto win;
%setVar sec-player-name null;
%goto checkgame;

@endgame
%setVar winner %getMapKeyAt all 0;;
%goto wincore;

@win
%setVar winner $sp;
%goto wincore;

@win2
%setVar winner %getListElementAt all 0;;
%goto wincore;

@wincore
%speak all §cRageMode §8$winner §ehat §cRageMode §egewonnen;
%setVar endtime %getTime;;
%goto stats;

@stats
%setVar i 0;
@transferout
%setVar p %getListElementAt all $i;;
%teleportPlayer $p $gamesworldloc;
%command clear $p;
%sbreset $p;
%speak $p §cRageMode §7-= §eStatistik dieses Spiels §7=-;
%setVar time %round %div %sub $endtime $starttime; 1000;;;
%speak $p §cRageMode §7Zeit§8: §e%round %div $time 60;; Minuten %mod $time 60; Sekunden;
%speak $p §cRageMode §7Kills§8: §e%getVar %concat $p kills;;;
%speak $p §cRageMode §7Tode§8: §e%getVar %concat $p deaths;;;
%speak $p §cRageMode §7Killstreak§8: §e%getVar %concat $p maxkillstreak;;;
%speak $p §cRageMode §7Messer-Kills§8: §e%getVar %concat $p messerkills;;;
%speak $p §cRageMode §7Axt-Kills§8: §e%getVar %concat $p axekills;;;
%setVar winningtext §7Gewonnen§8: §eNein;
%if $p != $winner then goto notthewinner;
%setVar winningtext §7Gewonnen§8: §eJa;
@notthewinner
%speak $p §cRageMode $winningtext;

@rank
%if %gGV $p globalrmkills; != null then goto ignorenullkills;
%sGV $p globalrmkills 0;
@ignorenullkills

%sGV $p globalrmkills %add %gGV $p globalrmkills; %getVar %concat $p kills;;;;
%addGlobalMapElement rmranks %getPlayerUUID $p; %gGV $p globalrmkills;;
%getGlobalMap rmranks rmranks;
%sortMap rmranks;
%inverseMap rmranks;
%speak $p §cRageMode §7Dein Rang§8: §e%add %getIndexOfMapKey rmranks %getPlayerUUID $p;; 1;;

%if %inc i; < %getListSize all; then goto transferout;
%removeEntities Item $middleloc $radius;
%endQuest 10;

@giveup
%if $phase == 0 then goto leavelobby;
%setVar p $player-name;
%teleportPlayer $p $gamesworldloc;
%sbreset $p;
%removeListElement all $p;
%removeMapElement all $p;
%kick $p;

%sortMap all;
%inverseMap all;
%setVar i 0;
@sblabel3
%setVar p %getMapKeyAt all $i;;
%setVar id 96;
%sbadd all $id %getMapValue all $p; §8$p;
%sbadd $p $id %getMapValue all $p; §e$p;
%if %getVar %concat $p nemesis;; == null then goto noNemesis2;
%setVar sp %getVar %concat $p nemesis;;;
%setVar index %sub 96 %getIndexOfMapKey all $sp;;;
%sbadd $p $index %getMapValue all $p; §c$sp;
@noNemesis2
%setVar id %sub $id 1;;
%if %inc i; < %getMapSize all; then goto sblabel3;
%sbadd all $id §f;
%sbadd all %sub $id 1; Emeralds: §a0;

%if %getListSize all; <= 1 then goto win2;
%goto checkgame;