DTM Request

[DeSnob]

since, most of the times, my DTMs don't work. I'm asking for a small favor. Can Somebody make me a DTM for a raw shark?

[All that is man]

Here you are

RawShark  := DTMFromString('78DA63CC62626078C88002664DE867E007D28' +
       'C40FC1F0818E3816A3E31A0014624124883D43C25A02619A8E626' +
       '0135254035B708A8A900AA7946404D2550CD17FC6A000CED0F1C');

Just to make sure I ran it with this program:

program HereYouGo;
{.Include srl/srl.scar}
var
x, y, rawshark : integer;
Procedure Load;
Begin
  RawShark  := DTMFromString('78DA63CC62626078C88002664DE867E007D28' +
       'C40FC1F0818E3816A3E31A0014624124883D43C25A02619A8E626' +
       '0135254035B708A8A900AA7946404D2550CD17FC6A000CED0F1C');

End;
Procedure FindShark;
Begin
  If FindDTM(rawshark, x, y, MIx1, MIy1, MIx2, MIy2) Then
    Begin
      Mouse(x, y, 5, 5, False);
      Wait(125+random(132));
      ChooseOption('rop');
    End;
End;
Procedure Free;
Begin
  FreeDTM(rawshark);
End;
begin
SetUpSRL;
Wait(2500+random(124));
Load;
FindShark;
Free;
end.

And it worked your welcome

[DeSnob]

Here you are

RawShark  := DTMFromString('78DA63CC62626078C88002664DE867E007D28' +
       'C40FC1F0818E3816A3E31A0014624124883D43C25A02619A8E626' +
       '0135254035B708A8A900AA7946404D2550CD17FC6A000CED0F1C');

Just to make sure I ran it with this program:

program HereYouGo;
{.Include srl/srl.scar}
var
x, y, rawshark : integer;
Procedure Load;
Begin
  RawShark  := DTMFromString('78DA63CC62626078C88002664DE867E007D28' +
       'C40FC1F0818E3816A3E31A0014624124883D43C25A02619A8E626' +
       '0135254035B708A8A900AA7946404D2550CD17FC6A000CED0F1C');

End;
Procedure FindShark;
Begin
  If FindDTM(rawshark, x, y, MIx1, MIy1, MIx2, MIy2) Then
    Begin
      Mouse(x, y, 5, 5, False);
      Wait(125+random(132));
      ChooseOption('rop');
    End;
End;
Procedure Free;
Begin
  FreeDTM(rawshark);
End;
begin
SetUpSRL;
Wait(2500+random(124));
Load;
FindShark;
Free;
end.

And it worked your welcome

lol thanks.