Page 3 of 9 FirstFirst 12345 ... LastLast
Results 51 to 75 of 209

Thread: YoHoJo Video Tutorial #2: Making your VERY FIRST script for RUNESCAPE

  1. #51
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Look up MouseItem in the function list on the left side of Simba.
    I think instead of false you need to put 1, 2, or 3 meaning left, right, or no click.
    Forgot which number is what though. I think you can put SRL_MOUSE_RIGHT instead of false maybe, try that.

  2. #52
    Join Date
    Dec 2008
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Look up MouseItem in the function list on the left side of Simba.
    I think instead of false you need to put 1, 2, or 3 meaning left, right, or no click.
    Forgot which number is what though. I think you can put SRL_MOUSE_RIGHT instead of false maybe, try that.
    hmm when I put 1 it does left click but 2 or 3 does nothing (only Hovers over Logs doesnt Click them) and SRL_MOUSE_RIGHT doesn't work either?

    Figured it out sorta but had to add more code put questions in blue
    Simba Code:
    Procedure DropLogs;
    var
      x, y, LogDTM, I: Integer;
      SlotBox:TBox;
      LogPattern:TIntegerArray;

    begin
      LogDTM:= DTMFromString('m1gAAAHic42JgYOBngABmIOYBYgkglgNiSSCWAmJRqBpuIBYGYg4gFoey+YCYC6oXBJiAOMReBcrCj/8zEAcYicQIAACI7gL1');
      LogPattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28];
      For I:=0 To 27 Do
      begin
        SlotBox:=InvBox(LogPattern[I]);
        If FindDTM(LogDTM, x, y, SlotBox.X1,SlotBox.Y1,SlotBox.X2,SlotBox.Y2)Then
         Begin
           {if} MMouseItem(LogPattern[I]) //then??why don't I need?
            begin //since no if then again why do I need a begin?
              Mouse(x,y, 2,2,False);
              ChooseOption('Dro');
            end;
         End;
       end;

    end;
    Last edited by poopy2177; 01-14-2012 at 11:48 PM.
    My Soul Wars Scipt Proggress:[100%....]
    Probably won't release though I like it for myself

  3. #53
    Join Date
    Jan 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bro maybe you should just record the actual simba client, because is hard to see your video even in fullscreen, see what threads is of no importance

  4. #54
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    'see what thread is of no importance'? What?
    Full screen and make quality 1080p and it will be high quality. No one else has had troubles.

  5. #55
    Join Date
    Jan 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    'see what thread is of no importance'? What?
    Full screen and make quality 1080p and it will be high quality. No one else has had troubles.
    It just irritating to full screen your your video to see what code your implementing then to have to exit and compare it to mine then reopen etcetc

    all-in-all thanks for these tutorials helped greatly now i just need to figure out walking and banking.. greatly T.T ha
    Last edited by Mec; 01-16-2012 at 06:12 AM.

  6. #56
    Join Date
    Nov 2011
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    program powerchopper;
    //{$DEFINE SMART}
    {$i SRL/SRL.simba}



    Const
      NumbOfPlayers= 1;
      StartPlayer= 0;
    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'] ;
      With Players[0] do
      begin
        Name := ''; //Character Name
        Pass := ''; //Character Pass
        Active := True; //True if you want this player to be ran in the script, false if not
      End;
    End;
    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    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;
        0: Begin StatsGuise('AntiBan') RandomAngle(1); End;

    Procedure FailSafe (Reason:String);
    begin
      Players[CurrentPlayer].loc:=Reason;
      Logout;
      Stats_Commit;
      ProgressReport;
      TerminateScript;
    End;




    Function ChopDown:Boolean;
    Var
      X, Y: Interger;
    Begin
     If FindObjCustom(X, Y, ['Chop', 'down'], [1583142, 2440257, 2569785, 3821399],30) then
      WriteLn('tree found');
    End;
    begin
    SetupSRL;
    DeclarePlayers;
    Repeat
      ChopDown;
    until(false);

    End.
    [Error] (37:1): Syntax error at line 36
    Compiling failed.
    any ideas? compared it to the vid, and i copyed that line of another script. its rather odd

  7. #57
    Join Date
    Jan 2012
    Location
    Texas
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by jkruges View Post
    Simba Code:
    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;
        0: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    [Error] (37:1): Syntax error at line 36
    Compiling failed.
    any ideas? compared it to the vid, and i copyed that line of another script. its rather odd
    First of all, you cannot have 0 twice. (I'm pretty sure.) Make the second one a '2'.
    Secondly, you need to add another "End;" to "close" the Case loop/method.
    Third, you need some semicolons here and there.
    Should end up looking like this:

    Simba Code:
    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') RandomAngle(1); End;
    End;

  8. #58
    Join Date
    Nov 2011
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Leespiker View Post
    First of all, you cannot have 0 twice. (I'm pretty sure.) Make the second one a '2'.
    Secondly, you need to add another "End;" to "close" the Case loop/method.
    Third, you need some semicolons here and there.
    Should end up looking like this:

    Simba Code:
    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') RandomAngle(1); End;
    End;
    thanks for pointing that out, did not even notice.
    i still get the same error though.

  9. #59
    Join Date
    Nov 2011
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    think i fixed it for you i added lines of text on your errors so you could see were it wrong
    Simba Code:
    program powerchopper;
    //{$DEFINE SMART}
    {$i SRL/SRL.simba}



    Const
      NumbOfPlayers= 1;
      StartPlayer= 0;
    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'] ;
      With Players[0] do
      begin
        Name := ''; //Character Name
        Pass := ''; //Character Pass
        Active := True; //True if you want this player to be ran in the script, false if not
      End;
    End;
    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    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') RandomAngle(1); End;
    End; //you added this one but this one ended case

    End; //this one ends procedure

    Procedure FailSafe(Reason:String);
    begin
      Players[CurrentPlayer].loc:=Reason;
      Logout;
      Stats_Commit;
      //ProgressReport;
      TerminateScript;
    End;




    Function ChopDown:Boolean;
    Var
      X, Y: Integer;//you had interger
    Begin
     If FindObjCustom(X, Y, ['Chop', 'down'], [1583142, 2440257, 2569785, 3821399],30) then
      WriteLn('tree found');
    End;
    begin
    SetupSRL;
    DeclarePlayers;
    Repeat
      ChopDown;
    until(false);

    End.

  10. #60
    Join Date
    Nov 2011
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Ortiz817 View Post
    think i fixed it for you i added lines of text on your errors so you could see were it wrong
    Thank you very much! that worked. ive only ever programed in java before and eclipse helps so much with syntax

  11. #61
    Join Date
    Feb 2008
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i worked out what was wrong, i deleted lines of code until i found the problem. sadly i went from the end to the beginning which is a shame because it was the 4th line

    "{$i SRL\SRL\Misc\Stats\.simba"

    causes "unknown compller directives at 5:3"

  12. #62
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    I think in SRL 5 you no longer need to include stats, so you can remove that entire line completely and it should work.

  13. #63
    Join Date
    Feb 2008
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    now its saying it wants a semi colon on this line

    with Players[0] do

    dunnno where it would work though and you dont have a semi colon in your tutorial

  14. #64
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Quote Originally Posted by Giant Panda View Post
    now its saying it wants a semi colon on this line

    with Players[0] do

    dunnno where it would work though and you dont have a semi colon in your tutorial
    Copy/Paste a few lines above/below it too. Or just copy/paste that entire procedure.

  15. #65
    Join Date
    Feb 2008
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Copy/Paste a few lines above/below it too. Or just copy/paste that entire procedure.
    Simba Code:
    procedure DeclarePlayers;
    var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards := ['XP']

      With Players[0] do
      begin
        Name          := ''; //Username.
        Pass          := ''; //Password.
        Active        := '';
        Integers[1]   := ''; //1=BrightCopper, 2=DarkCopper, 3=Tin, 4=Iron.
        Integers[2]   := ''; //Seconds to try mining a rock before clicking another.
      end;

    end;

  16. #66
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Semicolon after
    * * Players[i].BoxRewards := ['XP']

  17. #67
    Join Date
    Dec 2011
    Location
    Netherlands
    Posts
    140
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    The tutorials are REALLY AWESOME

    but i keep getting this message with any script:

    Exception in Script: Unable to find file 'srl\srl.scar' used from ''
    do i have to update it or something

  18. #68
    Join Date
    Nov 2007
    Posts
    236
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  19. #69
    Join Date
    Feb 2008
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for the help

    ignore this post if you saw it before i worked out the problem
    Last edited by Giant Panda; 01-23-2012 at 01:53 PM.

  20. #70
    Join Date
    Dec 2011
    Location
    Netherlands
    Posts
    140
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
    why doesn't it work?

  21. #71
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    .scar is outdated, this tutorial needs to be updated to use SRL 5.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  22. #72
    Join Date
    Jan 2012
    Location
    Under your bed.
    Posts
    414
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Amazing tutorials did learn abit .

  23. #73
    Join Date
    Dec 2008
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I love your tuts yohojo do you think you could make a video tut on tpa's? that would help me a lot or maybe I just need to spend more time re reading the guides in the advanced section/=
    My Soul Wars Scipt Proggress:[100%....]
    Probably won't release though I like it for myself

  24. #74
    Join Date
    Jul 2009
    Location
    Australia
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by 1skywalker12 View Post
    Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''
    why doesn't it work?
    {$DEFINE SRL5}
    {$DEFINE SMART}

    {$i SRL/srl.simba}
    {$i SPS/sps.simba}

    try using that as your defines, it worked (at least compiled) for me.

    Thank you YoHoJo, for making these, I seriously appreciate it. I was struggling to maintain enough concentration to read all the normal guides and try to learn everything. The hands on way you have done them really helped

  25. #75
    Join Date
    Dec 2011
    Location
    Netherlands
    Posts
    140
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    it works fine now
    thanks a lot

Page 3 of 9 FirstFirst 12345 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •