Results 1 to 12 of 12

Thread: Fonts, which font is this?

  1. #1
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default Fonts, which font is this?

    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?

  2. #2
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    How about ClickContinue and FindNPCChatText

  3. #3
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    FindNPCChatText isn't working for this type.

  4. #4
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    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.

  5. #5
    Join Date
    Oct 2011
    Posts
    805
    Mentioned
    21 Post(s)
    Quoted
    152 Post(s)

    Default

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

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

  6. #6
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    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

  7. #7
    Join Date
    Oct 2011
    Posts
    805
    Mentioned
    21 Post(s)
    Quoted
    152 Post(s)

    Default

    Quote Originally Posted by ggzz View Post
    It does exist lol..
    No ,this font doesn'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

  8. #8
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default

    It should be upchars...
    Working on: Tithe Farmer

  9. #9
    Join Date
    Jun 2007
    Location
    Greenville, SC
    Posts
    1,149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  10. #10
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    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"

  11. #11
    Join Date
    Mar 2012
    Location
    U.K
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  12. #12
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    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.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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