SCAR Code:
program HACKNCRACK1;
{.include srl/srl.scar}
var
TroutDTM,SalmonDTM,i,x,y: Integer;
DTMsLoaded : boolean;
procedure LoadDTMS;
begin
if not DTMsLoaded then
begin
SalmonDTM := DTMFromString('78DA639CC6C4C0F09C010C982114C3AE8A6C0' +
'61120CD08C4FF8180B103A8E61D031A60442281F442A09A1B04D4' +
'2C01AAB94F40CD3422EC02A9B9835F0D00742D0EB3');
TroutDTM := DTMFromString('78DA639CC6C4C0F09C0105ECDDBC89811F483' +
'302F17F20605C08547383010D30229140BA03A8E61D0135D3816A' +
'DE12500372CF1DFC6A00B39B0DA8');
DTMsLoaded := true;
end;
end;
procedure freeing;
begin
if DTMsLoaded then
FreeDTM(TroutDTM);
FreeDTM(SalmonDTM);
end;
procedure dropping;
begin
for i := 3 to 28 do
dropitem(i);
end;
procedure checkfortrouts;
begin
repeat
if findDTM(TroutDTM,x,y,MIx1,MIy1,MIx2,MIy2) then
begin
Mouse(x, y, 5, 5, false);
isuptext('out');
Wait(50 + Random(50));
ChooseOption('rop');
end;
until (findDTM(TroutDTM,x,y,MIx1,MIy1,MIx2,MIy2) or loggedin = false);
end;
procedure checkforsalmons;
begin
repeat
if findDTM(SalmonDTM,x,y,MIx1,MIy1,MIx2,MIy2) then
begin
Mouse(x, y, 5, 5, false);
Wait(50 + Random(50));
ChooseOption('rop');
end;
until (findDTM(SalmonDTM,x,y,MIx1,MIy1,MIx2,MIy2) or loggedin = false);
end;
procedure mainloop;
begin
cleardebug;
setupsrl;
activateclient;
end;
begin
mainloop;
LoadDTMS;
dropping;
checkfortrouts;
wait(150+random(50));
checkforsalmons; <---here the script laags and doesnt stop laaging plz help!!
freeing;
end.