Foros de Emudesc

#=============================================================================#
# ** Main Mejorado(Silet's Enhanced Main)
#------------------------------------------------------------------------------#
#  Main mejorado para evitar problemas de fuentes causados por algunos scripts.
#------------------------------------------------------------------------------#
# Las variables globales usadas para las fuentes estan puestas de esa manera
# para que se pueda definir una fuente diferente para cada script...
# o para que un scripter que use variables globales tenga diferentes tipos de
# fuentes...
#==============================================================================#


begin#Comienzo del Silent's Main
#=================================================#

  #Opcion de Pantalla Completa
  #===============================================#
  #Si esta en true, el juego iniciara en Pantalla
  #Completa solo si se ejecuta desde el Game.exe
  PANTALLACOMPLETA = false# true/false
  #Si esta en false...no habra Pantalla Completa.
  #===============================================#
  
  #Definiciones de Fuente
  #===============================================#
  # Donde pone "Tahoma", entre comillas va el
  # nombre de tu fuente(puedes dejar esta)
  Font.default_name = "Tahoma"
  Font.default_size = 18
  # Recuerda no tener errores al escribir el nombre
  #===============================================#
  
  #Variables globales para fuentes

  $defaultfonttype = "Tahoma" #Nombre de fuente
  $defaultfontface = "Tahoma" #Nombre de fuente
  $defaultfontname = "Tahoma" #Nombre de fuente
  
  $defaultfontsize = 18# Tamaño de la fuente, no es recomendable mas de 22.
  
  $fontface = "Tahoma" #Nombre de fuente
  $fontname = "Tahoma" #Nombre de fuente
  $fonttype = "Tahoma" #Nombre de fuente
  
  $fontsize = 18# Tamaño de la fuente, no es recomendable mas de 22.
  
#==============================================================================#    
# - Pantalla  Completa -
#==============================================================================#  
if PANTALLACOMPLETA == true
if $DEBUG == false  
   $showm = Win32API.new 'user32', 'keybd_event', %w(l l l l), ''
   $showm.call(18,0,0,0)
   $showm.call(13,0,0,0)
   $showm.call(13,0,2,0)
   $showm.call(18,0,2,0)
end
end
#==============================================================================#
# - Main  "Standard" -
#==============================================================================#
  Graphics.freeze
  $scene = Scene_Title.new
  while $scene != nil
    $scene.main
  end
  # Fade out
  Graphics.transition(20)
rescue Errno::ENOENT
  filename = $!.message.sub('No se encontó el archivo o directorio - ', '')
  print("Error RGSS: #{filename}")
#==============================================================================#
# - Main's   Final -
#==============================================================================#
end