Shorteh96
2013-03-06 23:32:23
program AIOFighter;
// I, 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.
// I, 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!
{$Define SMART}
{$i SRL/SRL.simba}
{$i P07Include.simba}
{$include SRL/SRL/Misc/SmartGraphics.simba}
var
x, y: Integer;
Combat1, num1, num2, attnum: Integer;
const
// REQUIRED CONFIGURATION BY USER:
FightStyle = 1; // 1 = Att, 2 = Str, 3 = Contr, 4 = Def
MNick = 'Oblin'; // Monster name without the first letter
MColor = 7184261; // Monster Color 1
MColor2 = 4486329; // Monster Color 2
// OPTIONAL CONFIGURATION BY USER
ABan1 = 'Attack'; // First skill for the anti-ban to check
ABan2 = 'Hitpoints'; // Second skill for the anti-ban to check
Loot = 'Bones'; // Loot name including the first letter
LColor = 10132390; // Color of the loot to pick up
procedure P07_DeclarePlayers;
begin
P07_PlayerName := ''; // Username for 07Scape
P07_PlayerPass := ''; // 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('');
end;
procedure ProgressReport;
begin
Wait(5000);
cleardebug();
writeln('-- AIO Fighter Alpha 0.1 --');
writeln(' Time Running: '+TimeRunning+'');
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], 5) then
begin
if combat1 = (0) then
begin
P07_MouseBox(X, Y, X, Y, mouse_left);
wait(random(500));
end;
end;
end;
procedure Combat;
begin
Combat1 := 1;
begin
if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
begin
WriteLn('Combatting mobs');
end
else Combat1 := 0;
if (FindColor(X, Y, 65280, 220, 110, 330, 220)) = false then
if Loot = ('') = false then
if P07_FindObjCustom(x,y, [Loot], [LColor], 5) then
begin
wait (randomrange(100, 200));
ClickMouse2(mouse_right);
wait(randomrange(800, 1000));
P07_ChooseOptionMulti(['balsl ' + Loot]);
end;
end;
end;
Procedure Antiban;
Begin
num2 := (5);
num1 := (random(30));
WriteLn(num1)
sleep(2000)
if num2 < num1 then
Case Random(10) Of
1: P07_HoverSkill(ABan1,RandomRange(2500,3500));
3: Boredhuman;
4: Wait(2500 + random(4500));
5: p07_HoverSkill(ABan2,RandomRange(2500,3500));
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
9: P07_MakeCompassdegree(randomrange(0, 360));
end;
end;
begin
P07_DeclarePlayers;
SetupSRL();
SetupP07Include;
ClearDebug;
writeln('Hello, welcome to SMART AIO Fighter Alpha 0.1');
writeln('Please submit all bugs/troubles on the forum for fast fixes!');
writeln('');
if (not P07_LoggedIn) then
P07_LogInPlayer;
SetMeUp;
repeat
if (not P07_LoggedIn) then
begin
P07_LogInPlayer;
SetMeUp;
if combat1 = 0 then
Random1;
Combat;
if Combat1 = 0 then
Attack;
end;
Antiban;
progressreport;
wait(2000 + random(100));
until (false)
end.The first, and major problem is that once the bot runs "SetMeUp" it continues to check Antiban and does not attack any monsters nor loot. I can not release without this being fixed.
The second, and miniscule in importance as the first is that the debug box of SIMBA is used as a time report for the script but random numbers appear on the third line while some times these numbers are gone:
