[Work for RS07] Video Tutorials on How To Script for Simba for ABSOLUTE BEGINNERS!

Recently installed Simba to test out a few scripts. I'm sure this will come in handy if I decide to stick with it. Thanks.

 

Hello World

 

Thanks for the tutorials, will try them out on Simba when I have some time.

 

Learn You Some!

 

bump cool stuff

 

Thanks! I will definitely be watching your videos and learning
Will I be able to write scripts for the new 07scape servers using these videos? Or does it require a different client/program/code?

edit: grammar

 

All of the teachings in these videos are applicable to botting in RS07, given you have the RS07 include installed and use the 07 functions!

 

Thank you for posting this, i'll look more into it when i get home and try to get some bots set up.

 

Hope you have a good time learning to code, it's quite fun and rewarding!
Also check out the OP again, posted a link on how to setup SRL/Simba for botting on 07 if you're interested!

 

yohojo what happened to Scar? why did it go to the graveyard?

I found out about simba in a funny manor, went looking for Scar for OSS, then found Simba instead .. Scar was the first bot program i used in 2004

Thanks for everything you've contributed to the community, your awesome!.

 

SCAR is still around just not as popular as it used to be.
Google freddy1990 to find its site/forums.

Simba was crater because SCAR was closed source and a user name Wizzup along with a lot of the other community believed that program(s) should be open source so he made his own! And SRL is the include used along with it.

Always nice to hear from an old timer, welcome back!
And thank you,

 

that means something.. lol!

 

Hello World

 

I can make a power"blank" easily but how do I add movement?

 

Hopefully I can get some more help!

Code:

program PowerChopper;
//{$DEFINE SMART8}
{$i SRL\SRL.simba}

 Const
  SRLStats_Username = '';// Your SRL Stats Username
  SRLSTats_Password = '';// Your SRL Stats Password
  BreakEvery        = 120; //How many minutes to break after
  Breakfor          = 5; //How long to break for
  Version           = '1.0';
  NumbOfPlayers  = 1; //How many players you are using
  StartPlayer       = 0; //Player to start auting with (0 means first char)

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.
    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);
  If WaitUptext (UpText, 1500+Random(500)) Then
  Begin
    Result:=True;
    GetMousePos (x, y);
    If RClick Then
    Begin
    Mouse (x, y, 0, 0, False);
    Result := WaitOption (Option, 2000);
    If Result then FFlag (0);
    End Else
    Begin
      Mouse (x, y, 0, 0, True);
      Wait (100+Random(50));
      FFlag(0);
    End;
  End;
End;

Procedure Antiban;
Begin
  Case Random(250) of
    0: Begin StatsGuise ('AntiBan') Gametab(tab_Stats) Hoverskill('Woodcut', False) GameTab(28) End;
    1: Begin StatsGuise ('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise ('AntiBan') GameTab (tab_Inv) ExamineInv; GameTab(28) End;
    3: Begin StatsGuise ('Antiban') RandomAngle (1); End;
    4: Begin StatsGuise ('Antiban') GameTab (Tab_Stats); Wait(3000 + Random(500)); GameTab (28); End;
    5: Begin StatsGuise ('Antiban') GameTab(Tab_Stats); HoverSkill ('Random', False); GameTab (28); End;
   End;
End;

Procedure Failsafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  //ProgressReport;
  TerminateScript;
End;

Function Chopdown:Boolean;
Var
 X, Y, PlusOne, Treecounter: Integer;
Begin
  PlusOne:= InvCount + 1;
  If FindObjCustom(X, Y, ['Chop', 'Down', 'p' ,'d'], [3627896, 3166827, 3627896, 1454376, 269596, 2044719 ], 10) Then
 Begin
  StatsGuise('This is the start of something Great!');
  GetMousePos(X, Y);
  Case Random(1) of
    0: Mouse(x, y, 5, 5, True);
    1: Begin
          Mouse(x, y, 5, 5, False);
          WaitOption('Chop', 500);
       End;
    End;

    Repeat
     MarkTime(TreeCounter);
     Antiban;
     Wait(100);
     If InvCount=Plusone Then
      WriteLn('We got one');
     Until (InvCount=Plusone) or (TimeFromMark(TreeCounter) > 7000)
 End;
end;


begin
 SetupSRL;
 DeclarePlayers;
 SetAngle(SRL_ANGLE_LOW);
 //Repeat
  ChopDown
 //Until(False);
end.

My first problem is the

SetAngle(SRL_ANGLE_LOW); It does not put the angle all the way down when I execute the script. I orignally tried using SetAngle(False); But then I get this compiling error

[Error] C:\Simba\Scripts\powerchopper.simba(112:17): Type mismatch at line 111
Compiling failed.

Also when I try to get it to write "We got one" using the WriteLn command nothing gets written.

Another problem is that when

Case Random(1) of
0: Mouse(x, y, 5, 5, True);
1: Begin
Mouse(x, y, 5, 5, False);
WaitOption('Chop', 500);
End;
End;

if It chooses the 1 instead of 0 it does not click Chop Down it just opens up the drop down menu (From when you rightclick in runescape) but dosnt do anything

Code:

Function Chopdown:Boolean;
Var
 X, Y, PlusOne, Treecounter: Integer;
Begin
  PlusOne:= InvCount + 1;
  If FindObjCustom(X, Y, ['Chop', 'Down', 'p' ,'d'], [3627896, 3166827, 3627896, 1454376, 269596, 2044719 ], 10) Then
 Begin
  StatsGuise('This is the start of something Great!');
  GetMousePos(X, Y);
  Case Random(1) of
    0: Mouse(x, y, 5, 5, True);
    1: Begin
          Mouse(x, y, 5, 5, False);
          WaitOption('Chop', 500);
       End;
    End;

    Repeat
     MarkTime(TreeCounter);
     Antiban;
     Wait(100);
     If InvCount=Plusone Then
      WriteLn('We got one');
     Until (InvCount=Plusone) or (TimeFromMark(TreeCounter) > 7000)
 End;
end;  

 

I have dealt with scar back in the day and it has been so long that I have forgotten a lot of things. Thank you Yohojo for this thread a lot of good information! Time to check out this Simba everyone is talking about!

 

Try this one

Code:

program PowerChopper;
{$DEFINE SMART8}
{$i SRL\SRL.simba}

 Const
  SRLStats_Username = '';// Your SRL Stats Username
  SRLSTats_Password = '';// Your SRL Stats Password
  BreakEvery        = 120; //How many minutes to break after
  Breakfor          = 5; //How long to break for
  Version           = '1.0';
  NumbOfPlayers  = 1; //How many players you are using
  StartPlayer       = 0; //Player to start auting with (0 means first char)

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.
    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);
  If WaitUptext (UpText, 1500+Random(500)) Then
  Begin
    Result:=True;
    GetMousePos (x, y);
    If RClick Then
    Begin
    Mouse (x, y, 0, 0, False);
    Result := WaitOption (Option, 2000);
    If Result then FFlag (0);
    End Else
    Begin
      Mouse (x, y, 0, 0, True);
      Wait (100+Random(50));
      FFlag(0);
    End;
  End;
End;

Procedure Antiban;
Begin
  Case Random(250) of
    0: Begin StatsGuise ('AntiBan') Gametab(tab_Stats) Hoverskill('Woodcut', False) GameTab(28) End;
    1: Begin StatsGuise ('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise ('AntiBan') GameTab (tab_Inv) ExamineInv; GameTab(28) End;
    3: Begin StatsGuise ('Antiban') RandomAngle (1); End;
    4: Begin StatsGuise ('Antiban') GameTab (Tab_Stats); Wait(3000 + Random(500)); GameTab (28); End;
    5: Begin StatsGuise ('Antiban') GameTab(Tab_Stats); HoverSkill ('Random', False); GameTab (28); End;
   End;
End;

Procedure Failsafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  //ProgressReport;
  TerminateScript;
End;

Function Chopdown:Boolean;
Var
 X, Y, PlusOne, Treecounter: Integer;
Begin
  PlusOne:= InvCount + 1;
  If FindObjCustom(X, Y, ['Chop', 'Down', 'p' ,'d'], [3627896, 3166827, 3627896, 1454376, 269596, 2044719 ], 10) Then
 Begin
  StatsGuise('This is the start of something Great!');
  GetMousePos(X, Y);
  Case Random(1) of
    0: Mouse(x, y, 5, 5, True);
    1: Begin
          Mouse(x, y, 5, 5, False);
          WaitOption('Chop', 500);
       End;
    End;

    Repeat
     MarkTime(TreeCounter);
     Antiban;
     Wait(100);
     If InvCount=Plusone Then
       begin  //Added begin and end
        WriteLn('We got one');
        Until (InvCount=Plusone) or (TimeFromMark(TreeCounter) > 7000)
       end;
 End;
end;


begin
 SetupSRL;
 DeclarePlayers;
 SetAngle(1); // 1 will set your angle to LOW and 0 to HIGH
 //Repeat
  ChopDown
 //Until(False);
end.

SetAngle(0) //Set your Camera angle High
SetAngle(1) //Set your Camera angle Low

Code:

Function Chopdown:Boolean;
Var
 X, Y, PlusOne, Treecounter: Integer;
Begin
  PlusOne:= InvCount + 1;
  If FindObjCustom(X, Y, ['Chop', 'Down', 'p' ,'d'], [3627896, 3166827, 3627896, 1454376, 269596, 2044719 ], 10) Then
 Begin
  StatsGuise('This is the start of something Great!');
  GetMousePos(X, Y);
  Case Random(1) of
    0: Mouse(x, y, 5, 5, True);
    1: Begin
          Mouse(x, y, 5, 5, False);
          WaitOption('Chop', 500);
       End;
    End;

    Repeat
     MarkTime(TreeCounter);
     Antiban;
     Wait(100);
     If InvCount=Plusone Then
       begin  //Added begin and end
        WriteLn('We got one');
        Until (InvCount=Plusone) or (TimeFromMark(TreeCounter) > 7000)
       end;
 End;
end;  

I just added begin and end; to wrap your writeln statement. Tell me when it works as I don't have the time to test it.

 

Thanks for the Guides(s) I found them extremely useful. You da boss +++

 

Simba, Y U SO COMPLICATED?

 

Going to read (watch) all that today ^^

Thanks for guides