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;