Dołączył: 20 Mar 2013 Posty: 24 Skąd: Zapomniane Królestwo
Wysłany: Sob 13 Kwi, 2013 18:22
Prośba o pomoc ze skryptem
Spoiler:
#===========================================================================#
# #*****************# Game Resolution 1.1 #
# #*** By Falcao ***# Add the resolution option to the menu #
# #*****************# RMVXACE Date Aungust 6 2012 #
#===========================================================================#
#---------------------------------------------------------------------------
# This script add a resolution option to the game menu, you can choose from
# Normal screen 544 x 416 and Full screen, also it remember your last option
# when you start the game.
#
# Installation: copy and paste above main
#--------------------------------------------------------------------------
module FalRes
def self.write_decision
File.delete("System/Resolution.txt") rescue nil
File.open("System/Resolution.txt","a+") {|fh|fh.puts($game_resolution)}
end
def self.read_decision
decision = File.read("System/Resolution.txt").split("\n") rescue [0]
return decision.last.to_i
end
def self.resolution
res = Win32API.new 'user32', 'keybd_event', %w(l l l l), ''
res.call(18,0,0,0)
res.call(13,0,0,0)
res.call(13,0,2,0)
res.call(18,0,2,0)
end
$game_resolution = self.read_decision
self.resolution if $game_resolution == 1
end
class Window_MenuCommand < Window_Command
alias falcao_addnew_command add_original_commands
def add_original_commands
add_command('Rozdzielczość', :reso, main_commands_enabled)
falcao_addnew_command
end
end
class Scene_Menu < Scene_MenuBase
alias falcao_reso_command create_command_window
def create_command_window
falcao_reso_command
@command_window.set_handler(:reso, method(:resolution_window))
end
def reso_selection
case @commands_reso.current_symbol
when :normal
if $game_resolution == 1
$game_resolution = 0
make_resolution
else
cancelar ; return
end
@commands_reso.activate
when :full
if $game_resolution == 0
$game_resolution = 1
make_resolution
else
cancelar ; return
end
@commands_reso.activate
end
end
def make_resolution
FalRes.resolution
FalRes.write_decision
end
def cancelar
@commands_reso.dispose
@commands_reso = nil
@command_window.activate
end
end
class Window_ResoCommand < Window_Command
def initialize
super(164, 130)
self.openness = 0
open
end
def window_width
return 180
end
def make_command_list
add_command('Normal 544x416', :normal)
add_command('Full Screen ', :full)
end
end
Czy mógł by mi ktoś pomóc przerobić ten skrypt tak by można było powiększyć okno nie tylko na full ale np. na 800x600? ;>
Sprawdzałeś skrypt do VX. Może będzie działać: http://www.ultimateam.pl/...p?p=89593#89593
Autor napisał że działa z XP. Warto spróbować, bo pewnie przerobienie Twoje skryptu zajmie dużo czasu i pracy. O ile znajdzie się taki, który będzie umiał :I
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach Nie możesz załączać plików na tym forum Możesz ściągać załączniki na tym forum