Simba Code:
program BarbarianChopNBonfire;
{$DEFINE SMART}
{$i srl\srl.simba}
const
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
SERVER = 0; // Enter "0" to pick a random server.
MEMBERS = True;
Version ='1.0';
Leftclick = 'True'; // Left click add to Bonfire
Log = 'NormalLog'; // NormalLog, Oak, Willow, Maple, Yew, Magic ;
var
Start, Ending, LevelsGained, FireSpirts, LogsCutAndBurnt, TotalXP, x, y, NormalLog, Oak, Willow, Maple, Yew,
Found: Extended;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='@hotmail.com';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Pin := ''; //don't need
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'ssence'];
Players[0].Member := True;
Players[0].Active:=True;
end;
procedure StartingXp;
begin
Start := GetXPBarTotal
Writeln ('Getting Starting Xp');
end;
procedure EndingXp;
begin
Ending := GetXPBarTotal
Writeln ('Getting Ending Xp');
end;
Procedure LevelUps;
begin
if (LevelUp) then
Inc (LevelsGained);
Writeln('Gained a Level!');
end;
function AddLogsToFire: Boolean;
begin
if FindBlackChatMessage ('add') then
begin
Result := True;
end else Result := False;
Writeln ('Adding the logs to bonfire');
end;
procedure LogsCutBurnt;
begin
if FindBlackChatMessage('You add a log to the fire') then
Inc(LogsCutAndBurnt)
end;
procedure MarkTimer(var TimeMarker: Integer);
begin
TimeMarker := GetSystemTime;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(8000) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
3:
begin
HoverSkill('Firemaking', false);
wait(2453+Random(432));
end;
end;
end;
procedure Chop;
var x, y: integer; t:Integer;
begin
begin
repeat
FindNormalRandoms
if FindObj(x,y,'ver', 1453860, 35) then
Writeln ('Found Tree');
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
MarkTime(t)
Writeln ('Chopping Tree');
end;
repeat
Wait(300+ random(300));
until not IsUpText('ree') or (InvFull) or (TimeFromMark(t) > 15000)
until (InvFull);
Writeln ('Invent Full, Burning');
end;
end;
procedure MakeFire;
var
x, y, NormalLog: Integer;
begin
if not LoggedIn then Exit;
if not (getCurrentTab = tab_Inv) then
FTab (tab_Inv);
begin
NormalLog := DTMFromString('mLgAAAHicY2JgYNBiYmAwAWJ9RgYGHSAOtldlcDCQYWAFyoEwIxQzMAAAOcMCEQ==');
if FindDTM(NormalLog, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(x, y, 2, 2);
if IsUpText('og') then
Writeln('Found Log');
begin
ClickMouse2(mouse_right);
WaitOption('ight', 300);
Wait(RandomRange(1200,1500));
Writeln('Burning Log');
end;
end;
end;
end;
procedure BonFire;
var x, y, NormalLog: Integer;
begin
begin
NormalLog := DTMFromString('mLgAAAHicY2JgYNBiYmAwAWJ9RgYGHSAOtldlcDCQYWAFyoEwIxQzMAAAOcMCEQ==');
if FindDTM(NormalLog, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Writeln('Found Log');
ClickMouse2(2);
if WaitOptionMulti(['onfi', 'Add', 'bon'], 500) then
begin
MouseBox(305, 420, 315, 435, mouse_Left);
Writeln('Making Bonfire');
while ExistsItem(27) do wait(100); //wait until last slot empty
end;
end;
end
begin
Writeln('Inventory is not full, Chopping!');
Chop;
end;
end;
begin
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
Smart_Server := 35;
ActivateClient;
SetupSRL;
DeclarePlayers;
if not (LoggedIn) Then
begin
LoginPlayer;
end;
ClickNorth (SRL_ANGLE_HIGH);
wait(40+random(20));
repeat
Chop;
MakeFire;
BonFire;
Antiban;
until(false)
end.