Hey guys can someone help make this script work for rs07 ?
Code:
program Killer;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}

Var
  WeAttacked:Integer;
  RT:Integer;

Const
  Monster = 9619676;
  Monster1 = 9998993;
  Monster2 = 3830406;
  AttTime = 1500;


Procedure DeclarePlayers;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  LampSkill := 'Ranged';

 With Players[0] do
  Begin
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Active :=True;
    Players[ 0].Booleans[ 1] := False; //Would you like to have the XP Counter on?
    BoxRewards := ['lamp']
  End;
End;

Var
  OldXP, TimeSinceFight: Integer;

Function StillFighting: Boolean;
Begin
  Result := TimeFromMark( TimeSinceFight) < 4000;
End;

Procedure AntiBan;
Begin
  If Players[ CurrentPlayer].Booleans[ 1] Then
    ToggleXPBar( True);
  If IsXPBarOpen Then
  Begin
    If Not( GetXPBarTotal = OldXP) Then
    Begin
      OldXP := GetXPBarTotal;
      MarkTime( TimeSinceFight);
    End;
  End;
  case Random(2000)of
    0: HoverSkill('Ranged', False);
    1: SleepAndMoveMouse(7000 + Random(500));
    2: RandomMovement;
    3: PickUpMouse;
    4: BoredHuman;
    5..15: MakeCompass( RandomRange( -360, 360));
    16..60: Wait( Random( 3000));
  End;
End;

Procedure FailSafe(Reason: string);
Begin
  Writeln(Reason);
  Logout;
  TerminateScript;
End;


Procedure CheckRandoms;
Begin
  RT:=GetSystemTime;
  If FindNormalRandoms Then
    IncEx(WeAttacked,GetSystemTime - RT);
End;

Procedure MoveCamera;
Begin
  SetAngle(SRL_ANGLE_HIGH);
  Antiban;
  MakeCompass('N');
  RT:=GetSystemTime;
  If FindNormalRandoms Then
    IncEx(WeAttacked,GetSystemTime - RT);
End;

Procedure Attack;
  Var X, Y: Integer;
Begin
  If StillFighting Then
    Exit;
  if FindObjTPA(X, Y, Monster, 4, 1, 25, 25 ,100, ['Ogre']) Then
    Begin
      Writeln( 'Found Ogre');
      Mouse(x,y ,5,5, false);
      ChooseOption('ttack');
      Writeln('Raping Ogre');
      Wait( 5000);
      MarkTime( TimeSinceFight);
    End;
  End;


Begin
  MarkTime( TimeSinceFight);
  Smart_Server:=35
  Smart_Members := True;
  Smart_SuperDetail := False;
  SetUpSRL;
  DeclarePlayers;
  LogInPlayer;
  Repeat
    Antiban;
    CheckRandoms;
    Attack;
  until(false)
End.