In love with the extensive coding that went into the making of this script. Does the same thing as Mat's Law runner, but with on screen proggy and better failsafes :D. Thanks man, I was gonna suggest you add anti-leech but after seeing how much work went into it, I don't think I would be bothered to try to solve any anti-leech accompanying it.
Btw I made a repairRunePouch spell procedure for Mat's Law runner. I haven't really tested it, but the basics of it is that it clicks the spell, then inventory tab pops up and you just have to click on the infected pouch and voila! Fixed :D
[LEFT]
Procedure RepairRunePouch;
Var
RepairPouchSpell, Giantdeg, largedeg,Cosmic, Laws, Astral, pX, pY:Integer;
begin
Report('Repair Pouch');
Cosmic := BitmapFromString(9, 8, 'meJxTuH5TARUVF1cAUWlpFbJgTk5h' +
'Xl5xfkFpYVE5UBYunpGRm5WVjyybkJACkUpLy0aTjYtLAoonJaWlp' +
'GQgywIFY2ISgLJAvciyEHOiouLQZOG2R0TEoMnCtQMAH95kyw==');
RepairPouchSpell := DTMFromString('mggAAAHicY2NgYAhnYmCIAuIQIA4A4nggjgCJ' +
'MTIwBAFxIBDHAnE8ECcC8em9qxgcDRWAOhnhu' +
'CLOnUEOyMKGGXFgCAAA6+oI3Q==');
Astral := BitmapFromString(4, 6, 'meJw7tf7UKQyUkZELYaSkZAARh' +
'J2QkJKUlAZkxMQkxMUlAblAdlRUHIQLAKx3KfU=');
GiantDeg := DTMFromString('mwQAAAHic42RgYOBlQAABIJYFYmkgFgZiDi' +
'BmBWJxqJwUEMtB+XxAzAjVxw3EtpYmQJIJL+ZnIAwYicBwAAD+dAHh');
LargeDeg := DTMFromString('mrAAAAHic42BgYOAGYgkGCGABYmEgFoGyeY' +
'BYCIgFoFgCikF6uKB6zE0MgCQTTszPgB8wEsAwAADA6AGe');
DepositEss;
Wait(RandomRange(300, 400));
If FindBitMapTolerancein(Cosmic,pX, pY,MBX1,MBY1,MBX2,MBY2,45) then
begin
MMouse(pX, pY,7,7);
ClickMouse2(True);
Wait(RandomRange(400, 500));
If FindBitMapTolerancein(Astral,pX, pY,MBX1,MBY1,MBX2,MBY2,45) then
begin
MMouse(pX, pY,7,7);
ClickMouse2(True);
Wait(RandomRange(100, 250));
ClickMouse2(True);
If FindDTM(Laws,pX, pY,MBX1,MBY1,MBX2,MBY2) then
begin
MMouse(pX, pY,7,7);
ClickMouse2(True);
Wait(RandomRange(400, 500));
end else
TerminateScript;
end;
CloseBank;
Wait(RandomRange(1000, 1200));
Ftab(Tab_Magic);
Wait(RandomRange(800, 921));
If FindDTM(RepairPouchSpell,pX, pY,MIX1,MIY1,MIX2,MIY2) then
begin
MMouse(pX, pY,4,4);
ClickMouse2(True);
FTab(Tab_Inv);
end;
If FindDTM(GiantDeg, px, py, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(pX, pY,4,4);
ClickMouse2(True);
Inc(Pouch);
end else
If FindDTM(LargeDeg, px, py, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(pX, pY,4,4);
ClickMouse2(True);
Inc(Pouch);
end;
Wait(RandomRange(500, 1000));
Opanbank;
If FindBitMapTolerancein(Cosmic,pX, pY,MIX1,MIY1,MIX2,MIY2,45) then
Repeat
MMouse(pX, pY,7,7);
ClickMouse2(True);
Until Not FindBitMapTolerancein(Cosmic,pX, pY,MIX1,MIY1,MIX2,MIY2,45);
Wait(RandomRange(400, 500));
If FindBitMapTolerancein(Astral,pX, pY,MIX1,MIY1,MIX2,MIY2,45) then
Repeat
MMouse(pX, pY,7,7);
ClickMouse2(True);
Until Not FindBitMapTolerancein(Astral,pX, pY,MIX1,MIY1,MIX2,MIY2,45);
Wait(RandomRange(100, 250));
If FindDTM(Laws,pX, pY,MIX1,MIY1,MIX2,MIY2) then
DepositLaw;
WithDrawEss;
end;
FreeBitMap(Astral);
FreeBitMap(Cosmic);
FreeDTM(laws);
FreeDTM(RepairPouchSpell);
end;
[/LEFT]
proggy so short, cos ran out of logs lol :D
