Results 1 to 7 of 7

Thread: Aura Use

  1. #1
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,988
    Mentioned
    41 Post(s)
    Quoted
    272 Post(s)

    Default Aura Use

    Here's a little something that might be nice for people's scripts (aura's can boost your skill training by 3-10% I think; some % relatively close). Might also make for an occasional, yet nifty antiban (if done right).

    Note, there's Activate & Check, checking 1st obv
    Simba Code:
    Program New;
    {$DEFINE SRL5}
    {$i SRL/srl.simba}

    Function ActivateAura: Boolean;
    Begin
      Result:= False;
        If GameTab(Tab_Equip) Then
        MouseBox(585, 211, 617, 243, Mouse_Left);
      Result:= True;
    End;

    Function CheckAura: Boolean;
    Var
      n: Integer;
    Begin
      Result:= False;
      SetChat('hide', 1);
      n:= GetCurrentTab;
      GameTab(Tab_Equip);
      MouseBox(585, 211, 617, 243, Mouse_Right);
      ChooseOptionMultiEx(['ura time', 'me remain', 'remaining'], 'action', ClickLeft);
      Wait(900+Random(100));
        If FindBlackChatMessage('The aura has finished') Then
          ActivateAura;
      GameTab(n);
      Result := True;
    End;

    Begin
      SetupSRL;
      CheckAura;
    End.

    Let me know what you think about this!
    ciao! :>
    Last edited by Le Jingle; 05-08-2012 at 04:57 PM.

  2. #2
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Won't work.
    You don't get a red click when you use an aura.

  3. #3
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,988
    Mentioned
    41 Post(s)
    Quoted
    272 Post(s)

    Default

    Thanks, removed it, I think this works now, all feedback welcome ~

  4. #4
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    Uhhh I don't like the idea of right clicking to see if an item is there.. You could modify the gametab to check like so:

    Simba Code:
    function EquipmentCoords(EquipSlot: Integer): TPoint;
    begin
      case EquipSlot of
        1: Result := Point(640, 225);
        2: Result := Point(600, 266);
        3: Result := Point(640, 266);
        4: Result := Point(684, 266);
        5: Result := Point(588, 304);
        6: Result := Point(644, 304);
        7: Result := Point(700, 304);
        8: Result := Point(642, 343);
        9: Result := Point(588, 384);
        10: Result := Point(643, 384);
        11: Result := Point(700, 384);
        12: Result := Point(600, 226);
        else
        begin
          result := Point(-1,-1);
            srl_warn('EquipmentCoords','Invalid EquipSlot('+inttostr(EquipSlot)+') passed',warn_AllVersions);
        end;
      end;
    end;

    function GetEquippedItemBounds(Which: Variant): TBox;
    var
      P: TPoint;
      I: Integer;
    begin
      Result := IntToBox(0, 0, 0, 0);
      I := -1;

      case VarType(Which) of
        varInteger: if (InRange(Which, 1, 11)) then
            I := Which;

        varString: case Which of
            'helm', 'helmet' :
              I := 1;
            'cape' :
              I := 2;
            'amulet', 'neck', 'necklace' :
              I := 3;
            'arrows', 'bolts' :
              I := 4;
            'right hand', 'weapon' :
              I := 5;
            'plate', 'chest', 'platebody' :
              I := 6;
            'left hand', 'sheild', 'shield' :
              I := 7;
            'legs', 'platelegs', 'skirt', 'plateskirt' :
              I := 8;
            'gloves', 'gauntlets' :
              I := 9;
            'boots':
              I := 10;
            'ring' :
              I := 11;
            'aura':
              I := 12;
          end;
      end;

      if (I = -1) then
      begin
        SRL_Warn('GetEquiptItemBounds', 'Invalid entry (' + ToStr(Which) + ')', Warn_AllVersions);
        Exit;
      end;

      P := EquipmentCoords(I);
      Result := IntToBox(P.x - 11, P.y - 11, P.x + 11, P.y + 11);
    end;


    function CountEquippedItems: Integer;
    var
      I: Integer;
    begin
      Result := Integer(GameTab(tab_Equip)) - 2;
      if (Result = -1) then exit;

      for I := 1 to 12 do
        if WearingItem(I) then
          Inc(Result);
    end;


    Then in your functions you can do:
    Simba Code:
    Function ActivateAura: Boolean;
    begin
      if WearingItem(12) then
      begin
        MouseEquippedItem('aura', MOUSE_RIGHT);
        Result:= (WaitOptionMulti(['tivate', 'Activate', 'vate', 'ctiv'], 600)
      end;
    end;

    Function AuraFinished: Boolean;
    begin
      if WearingItem(12) then
      begin
        MouseEquippedItem('aura', MOUSE_RIGHT);
        if WaitOptionMulti(['ura time', 'me remain', 'remaining'], 'action', 600) then
        begin
          Wait(RandomRange(900+Random(100)));
          Result:= FindBlackChatMessage('The aura has finished');
        end;
      end;
    end;
    I am Ggzz..
    Hackintosher

  5. #5
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,988
    Mentioned
    41 Post(s)
    Quoted
    272 Post(s)

    Default

    Oh wow, that's much better. I hadn't thought of not having one equipped in the first place. I like yours moreover mine. ++

  6. #6
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    I had suggested this awhile ago
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  7. #7
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,988
    Mentioned
    41 Post(s)
    Quoted
    272 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    I had suggested this awhile ago
    Ahh, I hadn't known; (Found it! : http://villavu.com/forum/showthread.php?t=71454)

    Will see what I can come up with, merging what yours and Brandon's code, just for fun, I suppose :>

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
  •