well, i'll just get to the point, i need an bone collector and banker, i don't know if this is possible, could you help me?
well, i'll just get to the point, i need an bone collector and banker, i don't know if this is possible, could you help me?
what am i supposed to write?
A Bone Colllector and burrier and a burrier and banker? Because one that collects and banks is very veeeery anoying![]()
~Hermen
that doesn't make any sense to me..if it buries..then doesn't it not have anything to bank? or do you mean the option to bank/bury? doesn't matter really..but yeah, making a bone collector/burrier would be very hard/super duper crazy hard with multiple places to bank bones at
Originally Posted by That guy that wrote forefeathers
ok, i'll just do with a burrier
what am i supposed to write?
-.-
A Bone Collector and burrier takes bones From the GROUND Not the bank -.-
A Bone Banker And burrier Would BANK them And Bury them -.-
And A burrier is a short name form Bone Collector(GROUND) and burrier -.-
Hermpie
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('78DA63DCC3C0C0E0CB00068C108AE1CCD1230' +
'C9250FE7F2060DC01648432A00146143D8C4781442001359B8084' +
'1F013587818407013520F7781150B319E12F5C6A00AC5B0DB9');
BigBone := DTMFromString('78DA63B467626078C400068C108AE1D9E3C70' +
'C9250FE7F20603407AA79CA80061851F430FA00D5BC2642CD0302' +
'6A1C806A9E1350E30254F392801A3BA09ADB4498739F801A5B22D' +
'CE30E54F30CBF1A009C351275');
OpenFWBank := DTMFromString('78DA635465646038CF00068C108AA13AC58D4' +
'112CAFF0F048C2035BB51D504DAABC1D580C5AD802C25461435ED' +
'CEF6A86ADA802C055435C78FEF4355130464ED40B52BD4490355C' +
'D2F20B10FBF7B00443410E9');
End;
Function WaitUntil(Secs : integer; UntilProc : boolean):Boolean;
Var
Time : Integer;
Begin
MarkTime(Time)
Repeat
Wait(50 + Random(25));
Until (TimeFromMark(time) > Secs) or (UntilProc);
if UntilProc then Result:=True;
End;
{==========================]
Performs Anti-Ban
[==========================}
Procedure AntiBan;
Begin
If Not (LoggedIn) Then Exit;
End;
Procedure HandlePin;
begin
if PinScreen then InPin(IntToStr(Players[CurrentPlayer].Integers[1]));
WaitUntil(1500,False);
end;
{==========================]
Take's Bones From Bank
[==========================}
Procedure Bank;
Begin
If Not (LoggedIn) Then Exit;
LoadDTMs;
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
begin
wait(1000 + Random(500));
if PinScreen then HandlePin;
wait(1000 + Random(500));
If FindDTM(Bone, X, Y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x,y,3,3,False);
if Chooseoption('ll')then
begin
CloseBank;
GameTab(4);
end;
end
end;
End;
end;
{==========================]
Bury's The Bones
[==========================}
Procedure Bury;
Begin
If Not (LoggedIn) Then Exit;
LoadDTMs;
Repeat
If FindDTM(Bone, X, Y, MIX1, MIY1, MIX2, MIY2) Then
begin
Wait(50 + Random(25));
MMouse(X,Y,2,2);
GetMousePos(X,Y);
if isuptext('one') then Mouse(x,y,0,0,True);
WaitUntil(1700,false);
end;
until (InvEmpty);
If InvEmpty then
begin
Writeln('Burried Bones');
Loads:= Loads + 1;
End;
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','Pin, If you have one'], [''], ['']);
LoginPlayer;
Repeat
Bank;
Bury;
Until (False);
End.
I have made this someday I Don't know if all functions are working i think BigBones are not working etc but it is at the FALADOR WEST BANK try it therei hope it works for ya, not sure
![]()
~Hermen
There are currently 1 users browsing this thread. (0 members and 1 guests)