pickle Moderators
Number of posts: : 187 Age : 29 Location : usa Guild Tag : LSI Guild Name : Love sins Join date : 2010-04-03
| Subject: Auto Maze Script Sun May 30, 2010 5:34 am | |
| I think it works... hopefully Here it is: - Code:
-
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. | |
|
Cookie Co-Owner
Number of posts: : 26 Age : 29 Location : United kingdom! Join date : 2010-05-15
| Subject: Re: Auto Maze Script Sun May 30, 2010 8:58 pm | |
| - pickle wrote:
- o i tried too it fucked up in the beginning cuz it didnt go 1 space up enough XD
Sorry, didn't work for me Kept going around in circles?, I proberly did something wrong | |
|