Simba Code:
program Seers_Yews;
{$DEFINE SMART}
{$DEFINE PAINT}
{$i srl/srl/misc/smart.simba}
{$i SRL/srl.simba}
{$i SRL\SRL\Misc\PaintSmart.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
{var
x,y: Integer;
Walk,WalkYew,Walk2,Walk3:Array[0..120] of Integer;
aFound:Extended;}
//const
// Bank_CT = 'clt'
var
AngleHigh: integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //Username
Pass := ''; //Password
Pin := ''; //Pin
BoxRewards := ['XP','xp','lamp']; //Reward
LampSkill := 'Woodcutting'; //What to use Gene Lamp on
Active := True;
end;
end;
procedure Antiban;
begin
if(not(LoggedIn))then
Exit;
case Random(500) of
0:
begin
HoverSkill('Woodcutting', false);
wait(1000+Random(200));
end;
10: PickUpMouse;
20: BoredHuman;
30: RandomMovement;
40:
begin
MakeCompass('S');
wait(125+random(100));
MakeCompass('N');
wait(75+random(100));
MakeCompass('N');
FindNormalRandoms;
end;
50: MakeCompass('Random');
end;
end;
//procedure WalkToNewTree;
procedure ChopTree;
var x,y,colorz: integer;
begin
if(InvFull) then
Exit;
repeat
FindNormalRandoms;
AntiBan;
MakeCompass('N');
SetAngle(AngleHigh);
if FindObjCustom(x,y,['ew','hop','own'],[2182722,5474683,1654580],5) then
begin
Writeln('Found Yew Tree chopping now..');
Wait(550+random(500));
Mouse(x,y,4,4,true);
ChooseOption('hop');
repeat
wait(250+random(250));
until not IsUpTextMultiCustom(['hop','ew']) or (InvCount=28);
end else Writeln('Cannot find Yew Tree.. Walking to new tree..');
begin
ObjDTM_Walk('117:83:5:1:7:74:67:0:7:116:52:1:7:123:119:1:7:53:128:1:7:74:87',0,100,80,true);
Wait(500+random(275));
end;
if FindObjCustom(x,y,['ew','hop','own'],[2182722,5474683,1654580],5) then
begin
Writeln('Found Yew Tree chopping now..');
Wait(550+random(500));
Mouse(x,y,4,4,true);
ChooseOption('hop');
repeat
wait(250+random(250));
until not IsUpTextMultiCustom(['hop','ew']) or (InvCount=28);
end else Writeln('Cannot find Yew Tree.. Walking to new tree..');
begin
ObjDTM_Walk('38:77:4:1:7:36:62:1:7:116:62:1:7:121:126:5:7:38:118',0,100,80,true);
end;
begin
if IsUpTextMultiCustom(['ead,ak,agic,aple']) then
ObjDTM_Walk('128:133:5:1:7:55:66:1:7:102:56:0:7:98:80:1:7:120:119:1:7:28:113',0,100,80,true);
end;
Antiban;
until(InvFull);
end;
procedure WalkToYew; //Thanks for the help in IRC (Euphemism, [J]ustin)
begin
if(InvEmpty) then
Writeln('Inventory is empty, walking to Yews.');
begin
if ObjDTM_WalkPath(['73:113:4:10:7:66:70:0:7:83:87:8:7:90:120:5:7:30:100','64:139:5:5:7:40:67:0:7:95:56:1:7:126:71:1:7:82:127:8:7:65:114','57:119:5:0:7:47:88:8:7:69:62:0:7:134:83:1:7:98:126:3:7:29:103', '36:81:5:0:7:71:52:8:7:97:66:1:7:78:118:5:7:33:119:1:7:30:68'],0,100,80,false,true) then
Writeln('Arriving at Yews.');
begin
wait(250 + random(250));
MakeCompass('n');
end;
end;
end;
procedure WalkToBank;
begin
if(InvFull) then
Writeln('Inventory is full, walking to bank..');
begin
if ObjDTM_WalkPath(['97:61:6:1:7:37:63:0:7:79:47:8:7:106:61:1:7:87:115:5:7:61:115:3:7:39:96', '106:28:4:1:7:104:100:1:7:23:88:0:7:66:51:1:7:112:58', '84:36:4:1:7:82:95:0:7:44:108:1:7:58:55:1:7:110:58', '88:63:5:1:7:34:36:1:7:109:46:1:7:106:105:1:7:55:103:5:7:41:75'],0,100,80,false,true) then
Writeln('Arriving at Camelot bank.');
begin
wait(250+random(250));
Antiban;
MakeCompass('N');
end;
end
end;
{ procedure Bank
begin
if(Invfull)then
//begin
repeat
Writeln('Inventory full, banking.')
OpenBank('clt',True,True)
Wait(250+random(100));
if PinScreen then
InPin(Players[CurrentPlayer].Pin);
Until(BankScreen);
//if(PinScreen)then InPin(Players[CurrentPlayer].Pin);
//if(bankscreen)then
//if BankScreen
Depositall;
CloseBank;
end;
//end;}
procedure Banking;
begin
if(InvFull) then
begin
SetAngle(AngleHigh);
repeat
WriteLn('Inventory full, banking.');
OpenBankNPC;
if(PinScreen)then
InPin(Players[CurrentPlayer].Pin );
if(BankScreen) then
DepositAll;
CloseBank;
until(InvEmpty);
end;
end;
begin
Smart_Server := 12;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
ActivateClient;
ObjDTM_Setup;
ClearDebug;
DeclarePlayers;
if not(LoggedIn) then
LogInPlayer;
repeat
WalkToYew;;
ChopTree;
WalkToBank;
Banking;
until(false);
//repeat
//NextPlayer(True);
//until(AllPlayersInactive);
end.