-Ability Point System

[Sleeping Leonhart]

Ability Point System

Descrizione

Voi mi direte "Ma non l'avevi già fatto?", la mia risposta è "NI", questo è leggermente diverso dallo Skill Development System.

Questo script permette di apprendere le magie attraverso l'uso di Ability Point.

Prima di andare in battaglia si seleziona la skill che si vuole appprendere, a fine battaglia si acquisiscono degli Ability Point che verranno sommati a quelli già posseduti, se gli Ability Point raggiungono la quantità richiesta la skill viene appresa in modo definitivo.

 

Autore

The Sleeping Leonhart

 

Demo

Download Demo

 

Script

#==============================================================================
# ** Ability Point System
#------------------------------------------------------------------------------
#  Autore: The Sleeping Leonhart
#  Versione: 1.0
#  Data di rilascio: 28/05/2008
#------------------------------------------------------------------------------
#  Descrizione:
#	Questo script permette di apprendere le magie attraverso l'uso di
#	Ability Point. Prima di andare in battaglia si seleziona la skill
#	che si vuole appprendere, a fine battaglia si acquisiscono degli
#	Ability Point che verranno sommati a quelli già posseduti, se gli
#	Ability Point raggiungono la quantità richiesta la skill viene appresa
#	in modo definitivo.
#------------------------------------------------------------------------------
#  Istruzioni:
#	Con il comando degli eventi Cambia Magie se la magia è inclusa nelle
#	skill che richiedono Ability Point questa viene aggiunta al menu delle
#	skill temporanee nel quale è possibile selezionare la skill a cui
#	verranno assegnati gli Ability Point.
#	Per richiamare il menù delle skill temporanee inserire
#	il seguente codice attraverso il comando Script degli eventi:
#	  $scene = Scene_LearningSkill.new
#	Per personalizzare lo script andate nella sezione Configurazione.
#==============================================================================

#==============================================================================
#  Configurazione
#==============================================================================
module Ability_Point_System
 #=========================================================================
 #  Skill_AP: Imposta le skill che richiedono Ability Point.
 #-------------------------------------------------------------------------
 #  Sintassi:
 #	Skill_AP = Skill_ID=>Ap_Number,...}
 #  Parametri:
 #	Skill_ID: Id della skill nel database
 #	Ap_Number: Numero di Ability Point richiesti per apprendere la skill
 #=========================================================================
 Skill_AP = {1=>10,2=>2000}
 #=========================================================================
 #  Enemy_AP: Imposta il numero di Ability Point ricevuti da ciascun mostro.
 #-------------------------------------------------------------------------
 #  Sintassi:
 #	Enemy_AP = Enemy_ID=>Ap_Number,...}
 #  Parametri:
 #	Enemy_ID: Id del Nemico nel database
 #	Ap_Number: Numero di Ability Point ricevuti dal mostro
 #=========================================================================
 Enemy_AP = {1=>20}
 #=========================================================================
 #  Enemy_AP.default: Imposta il numero di Ability Point ricevuti da
 #					ciascun mostro non definito in Enemy_AP.
 #-------------------------------------------------------------------------
 #  Sintassi:
 #	Enemy_AP.default = Ap_Number
 #  Parametri:
 #	Ap_Number: Numero di Ability Point ricevuti dal mostro
 #=========================================================================
 Enemy_AP.default = 1
 #=========================================================================
 #  AP_Name: Imposta il simbolo degli Ability Point.
 #-------------------------------------------------------------------------
 #  Sintassi:
 #	AP_Name = String
 #  Parametri:
 #	String: Simbolo degli Ability Point
 #=========================================================================
 AP_Name = "AP"
end

$tsl_script = [] if $tsl_script == nil
$tsl_script.push("Ability Point System")

class Game_Actor < Game_Battler
 #--------------------------------------------------------------------------
 # * Public Instance Variables
 #--------------------------------------------------------------------------
 attr_accessor :active_skill
 attr_reader   :temp_skills
 #--------------------------------------------------------------------------
 # * Setup
 #	 actor_id : actor ID
 #--------------------------------------------------------------------------
 alias tslaps_gameactor_setup setup
 def setup(actor_id)
@active_skill = nil
@temp_skills = []
@skill_ap = {}
@skill_ap.default = 0
tslaps_gameactor_setup(actor_id)
 end
 #--------------------------------------------------------------------------
 # * Return the current Skill Ap
 #	 skill_id : skill ID
 #--------------------------------------------------------------------------
 def skill_ap(skill_id)
return @skill_ap[skill_id]
 end
 #--------------------------------------------------------------------------
 # * Learn Temp Skill
 #	 skill_id : skill ID
 #--------------------------------------------------------------------------
 def learn_temp_skill(skill_id)
if skill_id > 0 and not temp_skill_learned?(skill_id)
  @temp_skills.push(skill_id)
  @temp_skills.sort!
end
 end
 #--------------------------------------------------------------------------
 # * Add Ap to Skill
 #	 ap : ap
 #--------------------------------------------------------------------------
 def add_skills_ap(ap)
if @active_skill != nil
  @skill_ap[@active_skill] += ap
  if @skill_ap[@active_skill] >= Ability_Point_System::Skill_AP[@active_skill]
	learn_skill(@active_skill)
	@temp_skills.delete(@active_skill)
	@active_skill = nil
	if @temp_skills.size > 0
	  @active_skill = @temp_skills[rand(@temp_skills.size)]
	end
  end
end
 end
 #--------------------------------------------------------------------------
 # * Learn Skill
 #	 skill_id : skill ID
 #--------------------------------------------------------------------------
 alias tslaps_gameactor_learn_skill learn_skill
 if $tsl_script.include?("FFVIII MagicSystem")
def learn_skill(skill_id, n=1)
  if Ability_Point_System::Skill_AP.include?(skill_id) and @skill_ap[skill_id] < Ability_Point_System::Skill_AP[skill_id]
	@active_skill = skill_id if @active_skill == nil
	learn_temp_skill(skill_id)
  else
	tslaps_gameactor_learn_skill(skill_id, n)
  end
end
 else
def learn_skill(skill_id)
  if Ability_Point_System::Skill_AP.include?(skill_id) and @skill_ap[skill_id] < Ability_Point_System::Skill_AP[skill_id]
	@active_skill = skill_id if @active_skill == nil
	learn_temp_skill(skill_id)
  else
	tslaps_gameactor_learn_skill(skill_id)
  end
end
 end
 #--------------------------------------------------------------------------
 # * Determine if Finished Learning Temp Skill
 #	 skill_id : skill ID
 #--------------------------------------------------------------------------
 def temp_skill_learned?(skill_id)
return @temp_skills.include?(skill_id)
 end
end

class Scene_Battle
 #--------------------------------------------------------------------------
 # * Start After Battle Phase
 #--------------------------------------------------------------------------
 alias tslaps_scenebattle_start_phase5 start_phase5
 def start_phase5
tslaps_scenebattle_start_phase5
exp = 0
gold = 0
ap = 0
for enemy in $game_troop.enemies
  unless enemy.hidden
	ap += Ability_Point_System::Enemy_AP[enemy.id]
  end
end
@ap = ap
for i in 0...$game_party.actors.size
  actor = $game_party.actors[i]
  actor.add_skills_ap(ap)
end
@result_window.visible = true if @result_window.visible != nil
loop do
  Graphics.update
  Input.update
  break if Input.trigger?(Input::C)
end
@result_window.dispose if @result_window.visible != nil
@result_window = Window_BattleResultAp.new(ap)
@phase5_wait_count = 10
 end
end

class RPG::Skill
 #--------------------------------------------------------------------------
 # * Define Ap Cost
 #--------------------------------------------------------------------------
 def ap_cost
return Ability_Point_System::Skill_AP[id]
 end
end

class Window_BattleResultAp < Window_Base
 #--------------------------------------------------------------------------
 # * Object Initialization
 #	 ap : ap
 #--------------------------------------------------------------------------
 def initialize(ap)
super(160, 208, 320, 64)
self.contents = Bitmap.new(width - 32, height - 32)
self.y = 160 - height / 2
self.back_opacity = 160
self.visible = false
@ap = ap
refresh
 end
 #--------------------------------------------------------------------------
 # * Refresh
 #--------------------------------------------------------------------------
 def refresh
self.contents.clear
x = 4
self.contents.font.color = normal_color
cx = contents.text_size(@ap.to_s).width
self.contents.draw_text(x, 0, cx, 32, @ap.to_s)
x += cx + 4
self.contents.font.color = system_color
self.contents.draw_text(x, 0, 128, 32, Ability_Point_System::AP_Name)
 end
end

class Window_LearningSkill < Window_Selectable
 #--------------------------------------------------------------------------
 # * Object Initialization
 #	 actor : actor
 #--------------------------------------------------------------------------
 def initialize(actor)
super(0, 128, 640, 352)
@actor = actor
@column_max = 2
refresh
self.index = 0
 end
 #--------------------------------------------------------------------------
 # * Acquiring Skill
 #--------------------------------------------------------------------------
 def skill
return @data[self.index]
 end
 #--------------------------------------------------------------------------
 # * Refresh
 #--------------------------------------------------------------------------
 def refresh
if self.contents != nil
  self.contents.dispose
  self.contents = nil
end
@data = []
for i in 0...@actor.temp_skills.size
  skill = $data_skills[@actor.temp_skills[i]]
  if skill != nil
	@data.push(skill)
  end
end
# If item count is not 0, make a bit map and draw all items
@item_max = @data.size
if @item_max > 0
  self.contents = Bitmap.new(width - 32, row_max * 32)
  for i in 0...@item_max
	draw_item(i)
  end
end
 end
 #--------------------------------------------------------------------------
 # * Draw Item
 #	 index : item number
 #--------------------------------------------------------------------------
 def draw_item(index)
skill = @data[index]
if @actor.active_skill == skill.id
  self.contents.font.color = normal_color
else
  self.contents.font.color = disabled_color
end
x = 4 + index % 2 * (288 + 32)
y = index / 2 * 32
rect = Rect.new(x, y, 320, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
bitmap = RPG::Cache.icon(skill.icon_name)
opacity = self.contents.font.color == normal_color ? 255 : 128
self.contents.blt(x, y + 4, bitmap, Rect.new(0, 0, 24, 24), opacity)
self.contents.draw_text(x + 28, y, 204, 32, skill.name, 0)
self.contents.draw_text(x + 260-64, y, 64, 32, @actor.skill_ap(skill.id).to_s+" / "+Ability_Point_System::Skill_AP[skill.id].to_s,2)
self.contents.font.color = system_color
self.contents.draw_text(x + 160, y, 48, 32, Ability_Point_System::AP_Name+":")
 end
 #--------------------------------------------------------------------------
 # * Help Text Update
 #--------------------------------------------------------------------------
 def update_help
@help_window.set_text(self.skill == nil ? "" : self.skill.description)
 end
end

class Scene_LearningSkill
 #--------------------------------------------------------------------------
 # * Object Initialization
 #	 actor_index : actor index
 #--------------------------------------------------------------------------
 def initialize(actor_index = 0, equip_index = 0)
@actor_index = actor_index
 end
 #--------------------------------------------------------------------------
 # * Main Processing
 #--------------------------------------------------------------------------
 def main
# Get actor
@actor = $game_party.actors[@actor_index]
# Make help window, status window, and skill window
@help_window2 = Window_Help.new
@help_window2.set_text("Seleziona una Skill da Apprendere", 1)
@help_window = Window_Help.new
@help_window.y = 64
@skill_window = Window_LearningSkill.new(@actor)
# Associate help window
@skill_window.help_window = @help_window
# Execute transition
Graphics.transition
# Main loop
loop do
  # Update game screen
  Graphics.update
  # Update input information
  Input.update
  # Frame update
  update
  # Abort loop if screen is changed
  if $scene != self
	break
  end
end
# Prepare for transition
Graphics.freeze
# Dispose of windows
@help_window.dispose
@help_window2.dispose
@skill_window.dispose
 end
 #--------------------------------------------------------------------------
 # * Frame Update
 #--------------------------------------------------------------------------
 def update
# Update windows
@help_window.update
@help_window2.update
@skill_window.update
# If skill window is active: call update_skill
if @skill_window.active
  update_skill
  return
end
 end
 #--------------------------------------------------------------------------
 # * Frame Update (if skill window is active)
 #--------------------------------------------------------------------------
 def update_skill
# If B button was pressed
if Input.trigger?(Input::B)
  # Play cancel SE
  $game_system.se_play($data_system.cancel_se)
  # Switch to menu screen
  $scene = Scene_Map.new
  return
end
# If C button was pressed
if Input.trigger?(Input::C)
  # Get currently selected data on the skill window
  @skill = @skill_window.skill
  @actor.active_skill = @skill.id
  $game_system.se_play($data_system.decision_se)
  @skill_window.refresh
end
# If R button was pressed
if Input.trigger?(Input::R)
  # Play cursor SE
  $game_system.se_play($data_system.cursor_se)
  # To next actor
  @actor_index += 1
  @actor_index %= $game_party.actors.size
  # Switch to different skill screen
  $scene = Scene_LearningSkill.new(@actor_index)
  return
end
# If L button was pressed
if Input.trigger?(Input::L)
  # Play cursor SE
  $game_system.se_play($data_system.cursor_se)
  # To previous actor
  @actor_index += $game_party.actors.size - 1
  @actor_index %= $game_party.actors.size
  # Switch to different skill screen
  $scene = Scene_LearningSkill.new(@actor_index)
  return
end
 end
end

 

 

Istruzioni per l'uso

Con il comando degli eventi Cambia Magie se la magia è inclusa nelle skill che richiedono Ability Point questa viene aggiunta al menu delle skill temporanee nel quale è possibile selezionare la skill a cui verranno assegnati gli Ability Point.

Per richiamare il menù delle skill temporanee inserire il seguente codice attraverso il comando Script degli eventi:

$scene = Scene_LearningSkill.new

 

Bugs e Conflitti Noti

N/A

 

Altri Dettagli

Terzo Script della compilation, ne mancano ancora 2 o 3 xD.

Fa parte degli script della compilation di FF VIII poichè i GF apprendono le skill in questo modo, sia passive che non(ecco spiegate le passive skill)

Edited July 3, 2008 by Sleeping Leonhart

[Quarillion]

scusate, a me da errore una volta abbattutto il mostro... mi dice "Script 'Ability System line 182: NomethodError Occurred. Undefined Method 'Visible'=for NilClass'...

Mi potete aiutare!!??

 

Graie in anticipo a tutti!

[Sleeping Leonhart]

Usi altri script? In quale occasione ti da l'errore? Fammi sapere ;)

[Quarillion]

Si, uso altri script, tra cui il sistema d combattimento di minkoff, non so se è quello che crea problemi...

Comunque l'errore me lo da una volta abbattuti tutti i mostri nel combattimento, appena uccido l'ultimo...

come posso fare!?

[Sleeping Leonhart]

Devi dirmi TUTTI gli script che usi sennò io che ne so con cosa va in conflitto xD

[Sleeping Leonhart]

Devi dirmi TUTTI gli script che usi sennò io che ne so con cosa va in conflitto xD

 

EDIT:

Ho modificato un po lo script vedi un po se adesso ti va.(la demo nn è aggiornata)

Edited July 3, 2008 by Sleeping Leonhart

[Quarillion]

gli script ke ho sono: text scroll scritp, Anti lag script, Debug, Train Actor, Mog-scene menù, Mog- scene file, mog- scene game over, mog scene shop, mog scene game mode, mog- scene end, mog- MPW map name, advance message script, Mog battle arrow, Tutti gli script del sistema d battaglia di minkoff e l'ability point system....

 

Comunque ci ho provato con quello modificato da te prima, ma mi da sempre lo stesso errore...

Edited July 3, 2008 by Quarillion

[Sleeping Leonhart]

Troppi script.... non è che mi puoi mandare una demo con tutti gli script e la grafica che gli serve per funzionare, sennò nn ne esco più fuori ( per grafica intendo tipo quella dei menu ecc.. )

[Quarillion]

Ora in questi giorni ho un po' da fare... Appena posso ti mando subito una demo!!

[Quarillion]

Scusate il doppio post, ma ho provato a togliere gli script relativi al sistema di battaglia di minkoff, e senza quelli mi funziona... quindi credo ke siano gli script di minkoff a non far funzionare questo script...

 

Potresti fare qualcosa??

[Sleeping Leonhart]

A me con il solo minkoff funziona bene è per questo che ti ho chiesto una demo con i tuoi script, così almeno posso controllare meglio, magari hai una versione del minkoff diversa dalla mia.

[regan]

Scusa la domanda forse un pò sciocca e da noob, ma come faccio a inseerirlo come comando nel menù?

Smanettando un pò ho aggiunto al finestrella con scritto apprendimento(mi è sembrato il nome più adatto) però quando ci clicco sopra, usando lo script di richiamo non f aun fico secco, e manco incollando la parte di script che teoricamente viene richiamata!

Help!

[Sleeping Leonhart]

Uhm vediamo...

per prima cosa devi aggiungere il comando al menu in questo modo:

sotto

s6 = "End Game"

aggiungi

s7 =  "Apprendi"

dopodiche trasformi

@command_window = Window_Command.new(160, [s1, s2, s3, s4, s5, s6])

in

@command_window = Window_Command.new(160, [s1, s2, s3, s4, s5, s6,s7])

poi dopo

when 5  # end game
# Play decision SE
$game_system.se_play($data_system.decision_se)
# Switch to end game screen
$scene = Scene_End.new

aggiungi

when 6 #apprendi
# Play decision SE
$game_system.se_play($data_system.decision_se)
# va alla schermata di apprendimento
$scene = Scene_LearningSkill.new

 

Tutto questo però ti mette il comando dopo il comando Esci!

Per cambiargli posizione basta che sposti s7 all'interno dell'array

e modifichi il numero 6 dopo il when ponendolo uguale alla posizione di s7 nell'array - 1.

Fai attenzione perchè se per esempio metti s7 dopo s3 per esempio ( e quindi metterai when 3 eccetera) dovrai scalare gli altri numeri dopo il when di un numero.

 

Ok mi sono spiegato un po alla ca22o se nn hai capito dimmi la posizione in cui lo vuoi e te lo sistemo io al volo

[Darklink92]

Lo si puo adattare al VX?

Pago in rens volendo.

[Sleeping Leonhart]

Clicca QUI

[Squall_Leonheart]

Scusami non riesco ad impostare le magie per apprenderleXD

 

EDIT:Quando vinco la battaglia mi da un errore alla riga 180 di "no method"

Edited December 30, 2008 by Squall_Leonheart

[Squall_Leonheart]

Scusate il doppio post,però volevo precisare che da l'errore dopo vinta la battaglia prima non me lo dava finchè non ho aggiunto lo script della finestra di vittoria dopo la battaglia,poi lo cancellata ma continua a darmi qst errori...

[Sleeping Leonhart]

Se mi mandi una demo con i tuoi script quando ho tempo te la controllo

[Squall_Leonheart]

Ecco qui fammi sapere al + presto

 

 

http://www.megaupload.com/?d=0MDEAPBG

[Winthorp]

Io non vedo i nomi delle magie nella schermata di selezione, è normale? O.o (però vedo le loro icone)

P.s: Ho la 1.01 di RpgMaker XP nel caso possa contar qualcosa

[Goofy !]

Hai il main modificato di Dad?

[Winthorp]

No, il main è quello base o.o'

Ho gli script Alchemy Pot (stesso problema tra l'altro), Advanced Message Script (ma l'ho installato DOPO il problema), Rigenerazione mentre si difende e Light Effects

Ma nel main nulla

[Winthorp]

Ok, tra vari casini e grazie a MasterSion ho risolto

Ma questo script riguarda solo il 1° pg?

Non c'è un modo per fare qualcosa di simile anche per gli altri?

[giver]

E' già presente quella possibilità, ma bisogna premere il button R (tasto W) o il button L (tasto Q) per passare da un membro del party all'altro, più o meno come avviene in tutti gli script di questo tipo (anche di default, come Scene_Status e Scene_Equip) . . .

[MasterSion]

Ok, tra vari casini e grazie a MasterSion ho risolto

Ma questo script riguarda solo il 1° pg?

Non c'è un modo per fare qualcosa di simile anche per gli altri?

 

se vuoi creare una scena come il window_equip ci penso io...

tradotto se vuoi il commando nel menù e altro che aprirti la nuova scena prima ti fa selezionare l'actor sono disponibile a modificarti il menù