Simba Code:
program LongBowMaker;
{$DEFINE SMART}
{$i SRL\SRL.simba}
var
t, r, m, q: integer;
const
Loads = 25; //How many Fletching Cycles you wish to complete
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Member := True;
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
procedure Intro;
begin
Writeln(' |-| |-| |-------|')
Writeln(' | |_| | | | ')
Writeln(' | _ | | | ')
Writeln(' | | | | | | ')
Writeln(' |-| |-| |-------|')
Writeln(' -Iambubbleman')
Wait(randomrange(1000,1200));
ClearDebug;
end;
Procedure Fletch;
var
x, y, Logs, Knife: integer;
begin
Logs := DTMFromString('mbQAAAHicY2VgYMhkYWDIBuJyII6BYhdGBgZvRgTtAMRBptxA1UwomB9IomNGLBgMAGphBGo=');
Knife := DTMFromString('mbQAAAHicY2VgYNBjZGBQBWITIDYAYg0gbgaKTwHiWiCuAeIuIE6IiQGSTCiYnwETMGLBYAAAbB4EuA==');
Setangle(0);
MakeCompass('w');
x:= MSCX;
Y := MSCY;
Writeln('Banking');
FindObjTPA(x, y, 2641499, 10, 1, 25, 8, 120, ['ank']);
Mouse(x, y, 3, 3, false);
WaitOption('Bank', 2000);
repeat
wait(randomrange(49,51));
until(BankScreen);
wait(randomrange(200,300));
DepositAll;
wait(randomrange(200,300));
FindDTM(knife, x, y, MSX1, MSY1, MSX2, MSY2);
Mouse(x,y, 2, 2, true);
Wait(randomrange(1200, 1600));
FindDTM(Logs, x, y, MSX1, MSY1, MSX2, MSY2);
Mouse(x,y, 2, 2, False);
Wait(randomrange(1200, 1600));
ChooseOption('All M');
CloseWindow;
Wait(randomrange(400,550));
Gametab(Tab_Inv);
wait(randomrange(200,300));
Writeln('Fletching');
FindDTM(Knife, x, y, MIX1, MIY1, MIX2, MIY2);
Mouse(x,y, 2, 2, true);
Wait(randomrange(100,150));
FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2);
Mouse(x,y, 2, 2, true);
Wait(randomrange(600,750));
MouseBox(214, 406, 295, 452, 1);
Wait(randomrange(51000, 53000));
MMouse(500,500,1,1);
Writeln('We have completed ' + IntToStr(t) + ' Fletching Cycles within this Session')
If(t = 25) then
Writeln('We Have Gained ' + IntToStr(r) + ' Exp This Session')
else
If(t = 50) then
Writeln('We Have Gained ' + IntToStr(m) + ' Exp This Session')
else
If(t = 75) then
Writeln('We Have Gained ' + IntToStr(q) + ' Exp This Session')
else
end;
Begin
Intro;
smart_server := 91;
smart_members := false;
smart_signed :=true;
smart_superdetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
t:= 0
r:= 39150
m:= 78300
q:= 117450
repeat
inc(t)
Fletch;
until(t=Loads);
end.