Mahatna
04-28-2012, 08:43 PM
Hey guys, while coding my script i have come accross this error, not to sure why
Exception: Range check error at line 21
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Script its self:
program new;
{$i srl/srl.simba}
procedure OpenSpellBook;
Var
X, Y:integer;
Begin
FindColor(X, Y, 3699093, 763, 204, 734, 174);
Mouse(X, Y, 5, 5, 1);
End;
Procedure ClickSpell;
Var
X, Y:integer;
Begin
FindColor(X, Y, 16499968, 587, 244, 615, 272);
Mouse(X, Y, 5, 5, 1);
End;
begin
SetupSRL;
OpenSpellBook;
ClickSpell;
end.
Line giving the error:
FindColor(X, Y, 16499968, 587, 244, 615, 272);
Thanks alot so close to my first script now!
Exception: Range check error at line 21
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Script its self:
program new;
{$i srl/srl.simba}
procedure OpenSpellBook;
Var
X, Y:integer;
Begin
FindColor(X, Y, 3699093, 763, 204, 734, 174);
Mouse(X, Y, 5, 5, 1);
End;
Procedure ClickSpell;
Var
X, Y:integer;
Begin
FindColor(X, Y, 16499968, 587, 244, 615, 272);
Mouse(X, Y, 5, 5, 1);
End;
begin
SetupSRL;
OpenSpellBook;
ClickSpell;
end.
Line giving the error:
FindColor(X, Y, 16499968, 587, 244, 615, 272);
Thanks alot so close to my first script now!