求战斗结束获得四种或以上物品的脚本 - Project1

module Sword
#=======================================
#★魔劍工舖 - 怪物掉落道具擴充 1.01 (XP)
# http://blog.yam.com/a870053jjkj/
#=======================================
Sword72_Enemy = Hash.new{|a, b| a[b] = {}}
#=======================================
#● 使用者自定設置
Sword72_Probabilit = false # 機率判定方式是否從左至右判定改成全體直接判定
Sword72_Max = [5, true] # 設定掉落道具 [最多獲得數, 是否包含相同道具數]
#--------------------------------------------------------------
#○ 敵人掉落道具資料表
#【1】Sword72_Enemy[敵人編號][[種類, 編號]] = [機率表]
#【2】Sword72_Enemy[敵人編號][[種類, 編號]] = 最低取得量..最高取得量
#【3】Sword72_Enemy[敵人編號][[種類, 編號]] = 數量
# 編號：0為物品；1為武器；2為防具
# 機率表：可設定多個機率，設的機率數量為一次最多掉落多少個，由左至右開始算
Sword72_Enemy[1][[0, 1]] = [100, 90, 80]
Sword72_Enemy[2][[0, 2]] = 0..3
Sword72_Enemy[2][[1, 1]] = 1
#=======================================
$Sword ? $Sword[72] = true : $Sword = {72=>true} # 腳本使用標誌
end
#=======================================
# ■ 戰鬥結束視口
class Window_BattleResult < Window_Base
include Sword # 連接自定設置
#-------------------------------------------------------------
#● 初始化物件(經驗值, 金錢, 掉落道具表)
def initialize(exp, gold, treasures)
@exp, @gold, nn = exp, gold, 0 # 經驗, 金錢, 獲得紀錄
@treasures = {} ; @treasures.default = 0 # 掉落物表，默認值為0
#○ 獲取可掉落的道具
$game_troop.enemies.each do |enemy|
unless enemy.hidden ; if Sword72_Enemy[enemy.id] # 有設定並有現身的怪的情況
Sword72_Enemy[enemy.id].each do |key, value| n = 0
if value.is_a?(Array) # 機率式連續判斷(設定數組)
value.each do |prov| if prov > rand(100) # 開始循環計算每個機率，假如機率成功
treasures += [sword72_equipment(key[0], key[1])]
end ; end
else # 隨機獲得數量或固定獲得的情況(設定範圍或數值)
n = value.is_a?(Range) ? rand(value.last - value.first + 1) + value.first : value
treasures += [sword72_equipment(key[0], key[1])] * n
end
end
end ; end
end
#○ 開始計算可獲得的道具
while treasures.size > 0
i = rand(treasures.size) # 隨機獲得道具索引
(treasures.delete_at(i) ; next) unless @treasures.key?(treasures[i]) if
! Sword72_Max[1] and @treasures.size >= Sword72_Max[0] # 限制獲得種類
@treasures[treasures[i]] += 1
case treasures[i] # 道具種類分歧
when RPG::Item ; $game_party.gain_item(treasures[i].id, 1) # 物品
when RPG::Weapon ; $game_party.gain_weapon(treasures[i].id, 1) # 武器
when RPG::Armor ; $game_party.gain_armor(treasures[i].id, 1) # 防具
end
treasures.delete_at(i) ; nn += 1
break if nn >= Sword72_Max[0] and Sword72_Max[1] # 限制獲得數
end
#○ 開始產生窗口
super(160, 0, 320, @treasures.size * 32 + 64)
self.contents = Bitmap.new(width - 32, height - 32)
self.y, self.back_opacity, self.visible = 160 - height / 2, 160, false
refresh
end
#-------------------------------------------------------------
#● 更新內容
def refresh
self.contents.clear
x = 4
self.contents.font.color = normal_color
cx = contents.text_size(@exp.to_s).width
self.contents.draw_text(x, 0, cx, 32, @exp.to_s)
x += cx + 4
self.contents.font.color = system_color
cx = contents.text_size("EXP").width
self.contents.draw_text(x, 0, 64, 32, "EXP")
x += cx + 16
self.contents.font.color = normal_color
cx = contents.text_size(@gold.to_s).width
self.contents.draw_text(x, 0, cx, 32, @gold.to_s)
x += cx + 4
self.contents.font.color = system_color
self.contents.draw_text(x, 0, 128, 32, $data_system.words.gold)
y, nn = 32, 0
@treasures.each do |item, n|
draw_item_name(item, 4, y)
self.contents.draw_text(-4, y, self.width - 32, 32, 'x ', 2)
self.contents.draw_text(-4, y, self.width - 32, 32, n.to_s, 2)
y += 32
end
end
#-------------------------------------------------------------
#● 獲取道具數據(道具種類, 道具編號)
def sword72_equipment(kind, id)
case kind # 道具種類分歧
when 0 ; $data_items[id] # 物品
when 1 ; $data_weapons[id] # 武器
when 2 ; $data_armors[id] # 防具
end
end
end

复制代码