) but ive been working on making a script with scar... i got it pretty decent, till that whole hacker ordeal came about... so, im looking for a new game to play... and i thought id go ahead and post what ive got done... i havent been making scripts for long so im sure this is buggy... i wasnt 100% done with this, so feel free to edit it how u feel is necessary... ull need to crop out each letter for the text to read... mine was 6x9 pixils... i jus used paint... i was goin to make the HP and MP part read the numbers, but, like i said, the hacker who has been seriously messing up being able to log in and stay logged in, has made me give up without finishing this...PHP Code:
{ Last Chaos Bot version 1.0 )
( Created by Grimmy )
( )
( )
( Directions: )
( 1st - Open Last Chaos, Log In )
( !!!DO NOT MOVE ANY WINDOWS!!! )
( 2nd - Find desired Mob, Edit "const" )
( as needed )
( 3rd - Run :D )
(_________________________________________________)
!!! THINGS TO ADD !!!
~ LETTERS
~ HUNTER LOOP
~ CLASS SPECIFIC SKILLS
~ BOT MODE
~ OTHERS TO COME WHEN I THINK OF EM :P
(=======Hotkey Setup=======)
( F1 = Attack )
( F2 = Pet Pick )
( F3 = User Pick )
( F4 = Sit )
( F5 = Buff )
( F6 = ~ )
( F7 = ~ )
( F8 = ~ )
( F9 = Flawed Stone ) // in the feed procedure... set coords to which ever one ur goin to use...
( F10 = Imperfect Stone ) //
( F11 = Quality Stone ) //
( F12 = )
(==========================}
{=======================================================}
program Trainer;
var a, b, c, d, e, f, g, h, i, j, z,
monstercount, Text: integer;
{=======================================================}
const
//// COORDS \\\\
{Area of Window to look for Monster}
Sx = 35; Sy = 120; Sx1 = 990; Sy1 = 600;
{Hp Coords}
HPx = 144; HPy = 53; HPx1 = 145; HPy1 = 54;
{MP Coords}
Mx = 144; My = 66; Mx1 = 145; My1 = 67;
{Pet Hunger}
Hx = 365; Hy = 75; Hx1 = 366; Hy1 = 76;
{Pet HP}
PHx = 320; PHy = 61; PHx1 = 321; PHy1 = 62;
{Targets Health Box}
Tx = 515; Ty = 65; Tx1 = 515; Ty1 = 65;
//// COLORS \\\\
{Low Hp}
LowH = 592664;
{Low Mp}
LowM = 15663874;
{Pet Low Hp}
PHP = 592664;
{Pet Hunger}
Hunger = 198935;
{Under Health Bar In Targeted Monster Bar}
Mob = 2303052;
{=======================================================}
procedure Target;
begin
if (IsTextInAreaEx(Sx, Sy, Sx1, Sy1, a, b,'NAME', 10, Text, false, false, 0, 0, 12894660)) then
holdmouse((a + 40), (b + 60), false);
wait(20);
releasemouse((a + 40), (b + 60), false);
wait(100);
z:=z+1;
end;
procedure Attack;
begin
movemouse(606, 771);
wait(50);
clickmouse(606, 771, true);
wait(250);
end;
procedure CheckTarget;
begin
if (findcolor(c, d, Mob, Tx, Ty, Tx1, Ty1)) then
Attack else Target;
end;
Function Check:Boolean;
begin
if (findcolor(c, d, Mob, Tx, Ty, Tx1, Ty1)) then
result:=true else result:=false;
end;
procedure Pickup;
begin
movemouse(638, 770);
wait(5000);
clickmouse(638, 770, true);
end;
procedure Skill;
begin
movemouse(745, 770);
wait(100);
clickmouse(745, 770, true);
end;
procedure Sit;
begin
movemouse(708, 770);
wait(100);
clickmouse(708, 770, true);
end;
Procedure Move;
begin
movemouse(440, 640);
clickmouse(440, 640, true);
wait(50);
clickmouse(440, 640, true);
wait(50);
end;
procedure Hp;
begin
if (findcolor(e, f, LowH, HPx, HPy, HPx1, HPy1)) then
begin
Move;
Sit;
wait(60000);
Sit;
end;
end;
procedure Mp;
begin
if (findcolor(g, h, LowM, Mx, My, Mx1, My1)) then
begin
Move;
Sit;
wait(60000);
Sit;
end;
end;
procedure TakeoffPet;
begin
clickmouse(720, 265, true);
wait(50);
clickmouse(720, 265, true);
end;
procedure Pethp;
begin
if (findcolor(e, f, PHP, PHx, PHy, PHx1, PHy1)) then
begin
keydown(18);
wait(20);
keydown(101);
wait(20);
keyup(101);
wait(20);
keyup(18);
wait(50);
TakeoffPet;
keydown((18));
wait(20);
keydown((101));
wait(20);
keyup(101);
wait(20);
keyup(18);
wait(50);
end;
end;
procedure Feed;
begin
movemouse(955, 770);
wait(50);
clickmouse(955, 770, true);
end;
procedure PetHunger;
begin
if (findcolor(i, j, Hunger, Hx, Hy, Hx1, Hy1)) then
begin
Feed;
end;
end;
procedure Report;
begin
WriteLn(' ________________________ ');
WriteLn('| LC Bot v0.1 |');
WriteLn('|------------------------|');
WriteLn('|Monsters Killed: '+inttostr(monstercount)+' |');
WriteLn('|________________________|');
end;
procedure Rotate;
begin
keydown(37);
wait(20);
keyup(37);
end;
begin
ActivateClient;
wait(2500)
Text:= LoadChars2(ScriptPath + 'LCFont\');
repeat
repeat
repeat
wait(1000);
Target;
until ((z=5)or(check));
if(z=5)then
Rotate;
z:=0;
until(check);
Attack;
repeat
wait(1000);
until (not(check));
monstercount:= monstercount + 1 ;
PickUp;
wait(5000);
HP;
wait(500);
PetHP;
wait(500);
PetHunger;
wait(500);
until(isfkeydown(12));
FreeChars2(Text);
end.
