Simba Code:
program ArticPines;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i srl/srl.simba}
var
x, y, i: integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Woodcutting;
Active := True;
end;
end;
Function IsMoving_W: Boolean;
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Result := (AveragePixelShift(PBox, 250, 500) > 600);
end;
procedure Light;
var
SlotBox:TBox;
DropsPattern: TIntegerArray;
begin
DropsPattern:=[1,2];
For i:=0 to 1 Do
Begin
FindNormalRandoms;
SlotBox:=InvBox(DropsPattern[i]);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
Wait(20+Random(20));
MoveMouse(X, Y+40);
ClickMouse(X, Y, mouse_Left);
Wait(20+Random(20));
MoveMouse(X, Y+40);
ClickMouse(X, Y, mouse_Left);
Wait(20+Random(20));
MoveMouse(X, Y+40);
ClickMouse(X, Y, mouse_Left);
Wait(20+Random(20));
MoveMouse(X, Y+40);
ClickMouse(X, Y, mouse_Left);
Wait(20+Random(20));
MoveMouse(X, Y+40);
ClickMouse(X, Y, mouse_Left);
Wait(50+Random(20));
End;
End;
////////////////////////////////////////////////////////////////////
/////////////{Modified from FLIGHTS Heavy Rodder!}//////////////////
////////////////////////////////////////////////////////////////////
Procedure ReadyAlch;
var
AlchBMP: Integer;
begin
AlchBMP := BitmapFromString(10, 6, 'meJwLuf2Kd8o6JkYmVl1+sVgVpk0' +
'y8sez4Uhi10WILLsQO4sHG1MOC1ABHAGl2OKaILJABDQBGQGlIAii' +
'AFOWtbwfiICyaAq+n0oEigMNZ/HJZjFwhyuA2wIAwl0jlg==');
if FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(X, Y, 3, 3);
ClickMouse2(True);
end else if not FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
GameTab(tab_Magic);
if FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse( x, y, 5, 5);
ClickMouse2(True);
MMouseItem(22);
end;
end;
FreeBitmap(AlchBMP);
end;
Procedure Alch;
begin
ReadyAlch;
repeat
if InvFull then
exit;
if ExistsItem(10) and ExistsItem(9) then
begin
MMouseItem(22);
if WaitUpTextMulti(['Cast', 'ow L', 'evel', 'lchem'], 400) then
ClickMouse2(True);
end;
ReadyAlch;
until(not(IsMoving_W))
end;
function FindTree (Var X,Y: Integer) : boolean;
var
MyTPA : TPointArray;
MyPoint : TPoint;
i : integer;
begin
result := False;
x := MSCx; //need to get color
y := MSCy;
FindColorsSpiralTolerance( x, y, MyTPA, 7371627, MSx1, MSy1, MSx2, MSy2, 10);
if (Length(MyTPA) < 1) then
Exit;
for i:=0 to High(MyTPA)do
begin
MyPoint:= MyTPA[i]
MMouse( MyPoint.x, MyPoint.y, 3, 3);
if WaitUpTextMulti(['hop','rctic'], 400) then
begin
Result := True;
GetMousePos( x, y);
Exit;
end;
end;
//use TPA's
//positions mouse
//check uptext
//GetMousePos( x, y);
end;
function FindTree2 (Var X,Y: Integer) : boolean;
var
MyTPA : TPointArray;
MyPoint : TPoint;
i : integer;
begin
result := False;
//need to get color
x := MSCx;
y := MSCy;
FindColorsSpiralTolerance( x, y, MyTPA, 14147017, MSx1, MSy1, MSx2, MSy2, 10);
if (Length(MyTPA) < 1) then
Exit;
for i:=0 to High(MyTPA)do
begin
MyPoint:= MyTPA[i]
MMouse( MyPoint.x, MyPoint.y, 3, 3);
if WaitUpTextMulti(['hop','rctic'], 400) then
begin
Result := True;
GetMousePos( x, y);
Exit;
end;
end;
//use TPA's
//positions mouse
//check uptext
//GetMousePos( x, y);
end;
procedure chop;
begin
if not LoggedIn then
Exit;
//areacheck
FindNormalRandoms;
if InvFull then
//Light;
SetAngle(0);
MakeCompass(0);
if (FindTree( x, y) or FindTree2( x, y)) then
begin
writeln('Found Tree');
ClickMouse2(True);
While IsMoving_W do
begin
Wait(RandomRange(1000,1500));
Alch;
end;
Wait(RandomRange( 500, 1000));
{if InvFull then
Light;}
end;
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL();
DeclarePlayers;
LoginPlayer;
LogInPlayer;
SetAngle(0);
MakeCompass(0);
repeat
if not LoggedIn then LoginPlayer;
//areacheck;
chop;
until(AllPlayersInactive)
Logout;
TerminateScript;
end.