SRL Archive - OSR Help

Hello, Ive been here for quite awhile now and I havent been exactly able to run any scripts. of course I can make simple left click procedures and have a ok grasp on the concept of the coding. But overall its really getting me into the depression mode, I feel like I can achieve something to help this community. I am sick of being a leecher asking abunch of questions and waiting for a release from a scripter to fix my issues. I would like to know if anyone here is willing to give me live lessons and help me build a simple script that will make my well-rounded. I will pay of course for this, you offer the price and we can come up with a agreement. I have a verified paypal with my "own" bank account linked to.

*Alittle about myself* I am currently attend college for welding and fabrication. My names Elvis, I currently reside in North Dakota. I have a 4 year old daughter. I am pretty interested in scripting, I find it a challenge and fun to be able to put algorithmics together and intercross methods/procedures to form a complete project that everyone will enjoy.

Most impotent - My msn is [email]Elvisbnd@msn.com[/email]

If you go to the tutorial island section there are a lot of good tut's and another great one is YoHoJo's video tut's. That's how I learnt to script and it's a great place to go. You wouldn't need to pay for help here as everyone would be happy to help without payment.

From: Blue90

Most impotent - My msn is

I guess mobile device spell check is being an ass here. Fix please.

There many people around who would do it for free, I personally would but kind of busy with school and a couple projects I got.

I would love to help you, but what is your problem? At which points aren't you able to follow the tutorials?

Well I was using Yohos tut, My codes here

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.

I experience Error] C:\Simba\Includes\\SRL\SRL\Misc\Stats.Simba(15:3): Duplicate identifier 'TStats_Vars' at line 14…. Why?

program Powerminer;

  {$DEFINE SMART}
  {$i SRL/SRL.simba}
  //{$i SRL/Misc/Stats.simba}

  Const
  SERVER = 61;
  MEMBERS = False;
  SRLStats_Username = '';
  SRLStats_Password = '';
  NumbOfPlayers=1;  //THIS WAS 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;
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;
end;

Procedure Antiban;
Begin
  Case Random(192) Of
    0: HoverSkill('Mining', True);
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: ExamineInv();  //THIS HAD AN INVALID PARAMETER (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; //THIS DOESN'T EXIST ANYWHERE IN THE CODE
  TerminateScript;
end;

procedure MineOre;
var
x, y: Integer; // x, y variables weren't declared as integers
Begin
///FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
if FindObjCustom(x,y,['Mine'],['1651770','1915713','1453105','1523785'],30) Then   //THIS WAS BROKE
 Begin
    GetMousePos(x, y);

    Case Random(2) Of
      0: Mouse(x, y, 2, 2, True);
      1: Begin
          Mouse(x, y, 2, 2, False);
          WaitOption('Mine'', 500);
         End;
    End
  End;
Writeln('Yay')
end;

//MainLoop
begin
  SetupSRL;
  DeclarePlayers;
  Repeat
    MineOre;
  Until(false);
end.

Since i dont want to make new thread, let me borrow urs and post here please :)

I need the same help on scripting. I have just started read some of variables and procedures.

If you have time any day in this week expect today, sent me pm :)

From: Xenophis
Since i dont want to make new thread, let me borrow urs and post here please :)

I need the same help on scripting. I have just started read some of variables and procedures.

If you have time any day in this week expect today, sent me pm :)

Hey, try clicking on and reading the tutorial in my signature ;)

Brotha, we dont take bribes here, There are a bunch of tutorials here and alot of the time when your stuck on something, a simple post gets you alot of help. I'm releasing my first public script today based on reading tutorials. Also, If you look on the left hand side of simba, Almost all functions are listed in the categories. You can drag and drop functions into your script and mess around with them. Have a go at it. Take a look through Tutorial Island. It can be alot of help and if you still need help, you can PM me. =)

As the others have said, there are plenty of well written tutorials here, BUT.. If you do need a little more hands-on help, I'm sure someone here would be willing to help you.

*cough cough* xXTrollXx *cough cough*


The code: (before)

program Powerminer;

  {$DEFINE SMART}
  {$i SRL/SRL.simba}
  //{$i SRL/Misc/Stats.simba}

  Const
  SERVER = 61;
  MEMBERS = False;
  SRLStats_Username = '';
  SRLStats_Password = '';
  NumbOfPlayers=1;  //THIS WAS 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;
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;
end;

Procedure Antiban;
Begin
  Case Random(192) Of
    0: HoverSkill('Mining', True);
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: ExamineInv();  //THIS HAD AN INVALID PARAMETER (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; //THIS DOESN'T EXIST ANYWHERE IN THE CODE
  TerminateScript;
end;

procedure MineOre;
var
x, y: Integer; // x, y variables weren't declared as integers
Begin
///FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
if FindObjCustom(x,y,['Mine'],['1651770','1915713','1453105','1523785'],30) Then   //THIS WAS BROKE
 Begin
    GetMousePos(x, y);

    Case Random(2) Of
      0: Mouse(x, y, 2, 2, True);
      1: Begin
          Mouse(x, y, 2, 2, False);
          WaitOption('Mine', 500);  //This had a thingy misplaced.. there was an extra " ' " (Apostrophe).
         End;
    End
  End;
Writeln('Yay')
end;

//MainLoop
begin
  SetupSRL;
  DeclarePlayers;
  Repeat
    MineOre;
  Until(false);
end.