7
71runemaker
Guest
Here's the script...
I'm using SCAR 2.03.
The error is,
Line 282: [Error] (18355:1): Unknown identifier 'AllPlayersInactive' in script C:\Documents and Settings\Owner\My Documents\SCAR\Falador_Chicken_Killer_By_TOB.scar
Will someone help?
Code:
{.Script Info:
# ScriptName = Falador_Chicken_Killer
# Author = TOB
# Description = Kills chickens then collects feathers.
# Version = .6
# Date = 2006, December 3.
# Comments = I made this for SRL Member application
/Script Info}
program Falador_Chicken_Killer;
{.include srl\srl.scar}
{.include srl\srl\skill\Fighting.scar}
//You will need to replace SRL\SRL\core\Login.scar with
//http://sofakingpro.com/SCAR/Login.scar
const
chickenColor1 =1056410 ; //RECOMMENDED COLOR: Red part of chicken's head
chickenColor2 =1063500 ; //RECOMMENDED COLOR: Dark brown on chicken's tail
chickenColor3 =3627896 ; //RECOMMENDED COLOR: Light brown on chicken's back
bareHandFightMode =2 ; // 1 = Attack; 2 = Strength; 3 = Defence;
featherColor =9472 ; //Brown/black on feather
findFeatherInterval = 30000;
var
bmpWater, CommonTime, featherTime: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Loc := 'Chickens';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Loc := 'Chickens';
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Loc := 'Chickens';
Players[2].Active := True;
end;
{*******************************************************************************
procedure FTWait2(Time: Integer);
By: TOB
Description: Performs Wait and FindTalk. Time is multiple of 250 msec, so FTWait(4)
waits approx 1 sec and performs 4 FindTalks;
*******************************************************************************}
procedure FTWait2(Time: Integer);
var
t, r: Integer;
begin
repeat
r:= 200 + Random(50);
Wait(r);
t:= t + r;
FindTalk;
until(t >= time);
end;
procedure FindAllFeathers;
begin
if(not(InFight)) then
begin
ClickMMColor(WaterColor);
repeat
Mouse(x, y, 5, 5, True);
FTWait(250);
until(not(FindObj(x, y, 'Feather', featherColor, 5)))
end;
MarkTime(featherTime);
end;
{*******************************************************************************
function SymbolExists(Name: String): Boolean;
By: TOB
Description: Finds if minimap symbol exists by name.
*******************************************************************************}
function SymbolExists(Name: string): Boolean;
var
necessaryx, necessaryy: Integer;
begin
if (GetSymbolColor(necessaryx, necessaryy, Lowercase(Name)) > 0) then
Result := True;
end;
{*****************************************************************************
procedure UnequipItem(itemPos: Integer);
By: TOB
Description: Unequips item in slot itemPos
*****************************************************************************}
procedure UnequipItem(itemPos: Integer);
var
equipmentXY: TPoint;
begin
if (WearingItem(itemPos)) then
begin
equipmentXY := EquipmentCoords(itemPos);
Mouse(equipmentXY.x, equipmentXY.y, 5, 5, True);
end;
end;
{*****************************************************************************
function CheckBareHandFightMode: String;
By: TOB
Description: Unequips item in weapon and shield spot then sets fight mode to fightMode
*****************************************************************************}
function CheckBareHandFightMode: Integer;
begin
UnequipItem(5);
UnequipItem(7);
GameTab(1);
if(GetColor(593, 273) = 2106253) then
Result:= 1
else if(GetColor(669, 265) = 2106253) then
Result:= 2
else if(GetColor(589, 326) = 2106253) then
Result:= 3;
end;
{*****************************************************************************
procedure SetBareHandFightMode(fightMode: Integer);
By: TOB
Description: If fightMode != CheckBareHandFightMode
*****************************************************************************}
procedure SetBareHandFightMode(fightMode: Integer);
var
curFightMode: Integer;
curFightModeStr: string;
begin
curFightMode:= CheckBareHandFightMode;
if(curFightMode = 1) then
curFightModeStr:= 'Attack'
else if(curFightMode = 2) then
curFightModeStr:= 'Strength'
else if(curFightMode = 3) then
curFightModeStr:= 'Defence';
if(fightMode = 1) and (not(curFightMode = fightMode)) then
begin
Mouse(593, 271, 20, 20, True);
WriteLn(TheTime + ' Fight mode changed from ' + curFightModeStr + ' to Attack.');
end else if(fightMode = 2) and (not(curFightMode = fightMode)) then
begin
Mouse(699, 275, 20, 20, True);
WriteLn(TheTime + ' Fight mode changed from ' + curFightModeStr + ' to Strength.');
end else if(fightMode = 3) and (not(curFightMode = fightMode)) then
begin
Mouse(589, 326, 20, 20, True);
WriteLn(TheTime + ' Fight mode changed from ' + curFightModeStr + ' to Defense.');
end;
end;
{*****************************************************************************
function KAttackMonster2(Color1, Color2, Color3, Tolerance: Integer; MonsterName, objName: string; objColor: Integer): Boolean;
By: XxKanexX modified by TOB
Description: If monster is found based of it's given colors, name and tolerance level,
will result true then click the monster and wait until out of the fight. objColor is the color
of item to pick up after killing of monster, objName is the name of the item. Checks if monster
or you are in a fight.
*****************************************************************************}
function KAttackMonster2(Color1, Color2, Color3, Tolerance: Integer;
MonsterName, objName: string; objColor: Integer): Boolean;
var
i, x, y, objX, objY: Integer;
begin
if (not(InFight)) then
begin
Flag;
for i:= 1 to 5 do
begin
repeat
if (FindColorTolerance(x, y, Color1, MSX1, MSY1, MSX2, MSY2, Tolerance +
i)) and
(FindColorTolerance(x, y, Color2, x - 10, y - 10, x + 10, y + 10,
Tolerance + i)) and
(FindColorTolerance(x, y, Color3, x - 10, y - 10, x + 10, y + 10,
Tolerance + i)) then
begin
MMouse(x, y, 3, 3);
FTWait2(250);
if (IsUpText('Attack ' + MonsterName)) then
begin
result := true;
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
Wait(40 + random(20));
Flag;
OutFight;
if(not(InFight)) then
begin
if (FindObj(objX, objY, objName, objColor, 5)) then
Mouse(objX, objY, 5, 5, True);
end;
exit;
end;
end;
until (not (IsFightAt(x, y)))
end;
end;
end;
{*****************************************************************************
function FindMonster2(Color1, Color2, Color3, Tolerance: Integer; MonsterName, objName: string; objColor: Integer): Boolean;
By: XxKanexX edited by TOB(To use KAttackMonster2)
Description: Rotates compass in all 4 directions and searches for monster. If monster
is found will Attack the monster using "KAttackMonster2" function.
*****************************************************************************}
function FindMonster2(Color1, Color2, Color3, Tolerance: Integer; MonsterName,
objName: string; objColor: Integer): Boolean;
var
i: integer;
dir: string;
begin
case random(4) + 1 of
1: dir := 'nswe';
2: dir := 'wens';
3: dir := 'sewn';
4: dir := 'ewns';
end;
for i := 1 to 4 do
if (not (KAttackMonster2(Color1, Color2, Color3, Tolerance + i, monsterName,
objName, objColor))) then
if (not (InFight)) then
MakeCompass(strget(dir, i))
else
begin
result := true;
exit;
end;
end;
{*****************************************************************************
procedure CheckLost;
By: TOB
Description: Checks for significant things on MM near chicken pen.
*****************************************************************************}
procedure CheckLost;
var
WaterX, WaterY: Integer;
begin
if(not(SymbolExists('water')) or not(SymbolExists('churn'))) then
begin
if(FindDeformed(WaterX, WaterY, bmpWater, MMX1, MMY1, MMX2, MMY2)) and
(not (SymbolExists('tree'))) then
begin
SetRun(True);
WaterColor := GetColor(WaterX + 5, WaterY + 3);
Writeln(TheTime + ' WaterColor picked(' + IntToStr(WaterX + 5) +
', ' + IntToStr(WaterY + 3) + '): ' + IntToStr(WaterColor));
Mouse(WaterX + 10, WaterY - 4, 3, 3, True);
Writeln(TheTime + ' Lost, attempting to find chicken pen.')
FTWait2(8000 + Random(2000));
if (not(SymbolExists('water')) and not(SymbolExists('churn'))) then
begin
Writeln(TheTime + ' Lost, chicken pen not found. :(');
Players[CurrentPlayer].loc:= 'Lost';
Logout;
end else
Writeln(TheTime + ' At chicken pen, YAY we found it!!');
end else
begin
WriteLn(TheTime + ' Totally lost.');
Players[CurrentPlayer].loc:= 'Lost';
Logout;
end;
end else
WriteLn(TheTime + ' At chicken pen, we were already here. :)');
end;
//------------------------------------------------------------------------------
procedure Common;
begin
AllPlayersInactive;
ChatsOff;
PerfectNorth;
CheckLost;
FindNormalRandoms;
RandomMovement;
if(TimeFromMark(ST) > Minutes(120)) then
NextPlayer(True);
if(not(Players[CurrentPlayer].loc = 'Chickens') or not(LoggedIn)) then
NextPlayer(False);
FindTalk;
SRLRandomsReport;
MarkTime(CommonTime);
end;
procedure SetupScript;
begin
ClearDebug;
SetupSRL;
DeclarePlayers;
AllPlayersInactive;
ActivateClient;
PerfectNorth;
SetBareHandFightMode(bareHandFightMode);
bmpWater:= BitmapFromString(11, 5, 'z78DA3377B63470B230278B3400037' +
'38A4D20CF1C03BC8012BDE40100B74D45BE');
Common;
FindAllFeathers;
end;
begin
SetupScript;
repeat
if(TimeFromMark(CommonTime) > Minutes(5)) then
Common;
FindMonster2(chickenColor1, chickenColor2, chickenColor3, 10, 'Chicken',
'Feather', featherColor);
if(not(LoggedIn)) then
NextPlayer(False);
FTWait2(1000 + Random(750));
if(TimeFromMark(featherTime) > findFeatherInterval) then
FindAllFeathers;
AllPlayersInactive;
until(false)
end.I'm using SCAR 2.03.
The error is,
Line 282: [Error] (18355:1): Unknown identifier 'AllPlayersInactive' in script C:\Documents and Settings\Owner\My Documents\SCAR\Falador_Chicken_Killer_By_TOB.scar
Will someone help?
