Failed when compiling

Line 32: [Error] (14713:19): Unknown identifier 'KillScriptMark' in script

This is the current error I get when using any script I use. I'm currently using SCAR Divi 3.12 by Freddy1990. If there is any solutions to this problem, please post it here, or you can use AIM to contact me! My AIM is Durr3z . Well thanks in advance!

Code:

                           {
 BumFighter SRL v1.0.0

 Program in your settings on line 18.

 Universal AutoFighter, with Anti-Ban and Anti-Randoms.

 - Enjoy
}
program BFSRL;
var
col1,col2,col3,coltol,attacktime,antibanmins,killscripthour,size: integer;
colmonname,rawmenutext: string;
{.Include srl/srl.scar}

Procedure ScriptSettings;
begin
 colmonname:= 'rawler'  //Monster Name
 col1:= 1076883         //Monster Color 1
 col2:= 1076111         //Monster Color 2
 col3:= 1658214         //Monster Color 3
 size:= 1               //Monster Range (1-5) The area the mouse randomly moves to away from the monster color it returns.
 coltol:= 5             //Tolerance of Monster Colors
 attacktime:= 4000      //Repeat time for re-attacking Monsters
 AntiBanMins:= 1        //Every Minute to do Antibans
 KillScriptHour:= 5     //How many hours to kill script
end;

//SRL PROCEDURES AND FUNCTIONS --- >
procedure KillScript(hours: Integer);
begin
  if ((TimeFromMark(KillScriptMark) / 1000) / 3600 >= hours) then
  begin
    WriteLn('Stopping script at ' + IntToStr(hours) + ' hours');
    MMouse(Random(500), -10, 0, 0);
    TerminateScript;
  end;
end;
procedure RotateEvery(mins: Integer);
begin
  if ((TimeFromMark(RotateMark) / 1000) / 60 >= mins) then
  begin
    MarkTime(RotateMark);
    SendArrowSilentWait(Random(4), 500 + Random(500));
    SendArrowSilentWait(Random(4), 500 + Random(500));
    MakeCompass('n');
    SendArrowSilentWait(0, 1400 + Random(100));
  end;
end;
procedure RandomRClickEvery(mins: Integer);
begin
  if ((TimeFromMark(RandomClickMark) / 1000) / 60 >= mins) then
  begin
    MarkTime(RandomClickMark);
    RandomRClick;
  end;
end;
function InFight: Boolean;
begin
  Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
    230, 130, 280, 180))
end;
//SRL PROCEDURES AND FUNCTIONS < ---

Procedure Attackmon;
var
RightOrLeft: Integer;
Begin
RightOrLeft:=Random(2)
 If InFight=True Then
  Begin
   Wait(500+Random(500))
  End;
 If InFight=False Then
  Begin
   If FindColorTolerance(x,y,col1,0,0,509,336,coltol) or
      FindColorTolerance(x,y,col2,0,0,509,336,coltol) or
      FindColorTolerance(x,y,col3,0,0,509,336,coltol) then
       Begin
        MouseSpeed:=1+random(5)
         Case RightOrLeft Of
          1:
           Begin;
            Mouse(x,y,size,size,false)
            Wait(300+random(300))
            if ChooseOption(x,y,(colmonname))then
             Begin
              Wait(attacktime+random(2000))
             End
            if not ChooseOption(x,y,(colmonname))then
             Begin
              Attackmon;
             End;
           End;
          2:
           Begin
            Mouse(x,y,1,1,True)
            Wait(attacktime+random(2000))
           End;
        End;
      End;
  End;
End;

Procedure NoBan;
var
bancheck: integer;
begin
 RotateEvery(2)
 RandomRClickEvery(4)
 KillScript(KillScriptHour)
 bancheck:=Random(8)
 if BanCheck=3 Then
  begin
   If FindNormalRandoms=True Then
    Begin
     SolveTalkingRandom(RawMenuText)
    end;
  end;
end;

Procedure EnableRun;
Begin
 Mouse(675,546,5,5,true)
 Wait(500+random(500))
 If Not FindColorTolerance(x,y,1974404,617,468,668,516,5) then
  begin
   Mouse(639,493,5,5,true)
   Wait(300+random(300))
  end;
End;

Procedure MouseMovements;
var
WhatMouseMovements: Integer;
Begin
 WhatMouseMovements:=Random(10)
  if WhatMouseMovements=1 then
   begin
    MMouse(92,130,80,100)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=2 then
   begin
    MMouse(86,351,75,165)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=3 then
   begin
    MMouse(321,378,175,175)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=4 then
   begin
    MMouse(501,210,80,100)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=5 then
   begin
    MMouse(654,374,10,100)
    Wait(200+random(200))
   end;
End;

Procedure ClickATab;
var
Whichtab: Integer;
Begin
Wait(200+random(300))
 Whichtab:=Random(5)
 if Whichtab=1 Then
  Begin
   Mouse(579,247,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=2 Then
  Begin
   Mouse(541, 246,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=3 Then
  Begin
   Mouse(577,547,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=4 Then
  Begin
   Mouse(709,243,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=5 Then
  Begin
   Mouse(577,249,10,10,true)
   Wait(200+random(200))
   MMouse(582,316,7,7)
   Wait(1500+random(500))
  End;
End;

Procedure RandomActionProc;
var
WhatAction: Integer;
begin
 WhatAction:=Random(3)
 if WhatAction=1 Then
  Begin
   ClickATab;
   Writeln('click a tab')
  End;
 if WhatAction=2 Then
  Begin
   MouseMovements;
   Writeln('Mouse Movements')
  End;
 if WhatAction=3 Then
  Begin
   EnableRun;
   Writeln('Enable Run')
  End;
end;

Procedure StartScript;
var
RandomAction: Integer;
begin
 Attackmon;
 NoBan;
 Wait(200+Random(200))
 RandomAction:=Random(3)
 if RandomAction=2 then
  begin
   RandomActionProc;
  end;
end;


begin
SetupSRL;
 Repeat
  ScriptSettings;
  Wait(500+random(100))
  StartScript;
 Until(false);
end.

 

im not sure so dont take my advice guaranteed save a copy b4 u make change , if u post the script we mite be able to help you out

 

Hmph, that script is outdated now. I didn't realize it.

 

Great to know that Town! I guess its now time to look for a new one.