program PIGLETs;
var x, y, z,COUNTER,PIGLET,piggy:integer;
procedure F3; begin; keydown(114)wait(50);keyup(114);end;
procedure ATTL; begin; keydown(37);wait(50);keyup(37);wait(50);keydown(17);wait(1500);keyup(17);END;
procedure ATTU; begin; keydown(38);wait(50);keyup(38);wait(50);keydown(17);wait(1500);keyup(17);END;
procedure ATTR; begin; keydown(39);wait(50);keyup(39);wait(50);keydown(17);wait(1500);keyup(17);END;
procedure ATTD; begin; keydown(40);wait(50);keyup(40);wait(50);keydown(17);wait(1500);keyup(17);END;
procedure CHECKSTATUS;begin;clickmouse(87,33,true);wait(1000);clickmouse(496,308,true);end;

begin
PIGLET:=32181;PIGGY:=25500;findwindowtitlepart('endless online',false);activateclient;
wait(500)
repeat
//COUNTER:=(COUNTER+1);IF (COUNTER>50) THEN begin;CHECKSTATUS;counter:=0;end;
Z:=(Z+1);IF (Z=5) THEN Z:=1;
IF (Z=1) THEN BEGIN;X:=15;Y:=61;END;
IF (Z=2) THEN BEGIN;X:=629;Y:=61;END;
IF (Z=3) THEN BEGIN;X:=15;Y:=332;END;
IF (Z=4) THEN BEGIN;X:=629;Y:=332;END;
IF (GETCOLOR(356,158)=PIGLET) THEN ATTU;
IF (GETCOLOR(287,190)=PIGLET) THEN ATTD;
IF (GETCOLOR(351,190)=PIGLET) THEN ATTR;
IF (GETCOLOR(288,154)=PIGLET) THEN ATTL;
if(FindColorSpiral2(x, y, PIGLET, 13, 61, 630, 332))then begin;clickmouse(x, y, true);wait(1600);F3;end;
until (x=5000);
end.




this works ive tested it and i use it its pretty useful uhhh alsodont copy and paste this part lol