*Elemosina System

[Valentino]

Elemosina_System

Descrizione

 

Questo script crea un abilità che permette di usare i soldi per danneggiare i nemici, più soldi verranno usati più grande sarà il danno... È possibile costumizzare il rapporto tra soldi usati e danno.

Autore

 

Avon Valentino (Io)

Allegati

Screenshots:
http://img830.imageshack.us/img830/9158/battleelemosina.png
http://img826.imageshack.us/img826/2828/battleelemosina2.png

Demo Link:
http://www.mediafire.com/download.php?h5dx8cgfv3g241c

Script:

 

 

 

#-----------------------------Elemosina System---------------------------------
#Questo script crea una abilità che dannegga i nemici in base a quanti soldi
#gli si lanciano addosso.
#Script creato da Valentino Avon, se lo usate creditatemi ;)

#-----------------------------CONFIGURAZIONE-----------------------------------
#id della skill elemosina
ELEMOSINA_ID = 81

#il danno viene calcolato dividendo i soldi usati per questo numero
ELEM_DIVISORE = 10

WIN_X = 0 #cordinata x della window elemosina
WIN_Y = 0 #cordinata y della window elemosina
#---------------------------------------------------------------------------

class Window_Elemosina < Window_Base
	attr_accessor :elemosina
	def initialize
		@elemosina = 0
		super(WIN_X, WIN_Y, 180, 120)
		@digits_max = 7
		@number = 0
		dummy_bitmap = Bitmap.new(32, 32)
		cx = dummy_bitmap.text_size($data_system.words.gold).width
		self.width = 180 + cx
		@cursor_width = dummy_bitmap.text_size("0").width + 8
		dummy_bitmap.dispose
		self.contents = Bitmap.new(width - 32, height - 32)
		self.back_opacity = 160
		@index = 0
		refresh
		update_cursor_rect
	end
	
	def number
		return @number
	end
	
	def number=(number)
		@number = [[number, 0].max, 10 ** @digits_max - 1].min
		refresh
	end
	
	def update_cursor_rect
		self.cursor_rect.set(@index * @cursor_width, 60, @cursor_width, 32)
	end
	
	def update
		super
		if Input.repeat?(Input::UP) or Input.repeat?(Input::DOWN)
			$game_system.se_play($data_system.cursor_se)
			place = 10 ** (@digits_max - 1 - @index)
			n = @number / place % 10
			@backup = @number
			@number -= n * place
			n = (n + 1) % 10 if Input.repeat?(Input::UP)
			n = (n + 9) % 10 if Input.repeat?(Input::DOWN)
			@number += n * place
			if @number <= $game_party.gold
				@elemosina = @number
			else
				@number = @backup
			end
			refresh
		end
		if Input.repeat?(Input::RIGHT)
			if @digits_max >= 2
				$game_system.se_play($data_system.cursor_se)
				@index = (@index + 1) % @digits_max
			end
		end
		if Input.repeat?(Input::LEFT)
			if @digits_max >= 2
				$game_system.se_play($data_system.cursor_se)
				@index = (@index + @digits_max - 1) % @digits_max
			end
		end
		update_cursor_rect
	end
	
	def refresh
		self.contents.clear
		self.contents.draw_text(0,0,640,32,$data_system.words.gold + " attuali: " + $game_party.gold.to_s,0)
		self.contents.draw_text(0,30,640,32,$data_system.words.gold + " da spendere:",0)
		self.contents.font.color = normal_color
		s = sprintf("%0*d", @digits_max, @number)
		for i in 0...@digits_max
			self.contents.draw_text(i * @cursor_width + 4, 60, 32, 32, s[i,1])
		end
	end
end

class Game_Actor < Game_Battler
	attr_accessor :soldi_usati
	alias elem_setup setup
	def setup(actor_id)
		@soldi_usati = 0
		elem_setup(actor_id)
	end
end

class Scene_Battle
	alias elemosina_update update
	def update
		@elemosina.update if $elemosina
		elemosina_update
	end
	
	def update_phase3
		unless $elemosina
			if @enemy_arrow != nil
				update_phase3_enemy_select
			elsif @actor_arrow != nil
				update_phase3_actor_select
			elsif @skill_window != nil
				update_phase3_skill_select
			elsif @item_window != nil
				update_phase3_item_select
			elsif @actor_command_window.active
				update_phase3_basic_command
			end
		else
			update_elemosina
		end
	end
	
	alias elemosina_skill_select update_phase3_skill_select
	def update_phase3_skill_select
		elemosina_skill_select
		if Input.trigger?(Input::C)
			if @skill.id == ELEMOSINA_ID
				start_elemosina
			end
		end
	end
	
	def start_elemosina
		if @enemy_arrow != nil
			@enemy_arrow.dispose
			@enemy_arrow = nil
		end
		@help_window.visible = false
		@elemosina = Window_Elemosina.new
		$elemosina = true
		$elemosina_skill = false
		@active_battler.soldi_usati = 0
		@actor_command_window.active = false
		@actor_command_window.visible = false
	end
	
	def end_elemosina
		if @enemy_arrow != nil
			@enemy_arrow.dispose
			@enemy_arrow = nil
		end
		@skill_window.visible = true
		@skill_window.active = true
		@skill_window.help_window = @help_window
		@elemosina.visible = false
		$elemosina = false
		$elemosina_skill = false
		@active_battler.soldi_usati = 0
	end
	
	def update_elemosina
		if Input.trigger?(Input::B)
			$game_system.se_play($data_system.cancel_se)
			end_elemosina
			return
		end
		if Input.trigger?(Input::C)
			if @elemosina.elemosina > 0
				$game_system.se_play($data_system.decision_se)
				enemy_elemosina_select
			else
				$game_system.se_play($data_system.buzzer_se)
			end
		end
	end
	
	def enemy_elemosina_select
		@elemosina.visible = false
		$elemosina = false
		$elemosina_skill = true
		@active_battler.soldi_usati = @elemosina.elemosina
		@enemy_arrow = Arrow_Enemy.new(@spriteset.viewport1)
		@enemy_arrow.help_window = @help_window
		@skill_window.active = false
		@skill_window.visible = false
	end
	
	alias elemosina_phase3 update_phase3_enemy_select
	def update_phase3_enemy_select
		if Input.trigger?(Input::B)
			$game_system.se_play($data_system.cancel_se)
			end_enemy_select unless $elemosina_skill
			start_elemosina if $elemosina_skill
			return
		end
		elemosina_phase3
	end
end

class Game_Battler
	alias elemosina_skill skill_effect
	def skill_effect(user, skill)
		elemosina_skill(user, skill)
		if skill.id == ELEMOSINA_ID
			@soldi = $game_party.gold
			@soldi -= user.soldi_usati
			if @soldi < 0
				self.damage = (user.soldi_usati + @soldi) /ELEM_DIVISORE
				$game_party.lose_gold($game_party.gold)
			else
				self.damage = (user.soldi_usati/ELEM_DIVISORE)
				$game_party.lose_gold(user.soldi_usati)
			end
			user.soldi_usati = 0
			self.hp -= self.damage
		end
	end
end

 

Istruzioni per l'uso

 

Per non mostrare l'uso di Sp nella finestra delle abilità in battaglia se la skill ha 0 come costo in Sp, copiare la riga evidenziata nella Window_Skill della demo. Per il resto trovate tutto all'interno dello script, se lo usate creditatemi per favore

Bugs e Conflitti Noti

 

N/A

Edited April 27, 2013 by Dilos
Script monoriga sistemato.