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('78DA63CC62626078C88002664DE867E007D 28' +
'C40FC1F0818E3816A3E31A0014624124883D43C25A02619A8 E626' +
'0135254035B708A8A900AA7946404D2550CD17FC6A000CED0 F1C');


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('78DA63CC62626078C88002664DE867E007D 28' +
'C40FC1F0818E3816A3E31A0014624124883D43C25A02619A8 E626' +
'0135254035B708A8A900AA7946404D2550CD17FC6A000CED0 F1C');

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 :D your welcome

[DeSnob]

Here you are

RawShark := DTMFromString('78DA63CC62626078C88002664DE867E007D 28' +
'C40FC1F0818E3816A3E31A0014624124883D43C25A02619A8 E626' +
'0135254035B708A8A900AA7946404D2550CD17FC6A000CED0 F1C');


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('78DA63CC62626078C88002664DE867E007D 28' +
'C40FC1F0818E3816A3E31A0014624124883D43C25A02619A8 E626' +
'0135254035B708A8A900AA7946404D2550CD17FC6A000CED0 F1C');

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 :D your welcome

lol thanks. ;)