SRL Archive - RS3 Script Requests

Hi guys,

I've had a bit of trouble with this script here

program Stun;

{$DEFINE SMART}
{$i SRL/SRL.scar}
{$i SRL\SRL\Misc\Stats.simba}

const
  SRLStatsUserName = '';
  SRLStatsPassword = '';
  Version  = '1.0 Beta';

procedure DeclarePlayers;
var i:integer;
begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  for i := 0 to (1-1) do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  with Players[0] do
  begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Active      := True;
  end;

end;

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

Function CheckAndClick(UpText:String; X,Y:Integer; RClick:Boolean):Boolean;
Begin
  MMouse(x, y, 5, 5);
  If WaitUptext(UpText, 1500+Random(500)) Then
  Begin
    Result:=True;
    GetMousePos(x, y);
    If RClick Then
    Begin
      Mouse(x, y, 0, 0, False);
      Result:= WaitOption('own', 2000);
      If Result Then FFlag(0);
    End Else
    Begin
      Mouse(x, y, 0, 0,True);
      Wait(100+Random(50));
      FFlag(0);
    End;
  End;
End;

Procedure Antiban;
Begin
  Case Random(250) Of
    0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Magic', False) GameTab(28) End;
    1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
    5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
  End;
End;

Procedure FailSafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  TerminateScript;
End;

Function Stun:Boolean;
Var
  seX, seY: Integer;
Begin
  If FindObjCustom(seX, seY, ['Cast', 'Stun'], [14215660, 2362652, 13091512], 10)Then;
  Begin
  StatsGuise ('Yay we found stun');
  GetMousePos (seX, SeY);
  Case Random(2) of
    0: Mouse(seX, seY, 5, 5, True);
    1: Begin
          Mouse(seX, seY, 4, 4, False);
          WaitOption('Cast', 500);
    End;
  End;



End;
end;

Begin

    SetupSRL;
    DeclarePlayers;
    //Repeat
      Stun;
   // Until(false)
End.

and if someone could edit it to click on a cast in the magic book and I could edit in the values and then to click on an NPC where I could also edit the values in, it would be great, or if you have a skeleton script for this it would be great!I need it to study it and test it for my scripting career beginning and would be forever grateful