minecraft-snuvi-scripts/Archiv/worldedit_old.txt

%setVar no-join true;

%addList allowed;
%addListElement allowed marvinius;
%addListElement allowed kajetanjohannes;
%addListElement allowed eropster;
%addListElement allowed Kargam;
%addListElement allowed sunrise_xD;

%setVars %getQuestLeader;;
%if %checkForListElement allowed $player-name; == true goto start;
%term;

@start
%msg all §rDu hast nun §bWorldedit.;
%loadEvent block-click;
%loadEvent block-break;
%loadEvent chat;
%goto wait;

@wait
%wait;
%if $event == block-break && $player-item-type == WOOD_SPADE goto cancel;
%if $event == chat goto checkarg0;
%if $event == block-click && $player-item-type == WOOD_SPADE && $action == LEFT_CLICK_BLOCK goto setblockpos1;
%if $event == block-click && $player-item-type == WOOD_SPADE && $action == RIGHT_CLICK_BLOCK goto setblockpos2;
%if $event == player-leave goto giveup;
%goto wait;

@cancel
%setVar cancel true;
%goto wait;

@syntax
%speak $player-name §dWorldEdit §r-----------------------------------------;
%speak $player-name §dWorldEdit §3%percent;set <block-name> §r--> §7Setzt den ausgewählten Bereich auf eine Blockart;
%speak $player-name §dWorldEdit §3%percent;undo §r--> §7Macht die letzte Aktion rückgängig;
%speak $player-name §dWorldEdit §3%percent;replace <old-block> <new-block> §r--> §7Ersetzt im ausgewählten Bereich alle alten Blöcke durch die neuen.;
%speak $player-name §dWorldEdit §3%percent;copy §r--> §7Speichert die Auswahl;
%speak $player-name §dWorldEdit §3%percent;paste §r--> §7Kopiert die Auswahl;
%speak $player-name §dWorldEdit §3%percent;clone §r--> §7Setzt den zu klonenden Bereich fest.;
%speak $player-name §dWorldEdit §3%percent;clone confirm §r--> §7Klont die Auswahl korrekt.;
%speak $player-name §dWorldEdit §3%percent;pos1 §r--> §7Setzt deine aktuelle Position auf Pos1;
%speak $player-name §dWorldEdit §3%percent;pos2 §r--> §7Setzt deine aktuelle Position auf Pos2;
%goto wait;

@checkarg0
%if %getListElementAt args 0; == we && %getListSize args; == 1 goto syntax;
%if %getListElementAt args 0; == pos1 && %getListSize args; == 1 goto setplayerpos1;
%if %getListElementAt args 0; == pos2 && %getListSize args; == 1 goto setplayerpos2;
%if %getListElementAt args 0; == undo && %getListSize args; == 1 && $undo == true goto undo;
%if %getListElementAt args 0; == paste && %getListSize args; == 1 goto dopaste1;
%if %getListElementAt args 0; == clone && %getListSize args; == 1 goto prepareclone;
%goto check;

@check
%if $world1 == $world2 goto checks1;
%speak $player-name §dWorldEdit §rDie Welten der ausgewählten Blöcke stimmen nicht überein bzw. die Ecken wurden nicht ausgewählt.;
%goto wait;
@checks1
%if %getListElementAt args 0; == clone && %getListSize args; == 2 goto checkclone;
%if %getListElementAt args 0; == copy && %getListSize args; == 1 goto copy;
%if %getListElementAt args 0; == set && %getListSize args; == 2 goto checkset;
%if %getListElementAt args 0; == replace && %getListSize args; == 3 goto checkreplace;
%goto syntax;

@checkclone
%if %getListElementAt args 1; == confirm || %getListElementAt args 1; == co goto doclone;
%goto syntax;

@checkset
%if %isValidStack %getListElementAt args 1;; == true goto set;
%speak $player-name §dWorldEdit §rDer angegebene Block ist nicht gültig.;
%goto wait;

@checkreplace
%if %isValidStack %getListElementAt args 1;; == true && %isValidStack %getListElementAt args 2;; == true goto replace;
%speak $player-name §dWorldEdit §rDer angegebene Block ist nicht gültig.;
%goto wait;

@setplayerpos1
%setVar x1 %coords $player-loc x;;
%setVar y1 %coords $player-loc y;;
%setVar z1 %coords $player-loc z;;
%setVar world1 %coords $player-loc w;;
%speak $player-name §dWorldEdit %concat §3Pos1: $x1 : $y1 : $z1;;
%goto wait;

@setplayerpos2
%setVar x2 %coords $player-loc x;;
%setVar y2 %coords $player-loc y;;
%setVar z2 %coords $player-loc z;;
%setVar world2 %coords $player-loc w;;
%speak $player-name §dWorldEdit %concat §3Pos2: $x2 : $y2 : $z2;;
%goto wait;

@setblockpos1
%setVar x1 %coords $block-loc x;;
%setVar y1 %coords $block-loc y;;
%setVar z1 %coords $block-loc z;;
%setVar world1 %coords $block-loc w;;
%speak $player-name §dWorldEdit %concat §3Pos1: $x1 : $y1 : $z1;; 
%goto wait;

@setblockpos2
%setVar x2 %coords $block-loc x;;
%setVar y2 %coords $block-loc y;;
%setVar z2 %coords $block-loc z;;
%setVar world2 %coords $block-loc w;;
%speak $player-name §dWorldEdit %concat §3Pos2: $x2 : $y2 : $z2;;
%goto wait;

@copy
%setVar aktion copy;
%goto change;

@replace
%setVar aktion replace;
%goto change;

@set
%setVar aktion set;
%goto change;

@change
%if $aktion != copy goto override5;
%addList copyblocktype;
%addList copyblockdata;
@override5
%if $aktion == copy goto override6;
%removeList undoblocktype;
%removeList undoblockdata;
%removeList undoblockloc;
%addList undoblocktype;
%addList undoblockdata;
%addList undoblockloc;
@override6
%setVar world $world1;
%setVar counter 0;

%if $x1 < $x2 goto override1;
%setVar helper $x2;
%setVar x2 $x1;
%setVar x1 $helper;
@override1

%if $y1 < $y2 goto override2;
%setVar helper $y2;
%setVar y2 $y1;
%setVar y1 $helper;
@override2

%if $z1 < $z2 goto override3;
%setVar helper $z2;
%setVar z2 $z1;
%setVar z1 $helper;
@override3

%setVar helper null;

%setVar x $x1;
@start_x
%setVar y $y1;
@start_y
%setVar z $z1;
@start_z

%setVar loc %concat $world : $x : $y : $z;;

@doset
%if $aktion != set goto doreplace;
%addListElement undoblocktype %blockType $loc;;
%addListElement undoblockdata %blockData $loc;;
%addListElement undoblockloc $loc;
%setBlock $loc %getListElementAt args 1;;
%setVar counter %add $counter 1;;
%goto override4;

@doreplace
%if $aktion != replace goto docopy;
%if %blockType $loc; != %getListElementAt args 1; goto override4;
#split requested
%addListElement undoblocktype %blockType $loc;;
%addListElement undoblockdata %blockData $loc;;
%addListElement undoblockloc $loc;
%setBlock $loc %getListElementAt args 2;;
%setVar counter %add $counter 1;;
%goto override4;

@docopy
%if $aktion != copy goto override4;
%setVar pasteable true;
%setVar xedgedistance %sub $x2 $x1;;
%setVar yedgedistance %sub $y2 $y1;;
%setVar zedgedistance %sub $z2 $z1;;
%setVar xdistance %sub $x1 %coords $player-loc x;;;
%setVar ydistance %sub $y1 %coords $player-loc y;;;
%setVar zdistance %sub $z1 %coords $player-loc z;;;
%addListElement copyblocktype %blockType $loc;;
%addListElement copyblockdata %blockData $loc;;
%setVar counter %add $counter 1;;
%goto override4;

@override4
%setVar z %add $z 1;;
%if $z <= $z2 goto start_z;

%setVar y %add $y 1;;
%if $y <= $y2 goto start_y;

%setVar x %add $x 1;;
%if $x <= $x2 goto start_x;

%if $aktion == copy goto override8;
%setVar undo true;
%speak $player-name §dWorldEdit §3Done: $counter blocks affected;
%setVar aktion null;
%goto wait;
@override8
%speak $player-name §dWorldEdit §3Done: $counter blocks stored;
%setVar topaste $counter;
%setVar aktion null;
%goto wait;


@doclone
%setVar x $x1;
@start_x
%setVar y $y1;
@start_y
%setVar z $z1;
@start_z

%setVar loc %concat $world : $x : $y : $z;;

@doclone1
%if $cloneable == true goto doclone2;
%speak $player-name §dWorldEdit §3Es wurde nichts zum Klonen gespeichert.;
%goto wait;
@doclone2
%addListElement undoblocktype %blockType $loc;;
%addListElement undoblockdata %blockData $loc;;
%addListElement undoblockloc $loc;
%setVar aimloc %modLoc $takefromloc
%setVar relloc %modLoc $takefromloc
%blockClone $relloc $loc;
%setVar counter %add $counter 1;;
%setVar cloneable false;
%goto override4;


@dopaste1
%if $pasteable == true goto dopaste2;
%speak $player-name §dWorldEdit §3Es wurde nichts zum Kopieren gespeichert.;
%goto wait;

@dopaste2
%setVar startloc %modLoc $player-loc $xdistance $ydistance $zdistance;;
%removeList undoblocktype;
%removeList undoblockdata;
%removeList undoblockloc;
%addList undoblocktype;
%addList undoblockdata;
%addList undoblockloc;
%setVar i 0;

%setVar x 0;
@start1_x
%setVar y 0;
@start1_y
%setVar z 0;
@start1_z

@pastelabel
%setVar relloc %modLoc $startloc $x $y $z;;
%addListElement undoblocktype %blockType $relloc;;
%addListElement undoblockdata %blockData $relloc;;
%addListElement undoblockloc $relloc;
%setBlock $relloc %concat %getListElementAt copyblocktype $i; : %getListElementAt copyblockdata $i;;;
%setVar i %add $i 1;;
%if $i < %sub %getListSize copyblocktype; $topaste; goto pastelabel;

%setVar z %add $z 1;;
%if $z <= $zedgedistance goto start1_z;

%setVar y %add $y 1;;
%if $y <= $yedgedistance goto start1_y;

%setVar x %add $x 1;;
%if $x <= $xedgedistance goto start1_x;

%setVar undo true;
%speak $player-name §dWorldEdit §3Done: $i blocks affected;
%goto wait;


@prepareclone
%setVar world $world1;

%if $x1 < $x2 goto override9;
%setVar helper $x2;
%setVar x2 $x1;
%setVar x1 $helper;
@override9

%if $y1 < $y2 goto override10;
%setVar helper $y2;
%setVar y2 $y1;
%setVar y1 $helper;
@override10

%if $z1 < $z2 goto override11;
%setVar helper $z2;
%setVar z2 $z1;
%setVar z1 $helper;
@override11

%setVar helper null;
%setVar takefromloc %concat $world : $x1 : $y1 : $z1;;
%setVar toclonex %sub $x2 $x1;;
%setVar tocloney %sub $y2 $y1;;
%setVar toclonez %sub $z2 $z1;;
%setVar cloneable true;
%speak $player-name §dWorldEdit §3Setze nun per Linksklick mit der Holzschaufel den untersten südwestlichsten Punkt.;
%goto wait;


@undo
%setVar i 0;
@undolabel
%setVar type %getListElementAt undoblocktype $i;;
%setVar data %getListElementAt undoblockdata $i;;
%setVar loc %getListElementAt undoblockloc $i;;
%setBlock $loc %concat $type : $data;;
%setVar i %add $i 1;;
%if $i < %getListSize undoblocktype; goto undolabel;

%removeList undoblocktype;
%removeList undoblockdata;
%removeList undoblockloc;
%setVar undo false;
%speak $player-name §dWorldEdit §3Done: $i blocks affected;
%goto wait;

@giveup
%term;