C
CodyTheBaddie
Guest
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!
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.
, if u post the script we mite be able to help you out
