bung_eye
2009-01-08 01:12:56
hey guys this is my very first script its extremely simple but it works ( i hope)
plz no flaming but i would like to know what ive stuffed up and how to improve it plz also vote in the poll
Created By Bung_Eye(IRC Name Pulance)
Credits:
Pretty much everyone that uses IRC you guys helped me heaps.
Description
This script Simply buries your big bones thats in your bank.
Future Updates include (if requested to be updated)
* Bank Pin
* Norm Bones
* Anything else dependng on your feedback
plz no flaming but i would like to know what ive stuffed up and how to improve it plz also vote in the poll
Created By Bung_Eye(IRC Name Pulance)
Credits:
Pretty much everyone that uses IRC you guys helped me heaps.
Description
This script Simply buries your big bones thats in your bank.
Future Updates include (if requested to be updated)
* Bank Pin
* Norm Bones
* Anything else dependng on your feedback
{ $$$$ $$ $$$$$$$ $$$$ $$$$$$ $$ $$ $$$$$$ $$$$ $$ $$ $$ $$ $$
$$ $$ $$ $$ $$ $$ $$ $$ $$$$ $$ $$ $$ $$ $$ $$ $$ $$ $$
$$$$$ $$ $$ $$$$ $$$$$ $$ $$ $$ $$$$ $$$$ $$$$$ $$ $$ $$ $$$$
$$ $$ $$ $$ $$ $$ $$ $$ $$ $$ $$$ $$ $$ $$ $$ $$ $$ $$ $$
$$$$ $$ $$$$$$$ $$$$ $$$$$$ $$ $$ $$$$$$ $$$$ $$$$$$$ $$$$$$ $$ $$
$$$$ $$ $$ $$$$ $$ $$$$$$ $$$$
$$ $$ $$ $$ $$ $$ $$ $$ $$ $$
$$$$$ $$ $$ $$$$ $$ $$$$ $$$$
$$ $$ $$ $$ $$ $$ $$ $$ $$ $$
$$$$ $$$$$$$ $$ $$ $$ $$$$$$ $$ $$
Created By Bung_Eye(IRC Name Pulance)
Credits:
Pretty much everyone that uses IRC you guys helped me heaps.
Description
This script Simply buries your big bones thats in your bank.
Instructions
1) Have your player standing at a bank booth with big bones in any visable bank spot.
2) Fill out the constants
* Choose to use SRLPlayerForm if True then dont worry about step 3
* BonesToBury is simply how many bones you want buried.
* BankName is what bank your at make sure that you standing at a booth
valid arguments for this are:
'feb' (Falador East Bank)
'fwb' (Falador West Bank)
'veb' (Varrock East Bank)
'vwb' (Varrock West Bank)
'db' (Draynor Bank)
'akb' (Al-Kharid Bank)
3) Declare players simple.
Future Updates include (if requested to be updated)
* Bank Pin
* Norm Bones
* Anything else dependng on your feedback}
program Big_Bone_Bulk_Burier;
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Users.scar}
var
BonesBuried, x,y, BigBoneDTM, BankBonesDTM: integer;
const
UseForm= true; //True to use SRLPlayerForm, False to use DeclarePlayers
BonesToBury= 500; //How many bones do you want to bury
BankName= 'veb'; //What bank to use
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Active:= True
end;
procedure WithDrawBones;
begin
OpenBank(BankName, True, True);
BankBonesDTM := DTMFromString('78DA6334636060C86640016B172E649004D28' +
'C40FC1F0818F5808C340634C0884402695B22D438008942026AB4' +
'80440E01352037E7E357030034F709DA');
if FindDTM(BankBonesDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
begin
Mouse(x,y,5,5,False);
wait (100+random(50))
ChooseOption('All');
wait(100+random(50));
repeat
CloseBank;
wait(1000+random(500));
until not BankScreen;
end else
begin
CloseBank;
wait(1000+random(500));
LogOut;
NextPlayer(False);
end;
end;
procedure BuryBones;
begin
BigBoneDTM := DTMFromString('78DA637466626078C28002562F98CF2002A41' +
'981F83F1030DA03D5DC6640038C482490F606AAB94F408D3950CD' +
'53026A5C816A5E1150E387A9C6404101450D00B36F0D75');
If FindDTM(BigBoneDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
repeat
Mouse(x,y,5,5,true);
if (BonesBuried mod 3) = 0 then FindNormalRandoms;
if (BonesBuried mod 3) = 0 then Findfight;
inc(BonesBuried);
If BonesBuried > BonesToBury Then logout;
Wait(1000+random(250))
until not FindDTM(BigBoneDTM,x,y,MIX1,MIY1,MIX2,MIY2)
end;
end;
procedure ProgressReport;
begin
Cleardebug;
WriteLn('###################################################################')
WriteLn('Thnx For Using Big Bone Bulk Burier')
WriteLn('You Have Succesfully Buried ' + inttostr(BonesBuried) + ' Bones')
WriteLn('You Have Gained ' + inttostr(BonesBuried * 15) + ' XP')
WriteLn('###################################################################')
end;
begin
SetUpSrl;
if UseForm = (True) then
SRLPlayerForm(True, [], [], [], [])
else DeclarePlayers;
repeat
LogInPlayer;
repeat
WithDrawBones;
BuryBones;
FindNormalRandoms;
FindFight;
ProgressReport;
NextPlayer (LoggedIn)
until(not loggedin);
NextPlayer(False);
until(false)
end.