skill shop script

[imapro 1]

info

 

To set the text that appears in the Skill shop main windows Find "# Skill Shop Config

You can set Skill Price under "# Price Data".

You can allow skills to be learnt by individual heros by finding "# Skill data".

and i will try to put some screen shots :alright:

 

#==============================================================================
# ** Easy Skill Shop
#==============================================================================
#   Author: imapro
#   Version: 1.0
#   Build Date: 11.26.10
#==============================================================================
#  
#==============================================================================
=begin
=============================
* Info:
=============================
i made this cuase i was bored in my basement lol.
==============================
 * How to Use:                        
==============================
   call "$skill_shop =[i]"   i = ID of skill...you must call the code for it to work!.
You will also need to call "$scene = Scene_Skill_Shop.new" to open up the Skill shop main window.
===============================
* Example:
===============================

 $skill_shop = [1,2,3,6,7]
 $scene = Scene_Skill_Shop.new

To set the text that appears in the Skill shop main windows Find   "# Skill Shop Config
You can set Skill Price under "# Price Data".
You can allow skills to be learnt by individual heros by finding "# Skill data".

This is the layout:
[iD of skill, Level requirement for learn]

==============================
* Special Thanks & Credits:
==============================

    Sephirothspawn: For all the coding help and the Skill Shop script which inspired me
                   to make my own.

=end
#===================================================
# ^ Module SkillShop_Config Begins
#===================================================
module Skill_Shop
# Skill Shop Config
    #Edit here
   Shop_Message = "Welcome how can i help?"
   How_Learn = "Who would you like to teach?"   #Text shown above Characters in shop window
   Can_Learn = "Learn!"                                    #Text shown when a hearo can learn the skill
   Can_Learn_Lv = "Learn on Lv"                        #text shown when a hero CAN learn the skill
   Cant_Learn = "Unable to learn"                     #Text shown if a hero is unable to learn that perticular skill
   Learnt = "Learned!"                                     #text shown when a hero has learnt a skill
   Teach = "Teach!"                                          #Command (Buy in normal shops)
   Cancel = "Exit"                                           #Command (Cancel in normal shops)

 # Add Prices Here
 PRICE = {
 0 => 80,   #Defualt price for skills with no price set
 1 => 129,   #Price for Skill ID   1
 2 => 300,
 3 => 450,
 }

 # Skill Data
 # add the skills that each individual hero can learn.
 #Layout is mentioned above.
 SKILL_BUY = {
1 => [
 [1,4],[2,3],[3,1],[7,1],
],

2 => [
 [1,4],[2,3],[3,1],[7,5],
],

3 => [
 [1,4],[2,3],[3,1],[7,5],
],

}
 # Add Price
 def self.skill_price(id)
    if PRICE.include?(id)
       return PRICE[id]
    else
       return PRICE[0]
    end
 end
 # Add Hero id
 def self.skill_buy(id)
    if SKILL_BUY.include?(id)
       return SKILL_BUY[id]
    else
       return []
    end
 end
end
#==============================================================================
# ** Class Game_Actor
#------------------------------------------------------------------------------
#   This class handles the actor array. Refer to "$game_actors" for each
#   instance of this class.
#==============================================================================
class Game_Actor < Game_Battler
 def learn?(skill)
    learn = skill_learn?(skill.id)
    if learn
       return false
    else
       return true
    end
 end
end
#==============================================================================
#class Window_Skill_ShopCommand
#==============================================================================
class Window_Skill_ShopCommand < Window_Selectable
 #--------------------------------------------------------------------------
 # * Object Initialization
 #--------------------------------------------------------------------------
 def initialize
    super(0, 64, 480, 64)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = "Tahoma"
    self.contents.font.size = 21
    @item_max = 2
    @column_max = 2
    #Commands Setup... if you wish to add more commands edit here.
    s1 = Skill_Shop::Teach
    s2 = Skill_Shop::Cancel
    @commands = [s1, s2]
    refresh
    self.index = 0
 end
 #--------------------------------------------------------------------------
 # * Refresh
 #--------------------------------------------------------------------------
 def refresh
    self.contents.clear
    for i in 0...@item_max
       draw_item(i)
    end
 end
 #--------------------------------------------------------------------------
 def draw_item(index)
    x = 4 + index * 240
    self.contents.draw_text(x, 0, 128, 32, @commands[index])
 end
end
#==============================================================================
#class Window_Skill_ShopBuy
#==============================================================================
class Window_Skill_ShopBuy < Window_Selectable
 #--------------------------------------------------------------------------
 # * Object Initialization
 #--------------------------------------------------------------------------
 def initialize(shop_goods)
    super(0, 128, 368, 352)
    @skill_shop_goods = $skill_shop
    refresh
    self.index = 0
 end
 #--------------------------------------------------------------------------
 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...@skill_shop_goods.size
       skill = $data_skills[@skill_shop_goods[i]]
       if skill != nil
          @data.push(skill)
       end
    end
    # If the number of items is not 0, it draws up bit map, drawing all item
    @item_max = @data.size
    if @item_max > 0
       self.contents = Bitmap.new(width - 32, row_max * 32)
    self.contents.font.name = "Tahoma"
    self.contents.font.size = 21
       for i in 0...@item_max
          draw_item(i)
       end
    end
 end
 #--------------------------------------------------------------------------
 def draw_item(index)
    skill = @data[index]
    # Acquiring the frequency of possession of the item
    price = Skill_Shop.skill_price(skill.id)
    enabled = (price <= $game_party.gold)
    # If price is not below the money in hand, at the same time the frequency of possession 99, usually in letter color
    # So if is not, it sets to invalid letter color
    if enabled
       self.contents.font.color = normal_color
    else
       self.contents.font.color = disabled_color
    end
    x = 4
    y = index * 32
    rect = Rect.new(x, y, self.width - 32, 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, 212, 32, skill.name, 0)
    self.contents.draw_text(x + 240, y, 88, 32, price.to_s, 2)
 end
 #--------------------------------------------------------------------------
 def update_help
    @help_window.set_text(skill == nil ? "" : skill.description)
 end
end
#==============================================================================
#class Window_Skill_ShopStatus
#==============================================================================
class Window_Skill_ShopStatus < Window_Selectable
 #--------------------------------------------------------------------------
 # * Object Initialization
 #--------------------------------------------------------------------------
 def initialize
    super(368, 128, 272, 352)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = "Tahoma"
    self.contents.font.size = 21
    @item = nil
    refresh
    self.active = false
    self.index = -1
 end
 #--------------------------------------------------------------------------
 # * Refresh
 #--------------------------------------------------------------------------
 def refresh
    self.contents.clear
    @item_max = $game_party.actors.size
    if @item == nil
       return
    end
    self.contents.font.color = system_color
    self.contents.draw_text(4, 0, self.width - 32, 32, Skill_Shop::How_Learn)
    self.contents.font.color = normal_color
    # Equipment supplementary information
    for i in 0...$game_party.actors.size
       # Acquiring the actor
       can = false
       lv = false
       ac_lv = 0
       actor = $game_party.actors[i]
       can_learn = Skill_Shop.skill_buy(actor.id)
       id = @item.id
       for e in 0...can_learn.size
          if can_learn[e][0] == id
             can = true
             if can_learn[e][1] <= actor.level
                lv = true
             else
                lv = false
                ac_lv = can_learn[e][1]
             end
             break
          else
             can = false
          end
       end
       enabled = (can and lv and actor.learn?(@item))
       # If equipment possibility if usually in letter color, the impossibility, it sets to invalid letter color
       if enabled
          self.contents.font.color = normal_color
       else
          self.contents.font.color = disabled_color
       end
       #Draw Character Pic
       bitmap = RPG::Cache.character(actor.character_name, actor.character_hue)
       cw = bitmap.rect.width / 4
       ch = bitmap.rect.height / 4
       src_rect = Rect.new(0, 0, cw, ch)
       cx = contents.text_size(actor.name).width
       self.contents.blt(cx, 64 + 64 * i, bitmap, src_rect)
       # Drawing the name of the actor
       self.contents.draw_text(4, 64 + 64 * i, 120, 32, actor.name)
       # Check Skill
       if can == false
          text = Skill_Shop::Cant_Learn
       elsif can == true and lv == false
          ac = ac_lv.to_s
          text = Skill_Shop::Can_Learn_Lv + " " + ac + "+"
       elsif actor.learn?(@item) == false
          text = Skill_Shop::Learnt
       else
          text = Skill_Shop::Can_Learn
       end
       # Drawing the item
       self.contents.draw_text(124, 64 + 64 * i, 112, 32, text, 2)
    end
 end
 #--------------------------------------------------------------------------
 def item=(item)
    if @item != item
       @item = item
       refresh
    end
 end
 #--------------------------------------------------------------------------
 def update_cursor_rect
    # Cursor position as for -1 all selection, -2 below independence selection (user himself)
    if @index < 0
       self.cursor_rect.empty
    else
       self.cursor_rect.set(0, 62 + @index * 64, self.width - 32, 50)
    end
 end
end
#==============================================================================
#class Scene_Skill_Shop
#==============================================================================
#
#
#-----I advise you not to touch anything past here unless you know what you are doing.-------
#
#
class Scene_Skill_Shop
 #--------------------------------------------------------------------------
 def main
    # Drawing up the help window
    @help_window = Window_Help.new
    # Drawing up the command window
    @command_window = Window_Skill_ShopCommand.new
    # Drawing up the Goldwyn dough
    @gold_window = Window_Gold.new
    @gold_window.x = 480
    @gold_window.y = 64
    # Drawing up the dummy window
    @dummy_window = Window_Base.new(0, 128, 640, 352)
    # Drawing up the purchase window
    @buy_window = Window_Skill_ShopBuy.new($game_temp.shop_goods)
    @buy_window.active = false
    @buy_window.visible = false
    @buy_window.help_window = @help_window
    # Drawing up the status window
    @status_window = Window_Skill_ShopStatus.new
    @status_window.visible = false
    @status_window.active
    # Transition execution
    Graphics.transition
    # Main loop
    loop do
       # Renewing the game picture
       Graphics.update
       # Updating the information of input
       Input.update
       # Frame renewal
       update
       # When the picture changes, discontinuing the loop
       if $scene != self
          break
       end
    end
    # Transition preparation
    Graphics.freeze
    # Releasing the window
    @help_window.dispose
    @command_window.dispose
    @gold_window.dispose
    @dummy_window.dispose
    @buy_window.dispose
    @status_window.dispose
 end
 #--------------------------------------------------------------------------
 def update
    # Renewing the window
    @help_window.update
    @command_window.update
    @gold_window.update
    @dummy_window.update
    @buy_window.update
    @status_window.update
    # When the command window is active,: Update_command is called
    if @command_window.active
       update_command
       return
    end
    # When the purchase window is active,: Update_buy is called
    if @buy_window.active
       update_buy
       return
    end
    # When the target window is active,: Update_target is called
    if @status_window.active
       update_target
       return
    end
 end
 #--------------------------------------------------------------------------
 def update_command
    # The B when button is pushed
    if Input.trigger?(Input::B)
       # Performing cancellation SE
       $game_system.se_play($data_system.cancel_se)
       # Change to map picture
       $scene = Scene_Map.new
       return
    end
    # When C button is pushed
    if Input.trigger?(Input::C)
       # Eliminating the help text
       @help_window.set_text("")
       # It diverges at cursor position of the command window
       case @command_window.index
       when 0   # It purchases
          # Performing decision SE
          $game_system.se_play($data_system.decision_se)
          # State of window to purchase mode
          @command_window.active = false
          @dummy_window.visible = false
          @buy_window.active = true
          @buy_window.visible = true
          @buy_window.refresh
          @status_window.visible = true
       when 1   # It stops
          # Performing decision SE
          $game_system.se_play($data_system.decision_se)
          # Change to map picture
          $scene = Scene_Map.new
       end
       return
    end
 end
 #--------------------------------------------------------------------------
 def update_buy
    # Setting the item of the status window
    @status_window.item = @buy_window.skill
    # The B when button is pushed
    if Input.trigger?(Input::B)
       # Performing cancellation SE
       $game_system.se_play($data_system.cancel_se)
       # State of window to early mode
       @command_window.active = true
       @dummy_window.visible = true
       @buy_window.active = false
       @buy_window.visible = false
       @status_window.visible = false
       @status_window.item = nil
       # Eliminating the help text
       @help_window.set_text("")
       return
    end
    # When C button is pushed
    if Input.trigger?(Input::C)
       # Acquiring the item
       @item = @buy_window.skill
       @price = Skill_Shop.skill_price(@item.id)
       enabled = (@price <= $game_party.gold)
       # When the item is invalid, or when price it is on from the money in hand
       unless   enabled
          # Performing buzzer SE
          $game_system.se_play($data_system.buzzer_se)
          return
       end
       # Performing decision SE
       $game_system.se_play($data_system.decision_se)
       @buy_window.active = false
       @status_window.active = true
       @status_window.index = 0
    end
 end
 #--------------------------------------------------------------------------
 def update_target
    # The B when button is pushed
    if Input.trigger?(Input::B)
       # Performing cancellation SE
       $game_system.se_play($data_system.cancel_se)
       # Eliminating the target window
       @buy_window.active = true
       @status_window.index =- 1
       @status_window.active = false
       return
    end
    # When C button is pushed
    if Input.trigger?(Input::C)
       @actor = $game_party.actors[@status_window.index]
       can = false
       lv = false
       can_learn = Skill_Shop.skill_buy(@actor.id)
       id = @item.id
       for i in 0...can_learn.size
          if can_learn[i][0] == id
             can = true
             if can_learn[i][1] <= @actor.level
                lv = true
             else
                lv = false
             end
             break
          else
             can = false
          end
       end
       enabled = (can and lv and @actor.learn?(@item))
       # When with SP and so on is cut off and it becomes not be able to use
       unless enabled
          # Performing buzzer SE
          $game_system.se_play($data_system.buzzer_se)
          return
       end
       # Performing shop SE
       $game_system.se_play($data_system.shop_se)
       @actor.learn_skill(@item.id)
       $game_party.lose_gold(@price)
       @buy_window.refresh
       @gold_window.refresh
       @status_window.refresh
       @buy_window.active = true
       @status_window.index =- 1
       @status_window.active = false
      end
 end
end

 

 

 

 

Screen shots

 

Edited December 17, 2010 by imapro

[Marked 197]

Moved to User Submitted Scripts. It would be useful if you would include more information in your topic rather than posting the script and saying nothing at all. Welcome to the forums though :)

[FranklinX 37]

Welcome to the forums! Thanks for the script. May you please provide direction? This maybe what I need for my project.

[Marked 197]

Ah, you made this just yesterday :) Or today in fact if you're from that part of the world. Thanks for posting it, maybe you could upload some screenies?

 

EDIT: You tagged this topic with XP/VX so I assume its compatible in both? In RMXP I get an error on line 177 and in VX an error on line 338.

[imapro 1]

oh really i dont get a error but how you use it:call $skill_shop = [1,2,3,6,7]

$scene = Scene_Skill_Shop.new and it will work

[imapro 1]

oh really i dont get a error but how you use it:call $skill_shop = [1,2,3,6,7]

$scene = Scene_Skill_Shop.new and it will work

[CrimsonInferno 35]

Um, yes, (more?) direction would be nice in the first post :)

 

Also, is it compatible with VX as well as XP?

[imapro 1]

i havn't tryed it on VX but it works on XP (didn't mean to put VX and XP)

[Marked 197]

Ah I See. I changed your prefix to RMXP. I should have guessed when you mentioned sephirothspawn. I had the error because I excluded '$skill_shop = [1,2,3,6,7]' from the call script. I didn't test it out too much but looks like a pretty nice script :)

[imapro 1]

thanks and look in the script for more help

[CrimsonInferno 35]

Could you also provide screenshots of what it does in the main post? And some more information about it? :)

[imapro 1]

heres some more info

To set the text that appears in the Skill shop main windows Find "# Skill Shop Config

You can set Skill Price under "# Price Data".

You can allow skills to be learnt by individual heros by finding "# Skill data".

and i will try to put some screen shots :alright:

[imapro 1]

didnt work ....?

[CrimsonInferno 35]

You put the image as a code, if its a image. Remove the "code" parts and it should appear. You should inclode that information on the main post as well. :)