phoenix55
2007-12-09 15:01:22
I had been searching for a script that autoed for magic (weaken in particular) all i could find is high alc ones. So I said screw it im making my own.
Keep in mind this is my first script ever, it DOES compile, but it DOESNT work.
Keep in mind this is my first script ever, it DOES compile, but it DOESNT work.
program WeakenerScript;
var
x,y: Integer;
n,m: Integer;
const
WeakenColor = 15533737; //punch in curses color, should be light purple area
MonsterColor = 7963266; //this is where you designate a monster
procedure MagicTab;
begin
MoveMouseSmooth(743,185);
ClickMouse(742,184, true);
end;
procedure CastSpell;
begin
if (FindColor(n,m,WeakenColor,665,665,264,264)) then //making sure you have enough runes
begin
MoveMouseSmooth(668,262);
Wait(50+random(150));
ClickMouse(668,262,true);
end;
begin
if(FindColor(x,y,MonsterColor,0,0,514,335)) then
begin
MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
end;
begin
MagicTab;
repeat
CastSpell;
until(not(FindColor(n,m,WeakenColor,665,665,264,264)));
if ((not(FindColor(n,m,WeakenColor,665,665,264,264)))=true) then
Writeln('You are out of runes. Get more');
end.