Results 1 to 2 of 2

Thread: Having some Problems executing commands and functions

  1. #1
    Join Date
    Mar 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Having some Problems executing commands and functions

    Hopefully I can get some more help!

    I am following this guide:



    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;

  2. #2
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    Okay here is my answer (again)...
    You need ChooseOption not WaitOption. I would use 'hop' not 'Chop' since the capital letters at the start are found less accurately. ChooseOptionMulti to look for multiple string types will improve it, too.
    You also need MarkTime(TreeCounter) outside of the repeat loop, because otherwise you keep doing MarkTime MarkTime MarkTime and you'll never get above 7 seconds.
    Just keep watching YoHoJo's video I think he made some mistakes and then corrected himself 30 minutes later so that was confusing when I started learning, but if you keep watching eventually you'll end up with something that works.

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
  •