Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Bot;
- var x, y, Monster, HitCount, AntiF, Monsters, PotsMonster, HealsM, Direction, TargetDirection, MoveDirection, PotsUsed:Integer;
- //Key Codes
- var F1, F2, F3, F4, F5, F6, F7, F8, Num0, Num1, Num2, Num3, Num4, Num5, Num6, Num7, Num8, Num9, ArrowLeft, ArrowDown, ArrowRight, ArrowUp, Ctrl:Integer;
- var KsDirection:String;
- const
- // To change time set your clock to 8:59:30 pm
- // leave the clock open while autoing
- // Open client from folder Before 8:59:45 wait till 9pm to turn on hacks
- // DO NOT TURN ON ANY HACKS TILL 9 pm
- // make sure its 9pm before u turn hacks on start script auto away
- //Relog settings
- Username = '';
- Password = '';
- CharacterNum = '1';
- DelayUserInput = 'true'; // Wait extra at login, for lag
- TakeDrop = 'off';// to pickup drops if not = off
- HOP = 'off';//for hop
- MonstersReset = 1; //Amount of monsters to kill before reloging.(Gets reset if you freeze)
- HealType = 'clickheal'; // self, clickheal (none = off/no healing)
- Healer = 6;// amount of times to click heal
- MonsterPotter= 15;//Set Amount of pots to be used...
- Mager = 'on';//Option For mage off/on...
- spell = 'off';//heals with small heal only
- Archer = 'off';{!!!!!!!!Not yet Finished leave it off for now!!!!!!!!!}
- {.........guide...........
- F1 is your mage key.
- For DC input your info or your fucked.
- DO NOT FUCK WITH ANYTHING PLEASE.
- Dont give this out its for friends only thanks.
- Archer Settings not finished..}
- //General Settings
- HitCountReset = 35; //Time between checking if hitting in wrong direction(Do not set too low or your char will jump around trying to turn too fast)
- AntiFReset = 60; //Time before reloging if still attacking a single monster
- //Healing settings
- Pots = 'normal'; // herbs, normal
- HerbsForFull = 30; // Amount of herbs to use when potting
- //No touchy any procedures!
- Procedure ReadString(str: String);
- var i,strLength :Integer; goer: Boolean;
- begin
- i:=1
- strLength:=Length(str)
- goer:=False
- while(i<strLength+1) do
- begin
- if(GetKeyCode(StrGet(str,i))=191)then
- begin
- KeyDown(16)
- goer:=True
- i:=i+1
- end;
- KeyDown(GetKeyCode(StrGet(str,i)))
- wait(25)
- KeyUp(GetKeyCode(StrGet(str,i)))
- wait(50)
- KeyUp(GetKeyCode(StrGet(str,i)))
- wait(25)
- i:=i+1
- if(goer=True)then
- begin
- KeyUp(16)
- wait(300)
- end;
- end;
- end;
- Procedure Click(x, y :Integer);
- begin
- Movemouse(x, y);
- ClickMouse(x, y, true);
- end;
- Procedure KeyDUp(Key :Byte);
- begin
- KeyDown(Key);
- Wait(10);
- KeyUp(Key);
- end;
- Procedure Turn;
- begin
- KeyUp(Ctrl);
- Wait(200);
- KeyDown(Direction);
- Wait(200);
- KeyUp(Direction);
- end;
- Procedure Login;
- begin
- Click(109, 368); // Click "Play Game"
- if(DelayUserInput = 'true') then begin
- Wait(1200);
- end
- else begin
- Wait(300);
- end
- ReadString(Username);
- Click(416, 388); // Click password textbox
- Wait(50); ReadString(Password);
- Click(403, 431); // Click "Connect"
- Wait(500);
- if(FindColor(x, y, 151294, 371, 320, 371, 320)) then begin // Check for "Login request denied", "Connection not found", "D/C" to retry
- Click(399, 322);
- Wait(100); Login;
- end
- if(FindColor(x, y, 151294, 370, 224, 371, 225)) then begin
- Click(395, 225);
- Wait(100); Login;
- end
- else begin // Click login on the character
- Wait(1500);
- repeat
- KeyDown(GetKeyCode(CharacterNum));
- Wait(10);
- KeyUp(GetKeyCode(CharacterNum));
- Wait(10);
- until(FindColor(x, y, 229629, 343, 74, 344, 75) = false)
- Wait(50);
- Click(79, 366);
- end
- // Check if stuck at login screen(Not needed until a problem)
- end;
- Procedure CheckDc;
- begin
- if(FindColor(x, y, 151294, 29, 48, 585, 316)) then begin
- Click(x, y);
- Login;
- end
- end;
- Procedure Relog;
- begin
- Click(599, 48);
- Click(323, 225);// Logout
- Login;
- Monsters := MonstersReset;
- AntiF := AntiFReset;
- HitCount := HitCountReset;
- end;
- Procedure AutoPot;
- var herbers, Xhp, TimesBy, Herts:Integer;
- begin
- herbers := HerbsForFull;
- if(FindColor(x, y, 657930, 161, 38, 161, 38)) then begin
- Click(81, 366);
- Wait(75);
- if((Pots = 'herbs') and FindColor(x, y, 33792, 115, 365, 476, 467)) then begin
- repeat
- herbers := herbers -1;
- Click(x, y);
- Wait(4);
- Click(x, y);
- Wait(1);
- CheckDc;
- until(herbers <= 0)
- end
- else if((Pots = 'normal') and FindColor(x, y, 16711935, 115, 365, 476, 467)) then begin
- Click(x, y);
- Wait(8);
- Click(x, y);
- Wait(100);
- Potsused := PotsUsed + 1;
- end
- if(FindColor(x, y, 657930, 238, 34, 239, 35)) then begin // check TP
- Click(81, 366);
- Wait(100);
- if(FindColor(x, y, 16711812, 115, 365, 476, 467)) then begin
- Click(x, y);
- Wait(8);
- Click(x, y);
- Wait(10);
- end
- end
- end
- end;
- Procedure Heal;
- begin
- if((FindColor(x, y, 657930, 193, 38, 193, 38)) and (FindColor(x, y, 6500574, 235, 38, 236, 38) = false) and (FindColor(x, y, Monster, 12, 49, 626, 336) = false)) then begin
- if(HealType = 'self') then begin
- KeyDown(113);
- Wait(30);
- KeyUp(113);
- Wait(1000);
- end
- else if(HealType = 'clickheal') then begin
- KeyDown(114);
- Wait(30);
- KeyUp(114);
- Wait(10);
- MoveMouseSmooth(317, 188); Wait(1); ClickMouse(317, 188, true);
- Wait(2000); //1700
- end
- end
- end;
- Procedure Checkheal;
- begin
- if (( spell = 'on' )) then begin
- If findcolorspiral(x, y, 657930, 161, 34, 161, 34)then begin// and (FindColor(x, y, Monster, 274, 163, 298, 178) = false) or (FindColor(x, y, Monster, 272, 188, 295, 197) = false) or (FindColor(x, y, Monster, 332, 187, 360, 200) = false) or (FindColor(x, y, Monster, 335, 164, 358, 176) = false) then begin
- wait(25)
- repeat
- CheckDc;
- keydown(113)
- wait(25)
- KeyUp(113)
- wait(500)
- clickmouse(317, 181, true)
- until (FindColor(x, y, 9408511, 193, 34, 193, 34))
- end
- end
- end;
- Procedure Status;
- begin
- if(FindWindowTitlePart('endless online', false)) then begin
- activateclient;
- end
- cleardebug;
- writeln('');
- writeln('');
- writeln('');
- writeln('');
- writeln('');
- writeln('');
- writeln('Monsters: '+ inttostr(Monsters) +' | HitCount: '+ inttostr(HitCount) + ' | AntiFreeze: ' + inttostr(AntiF) +' | Pots Used: '+ inttostr(PotsUsed));
- end;
- Procedure MonsterCounter;
- begin
- Monsters := Monsters - 1;
- Status
- if(Monsters <= 0) then begin
- KeyUp(17);
- Wait(30);
- Relog;
- end
- end;
- Procedure AntiFreeze;
- begin
- AntiF := AntiF - 1;
- Status;
- if(AntiF <= 0) then begin
- writeln('Frozen or some shit, time to relog.');
- KeyUp(Ctrl);
- Wait(10);
- Relog;
- Wait(20);
- keyDown(17);
- Wait(20);
- end
- end;
- Procedure DoHitCount;
- begin
- HitCount := HitCount - 1;
- if(HitCount <= 0) then begin
- KeyUp(Ctrl); Wait(50); Direction := TargetDirection;
- KeyDUp(123);
- Wait(500);
- if(((Direction = ArrowLeft) and FindColor(x, y, Monster, 274, 163, 298, 178)) or ((Direction = ArrowDown) and FindColor(x, y, Monster, 272, 188, 295, 197)) or ((Direction = ArrowRight) and FindColor(x, y, Monster, 332, 187, 360, 200)) or ((Direction = ArrowUp) and FindColor(x, y, Monster, 330, 160, 358, 176))) then begin
- writeln('Turning to monster again, maybe I''m hitting in the wrong direction.');
- Turn;
- HitCount := HitCountReset;
- KeyDown(17);
- end
- end
- end;
- Procedure AutoPot2;
- begin
- If findcolorspiral(x, y, 657930, 162, 38, 162, 32)
- and (FindColor(x, y, 16711935, 115, 365, 476, 467)) then begin
- wait(50)
- clickmouse(78, 360, true)
- repeat
- clickmouse(x, y, true)
- wait(5)
- clickmouse(x, y, true)
- PotsMonster:=PotsMonster-1;
- until(PotsMonster<1)
- PotsMonster:=MonsterPotter;
- end
- end;
- Procedure Mage;
- begin
- if((Mager = 'on')) then begin
- if(FindColor(x, y, 1638350, 7, 34, 630, 337)) then begin
- KeyDown(112);
- Wait(20);
- KeyUp(112);
- Wait(10);
- MoveMouseSmooth(x, y); Wait(1); ClickMouse(x, y, true);
- Wait(1500);
- end
- end
- end;
- Procedure Left;
- begin
- if (FindColor(x, y, Monster, 275, 145, 307, 163)) then begin
- writeln('Engaging Melee on monster on the Left');
- TargetDirection := ArrowLeft;
- if((Direction = TargetDirection) = false) then begin
- Direction := ArrowLeft;
- Turn;
- end
- Wait(50);
- KeyDown(17);
- Wait(200);
- repeat
- AutoPot2;
- AutoPot;
- AntiFreeze;
- DoHitCount;
- Wait(500);
- until((FindColor(x, y, Monster, 275, 145, 307, 163) = false) or (FindColor(x, y, 0, 313, 490, 313, 490)))
- HitCount := HitCountReset;
- Monsters := MonstersReset;
- AntiF := AntiFReset;
- KeyUp(Ctrl);
- Wait(500);
- if(FindColor(x, y, 0, 313, 490, 313, 490)) then begin // if find Not your battle! = false, begin
- KsDirection := 'Left';
- end
- else begin
- //Monsters := Monsters + 1;
- MonsterCounter;
- end
- end
- end;
- Procedure Down;
- begin
- If (FindColor(x, y, Monster, 272, 188, 295, 197)) then begin
- writeln('Engaging Melee on monster on the Bottom');
- TargetDirection := ArrowDown;
- if((Direction = TargetDirection) = false) then begin
- Direction := ArrowDown;
- Turn;
- end
- Wait(50);
- KeyDown(17);
- Wait(200);
- repeat
- AutoPot2;
- AutoPot;
- AntiFreeze;
- DoHitCount;
- Wait(500);
- until((FindColor(x, y, Monster, 272, 188, 295, 197) = false) or (FindColor(x, y, 0, 313, 490, 313, 490)))
- HitCount := HitCountReset;
- Monsters := MonstersReset;
- AntiF := AntiFReset;
- KeyUp(Ctrl);
- Wait(500);
- if(FindColor(x, y, 0, 313, 490, 313, 490)) then begin // if find Not your battle! = false, begin
- KsDirection := 'Down';
- end
- else begin
- //Monsters := Monsters + 1;
- MonsterCounter;
- end
- end
- end;
- Procedure Right;
- begin
- If (FindColor(x, y, Monster, 332, 187, 360, 200)) then begin
- writeln('Engaging Melee on monster on the Right');
- TargetDirection := ArrowRight;
- if((Direction = TargetDirection) = false) then begin
- Direction := ArrowRight;
- Turn;
- end
- Wait(50);
- KeyDown(17);
- Wait(200);
- repeat
- AutoPot;
- AutoPot2;
- AntiFreeze;
- DoHitCount;
- Wait(500);
- until((FindColor(x, y, Monster, 332, 187, 360, 200) = false) or (FindColor(x, y, 0, 313, 490, 313, 490)))
- HitCount := HitCountReset;
- Monsters := MonstersReset;
- AntiF := AntiFReset;
- KeyUp(Ctrl);
- Wait(500);
- if(FindColor(x, y, 0, 313, 490, 313, 490)) then begin // if find Not your battle! = false, begin
- KsDirection := 'Right';
- end
- else begin
- //Monsters := Monsters + 1;
- MonsterCounter;
- end
- end
- end;
- Procedure Up;
- begin
- If (FindColor(x, y, Monster, 335, 164, 358, 176)) then begin
- writeln('Engaging Melee on monster on the Top');
- TargetDirection := ArrowUp;
- if((Direction = TargetDirection) = false) then begin
- Direction := ArrowUp;
- Turn;
- end
- Wait(50);
- KeyDown(17);
- Wait(200);
- repeat
- AutoPot;
- AutoPot2;
- AntiFreeze;
- DoHitCount;
- Wait(500);
- until((FindColor(x, y, Monster, 335, 164, 358, 176) = false) or (FindColor(x, y, 0, 313, 490, 313, 490)))
- HitCount := HitCountReset;
- Monsters := MonstersReset;
- AntiF := AntiFReset;
- KeyUp(Ctrl);
- Wait(500);
- if(FindColor(x, y, 0, 313, 490, 313, 490)) then begin // if find Not your battle! = false, begin
- KsDirection := 'Up';
- end
- else begin
- //Monsters := Monsters + 1;
- MonsterCounter;
- end
- end
- end;
- procedure CheckKS;
- begin
- if(findcolor(x,y,0,313,485,313,485))then begin
- writeln('Stopping melee on NPC this is not you,re battle');
- repeat
- KeyUp(17)
- Left;
- Right;
- Down;
- Up;
- Mage;
- until(FindColor(x, y, Monster, 274, 163, 298, 178) = false) or (FindColor(x, y, Monster, 272, 188, 295, 197) = false) or (FindColor(x, y, Monster, 332, 187, 360, 200) = false) or (FindColor(x, y, Monster, 335, 164, 358, 176)= false)
- end
- end;
- Procedure CheckSides;
- begin
- if(KsDirection = 'Left') then begin
- Down;
- Right;
- Up;
- Left;
- end
- else if(KsDirection = 'Down') then begin
- Left;
- Right;
- Up;
- Down;
- end
- else if(KsDirection = 'Right') then begin
- Left;
- Down;
- Up;
- Right;
- end
- else begin
- Left;
- Down;
- Right;
- Up;
- end
- end;
- Procedure CheckTrackR;
- begin
- if (FindColor(x, y, 132, 409, 101, 409, 101)) or (FindColor(x, y, 132, 634, 245, 634, 245)) or (FindColor(x, y, 132, 441, 117, 441, 117))then begin
- KeyDown (39)
- Wait(20)
- KeyUp(39)
- end
- end;
- Procedure CheckTrackU;
- begin
- if (FindColor(x, y, 132, 442, 84, 442, 84)) then begin
- Keydown(38)
- Wait(20)
- KeyUp(38)
- end
- end;
- Procedure CheckLoggedOut;
- begin
- if(FindColor(x, y, 1316092, 32, 158, 34, 160)) then begin
- Login;
- end
- end;
- Procedure CheckDrop;
- begin
- if(TakeDrop = 'on')then begin
- if(FindColor(x, y, 8716032, 274, 205, 297, 210))then begin
- Wait(1500);
- MoveMouse(286, 205);
- Wait(200);
- ClickMouse(286, 205, true);
- Wait(2000);
- end
- else if(FindColor(x, y, 8716032, 340, 173, 361, 178)) then begin
- Wait(1500);
- MoveMouse(349, 173);
- Wait(200);
- ClickMouse(349, 173, true);
- Wait(2000);
- end
- else if(FindColor(x, y, 8716032, 338, 205, 361, 210)) then begin
- Wait(1500);
- MoveMouse(350, 204);
- Wait(200);
- ClickMouse(350, 204, true);
- Wait(2000);
- end
- else if(FindColor(x, y, 8716032, 274, 173, 297, 178)) then begin
- Wait(1500);
- MoveMouse(286, 172);
- Wait(200);
- ClickMouse(286, 172, true);
- Wait(2000);
- end
- else if(FindColor(x, y, 8716032, 242, 189, 260, 194)) then begin
- Wait(1500);
- MoveMouse(254, 188);
- Wait(200);
- ClickMouse(254, 188, true);
- Wait(2000);
- end
- else if(FindColor(x, y, 8716032, 306, 221, 329, 226)) then begin
- Wait(1500);
- MoveMouse(318, 220);
- Wait(200);
- ClickMouse(318, 220, true);
- Wait(2000);
- end
- else if(FindColor(x, y, 8716032, 370, 189, 393, 194)) then begin
- Wait(1500);
- MoveMouse(382, 189);
- Wait(200);
- ClickMouse(382, 189, true);
- Wait(2000);
- end
- else if(FindColor(x, y, 8716032, 306, 157, 329, 162)) then begin
- Wait(1500);
- MoveMouse(317, 155);
- Wait(200);
- ClickMouse(317, 155, true);
- Wait(2000);
- end
- else if(FindColor(x, y, 8716032, 306, 189, 329, 194)) then begin
- Wait(1500);
- MoveMouse(317, 188);
- Wait(200);
- ClickMouse(317, 188, true);
- Wait(2000);
- end
- end
- end;
- Procedure Movehome;
- begin
- if(HOP = 'on')then begin
- if(findcolor(x,y,65280,501,80,501,80))then begin
- repeat
- wait(500)
- AutoPot2;
- CheckSides;
- keydown(37)
- wait(5)
- Keyup(37)
- until (findcolor(x,y,65280,597,128,597,128))
- keyup(37)
- repeat
- wait(500)
- Left;
- Right;
- Down;
- Up;
- Keydown(38)
- wait(5)
- Keyup(38)
- until (findcolor(x,y,65280,532,160,532,160))
- keyup(38)
- repeat
- wait(500)
- Left;
- Right;
- Down;
- Up;
- Keydown(37)
- wait(5)
- Keyup(37)
- until(findcolor(x,y,235,282,178,282,178))
- keyup(37)
- repeat
- wait(500)
- AutoPot2;
- AutoPot;
- Left;
- Right;
- Up;
- Down;
- CheckSides;
- Keydown(37)
- wait(5)
- Keyup(37)
- until(findcolor(x,y,252,390,165,390,165))
- Keyup(37)
- repeat
- wait(500)
- AutoPot2;
- AutoPot;
- Left;
- Right;
- Up;
- Down;
- CheckSides;
- Keydown(38)
- wait(5)
- Keyup(38)
- until(findcolor(x,y,241,99,308,99,308))
- Keyup(38)
- end
- end
- end;
- Procedure Settings;
- begin
- //Do not touch anything below unless you know what you're doing
- HitCount := HitCountReset;
- Monsters := MonstersReset;
- AntiF := AntiFReset;
- Direction := 0;
- MoveDirection := 0;
- Monster := 1638350;
- PotsUsed := 0;
- F1 := 112; F2 := 113; F3 := 114; F4 := 115; F5 := 116; F6 := 117; F7 := 118; F8 := 119;
- Num0 := 96; Num1 := 97; Num2 := 98; Num3 := 99; Num4 := 100; Num5 := 101; Num6 := 102; Num7 := 103; Num8 := 104; Num9 := 105;
- ArrowLeft := 37; ArrowDown := 40; ArrowRight := 39; ArrowUp := 38; Ctrl := 17;
- end;
- // Begin Main Loop
- begin
- Settings;
- if(FindWindowTitlePart('endless online', false)) then begin
- activateclient;
- end
- ClearDebug;
- Writeln('For MikeBot');
- Wait(1000);
- CheckLoggedOut;
- repeat
- Movehome;
- //CheckTime;
- CheckDc;
- CheckTrackR;
- CheckTrackU;
- AutoPot2;
- AutoPot;
- Checkheal;
- CheckKS;
- Mage;
- CheckSides;
- CheckLoggedOut;
- Status;
- Heal;
- CheckDrop;
- Wait(100);
- until(false)
- KeyUp(Ctrl);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement