RM2k3 Font Changer DynRPG-Plugin (ersetzt RM2k/3 Font Changer und AutoFontInstall)

Ich hab heute mal schnell ein Plugin gemacht um eigene Fonts im RM2k3 zu verwenden. Braucht DynRPG.

Im Prinzip ersetzt es die Tools RM2k/3 Font Changer und AutoFontInstall.

Download: http://share.cherrytree.at/showfile-...nt_changer.zip

Einfach die DLL in DynPlugins kopieren, einen Ordner "Fonts" erstellen, die Fonts da reinkopieren, und wie in der Readme beschrieben in die DynRPG.ini eintragen, z.B.:

Code:

---

[font_changer]
Font1=A New Font
Font2=Another Font

---

Eine Sammlung von netten Schriftarten gibts z.B. hier: http://rpga.info/forum/showthread.php?p=488466

Hey, das ist ja super! So gibt es dann auch keine Probleme mit Icons u.Ä.!

Eine Frage: Gibt's dazu auch den SourceCode? ^^

PeAcE
MorDen

Hatte ich nur schnell in FreeBasic hingeschmiert:

Code:

---

#Include "windows.bi"

Extern "windows-ms"
        Sub linkVersion Naked Alias "linkVersion" () Export
                Asm
                        .quad 2
                End Asm
        End Sub
End Extern

Type DelphiString
        c As Integer = -1
        l As Integer = 0
        s As ZString * 1024
        Declare Sub set(newstring As String)
End Type

Sub DelphiString.set(newstring As String)
        l = Len(newstring)
        s = newstring
End Sub

Dim Shared As DelphiString font1, font2

Function onStartup Cdecl Alias "onStartup" (pluginName As ZString Ptr) As Boolean Export
        Var p = CurDir() & "\Fonts"
        Var f = Dir(p & "\*.*")
       
        Do While Len(f)
                AddFontResource(p & "\" & f)
                f = Dir()
        Loop
       
        Dim As ZString * 1024 f1, f2
        GetPrivateProfileString(pluginName, "Font1", "", @f1, SizeOf(f1), CurDir() & "\DynRPG.ini")
        GetPrivateProfileString(pluginName, "Font2", "", @f2, SizeOf(f2), CurDir() & "\DynRPG.ini")
       
        font1.set(f1)
        font2.set(f2)
       
        If font1.l Then
                *CPtr(Any Ptr Ptr, &h4884A8) = @font1.s
        EndIf
       
        If font2.l Then
                *CPtr(Any Ptr Ptr, &h4884BF) = @font2.s
        EndIf
       
        Return TRUE
End Function

Sub onExit Cdecl Alias "onExit" () Export
        Var p = CurDir() & "\Fonts"
        Var f = Dir(p & "\*.*")
       
        Do While Len(f)
                RemoveFontResource(p & "\" & f)
                f = Dir()
        Loop
End Sub

---

Großes danke an Cherry, das wird sofort eingebaut =D