*Screen Tint Debug

[Zosimos]

Screen Tint Debug

Descrizione

 

In genere non posto mai script, ma faccio un'eccezione per quelli adatti a "facilitare" e "velocizzare" la programmazione dei nostri giochi. Questo è un caso del genere.

Una delle cose più fastidiose in XP quando si usa il comando "Tint screen" è quella di dover controllare ogni volta l'effetto finale del comando aprendo e chiudendo il gioco.
Ecco la soluzione. Accedendo alla modalità debug (F12 o F8) questo script consente di cambiare i valori RGB del "Tint screen" direttamente in gioco, senza dover chiudere e riaprire ogni volta il progetto per verificare l'effetto delle nostre modifiche. Ovviamente, i valori non verranno salvati dallo script nell'evento, dunque dovrete scriverli a parte e modificarli in un secondo momento, una volta trovata la tonalità che più vi soddisfa.

Autore

 

Leon_Westbrooke

Allegati

 

Nessuno

Istruzioni per l'uso

 

Non ho tradotto lo script perchè la funzione è semplicissima. Una volta aperta la modalità test del vostro progetto, premendo F8 si apre una finestra con i parametri, che possono essere cambiati con le frecce direzionali. Ricordatevi di appuntarvi a parte i nuovi valori, perchè lo script non provvede al salvataggiod egli stessi

 

 

 

# Screen Tint Debug Menu by Leon_Westbrooke
#-------------------------------------------------------------------------------
# This scene allows you, in Debug mode, tamper with the map's tone until you
# find a desired coloring.
# It will NOT set the tone for you automatically. Instead, record the numbers
# and use them in a change screen tone event. However, this should cut down
# on countless testing of the screen's tint.
#
# To use:
# Plug the script into your game's script archive.
# To access it, go into debug mode (F12) and press F8 to access the menu.
# Use the arrow keys to change the maps tone.
#-------------------------------------------------------------------------------


#-------------------------------------------------------------------------------
# * Game_Temp
#-------------------------------------------------------------------------------
class Game_Temp
	alias leon_stdm_gametemp_init initialize
	
	attr_accessor :tinttest_red
	attr_accessor :tinttest_green
	attr_accessor :tinttest_blue
	attr_accessor :tinttest_gray
	
	def initialize
		leon_stdm_gametemp_init
		@tinttest_red = 0
		@tinttest_green = 0
		@tinttest_blue = 0
		@tinttest_gray = 0
	end
end
#-------------------------------------------------------------------------------
# END Game_Temp
#-------------------------------------------------------------------------------


#-------------------------------------------------------------------------------
# * Spriteset_Map
#-------------------------------------------------------------------------------
class Spriteset_Map
	attr_accessor :viewport1
end

class Game_Screen
	attr_accessor :tone
end
#-------------------------------------------------------------------------------
# END Spriteset_Map
#-------------------------------------------------------------------------------


#-------------------------------------------------------------------------------
# * Scene_Map
#-------------------------------------------------------------------------------
class Scene_Map
	
	alias leon_svcl_scenemap_update update
	
	def update
		leon_svcl_scenemap_update
		if $DEBUG and Input.press?(Input::F8)
			$scene = Scene_TintDebug.new
		end
	end
end
#-------------------------------------------------------------------------------
# END Scene_Map
#-------------------------------------------------------------------------------


#-------------------------------------------------------------------------------
# * Window_TintTest
#-------------------------------------------------------------------------------
class Window_TintTest < Window_Selectable
	def initialize
		super(0, 0, 192, 192)
		self.contents = Bitmap.new(width - 32, height - 32)
		@item_max = 5
		self.index = 0
		self.active = true
		refresh
	end
	
	def refresh
		self.contents.clear
		self.contents.draw_text(4, 0, 160, 32, "Red")
		self.contents.draw_text(4, 32, 160, 32, "Green")
		self.contents.draw_text(4, 64, 160, 32, "Blue")
		self.contents.draw_text(4, 96, 160, 32, "gray")
		self.contents.draw_text(4, 128, 160, 32, "Exit")
		self.contents.draw_text(-4, 0, 160, 32, $game_temp.tinttest_red.to_s, 2)
		self.contents.draw_text(-4, 32, 160, 32, $game_temp.tinttest_green.to_s, 2)
		self.contents.draw_text(-4, 64, 160, 32, $game_temp.tinttest_blue.to_s, 2)
		self.contents.draw_text(-4, 96, 160, 32, $game_temp.tinttest_gray.to_s, 2)
	end
end
#-------------------------------------------------------------------------------
# END Window_TintTest
#-------------------------------------------------------------------------------


#-------------------------------------------------------------------------------
# * Scene_TintDebug
#-------------------------------------------------------------------------------
class Scene_TintDebug
	def main
		@spriteset = Spriteset_Map.new
		$game_temp.tinttest_red = @spriteset.viewport1.tone.red.to_i
		$game_temp.tinttest_green = @spriteset.viewport1.tone.green.to_i
		$game_temp.tinttest_blue = @spriteset.viewport1.tone.blue.to_i
		$game_temp.tinttest_gray = @spriteset.viewport1.tone.gray.to_i
		@window_tint = Window_TintTest.new
		
		Graphics.transition
		loop do
			Graphics.update
			Input.update
			update
			if $scene != self
				break
			end
		end
		Graphics.freeze
		@window_tint.dispose
		@spriteset.dispose
	end
	
	
	def update
		if Input.trigger?(Input::B)
			$scene = Scene_Map.new
		end
		
		if @window_tint.active
			update_windowtint
			return
		end
	end
	
	def update_windowtint
		@window_tint.update
		case @window_tint.index
		when 0
			if Input.trigger?(Input::RIGHT)
				$game_temp.tinttest_red += 1
				if $game_temp.tinttest_red >= 255
					$game_temp.tinttest_red = 255
				end
			elsif Input.trigger?(Input::LEFT)
				$game_temp.tinttest_red -= 1
				if $game_temp.tinttest_red <= -255
					$game_temp.tinttest_red = -255
				end
			elsif Input.repeat?(Input::RIGHT)
				$game_temp.tinttest_red += 5
				if $game_temp.tinttest_red >= 255
					$game_temp.tinttest_red = 255
				end
			elsif Input.repeat?(Input::LEFT)
				$game_temp.tinttest_red -= 5
				if $game_temp.tinttest_red <= -255
					$game_temp.tinttest_red = -255
				end
			end
		when 1
			if Input.trigger?(Input::RIGHT)
				$game_temp.tinttest_green += 1
				if $game_temp.tinttest_green >= 255
					$game_temp.tinttest_green = 255
				end
			elsif Input.trigger?(Input::LEFT)
				$game_temp.tinttest_green -= 1
				if $game_temp.tinttest_green <= -255
					$game_temp.tinttest_green = -255
				end
			elsif Input.repeat?(Input::RIGHT)
				$game_temp.tinttest_green += 5
				if $game_temp.tinttest_green >= 255
					$game_temp.tinttest_green = 255
				end
			elsif Input.repeat?(Input::LEFT)
				$game_temp.tinttest_green -= 5
				if $game_temp.tinttest_green <= -255
					$game_temp.tinttest_green = -255
				end
			end
		when 2
			if Input.trigger?(Input::RIGHT)
				$game_temp.tinttest_blue += 1
				if $game_temp.tinttest_blue >= 255
					$game_temp.tinttest_blue = 255
				end
			elsif Input.trigger?(Input::LEFT)
				$game_temp.tinttest_blue -= 1
				if $game_temp.tinttest_blue <= -255
					$game_temp.tinttest_blue = -255
				end
			elsif Input.repeat?(Input::RIGHT)
				$game_temp.tinttest_blue += 5
				if $game_temp.tinttest_blue >= 255
					$game_temp.tinttest_blue = 255
				end
			elsif Input.repeat?(Input::LEFT)
				$game_temp.tinttest_blue -= 5
				if $game_temp.tinttest_blue <= -255
					$game_temp.tinttest_blue = -255
				end
			end
		when 3
			if Input.trigger?(Input::RIGHT)
				$game_temp.tinttest_gray += 1
				if $game_temp.tinttest_gray >= 255
					$game_temp.tinttest_gray = 255
				end
			elsif Input.trigger?(Input::LEFT)
				$game_temp.tinttest_gray -= 1
				if $game_temp.tinttest_gray <= -255
					$game_temp.tinttest_gray = -255
				end
			elsif Input.repeat?(Input::RIGHT)
				$game_temp.tinttest_gray += 5
				if $game_temp.tinttest_gray >= 255
					$game_temp.tinttest_gray = 255
				end
			elsif Input.repeat?(Input::LEFT)
				$game_temp.tinttest_gray -= 5
				if $game_temp.tinttest_gray <= -255
					$game_temp.tinttest_gray = -255
				end
			end
		when 4
			if Input.trigger?(Input::B)
				$scene = Scene_Map.new
			end
		end
		red = $game_temp.tinttest_red
		green = $game_temp.tinttest_green
		blue = $game_temp.tinttest_blue
		gray = $game_temp.tinttest_gray
		@spriteset.viewport1.tone = Tone.new(red, green, blue, gray)
		$game_screen.tone = Tone.new(red, green, blue, gray)
		@window_tint.refresh
		@spriteset.update
	end
end
#-------------------------------------------------------------------------------
# * Scene_TintDebug
#-------------------------------------------------------------------------------

 

Bugs e Conflitti Noti

 

N/A

Edited April 27, 2013 by Dilos
Script monoriga sistemato.

[Guardian of Irael]

Ah bene uno script semplice ma più che utile per vedere l'effetto in game! ° °

^ ^

 

Ora pure Zosimos posta script e cambia avatar, forse un giorno pure io chissà... XD

Bel lavoro! ^ ^

[Zosimos]

Ti piace il biondone? E' un'anticipazione del mio prossimo gioco.

Comunque detesto postare script con i menu strafighi e i bestiari, meglio quelli che intervengano sui meccanismi del tool, sono infinitamente più utili.

[Guardian of Irael]

Comunque detesto postare script con i menu strafighi e i bestiari, meglio quelli che intervengano sui meccanismi del tool, sono infinitamente più utili.

Soprattutto quando uccidono lo stile proprio

 

OT ma...

Ti piace il biondone? E' un'anticipazione del mio prossimo gioco.

:◻ lo disegnasti te? ◻:

Se sì per ritornare IN postalo in un topic apposito e mostracelo per bene ◻:

^ ^