this is my error [Error] C:\Simba\Scripts\newminer.simba(112:10): Duplicate identifier 'MINE' at line 111
Compiling failed
This is the script I have so far
Simba Code:
program new;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I SRL/SRL/Misc/SmartGraphics.Simba}
Const
//Credits to YoHoJo for an understandable tutorial video, and Solidone4 for the antiban
SRLStats_Username = '';// Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
LoadsTotal = 9999; //
PaintEvery = 5; //Update leve paint every this many seconds
Version = '1.00'; //
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
for i := 0 to 1-1 do
Players[i].BoxRewards := ['Mining'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
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;
End;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 5) Then
Begin
Result:=True;
GetMousePos(x, y);
End;
End;
Procedure DebugXP;
Var
Sec,XPRate:integer;
Begin
Sec := (GetTimeRunning / 1000);
XPRate :=((3600)/(Sec));
StatsGuise(GroupDigits(XPRate, ',') + ' xp/h');
End;
Procedure Antiban;
Begin
Case Random(20000) Of
0:
Begin
HoverSkill('Mining', False);
GameTab(Tab_Inv);
End;
1:
Begin
PickUpMouse;
SleepAndMoveMouse(3000 + Random(500));
PickUpMouse;
End;
2: ExamineInv;
3:
Begin
RandomAngle(SRL_ANGLE_HIGH);
SetAngle(SRL_ANGLE_HIGH);
End;
4:
Begin
GameTab(Tab_Stats);
Wait(3000 + Random(500));
GameTab(Tab_Inv);
End;
5:
Begin
HoverSkill('random', False);
GameTab(Tab_Inv);
End;
End;
End;
Procedure FailSafe(Reason:String);
Begin
Players [CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
ProgressReport;
TerminateScript;
End;
Function Mine:Boolean;
Var
Begin
x,y: Integer;
Begin
If FindObjCustom(x, y ['Mine', 'Coal', 'rocks', 'e l s'], [2039840,7437940,2961199,2763820,789773,2237219,1776925,2039840,2040354,1250324,1052945,3027506,2039840], 15);
StatsGuise('We Found The Rock')
Begin
GetMousePos (x,y);
Case Random(1) of
0: Mouse (x,y);
1: WaitOption ('Mine', 200);
end;
end;
end;
end;
Begin
SetupSRL;
DeclarePlayers'
//Repeat;
//Until(False);
End;
End;
End;
End