Results 1 to 9 of 9

Thread: Quest Functions

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

    Default Quest Functions

    Well I have been working on these for the past few weeks and now there is going to be an update for RS quest section -.- So I thought I would post my work since it is done and works fine. I know the QuestCoords function is VERY long, but it checks all the quests. So please, Rate/Hate/Comment. I believe they are better than the last versions.

    *Newest one* CheckQuest:
    SCAR Code:
    {*******************************************************************************
    function CheckQuest(Q : string; Free : Boolean) : Boolean;
    By: Camo¤Kyle
    Description: Checks the quest section for the specified quest and returns True
    if the quests are done and False if they has been started or not started. Free
    is for whether it is a free quest or a members quest.
    *******************************************************************************}

    function CheckQuest(Q : string; Free : Boolean) : Boolean;
    var
      x, y, A, I, ScrollBox : Integer;
      NDQColors : TIntegerArray;
    begin
      if not LoggedIn then
        Exit;
      NDQColors := [255, 65535];
      if not (FindColor(x, y, 65280, MIX1, MIY1, MIX2, MIY2)) then
      repeat
        if GetColor(612, 185) = 16601911 then
          Mouse(614, 187, 5, 5, True);
        Wait(100 + Random(500));
      until FindColor(x, y, 65280, MIX1, MIY1, MIX2, MIY2) or
        FindColor(x, y, 255, MIX1, MIY1, MIX2, MIY2);
      ScrollBox := DTMFromString('78DA63BCC4C4C060C9C8800CA4C445C0344C9' +
           '411A4C60B550D171717AA9AFB44AAC163171388BE49849AEBF8ED' +
           '02A90100BB9307E9');
      try
      case Free of
        True : if FindDTM(ScrollBox, x, y, mix1, miy1, mix2, miy2) then
               begin
                 Wait(100 + Random(100));
                 MMouse(x, y, 4, 4);
                 GetMousePos(x, y);
                 Wait(100 + Random(100));
                 if (y >= 283) then
                 begin
                   GetMousePos(x, y);
                   HoldMouse(x, y, True);
                   Wait(50 + Random(25));
                   MMouse(729, 245, 0, 3);
                   Wait(50 + Random(25));
                   ReleaseMouse(x, y, True);
                   Wait(50 + Random(25));
                 end;
                 FreeDTM(ScrollBox);
               end;
        False : if FindDTM(ScrollBox, x, y, mix1, miy1, mix2, miy2) then
                begin
                  Wait(100 + Random(100));
                  MMouse(x, y, 4, 4);
                  GetMousePos(x, y);
                  Wait(100 + Random(100));
                  if (y <> 286) then
                  begin
                    GetMousePos(x, y);
                    HoldMouse(x, y, True);
                    Wait(50 + Random(25));
                    MMouse(729, 270, 0, 3);
                    Wait(50 + Random(25));
                    ReleaseMouse(x, y, True);
                    Wait(50 + Random(25));
                  end;
                  FreeDTM(ScrollBox);
                end;
      end
      finally
      if FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, Q, StatChars, Nothing) then
      begin
        WriteLn('Done Quest ['+(Q)+']');
        Result := True;
        Exit;
      end;
      if not (FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, Q, StatChars, Nothing)) or
        (FindTextTpa(NDQColors[I], 0, MIX1, MIY1, MIX2, MIY2, Q, StatChars, Nothing)) then
      A := CreateBitmapMaskFromText(Q, StatChars);
      repeat
        Wait(100 + Random(100));
        MMouse(724, 442, 5, 5);
        GetMousePos(x, y);
        Wait(100 + Random(100));
        HoldMouse(x, y, True);
        Wait(900 + Random(50));
        ReleaseMouse(x, y, True);
        Wait(300 + Random(100));
      until FindBitmapMaskTolerance(A, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
      if FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, Q, StatChars, Nothing) then
      begin
        WriteLn('Done Quest ['+(Q)+']');
        Result := True;
        Exit;
      end else
        WriteLn('Quest ['+(Q)+'] Not Done');
        Result := False;
        Exit;
      end;
    end;

    CheckAllQuests:
    SCAR Code:
    {*******************************************************************************
    function CheckAllQuests : Boolean;
    By: Camo¤Kyle
    Description: Checks the quest section and returns True if the quests are done
    and False if they has been started or not started
    /////**QUEST LIST**\\\\\
    ///////***F2P***\\\\\\\\
    [1] Black Knight's Fortress     [10] Pirate's Treasure
    [2] Cook's Assistant            [11] Prince Ali Rescue
    [3] Demon Slayer                [12] Restless Ghost, The
    [4] Doric's Quest               [13] Romeo and Juliet
    [5] Dragon Slayer               [14] Rune Mysteries
    [6] Ernest the Chicken          [15] Sheep Shearer
    [7] Goblin Diplomacy            [16] Shield of Arrav
    [8] Imp Catcher                 [17] Vampire Slayer
    [9] Knight's Sword, The         [18] Witch's Potion
    ///////***P2P***\\\\\\\\
    Since is is WAY to much to type here, this is where you can get the complete
    list. It is in that order btw.
    ///// www*runehq*com/guidelist*php?type=memberquest \\\\\   *'s = .'s
    *******************************************************************************}

    procedure CheckAllQuests;
    var
      x, y, I, ScrollBox : Integer;
    begin
      if not LoggedIn then
        Exit;
      if not (FindColor(x, y, 65280, MIX1, MIY1, MIX2, MIY2)) then
      repeat
        if GetColor(612, 185) = 16601911 then
          Mouse(614, 187, 5, 5, True);
        Wait(100 + Random(500));
      until FindColor(x, y, 65280, MIX1, MIY1, MIX2, MIY2) or
        FindColor(x, y, 255, MIX1, MIY1, MIX2, MIY2);
      ScrollBox := DTMFromString('78DA63BCC4C4C060C9C8800CA4C445C0344C9' +
           '411A4C60B550D171717AA9AFB44AAC163171388BE49849AEBF8ED' +
           '02A90100BB9307E9');
      if FindDTM(ScrollBox, x, y, mix1, miy1, mix2, miy2) then
        begin
          Wait(100 + Random(100));
          MMouse(x, y, 4, 4);
          GetMousePos(x, y);
          Wait(100 + Random(100));
          if (y >= 283) then
          begin
            GetMousePos(x, y);
            HoldMouse(x, y, True);
            Wait(50 + Random(25));
            MMouse(729, 245, 0, 3);
            Wait(50 + Random(25));
            ReleaseMouse(x, y, True);
            Wait(50 + Random(25));
          end;
          FreeDTM(ScrollBox);
        end;
      for I := 1 to 148 do
      begin
        case I of
          1..148 : begin
                  Wait(100 + Random(100));
                  if QuestCoords(I) then
                  begin
                    WriteLn('Done Quest ['+IntToStr(I)+']');
                  end  else
                    WriteLn('NOT Done Quest ['+IntToStr(I)+']');
                  end;
        end
      end;
    end;

    QuestCoords:
    SCAR Code:
    {*******************************************************************************
    function QuestCoords(QNum : Integer) : Boolean;
    By: Camo¤Kyle
    Description: Uses text TPA's to determine if the quest is done or not
    *******************************************************************************}

    function QuestCoords(QNum : Integer) : Boolean;
    var
      x, y, S : Integer;
    begin
      case QNum of
        1 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'lack', StatChars, Nothing);
        2 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'tant', StatChars, Nothing);
        3 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'emon', StatChars, Nothing);
        4 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'uest', StatChars, Nothing);
        5 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'agon', StatChars, Nothing);
        6 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'nest', StatChars, Nothing);
        7 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'macy', StatChars, Nothing);
        8 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'cher', StatChars, Nothing);
        9 : Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'word', StatChars, Nothing);
        10: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rate', StatChars, Nothing);
        11: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ince', StatChars, Nothing);
        12: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'less', StatChars, Nothing);
        13: begin
              S := CreateBitmapMaskFromText('All', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'omeo', StatChars, Nothing);
            end;
        14: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ries', StatChars, Nothing);
        15: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'heep', StatChars, Nothing);
        16: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rrav', StatChars, Nothing);
        17: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'pire', StatChars, Nothing);
        18: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'tion', StatChars, Nothing);
        19: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ired', StatChars, Nothing);
        20: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'imal', StatChars, Nothing);
        21: begin
              S := CreateBitmapMaskFromText('Contact', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'lice', StatChars, Nothing);
            end;
        22: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'sort', StatChars, Nothing);
        23: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Back', StatChars, Nothing);
        24: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ween', StatChars, Nothing);
        25: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ompy', StatChars, Nothing);
        26: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'zard', StatChars, Nothing);
        27: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ever', StatChars, Nothing);
        28: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'pult', StatChars, Nothing);
        29: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ower', StatChars, Nothing);
        30: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Cold', StatChars, Nothing);
        31: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'tact', StatChars, Nothing);
        32: begin
              S := CreateBitmapMaskFromText('ream', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ture', StatChars, Nothing);
            end;
        33: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ness', StatChars, Nothing);
        34: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'aras', StatChars, Nothing);
        35: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'eath', StatChars, Nothing);
        36: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'huun', StatChars, Nothing);
        37: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'arro', StatChars, Nothing);
        38: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'sure', StatChars, Nothing);
        39: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'evio', StatChars, Nothing);
        40: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Site', StatChars, Nothing);
        41: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ream', StatChars, Nothing);
        42: begin
              S := CreateBitmapMaskFromText('amily', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'idic', StatChars, Nothing);
            end;
        43: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'warf', StatChars, Nothing);
        44: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Ruse', StatChars, Nothing);
        45: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'agle', StatChars, Nothing);
        46: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ment', StatChars, Nothing);
        47: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'shop', StatChars, Nothing);
        48: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'khra', StatChars, Nothing);
        49: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rney', StatChars, Nothing);
        50: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'phri', StatChars, Nothing);
        51: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'wing', StatChars, Nothing);
        52: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ueen', StatChars, Nothing);
        53: begin
              S := CreateBitmapMaskFromText('Golem', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'mily', StatChars, Nothing);
            end;
        54: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Feud', StatChars, Nothing);
        55: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rena', StatChars, Nothing);
        56: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'test', StatChars, Nothing);
        57: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'gett', StatChars, Nothing);
        58: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'sles', StatChars, Nothing);
        59: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ials', StatChars, Nothing);
        60: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'lity', StatChars, Nothing);
        61: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rtru', StatChars, Nothing);
        62: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Ahoy', StatChars, Nothing);
        63: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'warf', StatChars, Nothing);
        64: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'olem', StatChars, Nothing);
        65: begin
              S := CreateBitmapMaskFromText('Myre', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rand', StatChars, Nothing);
            end;
        66: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'reat', StatChars, Nothing);
        67: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ales', StatChars, Nothing);
        68: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Sand', StatChars, Nothing);
        69: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'aunt', StatChars, Nothing);
        70: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'zeel', StatChars, Nothing);
        71: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'roes', StatChars, Nothing);
        72: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rail', StatChars, Nothing);
        73: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rror', StatChars, Nothing);
        74: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'thla', StatChars, Nothing);
        75: begin
              S := CreateBitmapMaskFromText('unar', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Myre', StatChars, Nothing);
            end;
        76: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Pyer', StatChars, Nothing);
        77: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'arch', StatChars, Nothing);
        78: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'tion', StatChars, Nothing);
        79: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'nith', StatChars, Nothing);
        80: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'nsom', StatChars, Nothing);
        81: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'lins', StatChars, Nothing);
        82: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'gaze', StatChars, Nothing);
        83: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'gend', StatChars, Nothing);
        84: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Lost', StatChars, Nothing);
        85: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ribe', StatChars, Nothing);
        86: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'unar', StatChars, Nothing);
        87: begin
              S := CreateBitmapMaskFromText('ture', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'tory', StatChars, Nothing);
            end;
        88: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Meet', StatChars, Nothing);
        89: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'erli', StatChars, Nothing);
        90: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Monk', StatChars, Nothing);
        91: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'nkey', StatChars, Nothing);
        92: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'tain', StatChars, Nothing);
        93: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ning', StatChars, Nothing);
        94: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 't 11', StatChars, Nothing);
        95: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rder', StatChars, Nothing);
        96: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'vent', StatChars, Nothing);
        97: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'yths', StatChars, Nothing);
        98: begin
              S := CreateBitmapMaskFromText('cide', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'irit', StatChars, Nothing);
            end;
        99: Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'serv', StatChars, Nothing);
        100:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Olaf', StatChars, Nothing);
        101:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'vour', StatChars, Nothing);
        102:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'hrie', StatChars, Nothing);
        103:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ount', StatChars, Nothing);
        104:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ague', StatChars, Nothing);
        105:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'iest', StatChars, Nothing);
        106:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Bone', StatChars, Nothing);
        107:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'hers', StatChars, Nothing);
        108:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ster', StatChars, Nothing);
        109:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rive', StatChars, Nothing);
        110:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'cide', StatChars, Nothing);
        111:begin
              S := CreateBitmapMaskFromText('moki', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Rock', StatChars, Nothing);
            end;
        112:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ving', StatChars, Nothing);
        113:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'oyal', StatChars, Nothing);
        114:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'pion', StatChars, Nothing);
        115:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Slug', StatChars, Nothing);
        116:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ades', StatChars, Nothing);
        117:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'adow', StatChars, Nothing);
        118:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'heep', StatChars, Nothing);
        119:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'hilo', StatChars, Nothing);
        120:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'nace', StatChars, Nothing);
        121:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'moki', StatChars, Nothing);
        122:begin
              S := CreateBitmapMaskFromText('rist', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Bane', StatChars, Nothing);
            end;
        123:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'it o', StatChars, Nothing);
        124:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rits', StatChars, Nothing);
        125:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'er''s', StatChars, Nothing);
        126:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Swan', StatChars, Nothing);
        127:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Swep', StatChars, Nothing);
        128:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Trio', StatChars, Nothing);
        129:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Tail', StatChars, Nothing);
        130:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'thix', StatChars, Nothing);
        131:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Ikov', StatChars, Nothing);
        132:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ania', StatChars, Nothing);
        133:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Dill', StatChars, Nothing);
        134:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rist', StatChars, Nothing);
        135:begin
              S := CreateBitmapMaskFromText('ters', StatChars)
              repeat
                Wait(300 + Random(100));
                MMouse(724, 442, 2, 2);
                GetMousePos(x, y);
                Wait(100 + Random(100));
                HoldMouse(x, y, True);
                Wait(800 + Random(20));
                ReleaseMouse(x, y, True);
              until FindBitmapMaskTolerance(S, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10);
              Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ower', StatChars, Nothing);
            end;
        136:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'nome', StatChars, Nothing);
        137:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'otem', StatChars, Nothing);
        138:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'manc', StatChars, Nothing);
        139:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'rong', StatChars, Nothing);
        140:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Pass', StatChars, Nothing);
        141:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'nted', StatChars, Nothing);
        142:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'atch', StatChars, Nothing);
        143:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'fall', StatChars, Nothing);
        144:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'Lies', StatChars, Nothing);
        145:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'thix', StatChars, Nothing);
        146:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ouse', StatChars, Nothing);
        147:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'stle', StatChars, Nothing);
        148:Result := FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, 'ogre', StatChars, Nothing);
      end
    end;
    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.


  2. #2
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    looks very nice, but in the updates its going to change the quest book layout to show quest availibility and such, sooo weeks of effert -> drain... sorry
    I do visit every 2-6 months

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

    Default

    I know, that's why I said it in the beginning lol

    ~Camo
    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.


  4. #4
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    o i didnt see, silly me
    I do visit every 2-6 months

  5. #5
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice, but the whole point of IT , is to find out how you can make things smaller, quicker, and more simplyer for your self, says my IT teacher, i think of this all the time when i script.

    Things like this.

    SCAR Code:
    StrArray:= ['warf','ruse' // Etc ']
        for I:= 43 to 52 do
          I: Result :=  FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, StrArray[I], StatChars, Nothing);

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

    Default

    K, I see what you're saying. Thanks Eh, a big ol' waste of time

    ~Camo
    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
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    NiCbaZ, you had a small error in yours, fixed :P.

    SCAR Code:
    StrArray:= ['warf','ruse' // Etc ']
        for I:= 43 to 52 do
          I: Result :=  FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, StrArray[i - 43], StatChars, Nothing);

    Nice functions. To bad they'll be screwed up in a while :/.

    ~Sandstorm

  8. #8
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sandstorm View Post
    NiCbaZ, you had a small error in yours, fixed :P.

    SCAR Code:
    StrArray:= ['warf','ruse' // Etc ']
        for I:= 43 to 52 do
          I: Result :=  FindTextTpa(65280, 0, MIX1, MIY1, MIX2, MIY2, StrArray[i - 43], StatChars, Nothing);

    Nice functions. To bad they'll be screwed up in a while :/.

    ~Sandstorm

    I wrote it in the post, didnt mean for him to use it but w/e.

  9. #9
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by NiCbaZ View Post
    I wrote it in the post, didnt mean for him to use it but w/e.
    Ah, I made a mistake then xD. Don't mind my post then o.o.

    ~Sandstorm

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Quest running.....
    By Raskolnikov in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 10-02-2008, 02:51 AM
  2. Quest Chars?
    By Nava2 in forum OSR Help
    Replies: 0
    Last Post: 08-26-2008, 07:27 PM
  3. which p2p quest are the best to do .....
    By ShowerThoughts in forum Discussions & Debates
    Replies: 4
    Last Post: 10-19-2007, 08:36 AM
  4. quest
    By sniper360 in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 07-11-2007, 03:26 AM
  5. quest macro
    By nikshake2 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 06-12-2007, 09:09 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •