SRL Archive - Help

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.

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!

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

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

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?

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.