DBW=黑獅的部落格

呃，遊戲內建經驗值和金錢的寫法有點不同。
想了想，還是這麼改吧。

把原腳本中Enemy_Level整篇刪去，再貼下面新的︰

點擊以顯示隱藏內容

[code:1]
class Game_Enemy < Game_Battler
def initialize(index, enemy_id)
super()
@index = index
@enemy_id = enemy_id
enemy = $data_enemies[@enemy_id]
#split name
@original_name = enemy.name.split(/,/)[0]
@letter = ''
@plural = false
@screen_x = 0
@screen_y = 0
@battler_name = enemy.battler_name
@battler_hue = enemy.battler_hue
#if not fixed status
if self.lv != -1
#set multiplier
@mul = [$game_party.avg_lv, self.lv].max
#set amplitude
amp = $data_enemies[@enemy_id].name.split(/,/)[2].to_i
#multiply hp and mp
self.maxhp = (self.maxhp * 1.1 ** @mul).round
self.maxmp = (self.maxmp * 1.1 ** @mul).round
#multiply other parameters
self.atk += @mul * amp
self.def += @mul * amp
self.spi += @mul * amp
self.agi += @mul * amp
end
@hp = maxhp
@mp = maxmp
end

#multiply exp and gold
def exp
return (enemy.exp * 1.25 ** @mul).round
end

def gold
return (enemy.gold * 1.25 ** @mul).round
end

#level
def lv
tmp = $data_enemies[@enemy_id].name.split(/,/)[1]
tmp != nil ? tmp.to_i : -1
end
end

class Game_Party < Game_Unit
#average level
def avg_lv
sum = 0
for i in @actors
actor = $game_actors[i]
sum += actor.level
end
return sum / @actors.size
end
end
[/code:1]

其實改的地方不多，不過有點零碎，乾脆再貼一次比較不會出錯。
另外我也發現HP和MP會出現小數，這次就順便改成整數了。
至改倍數的話，在腳本裏改這兩行內的數字就行︰
return (enemy.exp * 1.25 ** @mul).round
return (enemy.gold * 1.25 ** @mul).round



至於備戰角色也能共享戰鬥經驗值那邊。
在Party_Member_Change腳本裏130那裏，插入新函式(藍字)︰

點擊以顯示隱藏內容

[code:1]
def joiners
result = []
for i in @joinlist
result.push($game_actors[i])
end
return result
end

def existing_joiners
result = []
for battler in joiners
next unless battler.exist?
result.push(battler)
end
return result
end

#recorrect add and remove member
def add_actor(actor_id)
if not @actors.include?(actor_id)
if @actors.size < MAX_MEMBERS
@actors.push(actor_id)
$game_player.refresh
elsif not @joinlist.include?(actor_id)
@joinlist.push(actor_id)
end
end
end
[/code:1]

然後在腳本最下方插入︰

點擊以顯示隱藏內容

[code:1]
#recorrect Battle exp
class Scene_Battle
def display_level_up
exp = $game_troop.exp_total
for actor in ($game_party.existing_members + $game_party.existing_joiners)
last_level = actor.level
last_skills = actor.skills
actor.gain_exp(exp, true)
end
wait_for_message
end
end
[/code:1]

嫌麻煩話可以把舊版整篇刪除，再貼下面新版的。反正都是複製貼上。

點擊以顯示隱藏內容

[code:1]
#add new command
class Scene_Menu
def create_command_window
#new
s0 = "隊伍"
s1 = Vocab::item
s2 = Vocab::skill
s3 = Vocab::equip
s4 = Vocab::status
s5 = Vocab::save
s6 = Vocab::game_end
@command_window = Window_Command.new(160, [s0, s1, s2, s3, s4, s5, s6])
@command_window.index = @menu_index
if $game_party.members.size == 0 # If number of party members is 0
@command_window.draw_item(0, false) # Disable party
@command_window.draw_item(1, false) # Disable item
@command_window.draw_item(2, false) # Disable skill
@command_window.draw_item(3, false) # Disable equipment
@command_window.draw_item(4, false) # Disable status
end
if $game_system.save_disabled # If save is forbidden
@command_window.draw_item(5, false) # Disable save
end
end

def update_command_selection
if Input.trigger?(Input::B)
Sound.play_cancel
$scene = Scene_Map.new
elsif Input.trigger?(Input::C)
if $game_party.members.size == 0 and @command_window.index <= 4
Sound.play_buzzer
return
elsif $game_system.save_disabled and @command_window.index == 5
Sound.play_buzzer
return
end
Sound.play_decision
case @command_window.index
when 0 #party
$scene = Scene_Party.new
when 1 # Item
$scene = Scene_Item.new
when 2,3,4 # Skill, equipment, status
start_actor_selection
when 5 # Save
$scene = Scene_File.new(true, false, false)
when 6 # End Game
$scene = Scene_End.new
end
end
end

def update_actor_selection
if Input.trigger?(Input::B)
Sound.play_cancel
end_actor_selection
elsif Input.trigger?(Input::C)
$game_party.last_actor_index = @status_window.index
Sound.play_decision
case @command_window.index
when 2 # skill
$scene = Scene_Skill.new(@status_window.index)
when 3 # equipment
$scene = Scene_Equip.new(@status_window.index)
when 4 # status
$scene = Scene_Status.new(@status_window.index)
end
end
end
end

#recorrect all the return_scene index
class Scene_Item
def return_scene
$scene = Scene_Menu.new(1)
end
end
class Scene_Skill
def return_scene
$scene = Scene_Menu.new(2)
end
end
class Scene_Equip
def return_scene
$scene = Scene_Menu.new(3)
end
end
class Scene_Status
def return_scene
$scene = Scene_Menu.new(4)
end
end
class Scene_File
def return_scene
$scene = Scene_Menu.new(5)
end
end
class Scene_End
def return_scene
$scene = Scene_Menu.new(6)
end
end

#add joiner list, access @actors in Game_Party class
class Game_Party
attr_accessor :actors
attr_accessor :joinlist
def initialize
super
@gold = 0
@steps = 0
@last_item_id = 0
@last_actor_index = 0
@last_target_index = 0
@actors = [] # Party member (actor ID)
@items = {} # Inventory item hash (item ID)
@weapons = {} # Inventory item hash (weapon ID)
@armors = {} # Inventory item hash (armor ID)
#new
@joinlist = [] #joiners list(actor ID)
end

def joiners
result = []
for i in @joinlist
result.push($game_actors[i])
end
return result
end

def existing_joiners
result = []
for battler in joiners
next unless battler.exist?
result.push(battler)
end
return result
end

#recorrect add and remove member
def add_actor(actor_id)
if not @actors.include?(actor_id)
if @actors.size < MAX_MEMBERS
@actors.push(actor_id)
$game_player.refresh
elsif not @joinlist.include?(actor_id)
@joinlist.push(actor_id)
end
end
end

def remove_actor(actor_id)
@actors.delete(actor_id)
@joinlist.delete(actor_id)
$game_player.refresh
end

#recorrect walk
def on_player_walk
tmp = members + joiners
for actor in tmp
if actor.slip_damage?
actor.hp -= 1 if actor.hp > 1 # Poison damage
$game_map.screen.start_flash(Color.new(255,0,0,64), 4)
end
if actor.auto_hp_recover and actor.hp > 0
actor.hp += 1 # HP auto recovery
end
end
end
end

#recorrect interpreter
class Game_Interpreter
def iterate_actor_id(param)
if param == 0 # All
for actor in $game_party.members do yield actor end
for actor in $game_party.joiners do yield actor end
else # One
actor = $game_actors[param]
yield actor unless actor == nil
end
end
end

#recorrect Scene_Item and Scene_Skill
class Scene_Item
def determine_target
used = false
if @item.for_all?
tmp = $game_party.members + $game_party.joiners
for target in tmp
target.item_effect(target, @item)
used = true unless target.skipped
end
else
$game_party.last_target_index = @target_window.index
target = $game_party.members[@target_window.index]
target.item_effect(target, @item)
used = true unless target.skipped
end
if used
use_item_nontarget
else
Sound.play_buzzer
end
end
end

class Scene_Skill
def determine_target
used = false
if @skill.for_all?
tmp = $game_party.members + $game_party.joiners
for target in tmp
target.skill_effect(@actor, @skill)
used = true unless target.skipped
end
elsif @skill.for_user?
target = $game_party.members[@target_window.index - 100]
target.skill_effect(@actor, @skill)
used = true unless target.skipped
else
$game_party.last_target_index = @target_window.index
target = $game_party.members[@target_window.index]
target.skill_effect(@actor, @skill)
used = true unless target.skipped
end
if used
use_skill_nontarget
else
Sound.play_buzzer
end
end
end

#create Scene_Party class
class Scene_Party < Scene_Base
def start
super
create_menu_background
#make command window
s = ["加入／替換","退出"]
@command_window = Window_Command.new(128, s)
#check disable join or swap
@command_window.draw_item(0, false) if $game_party.joiners.empty?
#make battler window
@battler_window = Window_Battler.new
#make joiner window
@joiner_window = Window_Joiner.new
#make status window
@status_window = Window_Base.new(128, 128, 416, 288)
#set last index
@lastb = -1
@lastj = -1
#set control value
#0選單　1加入．選擇隊員　2加入．選擇空格　3退出隊員
@control = 0
end

def terminate
super
dispose_menu_background
@command_window.dispose
@battler_window.dispose
@joiner_window.dispose
@status_window.dispose
end

def update
super
@command_window.update if @command_window.active
if @battler_window.active
@battler_window.update
if @lastb != @battler_window.index
@lastb = @battler_window.index
status_update
end
end
if @joiner_window.active
@joiner_window.update
if @lastj != @joiner_window.index
@lastj = @joiner_window.index
status_update
end
end
#B key
if Input.trigger?(Input::B)
Sound.play_cancel
#quit party menu
case @control
when 0
$scene = Scene_Menu.new(0)
when 1
@joiner_window.active = false
@joiner_window.index = -1
@command_window.active = true
@status_window.contents.clear
@control = 0
when 2
@battler_window.active = false
@battler_window.index = -1
@joiner_window.active = true
@control = 1
status_update
when 3
@battler_window.active = false
@battler_window.index = -1
@command_window.active = true
@status_window.contents.clear
@control = 0
end
end
#C key
if Input.trigger?(Input::C)
case @control
when 0
#determine active joiner or battler window
if @command_window.index == 0
#check disable
if $game_party.joiners.empty?
Sound.play_buzzer
return
end
@control = 1
@joiner_window.active = true
if @lastj == -1
@joiner_window.index = 0
else
@joiner_window.index = @lastj
status_update
end
else
@control = 3
@battler_window.active = true
if @lastb == -1
@battler_window.index = 0
else
@battler_window.index = @lastb
status_update
end
end
@command_window.active = false
when 1
@control = 2
@joiner_window.active = false
@battler_window.active = true
if @lastb == -1
@battler_window.index = 0
else
@battler_window.index = @lastb
status_update
end
when 2
#add or swap member
tmp = $game_party.joiners[@joiner_window.index].id
if $game_party.members[@battler_window.index] == nil
$game_party.actors.push(tmp)
$game_party.joinlist.delete(tmp)
else
$game_party.joinlist[@joiner_window.index] = $game_party.actors[@battler_window.index]
$game_party.actors[@battler_window.index] = tmp
end
#refresh joiner and battler window
$game_player.refresh
@joiner_window.refresh
@battler_window.refresh
@battler_window.active = false
@battler_window.index = -1
#if no joiner, active command window, else active joiner window
if $game_party.joiners.empty?
@control = 0
@joiner_window.active = false
@joiner_window.index = -1
@status_window.contents.clear
@command_window.draw_item(0, false)
@command_window.active = true
else
@control = 1
@joiner_window.active = true
status_update
end
when 3
#check if there is a battler and there are at least two battler
if ($game_party.members[@battler_window.index] == nil) or $game_party.members.size < 2
Sound.play_buzzer
return
end
#remove member
tmp = $game_party.members[@battler_window.index].id
$game_party.joinlist.push(tmp)
$game_party.actors.delete(tmp)
#enable add or swap option
@command_window.draw_item(0, true)
#refresh joiner and battler window
$game_player.refresh
@joiner_window.refresh
@battler_window.refresh
status_update
end
Sound.play_decision
end
end

#update status window
def status_update
@status_window.contents.clear
#get joiner or battler object
tmp = @control == 1 ? $game_party.joiners[@joiner_window.index] : $game_party.members[@battler_window.index]
return if tmp == nil
#show status
@status_window.draw_actor_name(tmp, 0, 0)
@status_window.draw_actor_class(tmp, 128, 0)
@status_window.draw_actor_level(tmp, 0, 24)
@status_window.draw_actor_state(tmp, 128, 24)
@status_window.draw_actor_hp(tmp, 0, 48)
@status_window.draw_actor_mp(tmp, 128, 48)
@status_window.draw_actor_parameter(tmp, 0, 72, 0)
@status_window.draw_actor_parameter(tmp, 0, 96, 1)
@status_window.draw_actor_parameter(tmp, 0, 120, 2)
@status_window.draw_actor_parameter(tmp, 0, 144, 3)
end
end

#battler window for Scene_Party
class Window_Battler < Window_Selectable
def initialize
super(128, 0, 416, 128)
@item_max = 4
@column_max = 4
self.contents = Bitmap.new(384, 96)
refresh
self.active = false
self.index = -1
end

def refresh
self.contents.clear
for actor in $game_party.members
self.draw_actor_face(actor, actor.index * 96 + 2, 2, 92)
end
end

def update_cursor
if @index < 0
self.cursor_rect.empty
else
self.cursor_rect.set(@index*96, 0, 96, 96)
end
end
end

#joiner window for Scene_Party
class Window_Joiner < Window_Selectable
#resize WLH
WLH = 48
def initialize
super(0, 128, 128, 288)
refresh
self.active = false
self.index = -1
end

def refresh
@item_max = $game_party.joiners.size
#check correct index
@index -= 1 if @item_max == @index
create_contents
for i in 0...$game_party.joiners.size
draw_actor_graphic($game_party.joiners[i], 32, i*48+8)
end
end

#add update status window
def index=(index)
super
end

#recorrect superclass defs with new WLH
def create_contents
self.contents.dispose
self.contents = Bitmap.new(width - 32, [height - 32, row_max * WLH].max)
end

def top_row
return self.oy / WLH
end

def top_row=(row)
row = 0 if row < 0
row = row_max - 1 if row > row_max - 1
self.oy = row * WLH
end

def page_row_max
return (self.height - 32) / WLH
end

def item_rect(index)
rect = Rect.new(0, 0, 0, 0)
rect.width = (contents.width + @spacing) / @column_max - @spacing
rect.height = WLH
rect.x = index % @column_max * (rect.width + @spacing)
rect.y = index / @column_max * WLH
return rect
end

def draw_character(character_name, character_index, x, y)
return if character_name == nil
bitmap = Cache.character(character_name)
sign = character_name[/^[\!\$]./]
if sign != nil and sign.include?('$')
cw = bitmap.width / 3
ch = bitmap.height / 4
else
cw = bitmap.width / 12
ch = bitmap.height / 8
end
n = character_index
src_rect = Rect.new((n%4*3+1)*cw, (n/4*4)*ch, cw, ch)
self.contents.blt(x, y, bitmap, src_rect)
end
end

#recorrect Battle exp
class Scene_Battle
def display_level_up
exp = $game_troop.exp_total
for actor in ($game_party.existing_members + $game_party.existing_joiners)
last_level = actor.level
last_skills = actor.skills
actor.gain_exp(exp, true)
end
wait_for_message
end
end
[/code:1]

右下角的資料部份，黑獅還想加入什麼？
遊戲內建可以顯示角色臉圖、行走圖、名字、職業、等級、狀態、HP、MP、EXP、各項能力、各項裝備。
當然看黑獅需要，我可以另外寫。

我對遊戲製作和黑獅的遊戲也很有興趣，不過我應該只能負責寫程式之類，
美工什麼的我一碰就死了。(汗)

[quote="好喝的茶"]
右下角的資料部份，黑獅還想加入什麼？
遊戲內建可以顯示角色臉圖、行走圖、名字、職業、等級、狀態、HP、MP、EXP、各項能力、各項裝備。
當然看黑獅需要，我可以另外寫。

我對遊戲製作和黑獅的遊戲也很有興趣，不過我應該只能負責寫程式之類，
美工什麼的我一碰就死了。(汗)[/quote]

美工的話，目前好像有一個人能勝任，我需要找他談談。

關於畫圖類的呢。
我會選擇主要找日本人或美國人的原因就是，日本那邊意見討論歸意見討論，已經決定了的事就會按照那個基本來做。
而美國更乾脆了，給一個目標，照著規定完成...
而中文界這邊.....麻煩太多了

所以，除了個別不會出現風格問題的部份以外，我是不希望太多中文界的人參加。

而寫程式就沒關繫了~況且之前加入了我們的某一位寫程序的美國人因為工作而忙了起來，決定退出了
現在我們這裡很缺人寫程式的說。
所以要加入的話我們是很歡迎的。

想要加入的話麻煩加我的製作組用MSN帳號吧。
bowblack1@yahoo.co.jp



右下角的資料部份，我用文字寫寫看...



[code:1]—————————————右下角窗口——————————————
_______
| | 名字 等級
| 角色 | 職業 目前經驗值
| 臉圖 | HP條==================== 升級所需經驗值
|_______| MP條====================
————————————————————————————————
Str 裝備：
Dex 武器
等各項能力，豎排放在左邊 盾...etc，同樣豎排列表
————————————————————————————————
這個部份按照計算來說，很可能會空出點位置
如果真的有空出的話，或許我會想要加點什麼東西在這裡
可能是關於每一個角色在遊戲里可能牽扯的事件記錄
比如說，Saur桑曾經提議過的，讓戰鬥隊伍能和
後備隊伍，或者尚未加入同伴的角色切磋（用網絡遊戲的說法就是PvP記錄？）
看情況吧.....也不知道會不會空出，而且空出多大。
————————————————————————————————[/code:1]

以上獲得更改的Script測試報告

發現以下BUG：
1. 加入夥伴后，如果不在戰鬥隊伍里就不能通過事件指令讓角色離隊
2. 不存在於後備隊伍和戰鬥隊伍里的離隊任務無法共有EXP（我原本是寫希望都能共有的，所以報告上來。其實這樣我也無所謂就是了，我會想辦法設定其他角色入隊時的等級。）

原因不明：
有報告說這個加入了Script的遊戲程序無法啟動......
從我之前導入的追查錯誤地點的Script導出的文件里獲得以下訊息
雖然不知道是不是真的因為這些Script。我自己是可以運行。
總之貼上來看看，就算和新Script無關我也想要知道錯誤原因是什麽。
所以要給會寫程序的看才行...

[quote]--------------------------------
◆ 2009-08-23T11:40:01
Error type :
RGSSError
Message :
failed to create bitmap
Backtrace :
Cache : line 80 : initialize
Cache : line 80 : new
Cache : line 80 : load_bitmap
Cache : line 60 : system
Spriteset_Map : line 41 : create_tilemap
Spriteset_Map : line 14 : initialize
Scene_Map : line 14 : new
Scene_Map : line 14 : start
Scene_Base : line 12 : main
Detail error mesage : line 107 : run
Detail error mesage : line 207

--------------------------------[/quote]

第一個BUG，我測試了幾次都沒有發現，在備戰隊伍裏的人員還是能順利移除。
移除隊伍人員的指令，在Party_Menber_Change腳本裏第155行的位置︰
[code:1]
def remove_actor(actor_id)
@actors.delete(actor_id)
@joinlist.delete(actor_id)
$game_player.refresh
end
[/code:1]
不知道黑獅有沒有使用其他抓回來的腳本？
有時候腳本之間會發生衝突。
像我把內建移除隊員的指令更新了，其他腳本卻可能覆蓋了我更新的程式碼。



第二個BUG則是我上次理解錯誤了，原來黑獅想讓資料庫裏所有角色都能共享經驗值？
在Party_Menber_Change腳本裏第528行︰

點擊以顯示隱藏內容

[code:1]
#recorrect Battle exp
class Scene_Battle
def display_level_up
exp = $game_troop.exp_total
for actor in ($game_party.existing_members + $game_party.existing_joiners)
last_level = actor.level
last_skills = actor.skills
actor.gain_exp(exp, true)
end
wait_for_message
end
end
[/code:1]

把這段更新成︰

點擊以顯示隱藏內容

[code:1]
#recorrect Battle exp
class Scene_Battle
def display_level_up
exp = $game_troop.exp_total
tmp = $game_party.existing_members + $game_party.existing_joiners
for i in 1...$data_actors.size
last_level = $game_actors[i].level
last_skills = $game_actors[i].skills
$game_actors[i].gain_exp(exp, tmp.include?($game_actors[i])) if $game_actors[i].exist?
end
wait_for_message
end
end
[/code:1]

這樣會使資料庫裏所有「存活」的角色都會得到經驗值。
(始終覺得有角色陣亡，躺著不動卻能得到經驗值很奇怪)



至於那原因不明的錯誤，那訊息我看不懂。(汗)
程式語言自我檢查錯誤的能力十分薄弱，很多時出現錯誤的地方並不在它寫的訊息上。
我運行上也沒有問題，我使用的是RMXP1.02，英文版本。

我需要更詳細的資料，例如他進行過什麼操作，有否導入其他腳本等，才有可能找出問題所在。

[quote="好喝的茶"]第一個BUG，我測試了幾次都沒有發現，在備戰隊伍裏的人員還是能順利移除。
移除隊伍人員的指令，在Party_Menber_Change腳本裏第155行的位置︰
[code:1]
def remove_actor(actor_id)
@actors.delete(actor_id)
@joinlist.delete(actor_id)
$game_player.refresh
end
[/code:1]
不知道黑獅有沒有使用其他抓回來的腳本？
有時候腳本之間會發生衝突。
像我把內建移除隊員的指令更新了，其他腳本卻可能覆蓋了我更新的程式碼。
[/quote]

我是有加入其它抓回來的腳本，壓縮存檔文件的。
原始存檔大小比較大，所以壓縮成近1/5的大小


既然要加入遊戲製作的話，Script的管理就交給你好了，或許這種情況只是靠我說明並不太能解決根本問題。

[quote]至於那原因不明的錯誤，那訊息我看不懂。(汗)
程式語言自我檢查錯誤的能力十分薄弱，很多時出現錯誤的地方並不在它寫的訊息上。
我運行上也沒有問題，我使用的是RMXP1.02，英文版本。

我需要更詳細的資料，例如他進行過什麼操作，有否導入其他腳本等，才有可能找出問題所在。[/quote]

只從英文上看的話，是和bitmap有關聯。而這個bitmap在游戲裡指什麽我就不知道了。

根據報告的人給我看到的畫面，貌似是在Title畫面下出現的錯誤。
我會讓他重新安裝一下程序來測試看看

如果有導入其他腳本的話，我應該要遊戲專案來研究。
不過我覺得遊戲存檔不算十分大，尤其是遊戲專案裏應該有不少原創圖片，
只壓縮存檔的話，效率應該不高。



Bitmap的部份，整個遊戲有大量圖像的處理，尤其是Cache、Scene_Base這些類別，在內建腳本裏到處都用到，單憑這些訊息實在很難找到問題所在。(汗)

修正兩個BUG。

1.在開始畫面選擇讀取存檔，按X鍵會出現遊戲選單。(汗)
原因是我漏看了一些小細節……看來我要更加習慣RMVX的內建腳本寫法。

2.之前黑獅說無法移除後備隊伍的BUG已經解決了。
原來事件編輯器裏還有一項「某角色在隊伍」，
這一句原本只對參戰隊伍作用，現已修正對備戰隊伍也有效。

看黑獅在Script testing minigame的寫法，就是備戰隊員不會滿足「某角色在隊伍」的條件，所以才導致沒有成功移除隊員。

自從體會到腳本的強大後，我幾乎沒打開過事件編輯器……

[quote="好喝的茶"]

.之前黑獅說無法移除後備隊伍的BUG已經解決了。
原來事件編輯器裏還有一項「某角色在隊伍」，
這一句原本只對參戰隊伍作用，現已修正對備戰隊伍也有效。

看黑獅在Script testing minigame的寫法，就是備戰隊員不會滿足「某角色在隊伍」的條件，所以才導致沒有成功移除隊員。

自從體會到腳本的強大後，我幾乎沒打開過事件編輯器……[/quote]

我有點不知道哪一個是事件編輯，哪一個是腳本編輯了...嗯，沒完全看懂