Results 1 to 5 of 5

Thread: Work In Progress

  1. #1
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default Work In Progress

    I've made my first script for Teak PowerChopping, and I'm trying to get the drop procedure to work, but to no avail. This script is really just a compilation of a bunch of other scripts, since there isn't a good teak powerchopper out at the moment. I keep getting the error message: [Error] Type mismatch at line 134. I'm fairly certain it's something rather simple I'm doing wrong, but if you guys could take a look at it and let me know where I went wrong, that would be awesome

    Cheers,
    Mister_iCon

    LogPattern.simba
    Attached Files Attached Files
    Last edited by Mister_iCon; 05-21-2013 at 05:32 AM.

  2. #2
    Join Date
    Apr 2013
    Location
    England
    Posts
    223
    Mentioned
    2 Post(s)
    Quoted
    106 Post(s)

    Default

    not that i've used it, but

    procedure MouseItem(I: Integer; button: Integer);

    but you have used it like this

    MouseItem(LogPattern[I], False);

    use an int, not false would be my suggestion.

  3. #3
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by EngageTheRage View Post
    not that i've used it, but

    procedure MouseItem(I: Integer; button: Integer);

    but you have used it like this

    MouseItem(LogPattern[I], False);

    use an int, not false would be my suggestion.
    So how would that work, like an example line? Cause from the tutorial I watched, that's exactly what he had, and he explained it as false was a right click, and true would be a left click? I'm trying to get the procedure to go through the set pattern that I give it and right click through that pattern.

  4. #4
    Join Date
    Apr 2013
    Location
    England
    Posts
    223
    Mentioned
    2 Post(s)
    Quoted
    106 Post(s)

    Default

    so you are trying to right click and drop i take it? i tend to use MMouse so your code would look something like this:
    Code:
    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
          MMouse(X, Y, 3, 3);       // moves the move to the location +/- 3 in both x and y
          ClickMouse2(false);       // right clicks 
          ChooseOption('Dro');
        End;
      End;
    thats just how i do it though

  5. #5
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by EngageTheRage View Post
    so you are trying to right click and drop i take it? i tend to use MMouse so your code would look something like this:
    Code:
    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
          MMouse(X, Y, 3, 3);       // moves the move to the location +/- 3 in both x and y
          ClickMouse2(false);       // right clicks 
          ChooseOption('Dro');
        End;
      End;
    thats just how i do it though

    Finally got it working, just substituted false for mouse_right

    Am now trying to integrate in two drop patterns so that it isn't so basic, not quite sure how to do that though, some help would be lovely.

    Error: Type mismatch at line 228

    I'm pretty sure I need my I integer to represent both values, just not sure how to implement that..

    Here's my code:

    WorkInProgressV2.simba

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
  •