SCAR Code:
Program Hermpie;
{.Include SRl/SRl.Scar}
{.include SRL/SRL/Misc/Users.scar}
Var
X, Y, Loads : Integer;// Normal Variables
Bone, BigBone, OpenFWBank : Integer;// DTM Variables
{==========================]
Loads The DTMs In Memory
[==========================}
Procedure LoadDTMs;
Begin
Bone := DTMFromString('78DA637462626078C200068C108AE1CCD1230' +
'C9250FE7F2060B400AA79C080061851F4303A00D5DC26A0C606A8' +
'E6150135BE40354F09A87104AA794D408D3B50CD3DFC6A0003390' +
'E90');
BigBone := DTMFromString('78DA63B467626078C400068C108AE1D9E3C70' +
'C9250FE7F20603407AA79CA80061851F430FA00D5BC2642CD0302' +
'6A1C806A9E1350E30254F392801A3BA09ADB4498739F801A5B22D' +
'CE30E54F30CBF1A009C351275');
OpenFWBank := DTMFromString('78DA635465646038CF00068C108AA13AC58D4' +
'112CAFF0F048C2035BB51D504DAABC1D580C5AD802C25461435ED' +
'CEF6A86ADA802C055435C78FEF4355130464ED40B52BD4490355C' +
'D2F20B10FBF7B00443410E9');
End;
Function WaitUntil(Secs, UntilProc : Integer):Boolean;
Var
Time : Integer;
Begin
Time:= 0;
MarkTime(Time)
Repeat
Wait(50 + Random(25));
Until Time > Secs or UntilProc;
if Time > Secs or UntilProc = False then Result:=False else Result:=True
End;
{==========================]
Performs Anti-Ban
[==========================}
Procedure AntiBan;
Begin
If Not (LoggedIn) Then Exit;
End;
{==========================]
Take's Bones From Bank
[==========================}
Procedure Bank;
Begin
If Not (LoggedIn) Then Exit;
If DTMRotated(OpenFWBank, X, Y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Mouse(X,Y,3,3,False);
Wait(50 + Random (25));
If ChooseOption('Quickly') Then if WaitUntil(5000,BankScreen) then
begin
If Players[CurrentPlayer].Boolean[2] Then
Begin
If FindDTM(BigBone, X, Y, MSX1, MSY1, MSX2, MSY2) then
Begin
WaitUntil(5000,ChooseOption('ll'));
CloseBank;
GameTab(4);
End Else
If FindDTM(Bone, X, Y, MSX1, MSY1, MSX2, MSY2) Then
WaitUntil(5000,ChooseOption('ll'));
CloseBank;
GameTab(4);
End Else
If FindDTM(Bone, X, Y, MSX1, MSY1, MSX2, MSY2) then
WaitUntil(5000,ChooseOption('ll'));
CloseBank;
GameTab(4);
End Else
Begin
CloseBank;
logout;
End;
End Else
OpenBankQuiet('FWB');
End;
{==========================]
Bury's The Bones
[==========================}
Procedure Bury;
Begin
If Not (LoggedIn) Then Exit;
End;
{==========================]
Writes an ProgressReport
[==========================}
Procedure ProgressReport;
Begin
End;
{==========================]
Multi-Player Procedure
[==========================}
Procedure LoginNewPlayer;
Begin
If LoggedIn Then Exit;
If Not(LoggedIn) Then If Players[CurrentPlayer].Integers[0] > Loads then Nextplayer(True) else Nextplayer(False);
Wait(1000 + Random(500));
SetAngle(True);
MakeCompass('N');
End;
{==========================]
Main Loop
[==========================}
Begin
SetupSrl;
SRLPlayerForm(True, ['Bank(True), Pick-Up(False)','Use BigBones'], ['How Many Loads'], [''], ['']);
LoginPlayer;
Repeat
LoginNewPlayer;
Bank;
Until (False);
End.