Simba Code:
program New;
{$DEFINE SMART}
{$i srl/srl.simba}
{$DEFINE SRL5}
//This Is My very First Script, If You
//Are Using It Please Leave Constructive Critiscism!
Const
World = 103; //May not Work As of Yet.
MEMBERS = True;
Stats_UserID = '';
Stats_Password = '';
AutoUpdate = True;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username?
Players[0].Pass := ''; // Password?
Players[0].Nick := '10w'; // 3 letters of your username (not the first letter)
Players[0].Active := True;
end;
Function CheckAndClick(UpText, Option:String; X,Y:Integer;RClick:Boolean) :Boolean;
Begin
MMouse(x,y,5,5);
If WaitUptext(Uptext, 1500+Random(500)) Then
Begin
Result:= True;
GetMousePos(x, y);
If RClick Then
Begin
Mouse(x, y, 0, 0, False);
Result:= WaitOption(Option,1800);
If Result Then FFlag(0);
End Else
Begin
Mouse(x, y, 0, 0, True);
Wait(100+Random(50));
FFlag(0);
End;
End;
End;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(2) of
0:
begin
Gametab(Tab_Stats) Hoverskill ('Random',False);
Wait(7873+Random(298));
Gametab(Tab_Inv);
MakeCompass('W');
Wait(9346+Random(222));
MakeCompass('E');
end;
1: PickUpMouse;
2:
begin
MakeCompass('S');
wait(222+random(1335));
MakeCompass('W');
wait(561+random(133));
MakeCompass('E');
FindNormalRandoms;
end;
end;
end;
procedure ChopTree;
var x, y, PlusOne, TooLong, TreeCounter: integer;
begin
MarkTime(TooLong);
PlusOne:= InvCount + 1;
x:=MSCX;
y:=MSCY;
If FindObjTPA(x, y, 3424846, 5, 1, 15, 60, 600, ['Cho'])then
Case Random(2) of
0: Mouse(x, y, 5, 5, True);
1: Begin
Mouse(x, y, 5, 5, False);
WaitOption('Chop', 500);
End;
End;
Flag;
MarkTime(TreeCounter);
If (TimeFromMark(TooLong) > 30000) then
repeat
FindNormalRandoms;
if FindObj(x, y, 'hop', 3424846, 22)
then Mouse(x, y, 2, 2, false);
ChooseOption('hop');
Wait(198+Random(128));
FindNormalRandoms;
if FindObj(x, y, 'hop', 3424846, 22)
then
Mouse(x,y,0,0,false);
ChooseOption('hop');
Wait(222+Random(122));
WriteLn ('ANNIHILATING TREE!');
if InvCount=+1 then
WriteLn('We Got the Yew log!!');
begin
Mouse(x, y, 2, 2, false);
ChooseOption('hop');
end;
Flag;
MarkTime(TreeCounter);
repeat
Wait(75+Random(286)); MakeCompass('W');
Wait(500+Random(122));
Wait(75+Random(133)); MakeCompass('E');
wait(400+random(250));
AntiBan;
If InvCount=PlusOne Then
WriteLn('We ANNIHILATED another log!');
Until not IsUpText('ew') or (InvFull);
until(InvFull);
End;
Procedure DropLogs;
Var
x, y, LogDTM, I:Integer;
SlotBox:TBox;
LogPattern:TIntegerArray;
Begin
LogDTM := DTMFromString('mbQAAAHicY2VgYHBlYmAwA2JjIHYA4gAgfgIUfwTEb4D4AxA/BmIHAxkgyYSGUcF/IGbEgsEAABw/B2s=');
LogPattern:=[1,5,9,13,17,21,25,29,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,16,12,8,4];
If InvFull then
begin
FindNormalRandoms;
For I:=0 To 27 Do
Begin
FindNormalRandoms;
Status('Dropping Log:'+ IntToStr(I));
SlotBox:=InvBox(LogPattern[I]);
If FindDTm(LogDTM,x,y,Slotbox.x1,Slotbox.y1, SlotBox.x2, Slotbox.y2) Then
begin
MouseItem(LogPattern[I],1);
ChooseOption('Dro');
End;
End;
End;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
repeat
ChopTree;
If Invfull then
DropLogs;
until(False);
End.