[XP] Zmiana rozmiarów okna w grze

[dawidpieper]

~ Zmiana rozmiaru okna w grze ~

Krótki opis:
Niedawno skończyłem temat rozmiarów okien w kursie RGSS i natchnęło mnie by napisać ten skrypt.
Wiele osób nie jest zadowolonych z tego, że rozmiary okna w RGSS to tylko 640/480 PX.
Możemy to zmienić.
Dziwi mnie, że wcześniej tu takiego skryptu nie było.

Autor:
Dawid Pieper (pajper)

Skrypt:

Spoiler: (Otwórz)

Kod: (Zaznacz wszystko)

begin
#konfiguracja
$window_size_x = 1280 #nowa szerokość okna
$window_size_y = 960 #Nowa wysokość okna
#Uwaga! Zalecane jest synchroniczne ułożenie rozmiarów.
#Oznacza to, że wartość wysokości względem szerokości powinna wynosić
#3:4 lub 9:16.
$window_size_z = 100 #Głębia okna
#Skrypt
$gametitle = "\0" * 511 #Uwaga! Jeśli tytuł twojej gry jest dłuższy niż 511
#znaków, zmień wszystkie 511 w skrypcie na np.: 1023
Win32API.new("kernel32","GetPrivateProfileString",'ppppip','i').call("Game","Title",'',$gametitle,511,".\\Game.ini") #Jeśli nazwa twojego pliku *.ini jest inna,
#zmień ją tutaj
$gametitle.delete!("\0")
$hwnd = Win32API.new("user32","FindWindow",'pp','i').call(nil,$gametitle)
Win32API.new("user32","SetWindowPos','ppiiiil','i').call($hwnd,$hwnd,
10,10,$window_size_x,$window_size_y,0x4000|0x2|0x4|0x40)
end
class Window_Base
  def initialize(x, y, width, height)
    super()
    @windowskin_name = $game_system.windowskin_name
    self.windowskin = RPG::Cache.windowskin(@windowskin_name)
    self.width = ((width.to_f / 640.0).to_f * $window_size_x.to_f).to_i
    self.height = ((height.to_f / 480.0).to_f * $window_size_y.to_f).to_i
    self.xidth = x
    self.y = y
    self.z = $window_size_z
  end
end

Dodatkowe informacje:
1. Wklej skrypt nad main
2. Skrypt nadpisuje definicję initializacji Window_Base - inne skrypty edytujące okienka mogą z nim nie działać
Gdyby coś nie działało, chętnie pomogę lub poprawię skrypt.

[ADI]

Nie będzie to przypadkiem "rozmazywać" ekranu?

Czy będzie działać poprawnie z czymś takim:

Kod: (Zaznacz wszystko)

if $shown == nil
$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

[dawidpieper]

Ze skryptem na pełen ekran działą, sam to wcześniej sprawdzałem.

Pozdrawiam
Pajper

[ADI]

Na chwilę obecną, tylko tyle chciałem wiedzieć :P

Skrypcik dość przydatny i z pewnością użyję...

Pozdrawiam