Results 1 to 7 of 7

Thread: needs help pweese :P

  1. #1
    Join Date
    May 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default needs help pweese :P

    hi im watching ... Yohojo's tutorials.... again ...

    and for some reason it wont compile ... again



    this is whats stopping it compiling


    HTML Code:
      Begin
        FindNormalRandoms;
        StatsGuise('DroppingLog:' + IntToStr(I));
        SlotBox   := InvBox(LogPattern[I]);
        If FindDTM(LogDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
      End;
        Begin
          MouseItem(LogPattern[I], false);
          ChooseOption('Dro');
        End;
    End;
    this is what the error message is

    [Error] (102:38): Type mismatch at line 101
    Compiling failed.

    can anyone solve this problem please ??

  2. #2
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Full code please


    ~Home

  3. #3
    Join Date
    May 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    HTML Code:
    program PowerChopper;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    
    Const
      BreakEvery        =120;    // How Many Minutes To Break After
      BreakFor          =5;      // How Many Minutes To Break For
      VersionNumber     ='1.0';  // Current Version
      StartPlayer       =0;      // Player To Start Chopping With
    
    
    
    procedure DeclarePlayers;
    begin
       HowManyPlayers:= 1;                // Number Of Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer:= 0;
    
       Players[0].Name:='';      // Runescape Username
       Players[0].Pass:='';       // Runescape Password
       Players[0].Nick:='';               // Players Nickname 3-4 Letters Of Characters Username
       Players[0].active:=True;
    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;  //AntiBan measure hovers over woodcutting skill
      1: Begin StatsGuise('AntiBan')SleepAndMoveMouse(7000+Random(550)); End;                              //AntiBan measure moves the mouse around randomly for 7 seconds
      2: Begin StatsGuise('AntiBan')GameTab (Tab_Inv) ExamineInv; GameTab(28) End;                         //AntiBan measure examines a random item in invent
      3: Begin StatsGuise('AntiBan')RandomAngle(1); End;                                                   //AntiBan measure changes camara angle
      4: Begin StatsGuise('AntiBan')GameTab (Tab_Stats); Wait(3000+Random(550)); GameTab(28); End;         //AntiBan measure shows stats tab
      5: Begin StatsGuise('AntiBan')GameTab (Tab_Stats) HoverSkill('Random', False) GameTab(28) End;       //AntiBan measure hovers over a random skill in stats tab
      End;
    End;
    
    Procedure FailSafe(Reason:String);
    Begin
      Logout;
      Stats_Commit;
      TerminateScript;
    End;
    function ChopTree: Boolean;
    var
      x, y, PlusOne, TreeCounter: Integer;
    Begin
      FindNormalRandoms;
      PlusOne:= InvCount +1
      x:= MSCX;
      y:= MSCY;
      If FindObjTPA(x, y, 2634301, 5, 1, 15, 60, 600, ['Cho']) Then;
      StatsGuise ('Hooray, We Found a Tree!!!');
      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);
            ChooseOption('Chop');
          End;
      End;
    
      Flag;
      MarkTime(TreeCounter);
    
      Repeat
        FindNormalRandoms;
        StatsGuise('AntiBan And Waiting');
        AntiBan;
        Wait(500);
        If InvCount = PlusOne Then
          WriteLn('Who Shit In My Bag');
      Until (InvCount = PlusOne) or (TimeFromMark(TreeCounter) > 5000)
    
    End;
    Procedure DropLogs;
    var
    x, y, LogDTM, I:Integer;
    SlotBox:TBox;
    LogPattern:TIntegerArray;
    
    Begin
    
      LogDTM     := DTMFromString('mfgEAAHicrcdBCoJQAEXRX9NmbcVVFGRRUBGlUhswzIFEQVCWu/YMnDX9F86DNw0hbFmz50jGiYIzF3IO7NiwYsGMOUseVFwpqWm48+TFmw8tX350w78N0mRixxHEaRTJfz1PGw+/');
      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
        FindNormalRandoms;
        StatsGuise('Taking A Dump:' + IntToStr(I));
        SlotBox   := InvBox(LogPattern[I]);
        If FindDTM(LogDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
      End;
        Begin
          MouseItem(LogPattern[I], false);
          ChooseOption('Dro');
        End;
    End;
    
    
    
    
    
    
    Begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      SetAngle(1);
      Repeat;
        ChopTree;
      Until(false);
    End.

  4. #4
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Line 101

    Simba Code:
    MouseItem(LogPattern[I], False);


    You need to use "mouse_Right" or "mouse_Left"

    In this case you must use "mouse_Right" instead of "False"

    Simba Code:
    MouseItem(LogPattern[I], mouse_Right);


    ~Home

  5. #5
    Join Date
    May 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks it seems to work fine for Yohojo on his video.... im guessing its something to do with simba updates ????

  6. #6
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jhony6180 View Post
    thanks it seems to work fine for Yohojo on his video.... im guessing its something to do with simba updates ????
    It's been quite some time that SRL has updated to SRL5 and mouse functions now usually use mouse_right, mouse_left, mouse_move values instead of booleans. Maybe the tutorials need some updating.
    Current activity: Recovering from vacation
    - Nulla pars vitae vacare officio potest -
    SRL membership? Can I buy that?
    Scripts - AGS - SWF - WAR - EMS - W100S-EM
    If you need scripting help, you can pm me. Remember, if you need help you have to ask for it properly though

  7. #7
    Join Date
    May 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lmao maybe a little :P it a good tut tho very very helpfull

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
  •