Simba Code:
program AIOFighter;
//Shorteh96 would like to thank the following users:
// RequiredOne: I used part of your AutoFighter script as backbone.
// Eduard: I used a lot of your Fight Cave script as backbone to convert to SMART.
// Ogre: Thank you for helping me with my remedial errors in the chatbox every time I asked for help.
//Shorteh96 would like to take very little credit for this script
// as I have no idea how to code in all honesty but am capable of reading
// and copying premade code into a new working script. Thank you!
//Special thanks to Phury
//Brid Mayhem has updated the script with the following:
//Added more color options, Phury's Bone burying method, Toggle on/off for the bone looting/burying
//Added them to the progress report, Updated a few things with antiban method, Added more items able to be picked up
//Edited setup method, Monsters attacked, updated progress Report So it shows alot more, plus it's more organized.
//Also made it update more often, Made everything Smoother, Fixed up the bury bones(BuryAll) method
//There are [12] simple antileeches//
{$Define SMART8}
{$i srl/srI.simba}
{$i PO7Include.simba}
var
x, y: Integer;
Combat1, num1, num2, attnum, bonesInv, buriedBones, Bonecount, MAttacked:
////// CHOOSE TO BURY BONES //////
Function BuryBones:
begin;
result := true; //true to bury, false to not.
end;
const
// REQUIRED CONFIGURATION BY USER:
FightStyle = 2; // 1 = Att, 2 = Str, 3 = Contr, 4 = Def
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
// OPTIONAL CONFIGURATION BY USER
ABan1 = 'Strength'; // First skill for the anti-ban to check
ABan2 = '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
// DON'T CHANGE THIS UNLESS YOU'RE HAVING PROBLEMS //
BonesName = 'Bones';
BonesColor = 14145500;
procedure P07_DeclarePlayers;
begin
P07_PlayerName := 'Username'; // Username for 07Scape
P07_PlayerPass := 'Password'; // Password for 07Scape
end;
// END OF CONFIGURATION
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('');
progressreport;
buriedBones := 0;
bonesInv := DTMFromString('mQwAAAHicY2ZgYJjNxMCwAIgnA/FTIP8FED8G4uWzZwFJRoYNS5YwsAJZMMyIhIEAAG7VCG8=');
end;
procedure ProgressReport;
begin
Wait(5000);
writeln(' ');
writeln(' ');
writeln(' ');
writeln(' ');
writeln(' ');
writeln(' ');
writeln('-- AIO Fighter Release 0.1 ---------');
writeln('-------------------------------------');
writeln('-Time Running: '+TimeRunning+'!');
writeln('-------------------------------------');
Writeln('-'+MFullName+'s Attacked: ' + intToStr(MAttacked);
if BuryBones = true then
begin
Writeln('-Bones buried: ' + intToStr(buriedBones));
Writeln('-Prayer Exp gained: ' + intToStr(buriedBones*4));
Writeln('-Bones currently in inventory: ' + intToStr(boneCount));
end;
end;
procedure Random1;
begin
attnum := (Random(1000));
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 combat1 = (0) then
begin
P07_MouseBox(X, Y, X, Y, mouse_left);
wait(random(500));
MAttacked = MAttacked + 1;
end;
end;
progressreport
end;
procedure freeDTMz;
begin
FreeDtm(bonesInv);
end;
procedure buryAll
var repeatCounter :Integer;
begin
repeatCounter := 0;
FindDTM(bonesInv,x,y,559, 214,726, 463);
repeat
Mouse(x,y,3,3,true);
sleep(900 +(random(700));
repeatCounter := repeatCounter + 1;
buriedBones := buriedBones + 1;
ProgressReport;
until(FindDTM(bonesInv,x,y,559, 214,726, 463) = false);
end;
procedure boneReset;
begin
if boneCount <> 0 then
boneCount := 0;
end;
procedure Combat;
begin;
Combat1 := 1;
if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
begin
progressreport;
WriteLn('In Combat . . .);
Mouse(
end
else Combat1 := 0;
if BuryBones = true then
if P07_FindObjCustom(x,y, [BonesName], [BonesColor], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(400, 900));
P07_ChooseOptionMulti([BonesName]);
boneCount := boneCount + 1;
progressreport;
end;
if (FindColor(X, Y, 65280, 220, 110, 330, 220)) = false then
if Loot1 = ('') = false then
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;
if Loot2 = ('') = false then
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;
if Loot3 = ('') = false then
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;
if Loot4 = ('') = false then
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;
progressreport;
end;
Procedure Antiban;
Begin
Writeln('Starting Anti-ban');
num2 := (5);
num1 = (random(27));
sleep(2000)
if num2 < num1 then
Case Random(10) Of
1: P07_HoverSkill(ABan1,RandomRange(2500,3500));
Writeln('Anti-Ban chosen - Hover skill' +ABan1+'!');
3: Boredhuman;
Writeln('Anti-Ban chosen this will be a breif pause!');
4: Wait(2500 + random(4500));
Writeln('Anti-Ban chosen - Pausing for a breif moment');
5: p07_HoverSkill(ABan2,RandomRange(2500,3500));
Writeln('Anti-Ban chosen - Hover skill' +ABan2+'!');
6: PickUpMouse;
Writeln('Anti-Ban chosen this will be a breif pause!');
7: RandomMovement;
Writeln('Anti-Ban chosen - Creating a random movement');
8: RandomRClick;
Writeln('Anti-Ban chosen - Random right click');
9: P07_MakeCompassdegree(randomrange(0, 360));
Writeln('Anti-Ban chosen - Hover skill' +ABan1+'!');
end;
progressreport;
end;
begin
P07_DeclarePlayers;
Addonterminate('freeDTMz');
SetupSRL();
SetupP07Include;
ClearDebug;
writeln('Welcome to the upgraded AIO fighter');
writeln('Please thank Phury and Shorteh96 for making this possible');
writeln('');
if (not P07_LoggedIn) then
P07_LogInPlayer;
SetMeUp;
repeat
if (not P07_LoggedIn) then
begin
P07_LogInPlayer;
SetMeUp;
end;
if combat1 = 0 then
Random1;
Combat;
if(P07_InvFull) then
begin
wait(2500);
buryAll;
boneReset;
end;
if Combat1 = 0 then
Attack;
Antiban;
progressreport
wait(2000 + random(100));
until (false)