SRL Archive - OSR Help

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

FindNPCChatText isn't working for this type.

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

FindNPCChatTextMulti(['render','unto'],nothing,10,5000);

If you ask about npc name ,this font doesn't exist.

It does exist lol..

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.

From: ggzz
It does exist lol..

No ,this font doesn't exist. If you need proof:

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…

I got this to work with a simple bmp(I'm doing the same thing).

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:

{$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.