Ive scimmed it down a little, you don't need 1 line procedures in the main loop and you never called report in your script. I didn't test it but i guess its for cursing spells on something?? And i also made it (main loop) log in if the player is not logged in. Whats the point of having declare players in there.
SCAR Code:
program Cursor;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Magic.scar}
procedure AntiBan;
begin
if not LoggedIn then Exit;
case(Random(75)) of
1:HoverSkill('Attack',False);
7:GameTab(1);
16:RandomMovement;
20:HoverSkill('Strength',False);
24:HoverSkill('Hitpoints', False);
37:BoredHuman;
50:Wait(2000 + random(1000));
end;
end;
var
i : integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Integers[0] :=200 ;
end;
procedure Clikin;
var
I: Integer;
begin
if ( I = 10 ) then Nextplayer(False);
if(not LoggedIn)then exit;
if not CastOn('curse', 'amorak', 3949474, 10) then
begin
WriteLn('Can'#39't Find Whatever it is this scripts supposed to be finding');
Inc(I);
end else
I := 0;
Wait(RandomRange(2000, 3500));
end;
procedure Report;//call this after Clikin
begin
ClearDebug;
Writeln('Good`s Good Curse-Crusher');
Writeln('by Goodpeople, with help from benjaa');
Writeln('Worked for '+TimeRunning);
Writeln('Cursed approx. '+IntToStr(i)+' times');
Writeln('Thanks for testing');
end;
begin
Setupsrl;
DeclarePlayers;
ClearDebug;
ActivateClient;
if Not loggedin then
LoginPLayer;
makecompass('w')
repeat
Clikin;
Inc(i);
FindNormalRandoms;
until(i >= Players[CurrentPlayer].Integers[0]);
if (i >= Players[CurrentPlayer].Integers[0])then
begin
report;
terminatescript;
end;
end.