duplicate identifigher

[1-DUB]

hey every time i include srl it says i have a duplicate identifigher if i include fighting it will say i have a duplicate npcattack identifier ect... what did i do wrong and how can i fix it??

[Junior]

post the script? Are you using the new Divi? More details please...

[1-DUB]

i think i did somtn wrong ok
on divi i used this script...program DaWuAutoFighter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\Fighting.scar}
{.include SRL/SRL/Skill/Ranging.scar}
{.include SRL\SRL\extended\xObject.SCAR}

//setup at lines 20-32 \\
//Start logged out \\
//Im not responsible for any loss or damage this script causes \\
//SET THE AMOUNT OF MONSTERS TO BE KILLED ON LINE 209 \ \


//-_-___DaWuAutoFighter Version 1.4___-_-\\
// Made by DaWu \\
//xxKanexx great fighting functions. <3 \\
//Gofs arrow picking and stuff \\
//WT-Fakawi's Great InFightAt, thanks \\
Const
Color1 = 1121681; //use different colours of different rats
Color2 = 1121681;
Color3 = 1121681;
Monstername ='Guard' ;
Kills = 100000 ; // amount of monsters to be killed.
Startplayer = 0 ; //player that starts
foodcolor = 1400241;//set food color if u wanna eat.
Runawaydir= 'N' ; //Direction to run N,S,W,E
Pickarrows = False; // Set to false if u dont use arrows.
Arrowcolor = 0; //Color of the arrow on ground.
EatHp = 61; //Hp to eat at.
Foodname = 'Lobster';
Eat = 'Yes' ; //Yes Or No, Eat Or Not.
Tolerance = 3 ; //Tolerance for the monster colours
Fightmode = 2 ; //Fightmode to be used



Var fightchecks,a, killed :integer; TabTimer:integer; EatTimer:integer;
SkillTimer:integer;

Procedure report;
begin
writeln('______________________')
writeln('DaWuAutoFighter V1.4')
writeln('Worked for '+ TimeRunning);
writeln('Killed: ' + inttostr(a))
writeln('______________________')
end;



Function InFightAt(x, y: Integer):Boolean;
var
dx, dy: Integer;
begin
Result:= (FindColor(dx, dy, 65280, x - 20, y - 10, x + 20, y + 10) or
FindColor(dx, dy, 225, x - 20, y - 10, x + 20, y + 10) or
FindColor(dx, dy, 16728128, x - 20, y , x + 20, y + 20) or
FindColor(dx, dy, 192, x - 20, y, x + 20, y + 20));
end;


procedure OutFightO;
var
i: integer;
begin
Flag;
for i:= 1 to 5 do
begin
if(InFightAt(x,y))then
begin
repeat
wait(50);
until(not(InFightAt(x,y)));
exit;
end else
wait(300);
end;
end;

function KAttackMonsterM(Color1, Color2, Color3, Tolerance: Integer; MonsterName: String): Boolean;
var
i, x, y: Integer;
begin
FFlag(5);
for i:= 1 to 5 do
begin
if(FindColorTolerance(x, y, Color1, MSX1, MSY1, MSX2, MSY2, Tolerance + i))and
(FindColorTolerance(x, y, Color2, MSX1, MSY1, MSX2, MSY2, Tolerance + i))and
(FindColorTolerance(x, y, Color3, MSX1, MSY1, MSX2, MSY2, Tolerance + i))then
begin
MMouse(x, y, 3, 3);
wait(80 + random(60));
if(IsUpText('Attack '+MonsterName))then
begin
result:= true;
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
wait(40 + random(20));
FFlag(5);
OutFightO; //Waits Until Out Of Fight..
exit;
end;
end;
end;
end;




Procedure RandomTab;
begin
MarkTime(TabTimer);
repeat
if TimeFromMark(TabTimer) > 2000 then
begin
Wait(600+random(500))
Gametab(1+random(12))
MarkTime(Tabtimer);
end else Wait(500);
until false;
end;

function Arrowpickup: boolean;
begin
if (Pickarrows=true) then
begin
repeat
wait(400+random(210))
if(FindObj(x,y,'ake',arrowcolor,0))then
begin
mouse(x,y,3,2,true)
FFlag(5);
end;
until(not(FindObj(x,y,'ake',arrowcolor,0)))
end;
end;

//-----------------------------------------------//

function PutArrowsOn: Boolean; //By Freddy1990 .. Edited a bit.
var
xx, yy: Integer;
begin
if (Pickarrows=true) then
begin
GameTab(4)
Result := FindInvArrows(xx, yy);
Wait(100 + Random(250));
Mouse(xx, yy, 0, 0, True);
end;
end;

procedure SkillCheck;
begin
if(FightMode = 1) then begin
HoverSkill('Attack',false);
end;
if(FightMode = 2) then begin
HoverSkill('Strength',false);
end;
if(FightMode = 3) then begin
HoverSkill('Attack',false);
wait(1000 + random(500));
HoverSkill('Strength',false);
end;
if(FightMode = 4) then begin
HoverSkill('Defence',false);
end;
end;


Procedure Slay;
begin
fightchecks:=0;
a:=0;
Repeat;
MarkTime(TabTimer);
MarkTime(eatTimer);
MarkTime(SkillTimer);
wait(100+random(500))
FindMonster(color1,color2,color3,tolerance,monster name);
KattackmonsterM(color1,color2,color3,tolerance,mon stername);
a:= a +1;
fightchecks:= fightchecks + 1;
PutArrowsOn;
FindNormalRandoms;
Arrowpickup;
Report;
FindNormalRandoms;
wait(1000+Random(550))
if(eat = 'Yes')then begin
if TimeFromMark(EatTimer) > 15000 then
begin
Wait(1000+random(500))
RealEatifneeded(foodcolor,EatHp,False)
End;
End;

if TimeFromMark(SkillTimer) > 30000 then
begin
Wait(1000+random(500))
SkillCheck;
End;

if TimeFromMark(TabTimer) > 25000 then
begin
Wait(1000+random(500))
Gametab(1+random(12))
end;
AntiBan;
until(fightchecks = Kills);
end;

Procedure DeclarePlayers;
begin

HowManyPlayers := 1;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := StartPlayer;

Players[0].Name :='';//name
Players[0].Pass :='';//pass
Players[0].Nick := '';// about 3 letters of ur name
Players[0].Active := True;



writeln('using'+inttostr(howmanyplayers)+'player[s]');
end;


Begin
SetupSRL;
Declareplayers;
loginplayer;
HighestAngle;
SetRun(true);
FindNormalRandoms;
AntiBan;
setfightmode(fightmode);
Slay;
Report;
Logout;
End.

and it gives me this...Failed when compiling
Line 26: [Error] (34:1) : Duplicate identifigher 'upchars' in scriptC:\program files\scar 3.o\includes\srl\srl\core\globals.scar

[me_ntal]

Dude edit your script and delete your account details

I ran the script and got duplicate a so i deleted it out varaibles and it ran fine.

and some advice dont use pen as ur nickname use enci the first letter capitalises and causes trouble.

[1-DUB]

yea i didnt relize i did that.... but i alreeady canceld his membership and some one got his account... god im stupid... but im gonna get him back, n e 1 wanna confes that they did it? he's a newby account and its my 9 yr old brothers account... who ever did it i hope ure happy ure maken him cry

[me_ntal]

mate im sorry to hear that, i hope you didnt have anything to valuable on him. I dont advise using mains to auto they dont last too long.

[1-DUB]

na i cleard him off cuz i was useing an auto so all they got is a blank account, my friend has the recov questions and when he gets home im gona get him back

[smills.smx]

Its because youre using scar divi and it doesnt have the chars there , you could just move em there yourself , but id suggest to go back to 2.03 until srl is updated for divi

[YoHoJo]

Here

program DaWuAutoFighter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\Fighting.scar}
{.include SRL/SRL/Skill/Ranging.scar}
{.include SRL\SRL\extended\xObject.SCAR}

//setup at lines 20-32 \\
//Start logged out \\
//Im not responsible for any loss or damage this script causes \\
//SET THE AMOUNT OF MONSTERS TO BE KILLED ON LINE 209 \ \


//-_-___DaWuAutoFighter Version 1.4___-_-\\
// Made by DaWu \\
//xxKanexx great fighting functions. <3 \\
//Gofs arrow picking and stuff \\
//WT-Fakawi's Great InFightAt, thanks \\
Const
Color1 = 1121681; //use different colours of different rats
Color2 = 1121681;
Color3 = 1121681;
Monstername ='Guard' ;
Kills = 100000 ; // amount of monsters to be killed.
Startplayer = 0 ; //player that starts
foodcolor = 1400241;//set food color if u wanna eat.
Runawaydir= 'N' ; //Direction to run N,S,W,E
Pickarrows = False; // Set to false if u dont use arrows.
Arrowcolor = 0; //Color of the arrow on ground.
EatHp = 61; //Hp to eat at.
Foodname = 'Lobster';
Eat = 'Yes' ; //Yes Or No, Eat Or Not.
Tolerance = 3 ; //Tolerance for the monster colours
Fightmode = 2 ; //Fightmode to be used



Var fightchecks, killed :integer; TabTimer:integer; EatTimer:integer;
SkillTimer:integer;

Procedure report;
begin
writeln('______________________')
writeln('DaWuAutoFighter V1.4')
writeln('Worked for '+ TimeRunning);
writeln('Killed: ' + inttostr(a))
writeln('______________________')
end;



Function InFightAt(x, y: Integer):Boolean;
var
dx, dy: Integer;
begin
Result:= (FindColor(dx, dy, 65280, x - 20, y - 10, x + 20, y + 10) or
FindColor(dx, dy, 225, x - 20, y - 10, x + 20, y + 10) or
FindColor(dx, dy, 16728128, x - 20, y , x + 20, y + 20) or
FindColor(dx, dy, 192, x - 20, y, x + 20, y + 20));
end;


procedure OutFightO;
var
i: integer;
begin
Flag;
for i:= 1 to 5 do
begin
if(InFightAt(x,y))then
begin
repeat
wait(50);
until(not(InFightAt(x,y)));
exit;
end else
wait(300);
end;
end;

function KAttackMonsterM(Color1, Color2, Color3, Tolerance: Integer; MonsterName: String): Boolean;
var
i, x, y: Integer;
begin
FFlag(5);
for i:= 1 to 5 do
begin
if(FindColorTolerance(x, y, Color1, MSX1, MSY1, MSX2, MSY2, Tolerance + i))and
(FindColorTolerance(x, y, Color2, MSX1, MSY1, MSX2, MSY2, Tolerance + i))and
(FindColorTolerance(x, y, Color3, MSX1, MSY1, MSX2, MSY2, Tolerance + i))then
begin
MMouse(x, y, 3, 3);
wait(80 + random(60));
if(IsUpText('Attack '+MonsterName))then
begin
result:= true;
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
wait(40 + random(20));
FFlag(5);
OutFightO; //Waits Until Out Of Fight..
exit;
end;
end;
end;
end;




Procedure RandomTab;
begin
MarkTime(TabTimer);
repeat
if TimeFromMark(TabTimer) > 2000 then
begin
Wait(600+random(500))
Gametab(1+random(12))
MarkTime(Tabtimer);
end else Wait(500);
until false;
end;

function Arrowpickup: boolean;
begin
if (Pickarrows=true) then
begin
repeat
wait(400+random(210))
if(FindObj(x,y,'ake',arrowcolor,0))then
begin
mouse(x,y,3,2,true)
FFlag(5);
end;
until(not(FindObj(x,y,'ake',arrowcolor,0)))
end;
end;

//-----------------------------------------------//

function PutArrowsOn: Boolean; //By Freddy1990 .. Edited a bit.
var
xx, yy: Integer;
begin
if (Pickarrows=true) then
begin
GameTab(4)
Result := FindInvArrows(xx, yy);
Wait(100 + Random(250));
Mouse(xx, yy, 0, 0, True);
end;
end;

procedure SkillCheck;
begin
if(FightMode = 1) then begin
HoverSkill('Attack',false);
end;
if(FightMode = 2) then begin
HoverSkill('Strength',false);
end;
if(FightMode = 3) then begin
HoverSkill('Attack',false);
wait(1000 + random(500));
HoverSkill('Strength',false);
end;
if(FightMode = 4) then begin
HoverSkill('Defence',false);
end;
end;


Procedure Slay;
begin
fightchecks:=0;
a:=0;
Repeat;
MarkTime(TabTimer);
MarkTime(eatTimer);
MarkTime(SkillTimer);
wait(100+random(500))
FindMonster(color1,color2,color3,tolerance,monster name);
KattackmonsterM(color1,color2,color3,tolerance,mon stername);
a:= a +1;
fightchecks:= fightchecks + 1;
PutArrowsOn;
FindNormalRandoms;
Arrowpickup;
Report;
FindNormalRandoms;
wait(1000+Random(550))
if(eat = 'Yes')then begin
if TimeFromMark(EatTimer) > 15000 then
begin
Wait(1000+random(500))
RealEatifneeded(foodcolor,EatHp,False)
End;
End;

if TimeFromMark(SkillTimer) > 30000 then
begin
Wait(1000+random(500))
SkillCheck;
End;

if TimeFromMark(TabTimer) > 25000 then
begin
Wait(1000+random(500))
Gametab(1+random(12))
end;
AntiBan;
until(fightchecks = Kills);
end;

Procedure DeclarePlayers;
begin

HowManyPlayers := 1;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := StartPlayer;

Players[0].Name :='';//name
Players[0].Pass :='';//pass
Players[0].Nick := '';// about 3 letters of ur name
Players[0].Active := True;



writeln('using'+inttostr(howmanyplayers)+'player[s]');
end;


Begin
SetupSRL;
Declareplayers;
loginplayer;
HighestAngle;
SetRun(true);
FindNormalRandoms;
AntiBan;
setfightmode(fightmode);
Slay;
Report;
Logout;
End.

[1-DUB]

thx for your help!!