PT

IF(@#ptrlaunchmode=0);
DO;
IFMATCHES(%@&currentcmd%,"^/ptr$");
@#filtermes=1;
@#ptrlaunchmode=1;
EXEC(%KEYNAME%.txt,"Processing...");
ENDIF;
IF(GUI="NONE");
IF(ITEM = "clock");
ARRAYSIZE(@&points,#n);
IF(#n!=0);
IF(KEY_RIGHT);
INC(#counter);
IF(#counter=0);
#i=#counter;
LOG(%@&points[%#i%]%);
ELSE;
IF(#counter<#n);
IF(#counter=>0);
LOG(%@&points[%#i%]%);
ELSE;
#mcounter=-#counter;
IF(#mcounter<#n);
IF(#mcounter<0);#i=-#mcounter;ELSE;#i=#mcounter;ENDIF;
LOG(%@&points[%#i%]%);
ELSE;
#counter=#counter+#n;
#mcounter=-#counter;
IF(#mcounter<0);#i=-#mcounter;ELSE;#i=#mcounter;ENDIF;
LOG(%@&points[%#i%]%);
ENDIF;
ENDIF;
ELSE;
#counter=#counter-#n;
IF(#counter<0);#i=-#counter;ELSE;#i=#counter;ENDIF;
LOG(%@&points[%#i%]%);
ENDIF;
ENDIF;
WAIT(250ms);
ENDIF;
IF(KEY_LEFT);
DEC(#counter);
IF(#counter=0);
#i=#counter;
LOG(%@&points[%#i%]%);
ELSE;
IF(#counter<#n);
IF(#counter=>0);
LOG(%@&points[%#i%]%);
ELSE;
#mcounter=-#counter;
IF(#mcounter<#n);
IF(#mcounter<0);#i=-#mcounter;ELSE;#i=#mcounter;ENDIF;
LOG(%@&points[%#i%]%);
ELSE;
#counter=#counter+#n;
#mcounter=-#counter;
IF(#mcounter<0);#i=-#mcounter;ELSE;#i=#mcounter;ENDIF;
LOG(%@&points[%#i%]%);
ENDIF;
ENDIF;
ELSE;
#counter=#counter-#n;
IF(#counter<0);#i=-#counter;ELSE;#i=#counter;ENDIF;
LOG(%@&points[%#i%]%);
ENDIF;
ENDIF;
WAIT(250ms);
ENDIF;
IF(RMOUSE);
#buf=%FOV%;
FOV(10,0.1);
@&tbc="/%@&pointcmds[%#i%]%";
PLAYSOUND(entity.endermen.portal);
WAIT(300ms);
FOV(%#buf%,0.1);
ENDIF;
ELSE;
IF(KEY_RIGHT);
	LOG(&7[&3P&aT&7] &3%@&ptrnopoints%);
WAIT(250ms);
ENDIF;
IF(KEY_LEFT);
	LOG(&7[&3P&aT&7] &3%@&ptrnopoints%);
WAIT(250ms);
ENDIF;
IF(RMOUSE);
	LOG(&7[&3P&aT&7] &3%@&ptrnopoints%);
WAIT(250ms);
ENDIF;
ENDIF;
ENDIF;
ENDIF;
UNTIL;
ENDIF;
IF(@#ptrlaunchmode=1);
@#ptrlaunchmode=0;
UNSET(@&currentcmd);
MATCH(%@&chatcontent%,"^/ptr (.+?)\b",{&case});
IFMATCHES(%&case%,"^h$|^help$",&ccase);
LOG(&8-------[&3Portative&aTeleporter&8]-------);
LOG(&a/ptr h &3- %@&ptrh1%);
LOG(&a/ptr l &3- %@&ptrh2%);
LOG(&a/ptr ap &7<point name> <command> &3- %@&ptrh3%);
LOG(&a/ptr dp &7<point name> &3- %@&ptrh4%);
LOG(%@&ptlh6%);
ENDIF;
IFMATCHES(%&case%,"^ap$|^addpoint$",&ccase);
MATCH(%@&chatcontent%,"^/ptr %&case% (.+?) (.+)$",{&point,&cmd});
IF(%&point%=);
	LOG(&7[&3P&aT&7] &3%@&ptrneedspnamecmd%);
ELSE;
INDEXOF(@&points[],#i,"%&point%");
IF(#i=-1);
IFBEGINSWITH(%&cmd%,"/");
&cmd=\%&cmd%;
REPLACE(&cmd,"\/","");
ENDIF;
IFMATCHES(%&cmd%,"^[a-z|\-|:|0-9| ]+$");
PUSH(@&points[],"%&point%");
PUSH(@&pointcmds[],"%&cmd%");
	LOG(&7[&3P&aT&7] &3%@&ptadded% %&point% &a( &b%&cmd%&a ));
ELSE;
	LOG(&7[&3P&aT&7] &3%@&ptrwrongsyntax%);
ENDIF;
ELSE;
	LOG(&7[&3P&aT&7] &3%@&ptrexists%);
ENDIF;
ENDIF;
ENDIF;
IFMATCHES(%&case%,"^dp$|^delpoint$",&ccase);
MATCH(%@&chatcontent%,"^/ptr %&case% (.+?)$",{&point});
IF(%&point%=);
	LOG(&7[&3P&aT&7] &3%@&ptrneedspname%);
ELSE;
INDEXOF(@&points[],#i,"%&point%");
IF(#i=-1);
	LOG(&7[&3P&aT&7] &3%@&ptrunexists%);
ELSE;
	LOG(&7[&3P&aT&7] &3%@&ptremd% "%@&points[%#i%]%&3");
UNSET(@&points[%#i%]);
UNSET(@&pointcmds[%#i%]);
INDEXOF(@&points[],#i,"");
IF(#i!=-1);
ARRAYSIZE(@&points,#n);#n=#n-1;
FOR(#j,%#i%,%#n%);
#k=#j+1;
@&points[%#j%]=%@&points[%#k%]%;
@&pointcmds[%#j%]=%@&pointcmds[%#k%]%;
NEXT;
POP(@&points[],&del);
POP(@&pointcmds[],&del);
ENDIF;
ENDIF;
ENDIF;
ENDIF;
IFMATCHES(%&case%,"^l$|^list$",&ccase);
ARRAYSIZE(@&points,#n);
IF(#n!=0);
#n=#n-1;
	LOG(&7[&3P&aT&7] &3%@&ptrplist%);
@#tcsmblockchat=1;
FOR(#i,0,%#n%);
LOG("&a%@&points[%#i%]%&a ( &b%@&pointcmds[%#i%]%&a )");
NEXT;
@#tcsmblockchat=0;
ELSE;
	LOG(&7[&3P&aT&7] &3%@&ptrnopoints%);
ENDIF;
ENDIF;
IF(%&ccase%=);
ECHO(%@&chatcontent%);
ENDIF;
ENDIF;