DeSnob
11-19-2011, 10:27 PM
I understand, it's not too easy to search for. However, can anyone explain to me why my fps drops like crazy while SMART is running after it searches? I free the DTM and use it correctly; however, even after it's done searching and just sits idle, it'll lag like crazy. The lag only stops when I turn the script off. It seems like there's a memory issue with DTMs. (I only have 2 Gigs of mem in my temp computer)
E: By the way, this is what I'm testing.
program new;
{$define SMART}
{$i SRL\SRL.scar}
var
x, y: integer;
procedure DeclarePlayers;
Begin
HowManyPlayers := 2;
NumberOfPlayers( HowManyPlayers);
CurrentPlayer := 0;
End;
procedure dtm;
var
d: integer;
Found: extended;
begin
d := DTMFromString('mbQAAAHicY2VgYNjFzMCwmxlCLwDiy0C8FS g+A4ivA/F2IN4ExF/ff0bFjOwMRkBxdMyIBYMBAGE5FJw=');
//:= DTMFromString('mQwAAAHicY2ZgYNjFjMBbgfwZQHwdiL++/wzHRkA+DHMBMSMUAwEAF7QNhg==');
if FindDTMRotated(d, x, y, mmx1, mmy1, mmx2, mmy2, 0, 360, 1, found) then
begin
Writeln('X = ' + IntToStr(x));
Writeln('Y = ' + IntToStr(y));
end else
Writeln(':(');
FreeDTM(d);
end;
begin
Smart_Server := 10;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LogInPlayer;
dtm;
Mouse(x, y, 5, 5, True);
repeat
until(not(LoggedIn));
end.
E: By the way, this is what I'm testing.
program new;
{$define SMART}
{$i SRL\SRL.scar}
var
x, y: integer;
procedure DeclarePlayers;
Begin
HowManyPlayers := 2;
NumberOfPlayers( HowManyPlayers);
CurrentPlayer := 0;
End;
procedure dtm;
var
d: integer;
Found: extended;
begin
d := DTMFromString('mbQAAAHicY2VgYNjFzMCwmxlCLwDiy0C8FS g+A4ivA/F2IN4ExF/ff0bFjOwMRkBxdMyIBYMBAGE5FJw=');
//:= DTMFromString('mQwAAAHicY2ZgYNjFjMBbgfwZQHwdiL++/wzHRkA+DHMBMSMUAwEAF7QNhg==');
if FindDTMRotated(d, x, y, mmx1, mmy1, mmx2, mmy2, 0, 360, 1, found) then
begin
Writeln('X = ' + IntToStr(x));
Writeln('Y = ' + IntToStr(y));
end else
Writeln(':(');
FreeDTM(d);
end;
begin
Smart_Server := 10;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LogInPlayer;
dtm;
Mouse(x, y, 5, 5, True);
repeat
until(not(LoggedIn));
end.