Libro per la raccolta di Oggetti

[fanton95]

Oggettario

Descrizione

Un sistema simile allo bestiario ma con gli oggetti.

 

Autore

LB

 

Allegati

 

 ###########################################################
#################### LIVRO DE ITENS #######################
#### V 1.0.2 ##############################################
################################### Por: LB ###############
###########################################################[/b]

[b]BACK_LITENS = ""[/b]

[b]class Scene_LItens < Scene_Base
def start
super
create_menu_background
@window_items = Window_LItens.new(228,416)
@window_infos = Window_Base.new(228,0,316,416)
if BACK_LITENS != ""
@window_items.opacity = 0
@window_infos.opacity = 0
@window_items.z = 1
@window_infos.z = 1
@back = Sprite.new
@back.bitmap = Bitmap.new(BACK_LITENS)
end
b = 0
for i in 0...$data_items2.size
if $data_items2[i + 1] == true
b += 1
end
end
if b == 0
@t = false
@window_items.index = -1
@window_info = Window_Base.new(261,180,250,128)
@window_info.contents.draw_text(0, 0, 218, 24, "Você não conhece", 1)
@window_info.contents.draw_text(0, 24, 218, 24, "nenhum item", 1)
@window_info.contents.draw_text(0, 72, 218, 24, "Precione ESC para sair", 1)
else
@t = true
update_info
@window_info = Window_Base.new(261,180,250,128)
@window_info.visible = false
end
end
def update
super
update_menu_background
@window_items.update
if Input.trigger?(Input::B)
Sound.play_cancel
$scene = Scene_Map.new
elsif Input.repeat?(Input::DOWN) and @t
update_info
elsif Input.repeat?(Input::UP) and @t
update_info
end
end
def terminate
super
dispose_menu_background
@window_info.dispose
@window_items.dispose
@window_infos.dispose
if BACK_LITENS != ""
@back.dispose
end
end
def update_info
@a = []
b = 0
for i in 0...$data_items2.size
if $data_items2[i + 1] == true
@a[b] = i + 1
b += 1
end
end
@window_infos.contents.clear
item = $data_items[@a[@window_items.index]]
@window_infos.contents.font.color = @window_infos.normal_color
@window_infos.contents.draw_text(0, 24 * 0, 284, 24, "Nome: " + item.name.to_s)
@window_infos.contents.draw_text(0, 24 * 1, 284, 24, item.description.to_s)
@window_infos.contents.draw_text(0, 24 * 2, 284, 24, "Valor: " + item.price.to_s)
cx = @window_infos.contents.text_size("Valor: " + item.price.to_s).width
@window_infos.contents.draw_text(cx, 24 * 2, 284, 24, " " + Vocab::gold)
hp = "Recuperação de HP: " + item.hp_recovery.to_s + " + " + item.hp_recovery_rate.to_s + "%"
mp = "Recuperação de MP: " + item.mp_recovery.to_s + " + " + item.mp_recovery_rate.to_s + "%"
@window_infos.contents.draw_text(0, 24 * 4, 284, 24, hp)
@window_infos.contents.draw_text(0, 24 * 5, 284, 24, mp)
if item.parameter_type > 0
parameter = ["","o HP Max","o MP Max","o Ataque","a Defesa","a Agilidade","a Inteligencia"]
text = "Almenta " + parameter[item.parameter_type] + " em " + item.parameter_points.to_s + " pontos"
else
text = "Não modifica atributos"
end
@window_infos.contents.draw_text(0, 24 * 7, 284, 24, text)
scopes = ["Nenhum","Um inimigo","Grupo de inimigos","Próximo inimigo","Um inimigo aleatório","Dois inimigos aleatórios","Três inimigos aleatórios","Um aliado","Grupo de personagens","Um aliado morto","Todos os personagens mortos","Herói"]
text = "Afeta: " + scopes[item.scope]
@window_infos.contents.draw_text(0, 24 * 9, 284, 24, text)
occasions = ["Batalha e menu","Apenas batalha","Apenas menu","Não usável"]
text = "Usável em: " + occasions[item.occasion]
@window_infos.contents.draw_text(0, 24 * 10, 284, 24, text)
sn = item.consumable ? "Sim" : "Não"
@window_infos.contents.draw_text(0, 24 * 12, 284, 24, "Consumivel? " + sn)
@window_infos.contents.draw_text(0, 24 * 15, 284, 24, "Precione ESC para sair")
end
end
class Scene_Title < Scene_Base
alias litens command_new_game
def command_new_game
litens
$data_items2 = [nil]
for i in 1...$data_items.size - 1
$data_items2[i] = false
end
end
end
class Window_LItens < Window_Selectable
def initialize(width, height)
super(0, 0, width, height)
@commands = $data_items2
@item_max = @commands.size
@column_max = 1
self.contents = Bitmap.new(width-32,@commands.size*24)
refresh
self.index = 0
end
def refresh
self.contents.clear
@a = 0
for i in [email="0...@item_max"]0...@item_max[/email]
if $data_items2[i + 1] == true
draw_item(i)
@a += 1
end
end
@item_max = @a
end
def draw_item(index, enabled = true)
rect = item_rect(@a)
self.contents.clear_rect(rect)
self.contents.font.color = normal_color
self.contents.font.color.alpha = enabled ? 255 : 128
draw_item_name($data_items[index + 1], rect.x, rect.y)
end
end
class Game_Party < Game_Unit
def gain_item(item, n, include_equip = false)
number = item_number(item)
case item
when RPG::Item
@items[item.id] = [[number + n, 0].max, 99].min
$data_items2[item.id] = true
when RPG::Weapon
@weapons[item.id] = [[number + n, 0].max, 99].min
when RPG::Armor
@armors[item.id] = [[number + n, 0].max, 99].min
end
n += number
if include_equip and n < 0
for actor in members
while n < 0 and actor.equips.include?(item)
actor.discard_equip(item)
n += 1
end
end
end
end
end [/b][b]

 

Istruzioni per l'uso

 

Per richiamare lo script tramite evento usare:

$scene = Scene_LItens.new

 

Screen:

 

http://img268.imageshack.us/img268/7308/rhfjdjejdb.png

Edited October 21, 2009 by fanton95

[Kingartur2]

Screen???

[MasterSion]

Forse sarebbe stato meglio fare l'equippario 0_o.

[fanton95]

Screen???

 

Aggiunto nel primo post =)

[Kingartur2]

Be niente di specale raccoglie le propietà degli oggetti.....

utile.....quasi quasi lo adatto al XP

[fanton95]

Beh niente di speciale raccoglie le proprietà degli oggetti.....

utile.....quasi quasi lo adatto al XP

 

Si non è niente di speciale ma mancava sul forum e mi sembrava giusto postarlo =)

[MasterSion]

Hai fatto bene a postarlo. Comunque si può scrivere sia propRietà che propietà...

[fanton95]

Comunque si può scrivere sia propRietà che propietà...

 

Ero convinto del contrario fino ad adesso O_O

 

Andiamo un pò in OFFTOPIC però mi devi togliere questo dubbio; scusa proprio non deriva da proprietà? Si può scrivere anche propio?

[Kingartur2]

Io so che no

[Marcoz]

Scusate ma mi dice che ho un problema nella linea 128... Ho copiato tutto bene...

Cosa devo fare?

[Guardian of Irael]

Posta il tipo di errore, così è più facile che qualcuno riesca ad aiutarti.

^ ^

[Marcoz]

line 128 sintax error ocurred

[DarkAlexander]

Posta il tipo di errore, così è più facile che qualcuno riesca ad aiutarti.

^ ^

 

Stesso identico errore anche io...!

Linea 128, quella che dice:

 

for i in 0...@item_max

 

Qualche idea su come risolvere?

[giver]

Suppongo vada sostituita da:

for i in 0...@item_max

 

Io non ho il VX e non posso verificare . . .

[DarkAlexander]

Suppongo vada sostituita da:

for i in 0...@item_max

 

Io non ho il VX e non posso verificare . . .

 

Pensavo di aver risposto, ed invece no...

Comunque esce sempre lo stesso errore... Qualcuno ha altre idee?

[giver]

Allora. Se volevi imparare qualcosa dal codice di questo script, lascia perdere: è uno script di melma programmato da un incapace . . .

 

Ci sono un sacco di altri errori, che forse sono riuscito a correggere, ma resta comunque uno script di melma . . .

Es. La lista degli Oggetti conosciuti non viene salvata da nessuna parte (neppure inclusa in una delle istanze che vengono salvate), quindi viene resettata ad ogni partita, ed accedere a Scene_LItens da un salvataggio dovrebbe dare errori in quanto la lista viene creata solo quando si sceglie "nuova partita" . . .

 

Non sono sicuro che funzioni sotto il VX, ma l'ho pesantemente corretta (non ho aggiunto alcuna funzione, però) e commentata. Ho fatto dei Test su un suo adattamento per XP, e sembra funzionare . . .

Screen del test con XP:

 

 

 

 

 

Script Modificato e commentato

############################################################################### LIVRO DE ITENS ########################### V 1.0.2 ################################################################################# Por: LB ########################################################################## #>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>># PESANTEMENTE MODIFICATO DA giver (con Commenti al codice) j2010-09-11#<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< # L'immagine, se si inserisce solo il nome del file, credo debba trovarsi nella#   cartella principale del progetto (Ribadisco una volta di più che non ho il VX)# Si può indicare una sottocartella inserendone il nome seguito da una /#   Es. BACK_LITENS = "sottocartella/litens bg"BACK_LITENS = "" class Scene_LItens < Scene_Base  #  def start	super	create_menu_background	# Crea finestra con lista degli oggetti conosciuti	@window_items = Window_LItens.new(228,416)	# Crea finestra per mostrare i dati dell'oggetto selezionato	@window_infos = Window_Base.new(228,0,316,416)	# Se è presente un fondale, elimina la struttura delle finestre e lo disegna	if BACK_LITENS != ""	  @window_items.opacity = 0	  @window_infos.opacity = 0	  @window_items.z = 1	  @window_infos.z = 1	  @back = Sprite.new	  @back.bitmap = Bitmap.new(BACK_LITENS)	end	# Verifica quanti oggetti sono conosciuti (inclusi nel Catalogo)	b = 0	# Scorre la lista dove è indicato quali oggetti si conoscono	#   dal secondo elemento (0 + 1) all'ultimo ($data_items2.size - 2 + 1)	#   e conta quelli che risultano conosciuti	for i in 0...$data_items2.size - 1		  # +0	  if $data_items2[i + 1] == true		b += 1	  end	end	# Se non ci sono oggetti conosciuti	if b == 0	  # Mette una flag a false	  @t = false	  # Imposta la lista degli oggetti vuota affinchè non mostri il cursore	  @window_items.index = -1	  # Crea una terza finestra, dove avvisa dell'indisponibilità di informazioni	  #   e che per uscire da questa Scene bisogna premere ESC	  @window_info = Window_Base.new(261,180,250,128)	  @window_info.contents.draw_text(0, 0, 218, 24, "Você não conhece", 1)	  @window_info.contents.draw_text(0, 24, 218, 24, "nenhum item", 1)	  @window_info.contents.draw_text(0, 72, 218, 24, "Precione ESC para sair", 1)	else			 # (se invece ci sono oggetti conosciuti)	  # Mette una flag a true	  @t = true	  # Aggiorna i dati a disposizione e mostra quelli dell'oggetto selezionato	  #	attraverso	  def update_info	 (vedi)	  update_info	  # Crea una terza finestra e la nasconde	  @window_info = Window_Base.new(261,180,250,128)	  @window_info.visible = false	end  end  #  def update	super	update_menu_background	@window_items.update	if Input.trigger?(Input::B)	  Sound.play_cancel	  $scene = Scene_Map.new	elsif Input.repeat?(Input::DOWN) and @t	  # Se Freccia-Giù viene premuto e la flag @t è true	  # aggiorna i dati a disposizione e mostra quelli dell'oggetto selezionato	  #	attraverso	  def update_info	 (vedi)	  update_info	elsif Input.repeat?(Input::UP) and @t	  # Se Freccia-Su viene premuto e la flag @t è true	  # aggiorna i dati a disposizione e mostra quelli dell'oggetto selezionato	  #	attraverso	  def update_info	 (vedi)	  update_info	end  end  #  def terminate	super	dispose_menu_background	@window_info.dispose	@window_items.dispose	@window_infos.dispose	# Se è stato usato un fondale personalizzato, lo elimina	if BACK_LITENS != ""	  @back.dispose	end  end  #  def update_info	# La variabile @a viene impostata come Array vuoto	@a = []	# Scorre la lista dove è indicato quali oggetti si conoscono	#   e, quando ne individua uno, ne inserisce l'indice in @a	b = 0	for i in 0...$data_items2.size - 1			   # +0	  if $data_items2[i + 1] == true		@a[b] = i + 1		b += 1	  end	end	@window_infos.contents.clear	# Prende dal DataBase l'oggetto selezionato nella finestra con la lista	#   degli Oggetti Conosciuti, e ne mostra i dati	item = $data_items[@a[@window_items.index]]	@window_infos.contents.font.color = @window_infos.normal_color	@window_infos.contents.draw_text(0, 24 * 0, 284, 24, "Nome: " + item.name.to_s)	@window_infos.contents.draw_text(0, 24 * 1, 284, 24, item.description.to_s)	@window_infos.contents.draw_text(0, 24 * 2, 284, 24, "Valor: " + item.price.to_s)	cx = @window_infos.contents.text_size("Valor: " + item.price.to_s).width	@window_infos.contents.draw_text(cx, 24 * 2, 284, 24, " " + Vocab::gold)	hp = "Recuperação de HP: " + item.hp_recovery.to_s + " + " +		 item.hp_recovery_rate.to_s + "%"	mp = "Recuperação de MP: " + item.mp_recovery.to_s + " + " +		 item.mp_recovery_rate.to_s + "%"	@window_infos.contents.draw_text(0, 24 * 4, 284, 24, hp)	@window_infos.contents.draw_text(0, 24 * 5, 284, 24, mp)	if item.parameter_type > 0	  parameter = ["","o HP Max","o MP Max","o Ataque","a Defesa","a Agilidade",				  "a Inteligencia"]	  text = "Almenta " + parameter[item.parameter_type] + " em " +			 item.parameter_points.to_s + " pontos"	else	  text = "Não modifica atributos"	end	@window_infos.contents.draw_text(0, 24 * 7, 284, 24, text)	# Elenco dei possibili Bersagliamenti	scopes = ["Nenhum","Um inimigo","Grupo de inimigos","Próximo inimigo",			  "Um inimigo aleatório","Dois inimigos aleatórios",			  "Três inimigos aleatórios","Um aliado","Grupo de personagens",			  "Um aliado morto","Todos os personagens mortos","Herói"]	text = "Afeta: " + scopes[item.scope]	@window_infos.contents.draw_text(0, 24 * 9, 284, 24, text)	occasions = ["Batalha e menu","Apenas batalha","Apenas menu","Não usável"]	text = "Usável em: " + occasions[item.occasion]	@window_infos.contents.draw_text(0, 24 * 10, 284, 24, text)	sn = item.consumable ? "Sim" : "Não"	@window_infos.contents.draw_text(0, 24 * 12, 284, 24, "Consumivel? " + sn)	@window_infos.contents.draw_text(0, 24 * 15, 284, 24, "Precione ESC para sair")  end  #end#class Scene_Title < Scene_Base  # Aggiunge funzioni al   def command_new_game   di Scene_Title	alias litens command_new_game  def command_new_game	# Chiama la versione originale del Metodo command_new_game	litens	# Prepara una lista in cui verrà segnato quali oggetti sono conosciuti	#   e se i loro dati saranno quindi consultabili	# La inizializza indicando che tutti gli oggetti sono sconosciuti	#	# Il primo elemento è nil, come nel DataBase	$data_items2 = [nil]	# Tutti gli altri elementi vengono impostati a false	for i in 1...$data_items.size # - 1	  $data_items2[i] = false	end  end  #end#class Window_LItens < Window_Selectable  #  def initialize(width, height)	super(0, 0, width, height)	# La lista dei comandi diventa uguale a quella che indica se	#   un oggetto è conosciuto o meno	# Comunque, non vengono usati nell'elaborazione dei dati nella finestra	@commands = $data_items2	# Ma essendo nil il primo elemento, i comandi mostrati saranno uno in meno	@item_max = @commands.size - 1		  # + 0	@column_max = 1	self.contents = Bitmap.new(width-32, @item_max * 24)	 # @commands.size*24)	refresh	self.index = 0 if @item_max > 0  end  #  def refresh	self.contents.clear	# @a è il contatore dei comandi effettivamente presenti nella finestra	@a = 0	# Scorre (ancora) la lista che indica se un oggetto è conosciuto o meno,	#   e disegna il nome dell'oggetto se risulta conosciuto	for i in 0...@item_max	  if $data_items2[i + 1] == true		draw_item(i)		@a += 1	  end	end	# Aggiusta l'indice massimo della lista dei comandi	#   per gestire correttamente il cursore nella finestra	@item_max = @a  end  #  def draw_item(index, enabled = true)	# Verifica qual è la posizione in cui scrivere a seconda di dove si	#   trova la voce nella lista dei "comandi"	rect = item_rect(@a)	# Cancella il contenuto eventualmente presente nella posizione di cui sopra	self.contents.clear_rect(rect)	self.contents.font.color = normal_color	self.contents.font.color.alpha = enabled ? 255 : 128	draw_item_name($data_items[index + 1], rect.x, rect.y)  end  #end#class Game_Party < Game_Unit  # Questo metodo è stato completamente sovrascritto per  #   aggiungere una singola istruzione  def gain_item(item, n, include_equip = false)	number = item_number(item)	case item	when RPG::Item	  @items[item.id] = [[number + n, 0].max, 99].min	  $data_items2[item.id] = true	 # L'Oggetto diventa "conosciuto"	when RPG::Weapon	  @weapons[item.id] = [[number + n, 0].max, 99].min	when RPG::Armor	  @armors[item.id] = [[number + n, 0].max, 99].min	end	n += number	if include_equip and n < 0	  for actor in members		while n < 0 and actor.equips.include?(item)		  actor.discard_equip(item)		  n += 1		end	  end	end  end  #end

E giusto in caso il (codice del) forum faccia scherzi, deformandone i contenuti, pure allegato come file di testo zippato. Tiè. :rolleyes:

 

 

 

Non ho idea se funzionerà senza errori o meno, ma potrebbe tornare comunque utile, per le correzioni ed i commenti . . .

 

Love & Peace.

Edited September 11, 2010 by giver

[DarkAlexander]

Ma.... Ma... Ma tu sei un genio! :)

Ha funzionato perfettamente! Grandissimo!

 

Ora però ho un problema... Esiste un modo per trasformare questo oggettuario in una specie di inventario?

Ovvero vorrei che l'oggettuario fosse sincronizzato con l'inventario (mentre adesso essendo un oggettuario, ovvero una raccolta di tutti gli oggetti trovati nel gioco mi mostra anche oggetti che non ho più) e che fosse possibile usare gli oggetti da lì invece che dall'inventario. Il motivo è molto semplice: vorrei realizzare uno specie di punta e clicca e vorrei che al posto dell'intero menu ci fosse solamente l'oggettuario/inventario!

 

Grazie a tutti in anticipo e a Giver in particolare! ;)