Code:
program BetterAIOFighter;
{$Define SMART8}
{$i Srl/Srl.simba}
{$i P07Include.simba}
var
x, y: Integer;
InCombat, num1, num2, OurBones, SkillDTM, BonesBuried, Bonecount, MAttacked: Integer;
const
// REQUIRED CONFIGURATION BY USER:
Username = ''; // Username
Password = ''; // Password
BuryBones = 'true'; // Bury bones?
StatToTrain = 'Strength'; // Which skill are you training?
FightStyle = 2; // 1 = Attack/Accurate, 2 = Strength/Rapid, 3 = Controlled/Long range, 4 = Defence
TakeArrows = 'true'; // Loot arrows?
TakeBolts = 'true'; // Loot Bolts?
MNick = 'ow'; // Monster name without the first letter
MFullName = 'Cow'; // Monster's full name
MColor = 2967635; // Monster Color 1
MColor2 = 7042951; // Monster Color 2
MColor3 = 11975872; // Monster Color 3
MColor4 = 5926535; // Monster Color 4
SkillHover1 = 'Strength'; // First skill for the anti-ban to check
SkillHover2 = 'Hitpoints'; // Second skill for the anti-ban to check
Loot1 = 'Coins'; // Loot 1 name including the first letter
LColor1 = 1479346; // Color of Loot 1 to pick up
Loot2 = 'Coins'; // Loot 2 name including the first letter
LColor2 = 1479346; // Color of Loot 2 to pick up
Loot3 = 'Coins'; // Loot 3 name including the first letter
LColor3 = 1479346; // Color of Loot 3 to pick up
Loot4 = 'Coins'; // Loot 4 name including the first letter
LColor4 = 1479346; // Color of Loot 4 to pick up
// DON'T CHANGE THIS UNLESS YOU'RE HAVING PROBLEMS //
BonesColor = 14145500;
ArrowColor = 922990; // Color of arrow end(red)
ArrowColor2 = 602966; //Color of arrow shaft
BoltColor = 599091; //Color of bolt
///////////////////////////////////////////////////////////////////////////////
// //
// //
// END OF CONFIGURATION //
// //
// //
///////////////////////////////////////////////////////////////////////////////
procedure P07_DeclarePlayers;
begin
P07_PlayerName := UserName;
P07_PlayerPass := Password;
end;
procedure P07_SetRun(Run: Boolean);
var
x, y: integer;
begin
if not P07_TabInventoryTab(12) then
begin
writeln('ERROR: Could not P07_TabInventoryTab(12) -> Error in P07 include or random! Exiting');
Exit;
end;
if (FindColor(x, y, 4342852, 627, 416, 658, 444)) then
begin
writeln('-> Run = on!');
mouse(x, y, 1, 1, 1);
end;
writeln('-> Going to inventory tab');
P07_TabInventoryTab(4);
end;
procedure SetMeUp;
begin
writeln('-- Configuring player --');
writeln('-> Checking AutoRetaliate.');
P07_AutoRetaliate(true);
writeln('-> Checking CombatStance');
if(FightStyle = 0) then
begin
writeln('ERROR: Please fill in the FightStyle settings!');
TerminateScript;
end;
P07_CombatStance(FightStyle);
writeln('-> CombatStance = '+Inttostr(FightStyle)+'');
writeln('-> Making Compass South');
P07_MakeCompassSouth;
writeln('-> Making Camera Angle High');
P07_MakeCameraAngleHigh;
P07_SetRun(true);
writeln('-- Configuration completed --');
writeln('');
BonesBuried := 0;
OurBones := DTMFromString('mQwAAAHicY2ZgYJjNxMCwAIgnA/FTIP8FED8G4uWzZwFJRoYNS5YwsAJZMMyIhIEAAG7VCG8=');
SkillDTM := DTMFromString('mKgEAAHic42NgYPjMyMDwB4hfQvFfIP4OxG+B+DUQPwfij0D8A4h/QfFvIBYD6uWBYjkglodiBSCWAGJ+KOYGYmGouCQQP9hRxbC01h6OQXwGBkaCmBVIomNiAGGTsWNUAAC5GRcX');
end;
procedure ProgressReport;
begin
Wait(5000);
ClearDebug;
writeln('-- AIO Fighter Release 0.1 ---------');
writeln('-Time Running: '+TimeRunning+'!');
writeln('-Monster to attack: '+MFullName+'.');
Writeln('-'+MFullName+'s Attacked: ' + intToStr(MAttacked));
if BuryBones = 'true' then
begin
Writeln('-Bones buried: ' + intToStr(BonesBuried));
Writeln('-Prayer Exp gained: ' + intToStr(BonesBuried * 4));
Writeln('-Bones currently in inventory: ' + intToStr(boneCount));
if BuryBones = 'false' then
Writeln('- Burying bones is off');
end;
end;
procedure Attack;
var x, y: Integer;
begin
wait(500 + random(800))
if P07_FindObjCustom(x,y, ['ttack', MNick], [MColor, MColor2, MColor3, MColor4], 5) then
begin
if InCombat = (0) then
begin
P07_MouseBox(X, Y, X, Y, mouse_left);
wait(random(200));
end;
end;
MAttacked := MAttacked + 1;
progressreport;
end;
procedure FreeeDTMs;
begin
FreeDTM(OurBones);
FreeDTM(SkillDTM);
end;
procedure buryAll;
begin
FindDTM(OurBones, X, Y, 559, 214, 726, 463);
repeat
Mouse(X, Y, 3, 3, True);
Sleep(RandomRange(500, 800));
BonesBuried := BonesBuried + 1;
ProgressReport;
until(FindDTM(OurBones, X, Y,559, 214, 726, 463) = false);
end;
procedure ResetBoneCount;
begin
if BoneCount <> 0 then
BoneCount := 0;
end;
procedure LootItems;
begin;
InCombat := 1;
P07_MakeCameraAngleHigh;
if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
begin
WriteLn('In Combat . . .');
end
else InCombat := 0;
// Collect Arrows
if TakeArrows = ('') = true then
begin
if P07_FindObjCustom(x,y, ['Arrow'], [ArrowColor, ArrowColor2], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(300, 500));
P07_ChooseOptionMulti(['Arrow']);
end;
end;
//Collect Bolts
if TakeBolts = ('') = true then
begin
if P07_FindObjCustom(x,y, ['Bolts'], [BoltColor], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(300, 500));
P07_ChooseOptionMulti(['Bolts']);
end;
end;
//Collect Bones
if BuryBones = 'true' then
begin
if P07_FindObjCustom(x,y, ['Bones'], [BonesColor], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(300, 700));
P07_ChooseOptionMulti(['Bones']);
boneCount := boneCount + 1;
progressreport;
end;
end;
//Collect Loot1
if Loot1 = ('') = false then
begin
if P07_FindObjCustom(x,y, [Loot1], [LColor1], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(400, 900));
P07_ChooseOptionMulti([Loot1]);
progressreport;
end;
end;
//Collect Loot2
if Loot2 = ('') = false then
begin
if P07_FindObjCustom(x,y, [Loot2], [LColor2], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(400, 900));
P07_ChooseOptionMulti([Loot2]);
progressreport;
end;
end;
//Collect Loot3
if Loot3 = ('') = false then
begin
if P07_FindObjCustom(x,y, [Loot3], [LColor3], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(400, 900));
P07_ChooseOptionMulti([Loot3]);
progressreport;
end;
end;
//Collect Loot4
if Loot4 = ('') = false then
begin
if P07_FindObjCustom(x,y, [Loot4], [LColor4], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(400, 900));
P07_ChooseOptionMulti([Loot4]);
progressreport;
end;
end;
end;
Procedure Antiban;
Begin
Writeln('Starting Anti-ban');
sleep(RandomRange(1000, 2000));
Case Random(6) Of
1: begin P07_HoverSkill(SkillHover1, RandomRange(1500,2500));
Writeln('Anti-Ban chosen - Hover ' +SkillHover1+'!'); end;
2: begin Writeln('Anti-Ban chosen - Pausing for a breif moment');
Wait(2500 + random(4500)); end;
3: begin Writeln('Anti-Ban chosen - Hover skill ' +Skillhover2+'!');
P07_HoverSkill(SkillHover2, RandomRange(1500,2500)); end;
4: begin Writeln('Anti-Ban chosen - Random right click');
RandomRClick; end;
5: begin Writeln('Anti-Ban chosen - Change compass angle to Low!');
P07_MakeCompassdegree(randomrange(0, 360)); P07_MakeCameraAngleLow; end;
6: begin Writeln('Anti-Ban chosen - Change compass angle to High!');
P07_MakeCompassdegree(randomrange(0, 360)); P07_MakeCameraAngleLow; end;
end;
end;
begin
P07_DeclarePlayers;
SetupSRL();
SetupP07Include;
ClearDebug;
writeln('Welcome to the Re-done Upgraded AIO Fighter.');
writeln('Script by Required-one and Brid mayhem.');
writeln('Special thanks to Phury for the bone burying base.');
if (not P07_LoggedIn) then
P07_LogInPlayer;
SetMeUp;
repeat
if (not P07_LoggedIn) then
begin
P07_LogInPlayer;
SetMeUp;
end;
if(P07_InvFull) then
begin
wait(2500);
buryAll;
ResetBoneCount;
end;
if InCombat = 0 then
Attack;
Antiban;
progressreport;
wait(2000 + random(100));
LootItems;
until (false)
FreeeDTMs;
end.