Hey, i'm working on a Oak Dungeon Doors script for Bonus XP Weekend and I can't get it to pay the demon butler when this comes up.
What's the font called?
Or is there any way to get it?
Hey, i'm working on a Oak Dungeon Doors script for Bonus XP Weekend and I can't get it to pay the demon butler when this comes up.
What's the font called?
Or is there any way to get it?
How about ClickContinue and FindNPCChatText
How about WaitNPCTalking? That will wait until it finds the name of the NPC ("demon butler"). Not sure if that would work for what you're trying to do, but its worth a try
E: if that doesn't work, create a DTM of the text. Use a few points on the edges of unique letters
Last edited by tehq; 03-10-2012 at 04:05 PM.
FindNPCChatTextMulti(['render','unto'],nothing,10,5000);
If you ask about npc name ,this font doesn't exist.
It does exist lol..
Simba Code:program new;
{$I SRL/SRL.Simba}
Function FindChat(TextToSearchFor: TStringArray; Box: TBox; Colour, Tolerance: Integer; PrintResult: Boolean): boolean;
var
Data: string;
ListOfFonts: TStringArray;
I, J: Integer;
begin
Result:= False;
ListOfFonts:= ['BigChars', 'CharsNPC', 'CharsTrade', 'FriendChars', 'LoginChars', 'SmallChars', 'SmallCharsNS', 'StatChars', 'UPChars', 'UpCharsEx', 'XPChars'];
For J:= 0 To High(ListOfFonts) do
begin
Data:= GetTextAtExWrap(Box.X1, Box.Y1, Box.X2, Box.Y2, 0, 5, 2, Colour, Tolerance, ListOfFonts[J]);
For I:= 0 To High(TextToSearchFor) do
begin
Result:= (ExecRegExpr(TextToSearchFor[I], Data));
if Result then
begin
If PrintResult then
writeln(Data);
exit;
end;
end;
end;
end;
begin
setupsrl;
writeln(FindChat(['istress', 'desire', 'service'], IntToBox(367, 526, 656, 542), 1181220, 50, True));
end.
I am Ggzz..
Hackintosher
No ,this fontdoesn't exist. If you need proof:
Code:BigChars : ?p? ?+,|? CharsNPC : 88Oo0 gqtl8! CharsTrade : K6MM KM1K6 FriendChars : E5NFF hktL5r LoginChars : 0eT90 ?9tQee SmallChars : M?n9O LU?l?r SmallCharsNS : M9n9O LUIl9r StatChars : [?ƧM MM?|?F UPChars : DEmNU HUtlEr UpCharsEx : QeDnn DUtler XPChars : P999 89P9P
It should be upchars...
Working on: Tithe Farmer
I got this to work with a simple bmp(I'm doing the same thing).
Simba Code:Var
TBmp: Integer;
x, y: Integer;
Shit: Boolean;
Fail: Integer;
Procedure LoadM;
Begin
TBmp := BitmapFromString(22, 11, 'meJyVkl0KhDAMhD20T6vCnqcoeh' +
'kfIniXjZ0mndqiLAxlqMmXn9qHY1gKTdtpXqBP2KM57CzUPxESJxL' +
'uYS2CIL0ivErIJH277p/0xmhGaHylncQBZ9+StAhFoivdzAJhUSpd' +
'iCa6mAYhF2e+pB5iVmrGCW40DN6McA8lIQdzLWpMvDo4NcFK3x/FN' +
'iAM50ekKTJNjf8e1XqvsHE9f18trUo=');
End;
Function Buttler: Boolean;
Var
BTPA: TPointArray;
BPoint: TPoint;
i: Integer;
Label
Start;
Begin
If Not(LoggedIn) Then Exit;
If Not(InvEmpty) Then Exit;
Start:
Shit:=False;
Result := True;
FindColorsTolerance(BTPA, 2240365, MSX1, MSY1, MSX2, MSY2, 5);
If Length(BTPA) = 0 Then FindColorsTolerance(BTPA, 2834273, MSX1, MSY1, MSX2, MSY2, 5);
If Length(BTPA) = 0 Then FindColorsTolerance(BTPA, 1120569, MSX1, MSY1, MSX2, MSY2, 5);
If Length(BTPA) = 0 Then FindColorsTolerance(BTPA, 1515595, MSX1, MSY1, MSX2, MSY2, 5);
If Length(BTPA) = 0 Then FindColorsTolerance(BTPA, 461078, MSX1, MSY1, MSX2, MSY2, 5);
For i := 0 To High(BTPA) Do
Begin
BPoint := BTPA[i];
MMouse(BPoint.x, BPoint.y, 0, 0);
Wait(100+Random(25));
If IsUpTextMultiCustom(['to', 'Tal', 'De', 'emo', 'utl', 'mon']) Then
Begin
ClickMouse2(mouse_right);
Wait(375+Random(100));
ChooseOptionMulti(['etch', 'rom', 'ank']);
Wait(750+Random(125));
If FindBitmapIn(TBmp, x, y, 230, 401, 271, 419) Then
Begin
ClickToContinue;
Wait(75+Random(50));
ClickToContinue;
Wait(625+Random(100));
SendKeys('1', 15);
Wait(300+Random(50));
Shit := True;
End Else
Begin
SendKeys('1', 15);
Shit := False;
End;
Repeat
Wait(100+Random(100));
Until(ClickToContinue);
Wait(250+Random(150));
End;
If Shit = False Then Exit;
End;
If Shit = True Then GoTo Start;
End;
Then my make door/remove door are mouseboxes
Fonts for that name.. http://www.mediafire.com/?fzixzbomag2gco3
Oh and to use them.. Just do rename them to:
D: 68, b: 98, e: 101, l: 108, m: 109, n: 110, o: 111, r: 114, t: 116, u: 117.. These numbers are the ASCII values of each letter in that font..
Then place them in Simba/Fonts/NPCName.
Then do:
Simba Code:{$I SRL/SRL.Simba}
begin
SetupSRL;
writeln(GetTextAtExWrap(300, 386, 387, 401, 0, 5, 2, 11847373, 50, 'NPCName'));
end.
It'll print "Demon butler"
Sin Contact Ashaman88, as i was using his larder script with demon butler and it was flawless. He must have a fix that you could use maybe.
Just use FindColorCol/GetColor etc and search for the blue text, I do that for a lot of stuff and it works great, a lot faster than text searching too.
There are currently 1 users browsing this thread. (0 members and 1 guests)