Help if you can please

[Blue90]

program Powerminer;

//{$DEFINE SMART}
{$i \SRL\SRL.Simba}
{$i \SRL\SRL\Misc\Stats.Simba}

Const
SERVER = 61;
MEMBERS = False;
SRLStats_Username = '';
SRLStats_Password = '';
NumberOfPlayers=1';
StartPlayer = 0; //Start what number in the category
LoadsTotal = 9999;
AntiBDrop= True;
DropGems= True;
SleepyWeepie= 7;
YDebug= False;
BreakEvery = 120;
BreakFor = 3;

Version= '0.01';

Procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
Integers[1] := 4; //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
Integers[2] := 4; //Seconds to try mining rock before clicking another.
end;


Procedure StatsGuise (wat:String);
begin
Status(wat);
Disguise(wat);
end;

Function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean):Boolean;
Begin
MMouse(x, y, 5, 5);
{Wait(100 + Random(50));
If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
If WaitUpTextMulti(['Mine','ine'], 150) Then
Begin
Result:=True;
GetMousePos(x, y);
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;

Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Mining', True);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv('False');
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(1500 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;

Procedure Failsafe (Reason:String);
begin (CurrentPlayer).Log:Reason;
Logout;
Stats_Commit;
ProgressReport;
TerminateScript;
end;

Function MineOre;
Begin
///FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
if FindObjCustom(xaxis,yaxis,['Mine Rocks','Mine'],('1651770','1915713','1453105','1523785'],30') Then
Writeln('Yay')
end;

begin
SetupSRL;
DeclarePlayers;
Repeat
MineOre;
Until(false);

end. Have no clue why its not compling...

Getting this error [Error] C:\Simba\Includes\\SRL\SRL\Misc\Stats.Simba(15:3): Duplicate identifier 'TStats_Vars' at line 14
Compiling failed.

[x[Warrior]x3500]

u use duplicate variables. u dont even declare the correct variables in your constant. and get rid of stats, no need until u actually have a working script.

look over a tutorial before you try and do this.

and get ur password out of the script!

[masterBB]

If you don't react in 5 minutes I will change your password and send you the new one.

[Sin]

You don't need stats.simba anymore, it's in the Core.

[Blue90]

I have been reading the tut. This ones actually off of a mod here (YoHoJo). What do you mean. Do you have any suggestions on what tut would be best for me atm?

[x[Warrior]x3500]

well i said read a tutorial because i felt like you just copied and pasted stuff. why? because your major mess ups are on variables. and variables are like, super beginner level that you can easily learn from our beginner tutorials here.