Results 1 to 3 of 3

Thread: Help Please?

  1. #1
    Join Date
    Nov 2011
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help Please?

    hey guys, why cant my script compile?? ive been making it with help from yohojo's guide and dnt know what ive done wrong.
    the error is

    [Error] (104:35): Type mismatch at line 103
    Compiling failed.


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

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

      Players[0].Name :=''; //Enter Your UserName
      Players[0].Pass :=''; //Enter Your PassWord
      Players[0].Nick :=''; //3-4 Digits Long
      Players[0].Active:=True;
    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(['Chop','hop'], 150) Then
      Begin
        Result:=True;
        GetMousePos(x, y);
        Mouse(x, y, 0, 0,True);
        Wait(100+Random(50));
        FFlag(0);
      End;
    End;

    Procedure Antiban;
    Begin
      Case Random(192) Of
        0: HoverSkill('Woodcutting', 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;

    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;

    Function ChopWillow: Boolean;
    Var
     x, y, PlusOne, TreeCounter: Integer;

     begin
     PlusOne:=InvCount +1;
     x:=MSCX;
     y:=MSCY;
     if FindObjTPA(x, y, 2041897, 7, 1, 10, 40, 20, ['Chop']) Then
     begin
      StatsGuise('Your Private Indian Slave Is Cutting Down A Willow');
      GetMousePos(x, y);


      Case Random(2) of
       0: Mouse(x, y, 4, 4, True);
       1: begin
            Mouse(x, y, 6, 6, False);
            WaitOption('Chop', 650);
          end;
        end;

        Flag;

        Repeat
          MarkTime(TreeCounter);
          Antiban;
          Wait(927);
          If InvCount=PlusOne Then
          writeln('Your Private Indian Slave Got A Willow!');
        Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 5000)


      end;
    end;

    Procedure DropLogs;
    Var
     x, y, LogDTM, I:Integer;
     SlotBox:TBox;
     LogPattern:TIntegerArray;


    begin

     LogDTM := DTMFromString('mbQAAAHicY2VgYOAHYikgFmSAAHYg5oKyhYBYAMo2NwSpYELB/xkwASMWDAYAdlkB+A==');
     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];
     StatsGuise('Your Private Indian Slave Is Droping Your Willows');
     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
        MouseItem(LogPattern[I],False);
        ChooseOption('Dro');
         End;
       End;
     End;






    begin
      SetupSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
     Repeat
      ChopWillow;
     Until(False);
    end.

  2. #2
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    Change the line that gives you the error to:
    Simba Code:
    MouseItem(LogPattern[I], mouse_right);

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

    Default

    Quote Originally Posted by tehq View Post
    Change the line that gives you the error to:
    Simba Code:
    MouseItem(LogPattern[I], mouse_right);
    Thank you kind sir

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
  •