*Scene Zoolab

Valentino · October 24, 2010

Scene Zoolab

Descrizione

Eccomi tornato dopo tanto tempo! XD.
Questo script emula lo Zoolab di FF X, per chi non sapesse cosè è una specie di zoo appunto XD, dove si
tengono i mostri sconfitti e catturati. È possibile ribattere i mostri catturati pagando ed è possibile sbloccare campioni di zona e di specie (configurabili).I campioni di zona si sbloccano avendo tutti i mostri di una zona, invece quello di specie avendo un determinato numero per specie, ad esempio 3 budini gialli, 3 budini rossi => campione di specie Budino Nero.

Autore

Avon Valentino (Io)

Allegati

Screenshots:

http://img264.imageshack.us/img264/9331/zoolab1.png
http://img207.imageshack.us/img207/5581/zoolab2.png
http://img707.imageshack.us/img707/1928/zoolab3.png

Demo Link: (Versione Migliorata)
http://www.mediafire.com/?xeva66oulfmlv3l

Script:

PARTE 1:

#Script creato da Valentino Avon se lo usate creditatemi ;)

########################## Scene Zoolab ############################

#-------------------------CONFIGURAZIONE-----------------------

SFONDO_ZOOLAB = "Sfondo" #immagine da inserire in Graphics/Titles


WEAPON_CATT = [1,5,25,29]#ID armi che catturano i mostri
NUMERO_MAX_MOSTRI = 10 #numero massimo di mostri per specie
MOSTRI_NO_CATTURA = [7]#ID mostri che non possono essere catturati (i boss ad esempio)


#ENEMY_ID => TROOP_ID
BATTAGLIE = {
1=>1,
2=>3,
3=>5,
5=>9,
6=>11,
8=>15,
14=>27,
22=>34,
30=>33
}

DEFAULT_PREZZO = 100 #prezzo per i mostri non assegnati

#ENEMY_ID => PREZZO
PREZZO = {
1=> 5,
2=> 7,
}

#ID => [NOME ZONA, MOSTRI]
#LA PRIMA ZONA HA ID = 0
DETT = {
0=> ["Piana Verdeggiante",1,2],
1=> ["Montagna Sacra",6,14,22],
2=> ["Campioni Di Zona",5],
3=> ["Campioni Di Specie",30,26]
}

#NOME_SPECIE => [[ENEMY_ID], NUMERO_MOSTRI,CAMPIONE_DI_SPECIE]
SPECIE = {
"Uccello" => [[6,14,22],3,30],
"Bestia" => [[2,10,18],3,26]
}

ZONA_CAMPIONI_ZONA = 2 #id zona dei campioni di zona nella lista
ZONA_CAMPIONI_SPECIE = 3 #id zona dei campioni di specie nella lista

#ID ZONA => ENEMY_ID
CAMPIONI_DI_ZONA = {
0 => 5,
1 => 7,
}

#----------------------FINE CONFIGURAZIONE----------------------

class Game_System
	attr_accessor :zone_attive
	attr_accessor :nemici_sbl
	attr_accessor :numeri
	alias vale_initialize initialize
	def initialize
		vale_initialize
		@zone_attive = []
		@nemici_sbl = []
		@numeri = {}
	end
end

class Game_Zona
	attr_accessor :id
	attr_accessor :nome
	attr_accessor :attiva
	attr_accessor :mostri
	def initialize(id)
		@id = id
		@nome = DETT[@id][0]
		@attiva = true if $game_system.zone_attive.include?(@id)
		@mostri = []
		for i in 1..DETT[@id].size-1
			@mostri.push(DETT[@id][i])
		end
	end
end

class Game_Zone
	attr_accessor :data
	def initialize
		@data = []
		for i in DETT.keys
			@data[i] = (Game_Zona.new(i))
		end
	end
end

class Game_Player
	def add_zone(zone_id)
		$game_system.zone_attive.push(zone_id)
	end
end

class Window_Zone < Window_Selectable
	def initialize
		super(0, 64, 640, 352+64)
		@column_max = 2
		self.back_opacity = 160
		@zone = Game_Zone.new
		refresh
		self.index = 0
	end
	
	def zona
		return @zone.data[self.index]
	end
	
	def refresh
		if self.contents != nil
			self.contents.dispose
			self.contents = nil
		end
		@data = []
		for i in 0...@zone.data.size
			if i != nil
				@data.push(i)
			end
		end
		@item_max = @data.size
		if @item_max > 0
			self.contents = Bitmap.new(width - 32, row_max * 32)
			for i in 0..@item_max-1
				draw_item(i)
			end
		end
	end
	
	def draw_item(index)
		zona = @zone.data[index]
		x = 4+index % 2 * (288 + 32)
		y = index / 2 * 32
		if zona != nil and zona.attiva
			self.contents.draw_text(x, y, 204, 32, zona.nome, 0)
		else
			self.contents.draw_text(x, y, 204, 32, "???", 0)
		end
	end
end

class Window_Mostri < Window_Selectable
	
	def initialize(zona)
		super(0, 128, 640, 352+64)
		@column_max = 2
		self.back_opacity = 160
		@zona = zona
		refresh
		self.index = 0
	end
	
	def mostro
		return @zona.mostri[self.index]
	end
	
	def refresh
		if self.contents != nil
			self.contents.dispose
			self.contents = nil
		end
		@data = []
		for i in @zona.mostri
			if i != nil
				@data.push(i)
			end
		end
		@item_max = @data.size
		if @item_max > 0
			self.contents = Bitmap.new(width - 32, row_max * 32)
			for i in 0..@item_max-1
				draw_item(i)
			end
		end
	end
	
	def draw_item(index)
		enemy = $data_enemies[@zona.mostri[index]]
		x = 4+index % 2 * (288 + 32)
		y = index / 2 * 32
		if $game_system.nemici_sbl.include?(enemy.id)
			self.contents.draw_text(x, y, 204, 32, enemy.name, 0)
			unless @zona.id == ZONA_CAMPIONI_ZONA
				self.contents.draw_text(x+260, y, 204, 32, $game_system.numeri[enemy.id].to_s, 0)
			end
		else
			self.contents.draw_text(x, y, 204, 32, "???", 0)
		end
	end
end

class Window_Testo < Window_Base
	def initialize(prezzo, tipo=0)
		super(160, 80, 320, 64)
		@prezzo = prezzo
		@tipo = tipo
		self.contents = Bitmap.new(width - 32, height - 32)
		self.z = 500
		self.back_opacity = 120
		refresh(tipo)
	end
	def refresh(tipo)
		self.contents.clear
		if tipo == 0
			cx = contents.text_size("Il costo è di "+@prezzo.to_s+" "+$data_system.words.gold).width
			self.contents.draw_text(self.width/2-cx/2-16,0,320,32,"Il costo è di "+@prezzo.to_s+" "+$data_system.words.gold+".")
		elsif tipo == 1
			cx = contents.text_size("Non hai abbastanza soldi!").width
			self.contents.draw_text(self.width/2-cx/2-16,0,320,32,"Non hai abbastanza soldi!")
		end
	end
end

PARTE 2:

class Scene_Zoolab
	def main
		$game_temp.in_zoolab = true
		@fase = 0
		@command_window = Window_Zone.new
		@scelta = Window_Command.new(160,["Sì","No"])
		@scelta.visible = false
		@scelta.x = 240
		@scelta.y = 240-@scelta.height
		@scelta.z = 500
		@scelta.back_opacity = 120
		@help_window = Window_Help.new
		@help_window.set_text("Scegli il settore.",1)
		@help_window.back_opacity = 160
		@sfondo = Sprite.new
		@sfondo.bitmap = RPG::Cache.title(SFONDO_ZOOLAB)
		Graphics.transition
		loop do
			Graphics.update
			Input.update
			case @fase
			when 0
				update
			when 1
				update_scelta
			when 2
				update_mess
			end
			
			if $scene != self
				break
			end
		end
		Graphics.freeze
		@command_window.dispose
		@scelta.dispose
		@help_window.dispose
		@mostri.dispose if @mostri != nil
		@testo.dispose if @testo != nil
		@sfondo.dispose
	end
	
	def update
		@command_window.update
		@mostri.update if @mostri != nil
		if @command_window.active
			update_command
			return
		end
		if @mostri != nil and @mostri.active
			update_selezione
			return
		end
	end
	
	def update_mess
		if Input.trigger?(Input::C)
			$game_system.se_play($data_system.decision_se)
			@scelta.visible = false
			@testo.visible = false
			@scelta.index = 0
			@fase = 0
			return
		end
	end
	
	
	def update_scelta
		@scelta.update
		if Input.trigger?(Input::B)
			$game_system.se_play($data_system.cancel_se)
			@scelta.visible = false
			@testo.visible = false
			@scelta.index = 0
			@fase = 0
		end
		
		if Input.trigger?(Input::C)
			if @scelta.index == 0
				enemy = $data_enemies[@mostri.mostro]
				$game_temp.battle_troop_id = BATTAGLIE[enemy.id]
				prezzo = PREZZO[enemy.id]
				prezzo = DEFAULT_PREZZO if prezzo == nil
				if $game_party.gold >= prezzo
					$game_party.lose_gold(prezzo)
					call_battle
				else
					$game_system.se_play($data_system.buzzer_se)
					@scelta.visible = false
					@testo.dispose
					@testo = Window_Testo.new(prezzo,1)
					@fase = 2
				end
				
			else
				$game_system.se_play($data_system.decision_se)
				@scelta.visible = false
				@testo.visible = false
				@scelta.index = 0
				@fase = 0
			end
		end
	end
	
	def update_command
		if Input.trigger?(Input::B)
			$game_system.se_play($data_system.cancel_se)
			$game_temp.in_zoolab = false
			$scene = Scene_Map.new
			return
		end
		if Input.trigger?(Input::C)
			if @command_window.zona.attiva
				$game_system.se_play($data_system.decision_se)
				@mostri = Window_Mostri.new(@command_window.zona)
				@mostri.x = 0
				@mostri.y = 64
				@help_window.set_text("Scegli il mostro.",1)
				@command_window.active = false
				@command_window.visible = false
			else
				$game_system.se_play($data_system.buzzer_se)
			end
		end
	end
	
	def update_selezione
		if Input.trigger?(Input::B)
			$game_system.se_play($data_system.cancel_se)
			@command_window.active = true
			@command_window.visible = true
			@mostri.visible = false
			@help_window.set_text("Scegli il settore.",1)
			return
		end
		if Input.trigger?(Input::C)
			enemy = $data_enemies[@mostri.mostro]
			prezzo = PREZZO[enemy.id]
			prezzo = DEFAULT_PREZZO if prezzo == nil
			
			unless $game_system.nemici_sbl.include?(enemy.id)
				$game_system.se_play($data_system.buzzer_se)
			else
				$game_system.se_play($data_system.decision_se)
				@fase = 1
				@scelta.visible = true
				@testo = Window_Testo.new(prezzo)
			end
		end
		return
	end
	
	def call_battle
		$game_temp.battle_calling = true
		$game_temp.battle_can_escape = true
		$game_temp.battle_can_lose = false
		$game_temp.battle_proc = nil
		$game_temp.battle_calling = false
		$game_temp.menu_calling = false
		$game_temp.menu_beep = false
		$game_player.make_encounter_count
		$game_temp.map_bgm = $game_system.playing_bgm
		$game_system.bgm_stop
		$game_system.se_play($data_system.battle_start_se)
		$game_system.bgm_play($game_system.battle_bgm)
		$game_player.straighten
		$scene = Scene_Battle.new
	end
end

PARTE 3:

class Game_Battler
alias cat_att attack_effect
def attack_effect(attacker)
cat_att(attacker)
if self.is_a?(Game_Enemy) and WEAPON_CATT.include?(attacker.weapon_id) and self.dead?
unless $game_temp.in_zoolab
unless MOSTRI_NO_CATTURA.include?(@enemy_id)
g = $game_system.numeri[@enemy_id]
if g != nil and $game_system.numeri[@enemy_id] < NUMERO_MAX_MOSTRI
$game_system.numeri[@enemy_id] += 1
end
 
$game_system.numeri[@enemy_id] = 1 if g == nil
self.damage = "Catturato!"
add_zone
verifica_campione_zona
verifica_campione_specie
end
end
end
end
 
def verifica_campione_zona
for zona in Game_Zone.new.data
if zona != nil
@conto = 0
for i in zona.mostri
@conto += 1 if $game_system.nemici_sbl.include?($data_enemies[i].id)
end
if @conto == zona.mostri.size
if CAMPIONI_DI_ZONA[zona.id] != nil
$game_system.nemici_sbl.push(CAMPIONI_DI_ZONA[zona.id]) unless $game_system.nemici_sbl.include?(CAMPIONI_DI_ZONA[zona.id])
end
$game_player.add_zone(ZONA_CAMPIONI_ZONA) unless $game_system.zone_attive.include?(ZONA_CAMPIONI_ZONA)
end
end
end
end
 
 
def verifica_campione_specie
for i in SPECIE.values
@conto = 0
for enemy in i[0]
@conto += 1 if $game_system.numeri[enemy] != nil and $game_system.numeri[enemy] >= i[1]
end
if @conto == i[0].size
$game_system.nemici_sbl.push(i[2]) unless $game_system.nemici_sbl.include?(i[2])
$game_player.add_zone(ZONA_CAMPIONI_SPECIE) unless $game_system.zone_attive.include?(ZONA_CAMPIONI_SPECIE)
end
end
end
 
def add_zone
$game_system.nemici_sbl.push(@enemy_id)
for zona in Game_Zone.new.data
if zona != nil
if zona.mostri.include?(@enemy_id)
$game_system.zone_attive.push(zona.id) unless $game_system.zone_attive.include?(zona.id)
end
end
end
end
end
 
 
class Game_Temp
attr_accessor :in_zoolab
alias vale_in initialize
def initialize
vale_in
@in_zoolab = false
end
end
 
class Scene_Battle
alias vale_end battle_end
def battle_end(result)
vale_end(result)
$game_temp.in_zoolab = false
end
end
 
module RPG
class Sprite < ::Sprite
def damage(value, critical, preso=false)
dispose_damage
if value.is_a?(Numeric)
damage_string = value.abs.to_s
else
damage_string = value.to_s
end
bitmap = Bitmap.new(160, 64)
bitmap.font.name = "Arial Black"
bitmap.font.size = 32
bitmap.font.color.set(0, 0, 0)
bitmap.draw_text(-1, 12-1, 160, 36, damage_string, 1)
bitmap.draw_text(+1, 12-1, 160, 36, damage_string, 1)
bitmap.draw_text(-1, 12+1, 160, 36, damage_string, 1)
bitmap.draw_text(+1, 12+1, 160, 36, damage_string, 1)
if value.is_a?(Numeric) and value < 0
bitmap.font.color.set(176, 255, 144)
else
bitmap.font.color.set(255, 255, 255)
end
bitmap.draw_text(0, 12, 160, 36, damage_string, 1)
if critical
bitmap.font.size = 20
bitmap.font.color.set(0, 0, 0)
bitmap.draw_text(-1, -1, 160, 20, "CRITICAL", 1)
bitmap.draw_text(+1, -1, 160, 20, "CRITICAL", 1)
bitmap.draw_text(-1, +1, 160, 20, "CRITICAL", 1)
bitmap.draw_text(+1, +1, 160, 20, "CRITICAL", 1)
bitmap.font.color.set(255, 255, 255)
bitmap.draw_text(0, 0, 160, 20, "CRITICAL", 1)
end
if preso
bitmap.font.size = 20
bitmap.font.color.set(0, 0, 0)
bitmap.draw_text(-1, 39, 160, 20, "PRESO!", 1)
bitmap.draw_text(+1, 39, 160, 20, "PRESO!", 1)
bitmap.draw_text(-1, +41, 160, 20, "PRESO!", 1)
bitmap.draw_text(+1, +41, 160, 20, "PRESO!", 1)
bitmap.font.color.set(255, 255, 255)
bitmap.draw_text(0, 40, 160, 20, "PRESO!", 1)
end
@_damage_sprite = ::Sprite.new(self.viewport)
@_damage_sprite.bitmap = bitmap
@_damage_sprite.ox = 80
@_damage_sprite.oy = 20
@_damage_sprite.x = self.x
@_damage_sprite.y = self.y - self.oy / 2
@_damage_sprite.z = 3000
@_damage_duration = 40
end
end
end
 
 
 
class Sprite_Battler < RPG::Sprite
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
alias damage_update update
def update
if @battler.damage_pop
@preso = false
@preso = true if @battler.is_a?(Game_Enemy) and @battler.preso
damage(@battler.damage, @battler.critical, @preso)
@battler.preso = false if @battler.is_a?(Game_Enemy)
@battler.damage = nil
@battler.critical = false
@battler.damage_pop = false
end
damage_update
end
end

Istruzioni per l'uso

Trovate tutto all'interno dello script, se lo usate creditatemi :wink:
Spero vi piaccia! :D

Bugs e Conflitti Noti

N/A

Edited April 27, 2013 by Dilos
Script monoriga sistemato.

tidus26 · October 24, 2010

Un'altro script! comunque perchè hai scritto "Sentinel System?"

Ora comunque leggo le istruzioni e provo!

EDIT: O_O, ho letto le istruzioni... molto molto bello! veramente fantastico! io non lo uso perchè ho un bs in tempo reale, altrimenti l'avrei utilizzato subito.

Edited October 24, 2010 by tidus26

Valentino · October 24, 2010

Un'altro script! comunque perchè hai scritto "Sentinel System?"
Ora comunque leggo le istruzioni e provo!

Perchè avevo copiato la struttura e avevo dimenticato di cambiare nome XDXD

Spero ti piaccia! Anche se è un po complesso da configurare!

EDIT:

Non sovvrascrive quasi niente dello scene battle, renderlo compatibile dovrebbe essere molto semplice ^^

l'ho fatto cosi apposta XD

Edited October 24, 2010 by Valentino

tidus26 · October 24, 2010

Non sovvrascrive quasi niente dello scene battle, renderlo compatibile dovrebbe essere molto semplice ^^
l'ho fatto cosi apposta XD

Io uso un bs fatto da me ad eventi, il mio scene_battle è standard di rpg maker xp.

Guardian of Irael · October 24, 2010

Uh altro script interessante e poi se è pure adattabile... ^ ^

Complimenti, Valentino :D

^ ^

Valentino · October 24, 2010

Grazie mille! ^^

tidus00 · October 24, 2010

Ma io ti amo... °___°

Hai creato lo script che cercavo da moltissimo tempo!!! >o<

Grazie molte, lo userò sicuramente!

Valentino · October 25, 2010

Mi fa piacere sapere che è di aiuto a qualcuno ^^

Zuppo · October 25, 2010

beh ok stavolta questo è un bestione, almeno immagino ci sia voluto un bel po'. SOno tutte variabili..ma immagino che pall3 farlo. XDD

Guardian of Irael · October 25, 2010

almeno immagino ci sia voluto un bel po'. SOno tutte variabili..ma immagino che pall3 farlo. XDD

Valentino sorridi, perchè queste parole significano più rens per te! XDXD

Valentino · October 25, 2010

Valentino sorridi, perchè queste parole significano più rens per te! XDXD

aha XD detto da flame poi aquisiscono ancora più valore per me XD

Zuppo · October 25, 2010

state boni o je li levo così come je li ho messi XDDD

Squall_Leonheart · October 25, 2010

Bello script,anche se non ricordavo che le armi cattura-mostri non infliggessero danni O.o

Zuppo · October 25, 2010

infatti le infliggono in ffX. Sono solo deboli e senza apeiron. O.o'

tidus00 · October 25, 2010

Ho inserito lo script nel mio progetto e va bene, tranne che per una cosa...

quando entro nello zoolab, ci sono delle zone che non conosco quindi escono "???". Il problema è che se premo su di loro, mi fa errore alle riga 136:

if window.command.zona.attiva

Mi fa errore invece di fare il suono buzzer. O_o

Eppure non capisco quale sia il problema...

EDIT: Precisamente mi dice questo:

Errore di script 'Scene_Zoolab' sulla linea 136 del tipo 'NoMethodError'

undefined method 'attiva' for nil:NilClass

Si può risolvere? Se si, penso di non avere altri problemi... :)

Edited October 25, 2010 by tidus00

Squall_Leonheart · October 25, 2010

Metti la chiocciola prima di command_window.zona.attiva

giver · October 25, 2010

Prova a correggere la riga 113 della seconda sezione dello script, scrivendola così

if @command_window.zona != nil and @command_window.zona.attiva

EDIT - @Squall Leonhart: Già, dovrebbe essere come dite voi, visto che non gli può dare quel genere di errore, in quanto tutte le zone inserite in DETT sono attive, per come è stato programmato lo script da Valentino (?), a meno di errori nella configurazione . . .

Però, dato che è come dite voi, allora non basta aggiungere la chiocciola, se guardate bene l'istruzione incollata . . . Quali capacità extrasensoriali vi hanno fatto decidere che era solo quello l'errore, nonostante l'istruzione, oltre a non trovarsi nella riga da lui indicata, sia scritta con componenti cambiati di posizione, caratteri sostituiti, e ci sia l'if, che dovrebbe aver dimenticato assieme alla chiocciola ?

Ed altri punti dello script sono programmati in maniera discutibile . . .

Scene Zoolab

Descrizione

Eccomi tornato dopo tanto tempo! XD.

Questo script emula lo Zoolab di FF X, per chi non sapesse cosè è una specie di zoo appunto XD, dove si

tengono i mostri sconfitti e catturati. È possibile ribattere i mostri catturati pagando ed è possibile sbloccare campioni di zona e di specie (configurabili).I campioni di zona si sbloccano avendo tutti i mostri di una zona, invece quello di specie avendo un determinato numero per specie, ad esempio 3 budini gialli, 3 budini rossi => campione di specie Budino Nero.

Autore

Avon Valentino (Io)

Allegati

Screenshots:

http://img530.imageshack.us/img530/8135/catturato.png

http://img264.imageshack.us/img264/9331/zoolab1.png

http://img207.imageshack.us/img207/5581/zoolab2.png

http://img707.imageshack.us/img707/1928/zoolab3.png

Demo Link:

http://www.mediafire.com/?66gislooocellc6

Script:

PARTE 1:

#Script creato da Valentino Avon se lo usate creditatemi ;) ########################## Scene Zoolab ############################ #-------------------------CONFIGURAZIONE----------------------- SFONDO_ZOOLAB = "Sfondo" #immagine da inserire in Graphics/Titles  WEAPON_CATT = [1,5,25,29]#ID armi che catturano i mostriNUMERO_MAX_MOSTRI = 10 #numero massimo di mostri per specieMOSTRI_NO_CATTURA = [7]#ID mostri che non possono essere catturati (i boss ad esempio)  #ENEMY_ID => TROOP_IDBATTAGLIE = {1=>1, 2=>3, 3=>5, 5=>9, 6=>11, 8=>15,14=>27,22=>34,30=>33} DEFAULT_PREZZO = 100 #prezzo per i mostri non assegnati #ENEMY_ID => PREZZOPREZZO = {1=> 5,2=> 7,} #ID => [NOME ZONA, MOSTRI]#LA PRIMA ZONA HA ID = 0DETT = {0=> ["Piana Verdeggiante",1,2],1=> ["Montagna Sacra",6,14,22],2=> ["Campioni Di Zona",5],3=> ["Campioni Di Specie",30,26]} #NOME_SPECIE => [[ENEMY_ID], NUMERO_MOSTRI,CAMPIONE_DI_SPECIE]SPECIE = {"Uccello" => [[6,14,22],3,30],"Bestia" => [[2,10,18],3,26]} ZONA_CAMPIONI_ZONA = 2 #id zona dei campioni di zona nella listaZONA_CAMPIONI_SPECIE = 3 #id zona dei campioni di specie nella lista #ID ZONA => ENEMY_IDCAMPIONI_DI_ZONA = {0 => 5,1 => 7,} #----------------------FINE CONFIGURAZIONE---------------------- class Game_System  attr_accessor :zone_attive  attr_accessor :nemici_sbl  attr_accessor :numeri  alias vale_initialize initialize  def initialize	vale_initialize	@zone_attive = []	@nemici_sbl = []	@numeri = {}	for i in DETT.keys	  if DETT[i][1] == true		@zone_attive.push(i)	  end	end  endend class Game_Zona  attr_accessor :id  attr_accessor :nome  attr_accessor :attiva  attr_accessor :mostri  def initialize(id)	@id = id	@nome = DETT[@id][0]	@attiva = true if $game_system.zone_attive.include?(@id)	@mostri = []	for i in 1..DETT[@id].size-1	  @mostri.push(DETT[@id][i])	end  endend class Game_Zone  attr_accessor :data  def initialize	@data = []	for i in DETT.keys	  @data[i] = (Game_Zona.new(i))	end  endend class Game_Player  def add_zone(zone_id)	$game_system.zone_attive.push(zone_id)  endend class Window_Zone < Window_Selectable  def initialize	super(0, 64, 640, 352+64)	@column_max = 2	self.back_opacity = 160	@zone = Game_Zone.new	refresh	self.index = 0  end   def zona	return @zone.data[self.index]  end   def refresh	if self.contents != nil	  self.contents.dispose	  self.contents = nil	end	@data = []	for i in 0...@zone.data.size	  if i != nil		@data.push(i)	  end	end	@item_max = @data.size	if @item_max > 0	  self.contents = Bitmap.new(width - 32, row_max * 32)	  for i in 0..@item_max-1		draw_item(i)	  end	end  end   def draw_item(index)	zona = @zone.data[index]	x = 4+index % 2 * (288 + 32)	y = index / 2 * 32  if zona != nil and zona.attiva	self.contents.draw_text(x, y, 204, 32, zona.nome, 0)  else	self.contents.draw_text(x, y, 204, 32, "???", 0)  endendend class Window_Mostri < Window_Selectable   def initialize(zona)	super(0, 128, 640, 352+64)	@column_max = 2	self.back_opacity = 160	@zona = zona	refresh	self.index = 0  end   def mostro	return @zona.mostri[self.index]  end   def refresh	if self.contents != nil	  self.contents.dispose	  self.contents = nil	end	@data = []	for i in @zona.mostri	  if i != nil		@data.push(i)	  end	end	@item_max = @data.size	if @item_max > 0	  self.contents = Bitmap.new(width - 32, row_max * 32)	  for i in 0..@item_max-1		draw_item(i)	  end	end  end   def draw_item(index)	enemy = $data_enemies[@zona.mostri[index]]	x = 4+index % 2 * (288 + 32)	y = index / 2 * 32  if $game_system.nemici_sbl.include?(enemy.id)	self.contents.draw_text(x, y, 204, 32, enemy.name, 0)	unless @zona.id == ZONA_CAMPIONI_ZONA	self.contents.draw_text(x+260, y, 204, 32,  $game_system.numeri[enemy.id].to_s, 0) 	end  else	self.contents.draw_text(x, y, 204, 32, "???", 0)  endendend class Window_Testo < Window_Base  def initialize(prezzo, tipo=0)	super(160, 80, 320, 64)	@prezzo = prezzo	@tipo = tipo	self.contents = Bitmap.new(width - 32, height - 32)	self.z = 500	self.back_opacity = 120	refresh(tipo)  end  def refresh(tipo)	self.contents.clear	if tipo == 0	cx = contents.text_size("Il costo è di "+@prezzo.to_s+" "+$data_system.words.gold).width	self.contents.draw_text(self.width/2-cx/2-16,0,320,32,"Il costo è di "+@prezzo.to_s+" "+$data_system.words.gold+".")  elsif tipo == 1	cx = contents.text_size("Non hai abbastanza soldi!").width	 self.contents.draw_text(self.width/2-cx/2-16,0,320,32,"Non hai abbastanza soldi!")   end endend

PARTE 2:

class Scene_Zoolab  def main	$game_temp.in_zoolab = true	@fase = 0	@command_window = Window_Zone.new	@scelta = Window_Command.new(160,["Sì","No"])	@scelta.visible = false	@scelta.x = 240	@scelta.y = 240-@scelta.height	@scelta.z = 500	@scelta.back_opacity = 120	@help_window = Window_Help.new	@help_window.set_text("Scegli il settore.",1)	@help_window.back_opacity = 160	@sfondo = Sprite.new	@sfondo.bitmap = RPG::Cache.title(SFONDO_ZOOLAB)	Graphics.transition	loop do	  Graphics.update	  Input.update	  case @fase	  when 0	  update	  when 1	  update_scelta	  when 2	  update_mess	end 	  if $scene != self		break	  end	end	Graphics.freeze	@command_window.dispose	@scelta.dispose	@help_window.dispose	@mostri.dispose if @mostri != nil	@testo.dispose if @testo != nil	@sfondo.dispose  end   def update	@command_window.update	@mostri.update if @mostri != nil	if @command_window.active	  update_command	  return	end	if @mostri != nil and @mostri.active	  update_selezione	  return	end  end   def update_mess   if Input.trigger?(Input::C)   $game_system.se_play($data_system.decision_se)	 @scelta.visible = false	 @testo.visible = false	 @scelta.index = 0	 @fase = 0	 return   end end     def update_scelta	@scelta.update	if Input.trigger?(Input::B)	 $game_system.se_play($data_system.cancel_se)	 @scelta.visible = false	 @testo.visible = false	 @scelta.index = 0	 @fase = 0   end 	if Input.trigger?(Input::C)	if @scelta.index == 0	  enemy = $data_enemies[@mostri.mostro]	  $game_temp.battle_troop_id = BATTAGLIE[enemy.id]	  prezzo = PREZZO[enemy.id]	  prezzo = DEFAULT_PREZZO if prezzo == nil	if $game_party.gold >= prezzo	  $game_party.lose_gold(prezzo)	 call_battle   else 	 $game_system.se_play($data_system.buzzer_se)	 @scelta.visible = false	 @testo.dispose	 @testo =  Window_Testo.new(prezzo,1)	 @fase = 2   end    else	 $game_system.se_play($data_system.decision_se)	 @scelta.visible = false	 @testo.visible = false	 @scelta.index = 0	 @fase = 0   end  endend   def update_command	if Input.trigger?(Input::B)	  $game_system.se_play($data_system.cancel_se)	  $game_temp.in_zoolab = false	  $scene = Scene_Map.new	  return	end	if Input.trigger?(Input::C)	  if @command_window.zona.attiva	  $game_system.se_play($data_system.decision_se)	   @mostri = Window_Mostri.new(@command_window.zona)	   @mostri.x = 0	   @mostri.y = 64	   @help_window.set_text("Scegli il mostro.",1)	   @command_window.active = false	   @command_window.visible = false	 else	   $game_system.se_play($data_system.buzzer_se)	   end	end  end   def update_selezione	if Input.trigger?(Input::B)	  $game_system.se_play($data_system.cancel_se)	  @command_window.active = true	   @command_window.visible = true	   @mostri.visible = false	   @help_window.set_text("Scegli il settore.",1)	  return	end	if Input.trigger?(Input::C)	  enemy = $data_enemies[@mostri.mostro]	  prezzo = PREZZO[enemy.id]	  prezzo = DEFAULT_PREZZO if prezzo == nil 	unless $game_system.nemici_sbl.include?(enemy.id)	$game_system.se_play($data_system.buzzer_se)	else	$game_system.se_play($data_system.decision_se)	@fase = 1	@scelta.visible = true	@testo =  Window_Testo.new(prezzo)  end  end  returnend   def call_battle	$game_temp.battle_calling = true	$game_temp.battle_can_escape = true	$game_temp.battle_can_lose = false	$game_temp.battle_proc = nil	$game_temp.battle_calling = false	$game_temp.menu_calling = false	$game_temp.menu_beep = false	$game_player.make_encounter_count	$game_temp.map_bgm = $game_system.playing_bgm	$game_system.bgm_stop	$game_system.se_play($data_system.battle_start_se)	$game_system.bgm_play($game_system.battle_bgm)	$game_player.straighten	$scene = Scene_Battle.new  endend

PARTE 3:

class Game_Battler  alias cat_att attack_effectdef attack_effect(attacker)  cat_att(attacker)   if self.is_a?(Game_Enemy) and WEAPON_CATT.include?(attacker.weapon_id) and self.dead?	unless $game_temp.in_zoolab	unless MOSTRI_NO_CATTURA.include?(@enemy_id)	  g = $game_system.numeri[@enemy_id]	if g != nil and $game_system.numeri[@enemy_id] < NUMERO_MAX_MOSTRI	  $game_system.numeri[@enemy_id] += 1 	end 	  $game_system.numeri[@enemy_id] = 1 if g == nil	  self.damage = "Catturato!"	  add_zone	  verifica_campione_zona	  verifica_campione_specie	end  endendend  def verifica_campione_zona  for zona in Game_Zone.new.data	if zona != nil	  @conto = 0	  for i in zona.mostri		@conto += 1 if $game_system.nemici_sbl.include?($data_enemies[i].id)	  end	  if @conto == zona.mostri.size		if CAMPIONI_DI_ZONA[zona.id] != nil	   $game_system.nemici_sbl.push(CAMPIONI_DI_ZONA[zona.id]) unless $game_system.nemici_sbl.include?(CAMPIONI_DI_ZONA[zona.id])	   end	   $game_player.add_zone(ZONA_CAMPIONI_ZONA) unless $game_system.zone_attive.include?(ZONA_CAMPIONI_ZONA)	 end   end end end   def verifica_campione_specie		for i in SPECIE.values		  @conto = 0		  for enemy in i[0] 		@conto += 1 if $game_system.numeri[enemy] != nil and $game_system.numeri[enemy] >= i[1] 		 end	 if @conto == i[0].size	   $game_system.nemici_sbl.push(i[2]) unless $game_system.nemici_sbl.include?(i[2])	   $game_player.add_zone(ZONA_CAMPIONI_SPECIE) unless $game_system.zone_attive.include?(ZONA_CAMPIONI_SPECIE)	 end   end   end   def add_zone	$game_system.nemici_sbl.push(@enemy_id) 	for zona in Game_Zone.new.data	  if zona != nil	  if zona.mostri.include?(@enemy_id) 		$game_system.zone_attive.push(zona.id) unless $game_system.zone_attive.include?(zona.id)	  end	  end	end  endend  class Game_Temp  attr_accessor :in_zoolab  alias vale_in initialize  def initialize	vale_in	@in_zoolab = false  endend   class Scene_Battle	alias vale_end battle_end	def battle_end(result)	vale_end(result)	$game_temp.in_zoolab = false  end  end

Istruzioni per l'uso

Trovate tutto all'interno dello script, se lo usate creditatemi

Spero vi piaccia! :D

Bugs e Conflitti Noti

N/A

Ho inserito lo script nel mio progetto e va bene, tranne che per una cosa...
quando entro nello zoolab, ci sono delle zone che non conosco quindi escono "???". Il problema è che se premo su di loro, mi fa errore alle riga 136:
if window.command.zona.attiva
Mi fa errore invece di fare il suono buzzer. O_o
Eppure non capisco quale sia il problema...

EDIT: Precisamente mi dice questo:

Errore di script 'Scene_Zoolab' sulla linea 136 del tipo 'NoMethodError'
undefined method 'attiva' for nil:NilClass

Si può risolvere? Se si, penso di non avere altri problemi... :)

Edited October 26, 2010 by giver

Squall_Leonheart · October 25, 2010

Giver non credo ci siano errori del genere poichè nella mia demo và tutto regolare....Probabilmente nel copiare lo script avrà dimenticato qualcosa e credo sia la chiocciola come ho scritto sopra..Poi nel caso pardon.

Valentino · October 26, 2010

Wohw XD Che discorso lungo che mi sono perso XD Allora,

@tidus00

mi pare strano che dia errore O_o Controlla meglio, e se non risolvi contattami.

@Squall Leonheart

Si le armi infliggono danni, solo che se si cattura il mostro si visualizza solo "Catturato" XD Infatti il mostro muore se lo si attacca e lo si cattura!

EDIT: Mi sono accorto che ho lasciato una cosa nella PARTE 1 che non serviva, in quanto avevo un idea e poi ho cambiato.

In Game_System cancellate:

for i in DETT.keys	  if DETT[i][1] == true		@zone_attive.push(i)	  end	end

che non serve XD

Edited October 26, 2010 by Valentino

Guardian of Irael · October 26, 2010

Si le armi infliggono danni, solo che se si cattura il mostro si visualizza solo "Catturato" XD Infatti il mostro muore se lo si attacca e lo si cattura!

Non è meglio fixarlo questo? :D Cioè ritrovarsi col mostro catturato...morto XD

^ ^

Valentino · October 26, 2010

Non è meglio fixarlo questo? :D Cioè ritrovarsi col mostro catturato...morto XD
^ ^

Ok, dato che cosi non viene gradito lo modificherò XD

EDIT: Fatto, ora si visualizza anche il danno ^^

Edited October 26, 2010 by Valentino

tidus00 · October 26, 2010

Nello script postato sul topic, la stringa in questione è la 113, mentre nello script della demo si trova alla 136.

Infatti, gli script sono di misure diverse, visto che quello del topic non presenta le descrizioni e alcuni spazi.

Proverò gli script del topic, magari parte...

EDIT: Non funzionava uguale, ho apportato la modifica detta da giver e funziona. :D Grazie ad entrambi!

Edited October 26, 2010 by tidus00

Valentino · October 26, 2010

No è di dimensioni diverse perchè ho aggionato il sistema di visualizzazione del danno e ho tolto una cosa che non serviva che avevo lasciato per sbaglio.

Comunque non so a me lo script non da errore XD Ho provato anche ad aggiungere nuove zone ecc.. boh

Squall_Leonheart · October 26, 2010

Ora però non esce catturatoXD

Valentino · October 26, 2010

Come no! VIene scritto sotto il danno "PRESO!" XD O_o

Ho testato ripetutamente prima di postarlo e funzionava!

Sign In

*Scene Zoolab

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in