Auto Maze Script

program AutoMaze;  //by Console
var x,y,c,h,timer, prowatch:integer;

procedure u (upc:Integer);
begin; c:=upc
repeat; if ((findcolorspiral(x, y, 55031, 333, 157,361, 173)=false)
and (findcolorspiral(x, y, 1638350, 333, 157,361, 173)=false)
and (findcolorspiral(x, y, 55031, 369, 141,394, 158)=false)
and (findcolorspiral(x, y, 1638350, 369, 141,394, 158)=false)) then
begin sendarrowwait(0, 350);wait(400);
c:=c-1;
end else begin
if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
sendarrowwait(0, 350) end
keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
until (c<1);wait(400);h:=0;end;

procedure l (lpc:Integer);
begin; c:=lpc
repeat; if ((findcolorspiral(x, y, 55031, 274, 158, 304, 174)=false)
and (findcolorspiral(x, y, 1638350, 274, 158, 304, 174)=false)
and (findcolorspiral(x, y, 55031, 242, 140, 269, 157)=false)
and (findcolorspiral(x, y, 1638350, 242, 140, 269, 157)=false)) then
begin sendarrowwait(3, 350);wait(400);
c:=c-1;
end else begin
if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
sendarrowwait(3, 350) end
keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
until (c<1);wait(400);h:=0;end;

procedure r (rpc:Integer);
begin; c:=rpc
repeat; if ((findcolorspiral(x, y, 55031, 335, 185, 367, 209)=false)
and (findcolorspiral(x, y, 1638350, 335, 185, 367, 209)=false)
and (findcolorspiral(x, y, 55031, 366, 202, 395, 222)=false)
and (findcolorspiral(x, y, 1638350, 366, 202, 395, 222)=false)) then
begin sendarrowwait(1, 350);wait(400);
c:=c-1;
end else begin
if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
sendarrowwait(1, 350) end
keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
until (c<1);wait(400);h:=0;end;

procedure d (dpc:Integer);
begin; c:=dpc
repeat; if ((findcolorspiral(x, y, 55031, 271, 187, 305, 202)=false)
and (findcolorspiral(x, y, 1638350, 271, 187, 305, 202)=false)
and (findcolorspiral(x, y, 55031, 241, 205, 268, 221)=false)
and (findcolorspiral(x, y, 1638350, 241, 205, 268, 221)=false)) then
begin sendarrowwait(2, 350);wait(400);
c:=c-1;
end  else begin
if findcolorspiral(x, y, 9175295, 314, 103, 325, 123) then begin
sendarrowwait(2, 350) end
keydown(17);wait(100);keyup(17);wait(600);h:=h+1;end
if h=10 then begin keydown(123);wait(500);keyup(123);wait(100);h:=0;end
until (c<1);wait(400);h:=0;end;

Procedure Delay(delaytime: Integer);
begin
Timer:=0;
repeat
Timer:=Timer+1;
writeln(IntToStr(Timer))
wait(100)
cleardebug
until(timer=delaytime)
writeln('Procedure: ' + inttostr(prowatch));
end;

Procedure Activate;
begin
prowatch:=0;
findwindowtitlepart('endless online',false);
activateclient;
Delay(20)
writeln('Joeyroyden - Created Walk Procedures');
writeln('Console - Created Path');
writeln('EoBots - eobots-online.com');
end;

Procedure Entrance;
begin
prowatch:=0;
r(3) u(6) r(5) u(14) l(6) u(6) r(6) u(9) r(4)
end;

Procedure One;
begin
prowatch:= 1;
r(3) u(3) r(2) d(2) r(8) d(4) l(4) d(4) l(4) u(2) l(2) d(6) r(12)
u(4) r(2) u(12) l(6) u(10)
end;

Procedure Two;
begin
prowatch:= 2;
r(4) u(6) l(9) u(1) l(5) d(7) l(5) d(9)
end;

Procedure Three;
begin
prowatch:= 3;
l(6) u(4) r(2) u(8) l(2) u(4) r(2) u(2)
end;

Procedure Four;
begin
prowatch:= 4;
r(29) d(17) r(7) d(5) r(3) d(5) l(2) d(5) r(12) u(10) l(5) u(2)
l(5) u(10) l(2) u(10) r(2) d(5) r(5) d(2) r(11)
end;

Procedure Five;
begin
prowatch:= 5;
u(6) r(9) d(5) l(4) d(10) l(3) d(2) r(5) d(10) r(2) d(6) l(9)
d(8) l(3) u(3) l(4) Delay(15)
end;

Procedure Six;
begin
prowatch:= 6;
r(1) u(4) Delay(20) r(7) Delay(15)
end;

Procedure Seven;
begin
prowatch:= 7;
r(4) d(5) r(3) u(1) r(3) d(2) l(1) d(5) l(2) d(4) l(5) d(1) l(3)
d(10) r(6) d(4) r(1) Delay(15)
end;

Procedure Eight;
begin
prowatch:= 8;
d(1) Delay(15) d(1) Delay(15) d(1) Delay(15) r(1) Delay(15) u(1)
Delay(15)
end;

Procedure Nine;
begin
prowatch:= 9;
r(7) u(19) l(10) u(2) l(13) d(4) Delay(15) d(5) Delay(15) d(6)
Delay(15) d(5) Delay(15) d(5) Delay(15) d(5) Delay(15) d(7)
l(12) u(4)
end;

Procedure Ten;
begin
prowatch:= 10;
l(4) u(9) r(2) d(3) r(2) u(5) l(10) d(6) l(5) u(10) l(6) d(1)
l(6) d(11) r(1) Delay(15)
end;

Procedure Eleven;
begin
prowatch:= 11;
r(1) d(5) r(2) u(6) r(11) d(6) l(9) u(4) r(7) d(2) l(5)
Delay(15)
end;

Procedure Twelve;
begin
prowatch:= 12;
d(3) l(10) d(2) l(2) d(10) r(5) u(5) r(5) u(2) r(2) d(10) l(5)
d(5) l(7) d(2) r(15) u(2) r(1) Delay(15)
end;

Procedure Thirteen;
begin
prowatch:= 13;
d(23) l(16) u(18) r(14) d(16) l(12) u(14) r(10) d(12) l(8) u(10)
r(6) d(8) l(4) u(6) r(2) d(4) Delay(15)
end;

Procedure Fourteen;
begin
prowatch:= 14;
r(29) d(8) l(10) Delay(15) l(5) Delay(15) l(8) Delay(15) l(6)
Delay(5) l(4) d(13) r(5) d(3) r(2)
end;

Procedure Fifteen;
begin
prowatch:= 15;
d(1) Delay(15) d(1) Delay(15) u(1) Delay(15) u(1) Delay(15) u(1)
Delay(5) u(2) r(5) d(1) Delay(15) u(2) Delay(15) u(2) l(5)
Delay(15)
end;

Procedure Sixteen;
begin
prowatch:= 16;
r(6) d(9) r(9) d(28) l(10) d(7) l(11) u(5) r(1) u(5) l(1) u(3)
r(1) u(2) l(1) u(6) r(1) u(2) l(1) u(3) r(1) u(7) l(7) d(3) l(3)
Delay(200)
end;

Procedure Seventeen;
begin
prowatch:= 17;
r(1) u(2) r(4) d(4) r(4) u(3) r(1) u(1) r(3) d(8) l(2) u(2) l(5)
d(3) Delay(15) d(6) l(7) u(5) r(5) d(3) l(3) u(1) Delay(15)
end;

Procedure Eighteen;
begin
prowatch:= 18;
d(10) l(13) r(5) u(5) r(2) d(10) r(2) u(12) r(2) d(6) r(2) d(2)
r(2) d(2) r(2)
end;

Procedure Nineteen;
begin
prowatch:= 19;
d(10) l(1) d(2) l(2) d(2) l(4) d(2) l(4) d(2) r(10) d(2) l(4)
d(2) l(8) d(2) r(2) d(5)
end;

Procedure Twenty;
begin
prowatch:= 20;
r(17) u(3) r(6) u(12) r(5) d(17) Delay(15) l(10) d(2) l(2) d(1)
l(2) u(2) l(3) d(3) l(2) u(3) l(13) d(8) l(3) d(2) r(2) d(10)
r(5) Delay(15)
end;

Procedure TwentyOne;
begin
prowatch:= 21;
d(4) r(1) d(4) l(1) d(2) r(1) d(1) r(2) u(1) r(3) d(1) r(3)u(2)
r(1) u(1) r(1) u(2) l(4) u(6) r(5) d(2) l(3) d(2) r(4) d(2) r(1)
d(11) r(5) d(7) l(2) d(4) l(5) u(3) l(2) d(5) r(9) u(2) r(9)
u(8) r(5) u(2) l(3) u(4) r(9) d(16) l(2) d(1) l(2) d(4) r(2)
d(3) l(2) u(1) l(2) d(1) l(3) d(2) l(1) d(4) l(1) d(11) r(5)
d(2) l(2) Delay(15)
end;

Procedure TwentyTwo;
begin
prowatch:= 22;
d(2) l(15) u(8) l(3) d(2) l(2) d(16) r(28) d(6) r(1) Delay(15)
end;

Procedure TwentyThree;
begin
prowatch:= 23;
d(1) l(6) u(3) r(6) u(3) l(14) d(3) l(7) d(16) r(6) d(4) r(4)
u(8) r(8) u(4) r(13) d(12) l(17) Delay(15) r(2) u(3) r(9) d(4)
r(4) Delay(15) d(4) r(2) d(12) r(6) d(5) l(4) d(5) r(2) d(4)
Delay(15)
end;

Procedure TwentyFour;
begin
prowatch:= 24;
u(17) l(6) d(8) l(2) u(1) Delay(15) l(5) d(3) Delay(15) d(1)
l(7) d(2) Delay(15) d(1) r(5) u(2) r(1) Delay(15) u(1)
end;

Procedure TwentyFive;
begin
prowatch:= 25;
u(9) r(4) u(8) l(4) d(4) l(4) d(8) l(4) d(8) l(4) u(11) l(5)
d(10) l(4) u(4) l(2) u(4) r(2) u(2) l(8) d(2) l(12) u(4) l(4)
u(1) l(2) d(7) r(2) d(4) l(4) d(2) l(9) u(13) r(1) Delay(15)
l(6) u(9) l(13) d(2) l(1)
end;

begin
Activate
Entrance
One
Two
Three
Four
Five
Six
Seven
Eight
Nine
Ten
Eleven
Twelve
Thirteen
Fourteen
Fifteen
Sixteen
Seventeen
Eighteen
Nineteen
Twenty
TwentyOne
TwentyTwo
TwentyThree
TwentyFour
TwentyFive
end.