Barb Agil - Error?

[destend]

Failed when compiling
Line 18: [Error] (2468:5): Duplicate identifier 'x' in script C:\Program Files\SCAR 2.03\Scripts\Rune\Script Pack 1\barb Agility.txt

I got this error when i was trying to run barb agil. I am on scarscape.

Here you go.

 

[the scar noob]

plz put the script in code tags, or attach it lol i can fix it
EDIT: DON'T USE THIS SCRIPT!! IT WORKS WITH A VERY OLD INCLUDE!! YOU'LL GET BANNED!!

 

[destend]

Attached.

 

[the scar noob]

Sorry i can't fix it... there an unknown identifier "HpPercent" in it, i searched in the whole SI.txt include, but thre isn't even a "HpPercent" in it...
EDIT: FIXED!! It compiles, i dunno if it should work, but it compiles now:

//+----+----+----+----+----+----+\\
// Barbian Agility Coarse Runner \\
// v1.6 \\
// By Taminoo \\
//+----+----+----+----+----+----+\\
// Instructions: \\
// -For ScarScape ONLY \\
// -Start RIGHT in front of the\\
// beginning rope. \\
// -Report and bugs to me \\
// -Do the Setup \\
// -If eating then make there \\
// is food in the FIRST \\
// INVIN SLOT \\
//+----+----+----+----+----+----+\\
program yeah;
{.include Si.scar}
var x,y,trips,pit1,ate,swamp1,fall,food:integer;
ST:longint;

procedure script;forward;
procedure walklog;forward;
procedure randoms;forward;
procedure climbbalance;forward;
procedure climbwall;forward;

const
//+----+----+Setup+----+----+---+//
LampSkill = 'ranged'; //
Userset =1; //
TripLimit = 60; //
Eat = True;//eat when u fall //
//**Cakes might scerw //
//the script up! //
EatPercent = 50;//percent of HP //
//to eat at. //
NumberToEat = 3;//number of peices/
//of food to eat when //
//needed //
//+----+----+DontTouch+----+----+//
ladder = 3696768; //
ladder2 = 4153464; //
log = 4639; //
road = 1187626; //
wall = 9013650; //
//+----+----+End-Setup+----+----+//
procedure report;
var time,times,timem,timeh,StrSecZero,StrMinZero:string;
Hours,Minutes,Seconds,avtime:LongInt;
begin
clearreport;
Seconds:=(GetSystemTime-ST) div 1000;
if(Trips>0)then
avtime:=Seconds/Trips;
Hours:=Seconds div 3600;
Seconds:=Seconds - (hours*3600);
Minutes:=Seconds div 60;
Seconds:=Seconds - (Minutes*60);
if(minutes<10)then StrMinZero:='0';
if(seconds<10)then StrSecZero:='0';
if(hours>0)then timeh:=inttostr(hours)+':';
if(minutes>0)then timem:=StrMinZero+inttostr(minutes)+':';
times:=StrSecZero+inttostr(seconds); time:=timeh+timem+times;
addtoreport('Barbian Agility Runner');
addtoreport(' By Taminoo');
addtoreport('+----+----+----+----+-');
addtoreport('Worked for '+ Time);
addtoreport('Completed the coarse ' + inttostr(trips) + ' times');
addtoreport('Talked to and handled ' + inttostr(gSiRandoms[1]) + ' randoms');
addtoreport('Gained ' + inttostr(gSiRandoms[5]) + ' Agility Levels!');
end;

procedure eatfood;
begin
if(Eat)then
begin
If(HpPercent<=Eatpercent)then
begin
repeat
if(findcolortolerance(x,y,food,550,180,750,480,5))then
mouse(x,y,2,2,true)
wait(1000)
ate:=ate+1;
until(ate=NumberToEat)
end;
end;
end;

function used:boolean;
begin
if(getcolor(247,444)=16711680)then
begin
result:=true;
end;
end;

function pit:boolean;
begin
if(getcolor(641,80)=2873)then
begin
result:=true;
end;
end;

procedure getback;
begin
if(findobj(x,y,'Climb',ladder,0))then
mouse(x,y,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(639,97)=10386796))
wait(600)
mouse(659,73,1,2,true)
flag;
pit1:=pit1+1;
script;
end;

function swamp:boolean;
begin
if(getcolor(672,25)=15891)then
begin
result:=true;
end;
end;

procedure runback;
begin
wait(1000)
if(findcolortolerance(x,y,605799,408,43,439,65,10))then
mouse(x,y,1,1,true)
randoms;
repeat
wait(100)
randoms;
until((getcolor(611,51)=13569))
randoms;
swamp1:=swamp1+1;
end;

function fell:boolean;
begin
if(getcolor(643,80)=2873)then
begin
result:=true;
end;
end;

procedure climbagain;
begin
mouse(651,51,0,0,true)
flag;
wait(500)
fall:=fall+1;
climbwall;
end;

procedure randoms;
begin
CheckRandoms(userset,LampSkill,'NA',false,True,[rtText, rtLamp, rtLogout, rtBox, rtdead, rtMod])
if(pit)then
begin
wait(800)
getback;
end;
if(used)then
begin
mouse(227,444,1,2,true)
script;
end;
if(swamp)then
begin
wait(800)
runback;
end;
if(fell)then
begin
wait(800)
climbagain;
end;
end;

procedure ropeswing;
begin
randoms;
if(findcolor(x,y,15172,185,124,330,333))then
mouse(x+5,y,0,0,true)
randoms;
wait(1000)
repeat
wait(100)
randoms;
until((getcolor(629,95)=0))
wait(1000)
randoms;
end;

procedure walklog;
begin
if(findcolortolerance(x,y,605282,205,274,292,300,10))then
mouse(x+15,y,3,4,true)
randoms;
repeat
wait(100)
randoms;
until((getcolor(611,51)=13569))
randoms;
end;

procedure climbbalance;
begin
if(findcolortolerance(x,y,2039844,135,160,150,212,10))then
mouse(x,y,1,1,true)
repeat
wait(100)
randoms;
until((getcolor(628,86)=2873))
wait(1000)
mouse(192,138,2,2,true)
flag;
randoms;
repeat
wait(100)
randoms;
until((getcolor(633,77)=15000804))
wait(1800)
if(findobj(x,y,'Climb',2907003,5))then
mouse(x,y,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(643,50)=15891))
if(findcolor(x,y,road,656,52,662,60))then
mouse(x,y,5,5,true)
flag;
end;

procedure climbwall;
begin
wait(1000)
if(findcolortolerance(x,y,9013650,270,115,400,230,10))then
mouse(x+2,y+1,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(666,96)=13569))
wait(1000)
if(FindDirObj(x,y,'E','Climb',15,1))then
wait(500)
mouse(x+5,y,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(655,96)=15891))
wait(800)
if(FindDirObj(x,y,'E','Climb',15,1))then
wait(500)
mouse(x+5,y,0,0,true)
repeat
wait(100)
randoms;
until((getcolor(643,97)=15651))
wait(800)
mouse(680,80,0,0,true)
flag;
wait(1000)
end;

procedure script;
begin
SetRun(True);
eatfood;
mouse(650,185,1,1,true)
ropeswing;
walklog;
climbbalance;
climbwall;
trips:=trips+1;
report;
end;

begin
loadinclude('Internet Explorer',true)
ST:=GetSystemTime;
Food:=Getcolor(585,228)
repeat
script;
until(TripLimit=Trips)
Logout;
end.

Also attached!! lol