You call for FindDTM in the burybones procedure. All that does is look for the DTM
'bones"... BUT since you didnt call the LoadDTM procedure, its going to result as false (not found) every single time no matter what. Try this:
Code:
////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k k k k k k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k k kk kk ooo tttttttttt k k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt ssssssss k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt s zzzzzzzzz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kkkk o o tt s zz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt sssss zz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt s zz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt s zz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k k kk kk o o tt ssssssss zzzzzzzzz k k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k k k ooo k k k\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////////////////////// \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////////////////// \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////////////////////instructions\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ /////////////////////
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
program KotszPrayerLeveler;
{.include SRL/SRL.scar}
{.include SRL/SRL/misc/trade.scar}
//setup
const
NumberOfUsers = 6; // = player [NUMBER] + 1 =? fill the ? in here
NumberOfLoads = 10;//number of laod before logout and goning to next player
BoneColor = 14013914;
Var
StartPlayer, Loads, NormalRandomsTime, FastRandomsTime, FindTalkTime, MyMark, FallyBuildingColor : integer;
var
Bone :integer;
Procedure DeclarePlayers;
Begin
StartPlayer := 1
NumberOfPlayers( NumberOfUsers );
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='StuffToDo';
Players[0].Active:=True;
Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
End;
Procedure ChangeLocation(Location:string);
begin
Players[CurrentPlayer].Loc := Location;
end;
{function findfast randoms credits to WT-Fawaki }
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
8 : If RC Then Result := True;
9: If FindTalk Then Result := True;
10: If HandleTrade Then Result := True;
End;
Wait(1);
end;
end;
{Credits to Wizzup}
Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
Var
I, iX,iY: Integer;
Begin
For I := iFrom To ITo Do
Begin
iX := Round(Distance * Sin(I * Pi / 180)) + 648;
iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
If GetColor(iX, iY) = 0 Then
Begin
Result := Result + 1;
End;
End;
End;
{credits to wizzup}
Function FindNormalRandomsTimeEx: Boolean;
Var
TempTime, Time1, Time2: LongInt;
Begin
TempTime := GetSystemTime;
If TempTime - NormalRandomsTime > 6000 Then
Begin
NormalRandomsTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindNormalRandoms;
Time2 := GetSystemTime;
Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
If TempTime - FastRandomsTime > 2000 Then
Begin
FastRandomsTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindFastRandoms;
Time2 := GetSystemTime;
Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
If TempTime - FindTalkTime > 500 Then
Begin
FindTalkTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindTalk;
Time2 := GetSystemTime;
Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
End;
procedure LoadDTM; //The name of the procedure.
begin
Bone := DTMFromString('78DA63F4646660C862644006678E1E613002D' +
'220D1FF40C0E88CA906220B2381B42B504D1101352140353904D4' +
'F801D5A4E057030056770A2F');
end;
{procedure setupclient does wat the names says :P }
procedure SetUpClient;
begin
Wait(1000);
ActivateClient;
wait(1000 + random(250));
end;
{procedure BuryBones bury the bones }
procedure BuryBones;
begin
if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
mouse(x,y,584,227,true);
end;
{procedure GetBones to get bones from the ground }
procedure GetBones;
begin
if(not(LoggedIn))then
Exit;
repeat
if FindObj(x, y, 'one',BoneColor, 10) then Mouse(x, y, 2, 1, True);
Flag;
until (InvFull)
if(InvFull) then
writeln('inventory is full');
BuryBones;
end;
{MainLoop}
begin
SetUpClient;
LoadDTM;
SetupSrl;
GetBones;
BuryBones;
end.