SRL Archive - OSR Help

How would I go about changing this, snippets would help :)

 program stunner;

{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i SRL\SRL\Misc\Debug.SCAR}
{$i SRL\SRL\Misc\Stats.simba}
{$i SRL\SRL\Skill\Magic.SCAR}
{$i SRL\SRL\Skill\Fighting.SCAR}


{
Spell Names:
'wind rush', 'wind strike', 'confuse', 'water strike', 'earth strike',
'weaken', 'fire strike', 'wind bolt', 'curse', 'bind',
'water bolt', 'earth bolt', 'fire bolt', 'crumble undead',
'wind blast', 'water blast', 'iban blast', 'snare',
'magic dart', 'earth blast', 'fire blast', 'saradomin strike',
'claws of guthix', 'flames of zamorak', 'wind wave',
'water wave', 'vulnerability', 'earth wave',
'enfeeble', 'fire wave', 'entangle', 'stun', 'charge',
'wind surge', 'teleport block', 'water surge', 'earth surge',
'fire surge'
}


Const
 SRLStats_Username = 'l';// Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 BreakEvery        = 120;     //How Many Minutes To Break After
 BreakFor          = 10;      //How Long To Break For
 Version           = 'OLDSEX room';




Var
  stun, x, y, StartTime: Integer;




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.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;
    Strings[0]  :='stun'; //Name of spellto cast.(See list of spells above)
  End;                         //Set to 'Range' if ranging!

End;

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
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;



procedure Findspell;
begin

  stun := DTMFromString('mWAAAAHicY2FgYGBkgAA2KJsViLmhfBBIyylg6OyqZ/j9+zeDDK8KAxdQDBkzomEQAAAisQZh');
  SetAngle(true)
  GameTab(tab_Magic)
  If FindDTM(stun, X, Y, MIX1, MIY1, MIX2, MIY2)  then
  begin


  mouse( x, y, 3, 3, true);


  FreeDTM(stun);
  end;
end;

procedure Castspell;


begin

if FindObj( x, y, 'esser', 1846874 ,10)   then
writeln ('found demon');
  begin

  mouse( x, y, 5, 5, true);
  wait(2)
  end;

end;


procedure ProgressReport;

var
Sec:integer;

begin

  SRLRandomsReport;

  Sec:= (1+((Getsystemtime-StartTime)/1000));

  Writeln(' ');
  Writeln ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
  Writeln ('| -->          L0sers Stunn0r '+ Version +'             <-- |');
  Writeln ('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
  Writeln('|' + PadR(' Worked for '+ (TimeRunning) , 49) + '|');
  Writeln('|' + PadR(' Stuns cast '+ IntToStr(stun) , 49) + '|');
  Writeln('|' + PadR(' Location:' + Players[CurrentPlayer].Loc, 49) + '|');
  Writeln ('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
end;




begin

  Smart_Server := 83;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  SetUpSRL;
  DeclarePlayers;
  LogInPlayer;
  StartTime:=GetSystemTime;
  ProgressReport
 repeat
  Antiban
  Findspell
  Castspell
  until(false)
end.

this is my Antiban

procedure TheAntiban;
var
  Chance: Integer;
begin
  Chance:= Random(100)+1;
  if Chance<=AntibanChance then
    case Random(100)+1 of
      1..20: begin
               HoverSkill('Woodcutting', false);
               Wait(1000+Random(500));
               GameTab(tab_Inv);
             end;
      21..40: PickUpMouse;
      41..60: RandomMovement;
      61..80: BoredHuman;
      81..100: ExamineInv;
    end;
  ChooseOption('ancel');
end;

just create a constant called AntibanChance and that will be a number between 0 and 100

~shut

Hey Lolsen are you modifying my Lesser Demon caster to be a stunner? Make sure to give credit and whatnot if you release that.

Nice to see a newer guy learning to script and make changes etc instead of leeching.

For AntiRandoms just use FindNormalRandoms, that searches for and attempts to solve randoms.

As for antiban you can look in antiban.simba located in C:\Simba\Includes\SRL\srl\core
and add as many of those as you want to the antiban procedure in the script.