SCAR Code:
program Curser;
{.include SRL\SRL\misc\SMART.SCAR}
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Magic.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
end;
Procedure curse;
var mc, mx, my:integer;
begin
if not loggedin the logingplayer;
Cast('curse', false);
mx:=mscx;
my:=mscy;
case random (2) of
0:mc:=5432145;
1:mc:=5432145;
end;
if FindColorSpiralTolerance( mx, my, mc, msx1,msy1,msx2,msy2, 15) then
begin
Disguise('Found Color');
case random(2) of
0:Mousespeed:=15-random(5)+random(5);
1:Wait(1);
end;
Wait(100+random(400));
Mouse(mx, my, 0, 0, true);
end;
end;
begin
ClearDebug;
Disguise('Hello');
Smart_Server := 2;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
SetupSpells;
DeclarePlayers;
mousespeed:=15;
repeat curse;
until(false);
end.
Note; This is a very small portion of my script, i've removed everything else. The cursing where i get some problem.
The mouse clicks in the minimap very often, when the boundary for the color is between msx1,msy1,msx2,msy2.
Whats wrong?
I think the procedures..etc is ok but I think its either scar is bugged or SRL has wrong coordinates for msx2 ,msy2.
Can any one just try this ? mc= monstercolor.