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

[Cherry]

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

[Morden]

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

[Cherry]

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

[Davy Jones]

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