광물캐기 스크립트

심심풀이로 5분동안 만들어본 스크립트

제가 자작한건 여러개있지만

다른건 중복이거나 별로 쓸모가 없는것들임;;

이게 가장쓸만한 자작스크립트..

공부용으로도 좋죠

참고로 제 게임에도 쓰일것입니다

#=================================================
# ■ 광물캐기 스크립트
#-------------------------------------------------
# 　Author: kcss[imngofgh]
# 　Desc: 광물을 캘수있습니다
#    http://rpgxp.zetyx.net (게임공작소)
#=================================================
class Mine
  def mine
    if id = 1 and actor = $game_party.actors[0] and actor.weapon_id == id #33번 무기를 착용해야 발동   
    mine = rand(100)+1   
      if mine == 1 # 1%확률로 드롭
      $game_player.animation_id = 1
      $game_party.gain_item(2, 1) #2번아이템, 개수
      간단메세지("다이아몬드 습득~!!")
      elsif 2 <= mine and mine <= 6 # 5%확률로 드롭
        $game_player.animation_id = 1
        $game_party.gain_item(3, 1) #3번아이템, 개수
        간단메세지("에메랄드 습득~!!")
      elsif 7 <= mine and mine <=  21# 15%확률로 드롭
        $game_player.animation_id = 1
        $game_party.gain_item(1, 1) #1번아이템, 개수
        간단메세지("철광석 습득~!!")
      end     
    end   
  end
end

#사용법#
이벤트 > 스크립트 >  mine = Mine.new
                                      mine.mine
이벤트에 애니메이션과 대기를 넣어주시면 됩니다
예제도 올려놨으니 참조하셈

그리고 심플액션에있는 간단메세지가 있어야 실행이 됩니다