program New;
{.include SRL/SRL.scar}
Var
x, y, Runes : Integer;
Procedure DeclarePlayers;
begin
NumberOfPlayers(2);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active :=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active :=True;
end;
Procedure LoadDTM;
Begin
Runes := DTMFromString('78DA6314666060106140015D8D0D0CFF813 42' +
'310FF07024619208383010D302291409A0B48701250C30624 2409' +
'A85120420DC8CD8AF8D5000031EC0782');
End;
Procedure DTMFind;
Begin
If FindDTM(Runes,x, y, MIX1, MIY1, MIX2, MIY2) then
Mmouse (x, y, 0, 0)
writeln('Congratz! You have just found your first DTM!')
End;
Begin
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
DTMFind;
End.
Successfully compiled
SRL Compiled in 16 msec
Name
[Runtime Error] : Exception: Access violation at address 0072408B in module 'scar.exe'. Read of address 00000000 in line 34 in script


Successfully compiled
Reply With Quote











so it would be FreeDTM(Runes);
