bolshak25
2012-02-26 01:53:41
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
some pascal
Are you a member of any other communities?
no. this is the only forum i've ever been a part of :)
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
some pascal
Are you a member of any other communities?
no. this is the only forum i've ever been a part of :)
Tell us about yourself…
From: bolshak25
I'm Travis O'Brien, i am a junior in high school. I love to ski (im a 2nd year captain of the alpine team). i play tennis. i joined this forum one day when i was bored at my grandmas and i looked up bots. registration was closed at the time but i talked to someone on msn and he manually created my account. i started out as a newbie like many of those that are joining now. but the community helped me learn right away and i started to learn how to do things. i eventually started coming to the forum everyday and helped contribute. lately ive been assisting with getting random accounts.
I actually have a script this time :)
unlike my old app
http://villavu.com/forum/showthread.php?t=71641
Please show us one (or multiple) of your scripts.
program B2B;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{Banks:
'feb' (Falador East Bank)
'fwb' (Falador West Bank)
'veb' (Varrock East Bank)
'vwb' (Varrock West Bank)
'db' (Draynor Bank)
'akb' (Al-Kharid Bank)
'eb' (Edgeville Bank)
'lb' (Lumbridge Bank)
'ctb' (Catherby bank)
'clt' (Camelot bank)
'nab' (North Ardougne bank)
'sab' (South Ardougne bank)
'ynb' (Yanille bank)
'ngb' (North gnome bank)
'sgb' (South gnome bank)
'wgb' (Warrior guild bank)
'fgb' (Fishing guild bank)}
Const
Bank ='vwb';
SServer = 1;
SMembers = False;
SSigned = True;
Var
Starttime, Done: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Active := True;
Integers[1] := 4900;//Amount to make
end;
with Players[1] do
begin
Name := '';
Pass := '';
Pin := '';
Active := True;
Integers[1] := 4900;//Amount to make
end;
end;
Procedure Antiban;
begin
Case Random(250) Of
0: Begin GameTab(Tab_Inv); Wait(1500+Random(500)); GameTab(tab_Magic); End;
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: Begin GameTab(Tab_Inv); ExamineInv; GameTab(tab_Magic); End;
3: Begin RandomAngle(SRL_ANGLE_HIGH); SetAngle(SRL_ANGLE_HIGH); end;
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(tab_Magic); End;
5: Begin GameTab(Tab_Stats); HoverSkill('random', False); GameTab(tab_Magic); End;
6..10: Begin FindNormalRandoms; GameTab(tab_Magic); End;
end;
end;
Procedure Banking;
var
t,x,y,BoneDTM: Integer;
begin
if not(LoggedIn) then
begin
LogInPlayer;
Wait(2500+Random(750));
end;
If OpenBankFast(Bank) then
begin
if PinScreen then
InPin(Players[CurrentPlayer].Pin);
BoneDTM := DTMFromString('mbQAAAHicY2VgYLjBxMBwCYhvAfF9IL4CxMGMDAxBQOwHxCFAHAnEPW1tDOuXL2dYOm8uw6bVqxgmdHUy8AP1o2NGLBgMACdKD1s=');
Wait(250+Random(500));
Deposit(2,28,True);
If FindDTM(BoneDTM,x,y,MSX1,MSY1,MSX2,MSY2) then
begin
Mouse(x,y,5,5,mouse_Right);
Wait(500+Random(250));
t:=0;
Repeat
if ChooseOption('draw-All Bon') then
Break;
Inc(t);
Until (t>5)
If (t>5) then
begin
Writeln('Cant find bones');
FreeDTM(BoneDTM);
NextPlayer(False);
end;
Wait(250+Random(150));
CloseBank;
FreeDTM(BoneDTM);
end else
begin
Writeln('Cant find bones');
FreeDTM(BoneDTM);
NextPlayer(False);
end;
end else
begin
Writeln('Cant Open Bank');
NextPlayer(False);
end;
end;
Procedure Cast;
var
i,x,y,B2BDTM: Integer;
begin
FindNonInventoryRandoms;
B2BDTM := DTMFromString('mbQAAAHicY2VgYAhnYmDwBeIgIA4G4iggfgkUfwzED4D4NRA/AuLvz7kYVm/cynDuyi2GdVN4wXx+oDg6ZsSCwQAAK9MQKA==');
If not(GetCurrentTab=tab_Magic) then
begin
writeln('not in mage');
GameTab(tab_Magic);
end;
If FindDTM(B2BDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,5,5,mouse_Left);
FreeDTM(B2BDTM);
Wait(1750+Random(135));
IncEx(Done,27);
AntiBan;
end else
begin
Writeln('Cant find spell');
FreeDTM(B2BDTM);
NextPlayer(False);
end;
If (Done>=Players[i].Integers[1]) then
NextPlayer(False);
end;
Procedure Proggy;
var
Rate,Sec: Integer;
begin
Sec:= (1+((Getsystemtime-StartTime)/1000));
Rate:=(3600*(Done))/(Sec);
ClearDebug;
SRLRandomsReport;
Writeln('Made ' + IntToStr(Done) + ' Bananas At A Rate Of ' + IntToStr(Rate) + ' Bananas An Hour');
Writeln(IntToStr(Rate/27) + ' Casts An Hour');
end;
begin
Smart_Server := SServer;
Smart_Signed := SSigned;
Smart_Members:= SMembers;
SetupSRL;
MouseSpeed:=16;
Done:=0;
DeclarePlayers;
if not(LoggedIn) then
LogInPlayer;
SetAngle(SRL_ANGLE_HIGH);
GameTab(tab_Magic);
StartTime:=GetSystemTime;
repeat
Banking;
Cast;
Proggy;
Until (AllPlayersInactive);
Logout;
TerminateScript;
end.