Page 4 of 9 FirstFirst ... 23456 ... LastLast
Results 76 to 100 of 209

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

  1. #76
    Join Date
    Dec 2011
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    IDK what I'm doing Here is the script I have so far. I am at about 19 mins in your vid and I'm so confused.
    program PowerChopper;

    {$DEFINE SMART}
    {$i include SRL\SRL.simba}
    {$i Include SRL\SRL\Misc\Stats.simba}


    Const
    SRLStats_Username = ''; // Your SRL Stats Username
    SRLStats_Password = ''; // Your SRL Stats Password
    BreakEvery= 120;
    Breakfor= 5;
    Version= '1.0Beta'; //NO TOUCHY!










    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(X,Y:Integer):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;

    Function ChopDown;
    Var
    Sex, SeY: Integer;
    Begin
    If FindObjCustom(Sex, Sey, ["Chop:, "down"], [2107946, 1252376, 1976102], 30) Then
    WriteLn ('Hooray');






    Procedure Antiban;
    Begin
    Case Random(192) Of
    0: HoverSkill('Mining', False);
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: ExamineInv;
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
    End;
    End;

    Begin
    SetupSRL;
    DeclarePlayers;
    Repeat;
    ChopDown;
    Until (false)

    End

    I'm getting Exception in Script: Unable to find file 'include SRL\SRL.simba' used from ''

    Could you show me what I'm doing wrong

    I'm sorry and thank you if you can!

  2. #77
    Join Date
    Jan 2012
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    For when u add SetAngle(True); i get error saying

    [Hint] (68:10): Variable 'Result' never used at line 67
    [Error] (93:17): Type mismatch at line 92
    Compiling failed.

    line 67 says Function HoverMining:Boolean;

    please help

  3. #78
    Join Date
    Dec 2011
    Location
    Alturas, Ca
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont know what i am doing wrong but when it comes to the part about finding the findodj in the function box i doesnt show up and turns the text box orange.

    help i dont know what i am doing wrong

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

    Default

    Copy/Paste the error, it will be in the box at the bottom of simba.

  5. #80
    Join Date
    Dec 2011
    Location
    Alturas, Ca
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    there is no error. when i try and search for findobj in the function list tab it doesnt find anything

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

    Default

    Make sure your includes at top look like this:
    {$DEFINE SMART}
    {$i SRL\SRL.simba}

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

    if you don't want to use SMART

  7. #82
    Join Date
    Dec 2011
    Location
    Alturas, Ca
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ah i fixed it thank you a accidentally typed
    {$i SRL\SRL\.simba}
    but i fixed it and took out the hyphen next to .simba and it works now

    thank you

  8. #83
    Join Date
    Jan 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you very much for the tutorial, ill be attempting my first script here shortly. may take awhile though, going for agility first time up :P

  9. #84
    Join Date
    Nov 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Supertrent1 View Post
    IDK what I'm doing Here is the script I have so far. I am at about 19 mins in your vid and I'm so confused.
    program PowerChopper;

    {$DEFINE SMART}
    {$i include SRL\SRL.simba}
    {$i Include SRL\SRL\Misc\Stats.simba}


    Const
    SRLStats_Username = ''; // Your SRL Stats Username
    SRLStats_Password = ''; // Your SRL Stats Password
    BreakEvery= 120;
    Breakfor= 5;
    Version= '1.0Beta'; //NO TOUCHY!










    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(X,Y:Integer):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;

    Function ChopDown;
    Var
    Sex, SeY: Integer;
    Begin
    If FindObjCustom(Sex, Sey, ["Chop:, "down"], [2107946, 1252376, 1976102], 30) Then
    WriteLn ('Hooray');






    Procedure Antiban;
    Begin
    Case Random(192) Of
    0: HoverSkill('Mining', False);
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: ExamineInv;
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
    End;
    End;

    Begin
    SetupSRL;
    DeclarePlayers;
    Repeat;
    ChopDown;
    Until (false)

    End

    I'm getting Exception in Script: Unable to find file 'include SRL\SRL.simba' used from ''

    Could you show me what I'm doing wrong

    I'm sorry and thank you if you can!
    Do you have srl and simba up to date?

  10. #85
    Join Date
    Jan 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey ok so for {$i SRL\SRL\Misc\Stats.simba} i get this
    Exception in Script: Unable to find file 'SRL\SRL\Misc\Stats.simba' used from ''

    any ideas what im missing?

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

    Default

    Quote Originally Posted by Addyo View Post
    hey ok so for {$i SRL\SRL\Misc\Stats.simba} i get this
    Exception in Script: Unable to find file 'SRL\SRL\Misc\Stats.simba' used from ''

    any ideas what im missing?
    Don't need that line anymore since SRL5

  12. #87
    Join Date
    Jan 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Fixed old issue... nonw i get this -.-


    Function CheckAndClick(UpText:String; X,Y:Integer; Stronger:Boolean):Boolean
    Begin <----Problem "[Error] (48:1): Semicolon (';') expected at line 47"
    Compiling failed.
    MMouse(x, y, 5, 5);
    If WaitUptext(upText, 1500+Random(500))
    Begin
    Resault:=True;
    GetMousePos(x, y);
    If RClick Then
    Begin
    Mouse(x, y, 0, 0, False);
    Resault:=WaitOption(Option, 2000);
    If Resault then FFlag(0);
    End Else
    Begin
    Mouse(x, y, 0, 0, True);
    Wait(100+Random(50));
    FFlag(0);
    End;
    End;
    End;



    then i put a simocolon behind begin and it says the same thing...Soooo frustrating
    Last edited by Addyo; 02-01-2012 at 10:38 PM. Reason: fixed

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

    Default

    Simba Code:
    Function CheckAndClick(UpText:String; X,Y:Integer; Stronger:Boolean):Boolean;
    Begin <----Problem "[Error] (48:1): Semicolon (';') expected at line 47"
    Compiling failed.
    MMouse(x, y, 5, 5);
    If WaitUptext(upText, 1500+Random(500))
    Begin
    Resault:=True;
    GetMousePos(x, y);
    If RClick Then
    Begin
    Mouse(x, y, 0, 0, False);
    Resault:=WaitOption(Option, 2000);
    If Resault then FFlag(0);
    End Else
    Begin
    Mouse(x, y, 0, 0, True);
    Wait(100+Random(50));
    FFlag(0);
    End;
    End;
    End;

    Need a ; after Boolean, use code up there ^

  14. #89
    Join Date
    Nov 2011
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    would i need to make a new function to take the hunter trap or can i leave it like this
    Simba Code:
    If FindObjCustom(x, y, ['set', 'Trap', 'set-trap'], [2304302, 2435889], 1) Then
      GetMousePos(x, y);
      Mouse(x, y, 1, 1, False);
      wait(100)
      WaitOptionmulti(['Set', 'trap'], 500);

       If FindObjCustom(a, b, ['Take', 'Net'], [2304302, 2435889], 1) Then
      GetMousePos(a, b);
      Mouse(a, b, 1, 1, True);
      Wait(100)
      WaitOptionmulti(['Take', 'Net'], 100);
      Repeat
      Trap;
      Until(false)
    end;

  15. #90
    Join Date
    Jan 2012
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks this video helped so much!

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

    Default

    i keep getting this now

    [Error] C:\Simba\Includes\SRL/SRL/core/login.simba(325:16): Unknown identifier 'Result' at line 324
    Compiling failed.

    can anyone help me

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

    Default

    never mind i tried reinstalling and everthing works fine now

  18. #93
    Join Date
    Jan 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have just watched part 1, and it looks really promising, and i can surely promise you, that i have learned more about Simba than, reading tutorials, so i really thank you!

    Bbl, to comment on part 2.

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

    Default

    [Error] (98:4): Identifier expected at line 97

    And that line is

    Until (InvCount = PlusOne)

    Even from PMS i copied that still didnt work :O

  20. #95
    Join Date
    Dec 2011
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dunno what the problem is but my script just wont recognize its inv is full and wont start dropping logs, the findobj will hopefully turn into picking up nests

    i also get this;
    [Hint] (175:10): Variable 'Result' never used at line 174

    Simba Code:
    program Firstwillow;

    //{$DEFINE SMART}
    {$DEFINE SRL5}                                           //
    {$i srl/srl.simba}
    {$i SPS/sps.simba}

    const
     SERVER  = 0;     // Enter "0" to pick a random server.
     MEMBERS = True; // Set to True if using a RS-Members account. False if F2P.
     SRLStats_Username = ''; // Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     NumbOfPlayers= 1;     //How many players are you using
     StartPlayer=   0;     //Player to start auoting with! (0 means first char)
     LoadsPerLogin= 15;     //How Many Loads To Do Per Login!
     LoadsTotal=    9999;  //How Many Total Lods To Do Per Character!
     AntiBDrop=     True;  //False for faster dropping. True for antiban dropping.
     Sleepyweepy=   3;     //Minutes to wait before logging in again.0 = Disabled.
     YDebug=        True;  //Shows whats happening on the runescape screen in a
                           //debug window, so you dont have to open/close SMART.


    var
      TooLong:Integer;

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


    Procedure Antiban;
    Begin
      Case Random(192) Of
        0: HoverSkill('woodcut', False);
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: ExamineInv;
        3: RandomAngle(1);
        4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
        5: HoverSkill('random', True);
      End;
    End;

    Procedure FailSafe(Reson:String);
    Begin
     Players[CurrentPlayer].Loc:=Reson;
     Logout;
     Stats_Commit;
     //progressreport;
     Writeln(Reson);
     TerminateScript;
    End;
    Function IvyColour: Integer;
    Var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    Begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.50, 0.40);

      if not (FindColorsTolerance(arP, 2700598, MSX1, MSY1, MSX2, MSY2, 3)) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;


    //function FindObject(var fx, fy: Integer): Boolean;
    //var
      //: TPointArray;
    //  ararP: T2DPointArray;
    //  tmpCTS, i, arL: Integer;
    //  P: TPoint;
    //begin
     // tmpCTS := GetColorToleranceSpeed;
    //  ColorToleranceSpeed(2);
    //  SetColorSpeed2Modifiers(0.26, 2.36);

    //  if not(FindColorsTolerance(arP, 2766647, MSX1, MSY1, MSX2, MSY2, 3)) then
    //  begin
    //    Writeln('Failed to find the color, no object found.');
    //    ColorToleranceSpeed(tmpCTS);
    //    SetColorSpeed2Modifiers(0.2, 0.2);
    //    Exit;
    //  end;

    //  SortTPAFrom(arP, Point(MSCX, MSCY));
     // ararP := SplitTPAEx(arP, 10, 10);
     // arL := High(ararP);

    //  for i := 0 to arL do
     // begin
     //   P := MiddleTPA(ararP[i]);
    //    MMouse(P.x, P.y, 5, 5);
    //    Wait(100 + Random(100));
    //    if (IsUpText('Take')) then
    //    begin;
    //      Result := True;
    //      Break;
    //    end;
    //  end;

     // ColorToleranceSpeed(tmpCTS);
    //  SetColorSpeed2Modifiers(0.2, 0.2);

    //  If (i = arL + 1) Then
     // Begin
     //   Writeln('FindObject could not find object.');
     //   Exit;
     // End;

    //  GetMousePos(fx, fy);
    //End;
    Function ChopDown:Boolean; //this is line 174
    Var
    Boo, Bee, PlusOne, TreeCounter, TooLong: Integer;
     Begin
       FindNormalRandoms;
       MarkTime(TooLong);
       PlusOne:= InvCount + 1;
        Boo:=MSCX
        Bee:=MSCY
       if findobjtpa( Boo, Bee, IvyColour, 8, 1, 30, 60, 300, ['llow']) Then
       writeln('got one');
       getmousepos(Boo, Bee);

       Case Random(2) of
       0:Mouse(Boo, Bee, 5, 5, True);
       1: Begin
          mouse(Boo, Bee, 5,5, False);
          WaitOption('illow', 6500+Random(150));
        End;
       End;

        Flag;
        MarkTime(TreeCounter);
        if (TimeFromMark(TooLong) > 15000) then
        FailSafe ('could not find willow');



       repeat
       if (TimeFromMark(TooLong) > 15000) then
        FindNormalRandoms;
        StatsGuise('AntiBan and Waiting');
        AntiBan;
        Wait(3500);
        If Invcount=PlusOne Then
        Writeln ('We Got One');
        Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 7000)

      End;




     Procedure DropLogs;
     Var
     Boo, Bee, LogDTM, I:Integer;
     SlotBox:TBox;
     LogPattern:TIntegerArray;


     Begin


      FindNormalRandoms;
      LogDTM := DTMFromString('mrAAAAHic42BgYLBnYmAwB2IbIHYDYk8g9gBiEyj2ZWRgcIZiByD2AuIQIA4FYncgNjcUBJrChAfjB4wEMAwAAI0XBO4=');
      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
           StatsGuise('Dropping Log' + IntToStr(I));
           SlotBox:=InvBox(LogPattern[I]);
           If FindDTM(LogDTM,Boo,Bee,SlotBox.X1,SlotBox.Y1, SlotBox.X2,SlotBox.Y2) Then
            Begin
             MouseItem (LogPattern[I],2);
             ChooseOption('Dro');
             MarkTime(TooLong);
            End;
      End;

    End;
       Begin
       SetupSRL;
       DeclarePlayers;
        Repeat
           ChopDown;
           if invFull then
           DropLogs;
        Until(False);

    End.
    Last edited by ryno101; 02-08-2012 at 04:36 PM.

  21. #96
    Join Date
    Jan 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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]

    ALSO Type mismatch at line 80 (when I have SetAngle(False); enabled.)


    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;

    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'], [1451815, 1517606, 1583399, 1253921],15) then
      Begin
      StatsGuise('Tree Found!');

      GetMousePos(X, Y);
      Case Random(2) Of
      0: Mouse(X, Y, 5, 5, True); //Left click
      1: Begin
            Mouse(X, Y, 5, 5, False); //Right click
            WaitOption('Chop', 500); //Waits for chop to appear or waits 500ms
            End;
        End;

        Repeat
        MarkTime(TreeCounter);
        Antiban;
        Wait(100);
        If InvCount=PlusOne Then
          WriteLn('We have obtained a log!');
        Until (InvCount = PlusOne) Or (TimeFromMark(TreeCounter) > 7000)

      End;
    End;
    begin

      SetupSRL;
      DeclarePlayers;
      //SetAngle(False); //Sets angle to the lowest, True sets to highest
      Repeat
      ChopDown;
      until(false);

    End.

  22. #97
    Join Date
    Feb 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I love your tutorial, thank you so much. but I'm having a hard time figuring out the stuff you copy and pasted in, any way you can point me to where I can get that stuff? Please and Thank you =3

    Love and Light,
    SNOWSHOES

  23. #98
    Join Date
    Feb 2006
    Location
    Weed Ca
    Posts
    146
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Some of the SRL calls have changed try

    Code:
    ClickNorth(SRL_ANGLE_HIGH); //Or SRL_ANGLE_LOW or SRL_ANGLE_NONE
    SetAngle(SRL_ANGLE_HIGH); //Or SRL_ANGLE_LOW
    There is a whole thread on new srl function and procedure calls. Just search "set angle error srl5" or something =)

    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]
    These are in the srl5 antirandoms. Most likely you stopped the scripted before they were freed.

    GoodLuck

    Quote Originally Posted by MrBubbles View Post
    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]

    ALSO Type mismatch at line 80 (when I have SetAngle(False); enabled.)


    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;

    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'], [1451815, 1517606, 1583399, 1253921],15) then
      Begin
      StatsGuise('Tree Found!');

      GetMousePos(X, Y);
      Case Random(2) Of
      0: Mouse(X, Y, 5, 5, True); //Left click
      1: Begin
            Mouse(X, Y, 5, 5, False); //Right click
            WaitOption('Chop', 500); //Waits for chop to appear or waits 500ms
            End;
        End;

        Repeat
        MarkTime(TreeCounter);
        Antiban;
        Wait(100);
        If InvCount=PlusOne Then
          WriteLn('We have obtained a log!');
        Until (InvCount = PlusOne) Or (TimeFromMark(TreeCounter) > 7000)

      End;
    End;
    begin

      SetupSRL;
      DeclarePlayers;
      //SetAngle(False); //Sets angle to the lowest, True sets to highest
      Repeat
      ChopDown;
      until(false);

    End.
    Have fun always

    Taken from Boreas
    [CODE]If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig[/CODE]

  24. #99
    Join Date
    Jan 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] C:\Simba\Includes\SRL/SRL/core/simba.simba(4:24): Semicolon (';') expected at line 3
    Compiling failed.

    Help please?

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

    Default

    Need to see the script too.

    Copy/paste it here and put simba tags around it.

Page 4 of 9 FirstFirst ... 23456 ... 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
  •