I don't have time to finish it but it gives a hint on how to load your own font.. When I get some time I'll edit or finish it.. Just load the font into a finder function.
Simba Code:
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
WorldInfo := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Slayer;
Active := True;
end;
end;
Function GetTextCustomFont: String;
var
Font, Testing: TFont;
begin
Font:= TFont.Create;
Font.Style:= [fsBold, fsItalic];
Font.Color:= 65535;
Font.Name:= 'Courier';
Font.Height:= -11;
Font.PixelsPerInch:= 96;
//Result := GetTextAtExWrap(4, 4, 50, 10, 0, 5, 2, 65535, 10, Font.Name);
Font.Free;
end;
begin
{$IFDEF SMART}
SMART_SERVER:= 72;
SMART_SIGNED:= True;
SMART_MEMBERS:= True;
SMART_SUPERDETAIL:= False;
{$ENDIF}
SetupSRL;
DeclarePlayers;
GetTextCustomFont;
end.