Page 6 of 9 FirstFirst ... 45678 ... LastLast
Results 126 to 150 of 209

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

  1. #126
    Join Date
    May 2008
    Location
    the world 0_o
    Posts
    150
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by joeygupta View Post
    Hey YoHoJo, This Tut, has inspired me to make my own RuneScape Script.
    Could you answer some questions please?
    When using a DTM on a MiniMap, would it go like this:
    if FindDtm(BankDtm,x,y) //Where BankDtm is my dtm, and x,y are the co ordinates
    This is probably wrong. Can you give some advice?
    joeygupta use this.

    Simba Code:
    FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/30, aFound)

    //x,y are for the coor its going to fetch
    //MMX1,MMY1,MMX2,MMY2 is the area its going to look for your DTM (MMX1,MMY1 top right of box. MMX2,MMY2 bottom left of box)
    //-Pi/4, Pi/4, This searches in a circle going clockwise. -Pi/4 is where its going to start seaching and Pi/4, is where its going to end google a unit circle for more info
    //Pi/30 the increments it is going to search by. the bigger the slower but higher chance of finding it
    //aFound = angle where it found x,y

  2. #127
    Join Date
    Mar 2012
    Location
    Tulsa, Oklahoma
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey YoHoJo, the videos are very helpful! Just went through the first two tutorials and learned alot! I was wondering if you ever found out what was wrong with the failsafe at the end of your second video and if you could help me out on getting that to work! Keep up the good work, it really does help tremendously for absolute beginner scripters like myself.

  3. #128
    Join Date
    Dec 2011
    Location
    Nj
    Posts
    2,341
    Mentioned
    1 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by Paradoxium View Post
    joeygupta use this.

    Simba Code:
    FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/30, aFound)

    //x,y are for the coor its going to fetch
    //MMX1,MMY1,MMX2,MMY2 is the area its going to look for your DTM (MMX1,MMY1 top right of box. MMX2,MMY2 bottom left of box)
    //-Pi/4, Pi/4, This searches in a circle going clockwise. -Pi/4 is where its going to start seaching and Pi/4, is where its going to end google a unit circle for more info
    //Pi/30 the increments it is going to search by. the bigger the slower but higher chance of finding it
    //aFound = angle where it found x,y
    Thanks yo, was waiting for a reply, needed to get back to scripting. Saver!
    If you ever need anything, just ask!

    For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip

  4. #129
    Join Date
    Dec 2011
    Location
    Nj
    Posts
    2,341
    Mentioned
    1 Post(s)
    Quoted
    18 Post(s)

    Default

    How would you make it search for the object circling around your player, instead of going 1,1 to x,y ?

    For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip

  5. #130
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey can you give me a hand with my script, Im on your 2nd tutorial pt. 2, about 1\4th of the way into it. When Im trying to compile my script it says: [Error] (1:1): Unexpected end of file at line 0
    Compiling failed.


    Im not sure what to do from here.
    Here where Im at with the script:

    Program PowerChopper;


    //{$DEFINE SMART}
    {$i SRL\SRL.simba}




    Const
    SRLSTATS_USERNAME = ''; // SRL Stats Username.
    SRLSTATS_PASSWORD = ''; // SRL Stats Password.
    BreakEvery= 120; // How many minutes to break after.
    BreakFor= '5'; // How long to break for.
    NumbOfPlayers= 1; // How many players are you using?
    StartPlayer= 0; // Player to start autoing with.
    Version= '1.0'; // NO TOUCHY!

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
    Name := ''; // Player Username
    Pass := ''; // Player Password
    Pin := ''; //Pin for bank
    Active := true;
    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('Woodcutting', 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;
    //FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 2;
    x:=MSCY;
    y:=MSCY;
    If FindObjTPA(x, y, 3426909, 5, 1, 15, 60, 450, ['Chop']) Then
    Begin
    WriteLn('FK yea Ive found a tree, ima cut yu down!');
    GetMousePos(x, y);
    Case Random(2) 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(250);
    If InvCount=PlusOne Then;
    Writeln('Muwahahaha!');
    Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 7000);

    End;














    begin

    SetupSRL;
    DeclarePlayers;
    Repeat
    ChopDown;
    Until(False);
    end;



    Any Ideas?

    Yea Im definetly doing something wrong lol, I tried making my own simple script for big barn world (lol), And its doing the same thing, At first when i compiled it, it failed because I forgot a couple semicolins, then after I fixed them I try compiling it again and it said the same thing. Anybody's help would be Highly appreciated.
    Last edited by jkrules22; 03-18-2012 at 04:53 PM.

  6. #131
    Join Date
    Mar 2012
    Location
    Massachusetts
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very helpful! I'm going to get into coding, now. Hope it doesn't take too long to learn.

  7. #132
    Join Date
    Apr 2008
    Location
    Minnesota, USA
    Posts
    279
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the tutorials, I appreciate you taking the time to teach us..I somewhat know everything from the first video but it helps me become more fluent in writing which allows me to go onto more complex stuff, once again ty!
    Currently Working on: Runite Miner W/ World Hop (Fally) 80% complete

    Next: Advanced Gnome Agility Course!

  8. #133
    Join Date
    Mar 2012
    Location
    Australia
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks YoHoJo.

    I'm not very keen on making my own scripts quite yet but I'm adjusting the scripts I use to better suit my needs as my way of learning. Once I've got more experience I'll start working on my own scripts.

    Keep up the good work!

  9. #134
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Type Mismatch On "MouseItem(LogPattern(I),False*);"

    Also Great tutorial, helped out alot, I used yours and I think Grotts? I don't know his name, it's a beginner script thing though, But yeah, somebody said change false to 2 but that does not help, Also I think I had something wrong above this and it was only hovering over every log, I fixed it and now this.

    Help?

  10. #135
    Join Date
    Feb 2012
    Posts
    390
    Mentioned
    2 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by jkrules22 View Post
    Hey can you give me a hand with my script, Im on your 2nd tutorial pt. 2, about 1\4th of the way into it. When Im trying to compile my script it says: [Error] (1:1): Unexpected end of file at line 0
    Compiling failed.


    Im not sure what to do from here.
    Here where Im at with the script:

    Program PowerChopper;


    //{$DEFINE SMART}
    {$i SRL\SRL.simba}




    Const
    SRLSTATS_USERNAME = ''; // SRL Stats Username.
    SRLSTATS_PASSWORD = ''; // SRL Stats Password.
    BreakEvery= 120; // How many minutes to break after.
    BreakFor= '5'; // How long to break for.
    NumbOfPlayers= 1; // How many players are you using?
    StartPlayer= 0; // Player to start autoing with.
    Version= '1.0'; // NO TOUCHY!

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
    Name := ''; // Player Username
    Pass := ''; // Player Password
    Pin := ''; //Pin for bank
    Active := true;
    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('Woodcutting', 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;
    //FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 2;
    x:=MSCY;
    y:=MSCY;
    If FindObjTPA(x, y, 3426909, 5, 1, 15, 60, 450, ['Chop']) Then
    Begin
    WriteLn('FK yea Ive found a tree, ima cut yu down!');
    GetMousePos(x, y);
    Case Random(2) 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(250);
    If InvCount=PlusOne Then;
    Writeln('Muwahahaha!');
    Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 7000);

    End;














    begin

    SetupSRL;
    DeclarePlayers;
    Repeat
    ChopDown;
    Until(False);
    end;



    Any Ideas?

    Yea Im definetly doing something wrong lol, I tried making my own simple script for big barn world (lol), And its doing the same thing, At first when i compiled it, it failed because I forgot a couple semicolins, then after I fixed them I try compiling it again and it said the same thing. Anybody's help would be Highly appreciated.
    At the end of your script insteal of
    Code:
    end;
    make it
    Code:
    end.

  11. #136
    Join Date
    Mar 2012
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awesome tutorial. Can't wait to start making my own scripts. >

  12. #137
    Join Date
    Mar 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have absolutely no knowledge of scripting (obviously) just joined, but im looking forward to learning, and coming a helpful person in this community, while im scripting will i ever need to download any other secondary programs, or is it simply just simba.

  13. #138
    Join Date
    Oct 2008
    Location
    Hawaii
    Posts
    228
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by historyles View Post
    I have absolutely no knowledge of scripting (obviously) just joined, but im looking forward to learning, and coming a helpful person in this community, while im scripting will i ever need to download any other secondary programs, or is it simply just simba.
    Almost everything is done in SIMBA. Some other programs could be ACA, which is the Auto Color Aid program created by Nielsie

  14. #139
    Join Date
    Feb 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I tried to follow these tutorials, but it's the first time I try something (LOL). Anyways. I get this strange error:
    [Error] (21:20): Unknown identifier 'StartPlayer' at line 20
    Although, StartPlayer is normal used as like in every script?
    Please help me out, thanks (:

  15. #140
    Join Date
    Oct 2007
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Would you mind putting up the code from the videos. The videos are on full screen and I literally can't see the code lol

    I don't want to read through lots of written tutorials. Videos are way better.

    Need to get some bots working for RS coz I don't want to play it by hand any more I don't have the time.

    If only nexus still worked ...

  16. #141
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default

    Quote Originally Posted by wanna b auto View Post
    Would you mind putting up the code from the videos. The videos are on full screen and I literally can't see the code lol

    I don't want to read through lots of written tutorials. Videos are way better.

    Need to get some bots working for RS coz I don't want to play it by hand any more I don't have the time.

    If only nexus still worked ...
    Change your screen resolution to the correct settings.

  17. #142
    Join Date
    Mar 2012
    Location
    Mightyville
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hello, i just completed the part 1 video and all seems to go smoothly and im getting it but i keep getting the compiling error hopefully someone can help me out

    [Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
    [Error] (90:85): Syntax error at line 89
    Compiling failed.

    line 89 is

    If FindObjCustom(SeX, SeY, ['hop', 'own'], [1318686, 1450785, 923159, 924954], 20,) Then


    This is the entire code i've done so far

    Simba Code:
    program PowerChopper;
    //{$DEFINE SMART}
    {$i srl/srl.simba}


    {$IFDEF SMART}
        {$i srl/srl/misc/paintsmart.simba}
    {$ENDIF}

    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';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      with Players[0] do
      begin
        Players[0].Name := ''; // Username
        Players[0].Pass := ''; // Password
        Players[0].Nick := ''; // 3-4 lowercase letters from username;
        Players[0].Active := True; // Set to true if you want to use Player 0
        Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
      end;
    end;
    // AntiBan
    procedure Antiban;
    begin
      if(not(LoggedIn))then Exit;
      begin
        case Random(100) of
          10: RandomRClick;
          30: PickUpMouse;
          50: RandomMovement;
          70: BoredHuman;
          89: ExamineInv;
        end;
      end;
    end;
    // Failsafe
    Procedure FailSafe(Reason:String);
    begin
      Players[CurrentPlayer].Loc := Reason;
      Logout;
      Stats_Commit;
      //ProgressReport;
      TerminateScript;
    End;

    Procedure StatsGuide(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;

    // Chop Tree's
    Function ChopDown:Boolean;
    Var
      seX, seY, PlusOne, TreeCounter: Integer;
    begin
      PlusOne := InvCount + 1;//thats a plus it just fucked up for some reason
      If FindObjCustom(SeX, SeY, ['hop', 'own'], [1318686, 1450785, 923159, 924954], 20,) Then
       begin
       GetMousePos(Sex, Sey);

       Case Random(2) of
        0: Mouse(SeX, SeY, 5, 5, True);
        1: begin
            Mouse(SeX, SeY, 5, 5, False);
            WaitOption('hop', 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;















    procedure MainLoop;
    begin
    end;

    begin
      SetupSRL
      ClearDebug
      DeclarePlayers
      LoginPlayer
      MainLoop
      SetAngle(False);
      Repeat
        ChopDown;
      Until(false);
    end.

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

    Default

    Extra comah after the 20/before the closing parenthesis.

  19. #144
    Join Date
    Mar 2012
    Location
    Indiana
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Great tutorial man very helpful! (it's not that much different from java thankfully!)
    lukas76 here cooking up another evil plan!

  20. #145
    Join Date
    Mar 2012
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Hey man love your tutorials, would it be possible for you to release the script you made while making the videos? I just wanted to compare it to mine because it's hard to compare anything from your video to my screen because I have to have it on full screen.

    Hopefully you'll make some more tutorials soon, can't wait.

  21. #146
    Join Date
    Dec 2009
    Posts
    380
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    I could use some help

    Simba Code:
    program PowerChopper;

    //{$DEFINE SMART}
    {$i SRL\SRL.simba}
    {$i SRL\SRL\Misc\Debug.simba}

    Const
      SRLStats_Username = '';
      SRLStats_Password = '';
      BreakEvery        = 120;
      BreaFor           = 50;
      Verson            = '1.0';

     Procedure DeclarePlayers;
      begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
        with Players[0] do
        begin
          Name         := '';
          Pass         := '';
          BoxRewards   := ['XP','xp','lamp'];
          LampSkill    := Skill_Woodcutting;
          Active       := True;
        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, 5000) Then
      Begin
        Result:=True;
        GetMousePos(x, y);
        If RClick Then
        Begin
          Mouse(X, Y, 0, 0, False);
          Result:= WaitOption(Option, 5000);
          If Result Then FFlag(0);
        End Else
        Begin
          Mouse(x, y, 0, 0, True);
          Wait(100+Random(100));
          FFlag(0);
        End;
      End;
    End;

    Procedure Antiban;
    Begin
      Case Random(250) of
        0: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(29) 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
      aX, aY, PlusOne, TreeCounter: Integer;
    Begin
      PlusOne:= InvCount + 1;
      If FindObjCustom(aX, aY, ['Chop', 'down', 'p d'], [1384483, 1582376], 8) Then
      Writeln('Tree found, chopping it down');
      Wait(500);
      Begin
        StatsGuise('Tree found, chopping it down');
        GetMousePos(aX, aY);
        Case Random(2) Of
          0: Mouse(aX, aY, 5, 5, True);
          1: Begin
               Mouse(aX, aY, 5, 5, False);
               Wait(500+Random(100));
               ChooseOption('Chop');
             End;
        End;

        Repeat
          MarkTime(TreeCounter);
          Antiban;
          Wait(500);
          If InvCount=PlusOne Then
            Writeln('Chopped down, searching for another tree.');
        Until (InvCount=PlusOne) or (TimeFromMark(TreeCounter) > 7000)
      End;
    End;

    begin
      SetupSRL;
      DeclarePlayers;
      Repeat
        ChopDown;
      Until(false);
    end.

    ^That's what I've made so far. It compiles just fine. But every time it goes to cut the trees I get this error message:

    Code:
    [Hint] (80:10): Variable 'Result' never used at line 79
    Compiled successfully in 593 ms.
    SRL Compiled in 0 msec
    Tree found, chopping it down
    Exception: Range check error at line 286
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
    When it left clicks it'll begin cutting the tree, and then this error appear. When it right clicks I will get the error message before it can select to 'Chop down'.


    EDIT: Went back a few pages, saw that others were having the same problem as well. Although the only answer I could find was:


    Quote Originally Posted by Mr. Freeweed View Post

    These are in the srl5 antirandoms. Most likely you stopped the scripted before they were freed.

    GoodLuck
    But I never stopped the script so I'm a little lost.

    EDIT 2: Been playing around with it for the past two weeks and STILL can't get anything to work. It just gives me the same error.
    Last edited by Roflme; 05-06-2012 at 05:52 PM.

  22. #147
    Join Date
    Jun 2006
    Location
    Australia
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    edit: its ok i figured it out just some wrong wording and my dtm for the logs was up s**t creek thanks great tut enjoying learning for once
    Last edited by benny999; 05-01-2012 at 05:35 AM.

  23. #148
    Join Date
    May 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awesome videos, you're helping yourself by helping me learn to make a script for you

    JK, thanks a lot!

  24. #149
    Join Date
    Oct 2011
    Posts
    438
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    nevermind.. fixed it. i feel stupid aha. thanks great tut so far.
    Last edited by pulse0; 05-05-2012 at 09:49 AM.

  25. #150
    Join Date
    Dec 2009
    Posts
    380
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Simba Code:
    Program PowerChopper;

    //{$DEFINE SMART}
    {$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          = 20; //How Long To Break For
      Version           = '1.0';


    procedure DeclarePlayer;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := ''; //Your Runescape username
      Players[0].Pass := ''; //Your Runescape password
      Players[0].Active := True;
    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, 5000);
          If Result Then FFlag(0);
        End Else
        Begin
          Mouse(x, y, 0, 0, True);
          Wait(100+Random(100));
          FFlag(0);
        End;
      End;
    End;

    Procedure Antiban;
    Begin
      Case Random(250) Of
        0: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
        1: Begin StatsGuise('AntiBan') RandomAngle(1); End;
        2: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False); GameTab(tab_Inv); End;
        3: Begin StatsGuise('AntiBan') GameTab(tab_Stats); Wait(3000+Random(500)); GameTab(tab_Inv); End;
      End;
    End;

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

    Function ChopDown:Boolean;
    Var
      seX, seY: Integer;
    Begin
      if FindObjCustom(seX, seY, ['Chop', 'Down'], [1056282, 1582114], 5) Then
      begin
        StatsGuise('Hooray, we found a tree');

        GetMousePos(seX, seY);
        Case Random(2) Of
          0: Mouse(seX, seY, 5, 5, True);
          1: Begin
               Mouse(seX, seY, 5, 5, False);
               WaitOption('Chop', 500);
              End;
        End;

      End;
    End;
    begin
      SetupSRL;
      DeclarePlayer;
      //repeat
        ChopDown;
      //until(false);
    end.

    Code:
    New window: 14288022
    [Hint] (71:10): Variable 'Result' never used at line 70
    Compiled successfully in 578 ms.
    SRL Compiled in 0 msec
    Exception: Range check error at line 840
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
    Been trying to fix it for two weeks and I'm still as lost as I was at the beginning. I tried searching around the forums but I found nothing.

    I scripted until around 30:40 of part 1, when you are trying to display the randomness of the left and right clicking.
    Last edited by Roflme; 05-07-2012 at 06:09 PM.

Page 6 of 9 FirstFirst ... 45678 ... 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
  •