Simba Code:
program imalosersPCHOPPA;
//{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i SRL\SRL\Misc\stats.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
BreakEvery = 120;
Breakfor = 5;
NumbofPlayers= 1;
StartPlayer= 0;
Procedure DeclarePlayers;
var I:Integer;
Begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['XP', 'Gem', 'ostume', 'ithril', 'oal', 'une'];
with Players[0] do
Begin
Name := ''; //Player Username.
Pass := ''; //Player password.
Active := True;
Integers[1] := 4; //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
Integers[2] := 4; //Seconds to try mining rock before clicking another.
end;
end;
Procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end;
Procedure Antiban;
Begin
Case Random(300) Of
0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(28) End;
1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
End;
End;
Procedure Failsafe(reason:string);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
TerminateScript;
End;
function Chopdown:Boolean;
Var
SeX, SeY, Baggedit, TreeCounter: Integer;
Begin
Baggedit:= InvCount + 1;
//If FindObjCustom(SeX , SeY, ['Chop', 'down', 'Maple', 'tree', 'p d'], [837635, 1187643, 330048, 1319487], 6) Then
SeX:=MSCX;
SeY:=MSCY;
If FindObjTPA(SeX, SeY, 1714726, 3, 1, 15, 60, 450, ['Cho']) Then
Begin
StatsGuise('Fk Yea, We found them Capitan!!');
GetMousePos(SeX, SeY);
Case Random(2) of
0: Mouse(SeX, SeY, 5, 5, True);
1: Begin
Mouse(SeX, SeY, 5, 5, False);
WaitOption('Chop Down', 600);
End;
End;
Repeat
MarkTime(TreeCounter);
Antiban;
Wait(800);
If InvCount=Baggedit then
WriteLn('We got one');
Until (InvCount=Baggedit) Or (TimeFromMark(TreeCounter) > 4000)
End;
End;
Procedure Droplogs;
Var
SeX, SeY, LogDTM, I:Integer;
SlotBox:Tbox;
LogPattern:TIntegerarray;
Begin
LogDTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwBWI7IHYHYi8gfgIUfwPE74H4NRDfBOJAU26G0iAVhihrHoYYG14GazUOhv8MmIARCwYDAL98Cgg=');
LogPattern:=[18,9,12,3,14,2,16,1,13,27,11,19,4,15,20,6,24,28,5,22,23,7,25,17,8,26,10,21];
For I:=0 to 27 Do
Begin
SlotBox:=InvBox(LogPattern[I]);
If FindDTm(LogDTM,SeX,SeY,SlotBox.X1,SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
Begin
MouseItem(LogPattern[I],False);
ChooseOption('Dro');
End;
End;
End;
Begin
SetupSRL;
DeclarePlayers;
Repeat
Chopdown;
If InvFull Then
DropLogs;
Until(False);
End.