Torturons la fenetre de jeu... grace aux apis

Bonjour a tous...
plein de scripts completement inutiles...mais je commence a avoir l'habitude:


Attention: fenetre de jeu, tu vas prendre cher

1) supprimer le cadre de la fenetre de jeu
permet de supprimer le cadre de la fenetre de jeu...
inconveniants: plus la croix pour quitter le jeu... genant...

remplacez votre script main par:

Code:

#==============================================================================
# ■ Main  par berka:  suppression du cadre de la fenetre...
#==============================================================================
#===============================================================
#                         
#                rpgmakervx.1fr1.net                                         
#     
#===============================================================
unless Font.exist?("UmePlus Gothic")
  print "UmePlus Gothic フォントが見つかりません。"
  exit
end
begin
  def handle
    title = "\0" * 256
    Win32API.new('kernel32', 'GetPrivateProfileString',%w(p p p p l p), 'l').call("Game", "Title", "", title, 256, ".//Game.ini")
    title.delete!("\0")
    return Win32API.new('user32', 'FindWindow', "p, p", 'i').call("RGSS Player", title)
  end
  Win32API.new("user32.dll", "SetWindowLong",['N','N','N'], 'N').call(handle,-16,0x00800000|0x10000000|0x00080000| 0x00040000)
  Graphics.freeze
  $scene = Scene_Title.new
  $scene.main while $scene != nil
  Graphics.transition(30)
rescue Errno::ENOENT
  filename = $!.message.sub("No such file or directory - ", "")
  print("ファイル #{filename} が見つかりません。")
end

notez que vous pouvez redimensionner la fenetre :



2) la rendre transparente...

remplacez main par

Code:

#==============================================================================
# ■ Main  par berka:  cadre de la fenetre... transparent
#==============================================================================
unless Font.exist?("UmePlus Gothic")
  print "UmePlus Gothic フォントが見つかりません。"
  exit
end
begin
  Transparence = 100 #entre 0 et 192: 0 totalement transparent
  def handle
    title = "\0" * 256
    Win32API.new('kernel32', 'GetPrivateProfileString',%w(p p p p l p), 'l').call("Game", "Title", "", title, 256, ".//Game.ini")
    title.delete!("\0")
    return Win32API.new('user32', 'FindWindow', "p, p", 'i').call("RGSS Player", title)
  end
  Getlong = Win32API.new("user32.dll", "GetWindowLong",['N','N'], 'N')
  Setlong = Win32API.new("user32.dll", "SetWindowLong",['N','N','N'], 'N')
  Setlong.call(handle,-20, Getlong.call(handle,-20) | 0x80000 )
  Win32API.new("user32.dll",'SetLayeredWindowAttributes','IIII','I').call(handle, 0xFF000000, Transparence, 3)
  Graphics.freeze
  $scene = Scene_Title.new
  $scene.main while $scene != nil
  Graphics.transition(30)
rescue Errno::ENOENT
  filename = $!.message.sub("No such file or directory - ", "")
  print("ファイル #{filename} が見つかりません。")
end

3) ouverture et fermeture en fondu

a placer au dessus de main:

Code:

def handle
    title = "\0" * 256
    Win32API.new('kernel32', 'GetPrivateProfileString',%w(p p p p l p), 'l').call("Game", "Title", "", title, 256, ".//Game.ini")
    title.delete!("\0")
    return Win32API.new('user32', 'FindWindow', "p, p", 'i').call("RGSS Player", title)
  end

SetWindowRgn=Win32API.new("user32", "SetWindowRgn", "ILI", "I")
CreateEllipticRgn=Win32API.new("gdi32","CreateRectRgn","IIII","L")
def ouvrir;for i in 0...544;SetWindowRgn.call(handle,CreateEllipticRgn.call(0,0,i+8,i+8), 1);end;end
def fermer;for i in 0...544;SetWindowRgn.call(handle,CreateEllipticRgn.call(0,0,544-i-8,416-i-8),1);end;exit;end

pour ouvrir:
dans main, juste apres begin, ajoutez:
ouvrir

pour fermer:
dans main apres $scene.main while $scene != nil ajoutez:
fermer if $scene.nil?

Totalement gadget, mais pourquoi pas!

Moi j'dis merci et bravo berka.

Idem peut-être facultatif, mais ce sont quelques astuces toujours pratiques

Merci Berka