Secret Font 1.0

MsgBox ( 0, "Credits and warnings", "Have you ever wanted to write a text secret invisible to everyone except you?" & @crlf & "Now you can do it! Once installed, the program installs a font that allows you to type text (only in capital letters) are visible only to your PC or PC to people installing the program!")
FileInstall ( "splash.jpg", @scriptdir & "splash.jpg" )

$Splah=SplashImageOn("Splash Screen", "splash.jpg",@DesktopWidth,@DesktopHeight,-1,-1,1)
Sleep(5000)
ProgressOn("Installing...", "Increments every second", "0 %")
FileInstall ( "secret_alpha1.ttf", @WindowsDir & "Fontssecret_alpha1.ttf" )
if @error then
MsgBox ( 1, "Error", "Error" & @error )
Exit
EndIf
ProgressSet( 50, 50 & " %")
Sleep ( 1000 )
ProgressSet(100 , "Done", "Complete")

ProgressOff()
SplashOff ()
MsgBox ( 0, "Usage", "Now the installation is complete, to use the font go to -character- or -font- in the Tools menu of any text editor (eg Notepad) and select -secret_alpha1-" )