질문과 답변

Extra Form

아래 스크립트 보시면 아시겠지만 돈으로 스킬을 구매합니다

그런데 전 따로 스킬 포인트를 만들어서 구매할 수 있도록 하고 싶은데요,

가령 스킬 포인트 변수를 만들어서 처리한다든가.. 하고 싶은데 어떻게 손봐야할까요?

 

 

UseClasses = true # if false anyone can learn any skill
                     # if true only classes can learn the defined skills
end
module RPG
  class Skill
    def price
      case id
      #==========================
      # CONFIG PRICE
      #==========================
      # use
      # when skill_id then return price
      when 1 then return 50
      when 2 then return 75
      end
      return 10
    end
    def llevel
      case id
      #==========================
      # CONFIG LEVEL
      #==========================
      # use
      # when skill_id then return level
      when 1 then return 1
      end
      return 1
    end
  end
  class Class
    def learnskills
      case id
      #==========================
      # CONFIG CLASS SKILLS
      #==========================
      # use
      # when class_id then return [skill id's here]
      when 1 then return []
      when 2 then return []
      when 3 then return []
      when 4 then return []
      end
      return []
    end
  #==========================
  # END CONFIG
  #==========================
  end
end
 
class Window_SkillCommand < Window_Selectable
  def initialize
    super(0, 64, 480, 64)
    self.contents = Bitmap.new(width - 32, height - 32)
    @item_max = 2
    @column_max = 2
    @commands = ["배우기", "나가기"]
    refresh
    self.index = 0
  end
  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_SkillBuy < Window_Selectable
  def initialize(shop_goods)
    super(0, 128, 368, 352)
    @skill_shop_goods = shop_goods
    self.active = false
    refresh
    self.index = 0
  end
  def skill
    return @data[self.index]
  end
  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
    @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
  def draw_item(index)
    skill = @data[index]
    price = skill.price
    enabled = (price <= $game_party.gold)
    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_SkillStatus2 < Window_Selectable
  def initialize
    super(368, 128, 272, 352)
    self.contents = Bitmap.new(width - 32, height - 32)
    refresh
    self.z = 200
    self.active = false
    self.index = -1
  end
  def refresh
    self.contents.clear
    @item_max = $game_party.actors.size
    for i in 0...$game_party.actors.size
      x = 64
      y = i * 80
      actor = $game_party.actors[i]
      classs = $data_classes[$game_actors[actor.id].class_id]
      draw_actor_graphic(actor, x - 40, y + 60)
      draw_actor_name(actor, x - 13, y + 10)
      if actor.skill_learn?($thing.id)
        self.contents.font.color = crisis_color
        $text = "습득함"
      elsif GameGuy::UseClasses
        if classs.learnskills.include?($thing.id) && $thing.llevel <= actor.level
          self.contents.font.color = normal_color
          $text = "배울 수 있음"
        elsif classs.learnskills.include?($thing.id) && $thing.llevel > actor.level
          self.contents.font.color = disabled_color
          $text = "레벨 요구 Lv " + $thing.llevel.to_s
        else
          self.contents.font.color = disabled_color
          $text = "배울 수 없음"
        end
      else
        if actor.level >= $thing.llevel
          self.contents.font.color = normal_color
          $text = "배울 수 있음"
        else
          self.contents.font.color = disabled_color
          $text = "레벨 요구 Lv " + $thing.llevel.to_s
        end
      end
      self.contents.draw_text(x - 13, y + 40, 200, 32, $text)
    end
  end
  def update_cursor_rect
    if @index < 0
      self.cursor_rect.empty
    else
      self.cursor_rect.set(0, @index * 80, self.width - 32, 80)
    end
  end
end
 
class SkillShop
  def initialize(skills)
    @skills = skills
  end
  def main
    @command = Window_SkillCommand.new
    @help_window = Window_Help.new
    @skillbuy = Window_SkillBuy.new(@skills)
    @skillbuy.active = false
    @skillbuy.help_window = @help_window
    $thing = @skillbuy.skill
    @status = Window_SkillStatus2.new
    #@status.visible = false
    @gold = Window_Gold.new
    @gold.x = 480
    @gold.y = 64
   
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @gold.dispose
    @skillbuy.dispose
    @help_window.dispose
    @command.dispose
    @status.dispose
  end
  def update
    @gold.update
    @status.update
    @gold.refresh
    @command.update
    @skillbuy.update
    @help_window.update
    $thing = @skillbuy.skill
    @status.refresh
    if @command.active
      update_command
      return
    end
   
    if @status.active
      update_status
      return
    end
   
    if @skillbuy.active
      update_buy
      return
    end
  end
 
  def update_buy
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      @skillbuy.active = false
      @command.active = true
      return
    end
    if Input.trigger?(Input::C)
      $game_system.se_play($data_system.decision_se)
      @skillbuy.active = false
      @status.active = true
      @status.visible = true
      @status.index = 0 if @status.index == -1
    end
  end
 
  def update_command
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Map.new
      return
    end
    if Input.trigger?(Input::C)
      $game_system.se_play($data_system.decision_se)
      case @command.index
      when 0
        @command.active = false
        @skillbuy.active = true
      when 1
        $game_system.se_play($data_system.cancel_se)
        $scene = Scene_Map.new
      end
      return
    end
  end
 
  def update_status
    if Input.trigger?(Input::B)
      @status.active = false
      @skillbuy.active = true
      return
    end
    if Input.trigger?(Input::C)
      price = @skillbuy.skill.price
      @actort = $game_party.actors[@status.index]
      enabled = (price <= $game_party.gold)
     
      if enabled
        if @actort.skill_learn?(@skillbuy.skill.id)
          $game_system.se_play($data_system.buzzer_se)
          return
        end
        if GameGuy::UseClasses
          if $data_classes[@actort.class_id].learnskills.include?(@skillbuy.skill.id) && @actort.level >= @skillbuy.skill.llevel
            @actort.learn_skill(@skillbuy.skill.id)
            $game_party.lose_gold(@skillbuy.skill.price)
            $game_system.se_play($data_system.decision_se)
            @skillbuy.active = true
            @status.active = false
            @status.refresh
            return
          else
            $game_system.se_play($data_system.buzzer_se)
            return
          end
        else
          if @actort.level >= @skillbuy.skill.llevel
            @actort.learn_skill(@skillbuy.skill.id)
            $game_party.lose_gold(@skillbuy.skill.price)
            $game_system.se_play($data_system.decision_se)
            @skillbuy.active = true
            @status.active = false
            @status.refresh
          else
            $game_system.se_play($data_system.buzzer_se)
            return
          end
          return
        end
       
      else
        $game_system.se_play($data_system.buzzer_se)
        return
      end
    end
  end
end

Comment '5'
  • ?
    허걱 2011.06.13 23:12

    $game_party.gold 비교하는 부분과 $game_party.lose_gold 지불하는 부분을 원하는 변수로 바꾸시면 될듯 합니다;

    참고로 게임 내에서의 변수는 $game_variables[n] 으로 사용할 수 있습니다. (n = 변수 번호)

  • ?
    허걱 2011.06.16 20:22

    그건 사용할 변수를 몰라서 대답할 수 없습니다;;

  • ?
    허걱 2011.06.16 20:24

    참고로 일반 게임변수로 사용하고 싶다면.. .예를들어 1번 변수가 포인트라면

    $game_party.lose_gold(@skillbuy.skill.price)
    부분을

    $game_variables[1] -= @skillbuy.skill.price 등으로 해주시면 해당 변수에서 @skillbuy.skill.price 만큼을 빼주게 됩니다.

  • profile
    KG05 2011.06.16 20:45

    감사합니다. 덕분에 많이 알아갑니다 ^^

  • profile
    KG05 2011.06.16 18:06

    그런데 $game_party.lose_gold  부분은 어떻게 바꿔야 구문오류가 안 나오나요?


List of Articles
종류 분류 제목 글쓴이 날짜 조회 수
공지 묻고 답하기 가이드 습작 2014.06.14 21131
RMVX 이벤트 스위치 질문 드립니다 2 후라이팬샷 2017.02.14 97
RMVXA 이벤트 스크립트 추가로 메뉴부르기 2 준준이 2015.12.24 139
이벤트 작성 RMVXA 이벤트 시에 그림이 반복으로 움직이면서 다음 행이나 선택지가 나오게 하는 것이 궁금합니다. file laneas 2020.08.01 149
RMMV 이벤트 실행 내용만으로 통행설정(좌우만으로 움직이게끔) 할 수 있는가요?[해결] 4 파란소리 2018.05.10 162
RMVXA 이벤트 실행 내용에 '액터 mp증가' 적용 시키는 법 좀 알려주세요. 3 kymanj 2018.03.20 107
RMVXA 이벤트 실행 도중에 특정 위치의 문이 열리거나 닫히도록 하고 싶습니다. 4 file 안드루이드 2016.09.15 277
이벤트 작성 RMMV 이벤트 실행 시 특정 타일만 변경할 수 없나요? 3 file 쫄랑이 2023.10.11 77
RMVXA 이벤트 실행 전투 실행 이안됌요 3 오오오오하군 2016.08.02 97
이벤트 작성 RMMV 이벤트 실행시마다 다른 텍스트가 나오게 할 수 있나요? 3 file 쫄랑이 2023.12.10 98
RMVX 이벤트 실행이 안됩니다 3 파이어 2012.01.03 2932
RMXP 이벤트 액션 전투나 액션알피지이 뭐죠? 하는방법도 1 포레버아이둔 2013.06.23 713
RMVXA 이벤트 액알 몬스터의 체력 11 file 떡좀쪄봐 2014.02.12 611
RMVXA 이벤트 액알의 변수 조작과 조건 분기 4 file 떡좀쪄봐 2014.02.12 740
기본툴 사용법 RMVXA 이벤트 어케 중지해요? 2 file 2021.08.19 72
RMVXA 이벤트 에서 사용하는 변수를 스크립트에서 사용할 수 는 없나요? 4 프리마리모 2016.03.28 142
RMVXA 이벤트 연습.. 질문 1 배수지 2016.12.12 99
RMVXA 이벤트 오류 4 Ka이라 2015.08.11 125
RMXP 이벤트 옵션: 맨 위에 표시 기능 2 file 조석진 2013.04.21 1315
RMVX 이벤트 우선 순위 설정할때요 진하 2011.04.29 937
이벤트 작성 RMMV 이벤트 위치 설정에 관하여 1 pokapoka 2024.01.25 98
Board Pagination Prev 1 ... 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 ... 518 Next
/ 518