SRL Archive - SRL Archives

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:

{*******************************************************************************
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:

{*******************************************************************************
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:

{*******************************************************************************
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;

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 know, that's why I said it in the beginning lol :p

~Camo

o i didnt see, silly me :duh:

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.

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

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

~Camo

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

    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

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

    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.

From: NiCbaZ
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