仿仙剑练蛊皿

enghao_lim · 发表于 2008-2-9 23:18:08

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

之前看过有人要求，忘了是谁，所以就作出来了，看来脑真的已经完全残废，
这一个基本的功能竟然花了我两小时，该是时候退休了。。。。。
因为1个月没来，不知道有没有人发过，有人发过的话，就无视吧。
也不用介绍太多，玩过仙剑的人都应该直到练蛊皿，此脚本的功能就是模仿该功能，仅此而已，具体用法请看脚本开头，如果理解不能，是很正常的，因为我的表达能力不好。
以下为截图：

这是范例：请点我吧，我就是那奇奇怪怪的范例。。。

以下为脚本：

#=============================================================================
# ■ 仿练蛊皿系统
# v 0.01
# by enghao_lim
# email:[email protected]
#-----------------------------------------------------------------------------
# 次腳本的功能就有如名字一样，就是模仿仙剑的练蛊皿。
# 练蛊皿里只能放入物品而已，武器与防具，一概不行。
# 为了配合游戏，某些物品是不能放入练蛊皿的，
# 所以只要将不能放入器皿里的物品的编号加入 $lgm_except_item 里就行了。
# 默认里有三个物品，分别是 30，31，32编号的物品。
# $界面标题就是界面的标题，可以更改为自己需要的名字，默认为『"练蛊皿"』。
# 这个脚本采用了一个运算方式，让不管什么物品，部分先后，
# 都能够拿到成果。所以这脚本为每个物品都设置了一个“练蛊皿值”，
# 先后放入两个的物品的练蛊皿值相加后，总值就会得到相应的物品。
# 练蛊皿值的设置方法：在物品名字后面添加@，然后后面填写其练蛊皿值。
# 方便理解的格式：『物品名@练蛊皿值』。例子：回复药@5。
# 这样回复药的练蛊皿值就为5。补充一点，如果没有设置，
# 物品编号将自动成为改物品的练蛊皿值。接下来就是为总值设定得到的物品，
# 设置敌方在下面，两个物品的练蛊皿值相加数 => 得到的物品编号。
# 就用回之前的例子好了，回复药有5点，如果放入两个，相加起来就是10点，
# 而根据下列表显示，『10 => 6』，也就是说我们能够获得编号为6的物品。
# 为了防止出现合成不到的情况，所以必须填入所有可能性的最大数量，
# 比如说，默认是40，怎要拿的呢？就在以下的列表，从0开始，到39，
# 总共有40个，所以Max_lgm_value必须填入40，相对的，如果删除掉其中一个，
# 记得把Max_lgm_value必须填入39，否则可能会出现问题。
# 还有，从0到39，当中的号数不能中断，必须是连号才行。
# 最后，调用的方法：$scene = Scene_LGM.new
#-----------------------------------------------------------------------------
$界面标题 = "练蛊皿"
$lgm_except_item = [32,31,30]
#=============================================================================
module LGM
#所有可能性的最大数量
Max_lgm_value = 40
Output = []
Output = {
#两个物品的练蛊皿值相加数 => 得到的物品编号
0 => 1,
1 => 1,
2 => 2,
3 => 2,
4 => 3,
5 => 3,
6 => 4,
7 => 4,
8 => 5,
9 => 5,
10 => 6,
11 => 6,
12 => 7,
13 => 7,
14 => 8,
15 => 8,
16 => 9,
17 => 10,
18 => 11,
19 => 12,
20 => 13,
21 => 14,
22 => 15,
23 => 16,
24 => 17,
25 => 18,
26 => 19,
27 => 20,
28 => 21,
29 => 22,
30 => 23,
31 => 24,
32 => 25,
33 => 26,
34 => 27,
35 => 28,
36 => 29,
37 => 30,
38 => 31,
39 => 32,
}
end
class Window_LGM_Title < Window_Base
def initialize
super(0,0,640,96)
self.contents = Bitmap.new(width - 32,height - 32)
refresh
end
def refresh
self.contents.clear
self.contents.font.color = crisis_color
self.contents.font.size = 48
self.contents.draw_text(0,0,self.width - 32,64,$界面标题,1)
end
end
class Window_LGM_Item < Window_Selectable
def initialize
super(320,96,320,320)
refresh
self.index = 0
end
def item
return @data[self.index]
end
def refresh
if self.contents != nil
self.contents.dispose
self.contents = nil
end
@data = []
for i in 1...$data_items.size
if $game_party.item_number(i) > 0 and !$lgm_except_item.include?(i)
@data.push($data_items[i])
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)
item = @data[index]
number = $game_party.item_number(item.id)
self.contents.font.color = normal_color
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(item.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,item.name,0)
self.contents.draw_text(x + 240,y,16,32,":",1)
self.contents.draw_text(x + 256,y,24,32,number.to_s, 2)
end
def update_help
@help_window.set_text(self.item == nil ? "" : self.item.description)
end
end
class Window_LGM_Help < Window_Base
def initialize
super(0, 416, 640, 64)
self.contents = Bitmap.new(width - 32,height - 32)
end
def set_text(text, align = 0)
if text != @text or align != @align
self.contents.clear
self.contents.font.color = normal_color
self.contents.draw_text(4, 0, self.width - 40, 32, text, align)
@text = text
@align = align
@actor = nil
end
self.visible = true
end
end
class Window_LGM_Command < Window_Selectable
def initialize
super(0,96,320,352)
@w1 = Window_Base.new(0,96,320,96)
@w2 = Window_Base.new(0,192,320,96)
@w3 = Window_Base.new(0,288,320,64)
@w4 = Window_Base.new(0,352,320,64)
self.contents = Bitmap.new(width - 32,height - 32)
self.opacity = 0
self.back_opacity = 0
@commands = [$lgm_input_item[0],$lgm_input_item[1],"取消重來","蠱物練化"]
@item_max = 4
refresh
self.index = -1
self.active = false
end
def dispose
super
@w1.dispose
@w2.dispose
@w3.dispose
@w4.dispose
end
def refresh
self.contents.clear
rect = Rect.new(4,0,280,64)
self.contents.fill_rect(rect,Color.new(0, 0, 0, 0))
self.contents.draw_text(4,0,280,32,"蛊物㈠：")
self.contents.draw_text(4,32,280,32,$lgm_input_item[0],2)
rect = Rect.new(4,96,280,64)
self.contents.fill_rect(rect,Color.new(0, 0, 0, 0))
self.contents.draw_text(4,96,280,32,"蛊物㈡：")
self.contents.draw_text(4,128,280,32,$lgm_input_item[1],2)
rect = Rect.new(4,192,280,32)
self.contents.fill_rect(rect,Color.new(0, 0, 0, 0))
self.contents.draw_text(rect,@commands[3],1)
rect = Rect.new(4,256,280,32)
self.contents.fill_rect(rect,Color.new(0, 0, 0, 0))
self.contents.draw_text(rect,@commands[2],1)
end
def update_cursor_rect
case self.index
when 0
self.cursor_rect.set(0,0,288,64)
when 1
self.cursor_rect.set(0,96,288,64)
when 2
self.cursor_rect.set(0,192,288,32)
when 3
self.cursor_rect.set(0,256,288,32)
end
end
end
class Window_LGM_Output < Window_Base
def initialize
super(160,160,320,160)
self.contents = Bitmap.new(width - 32,height - 32)
refresh
end
def refresh
self.contents.clear
self.contents.font.size = 20
self.contents.font.color = normal_color
self.contents.draw_text(0,0,self.width - 32,32,"物品練化：",1)
self.contents.font.size = 40
self.contents.font.color = crisis_color
self.contents.draw_text(0,32,self.width - 32,96,$lgm_output_item,1)
end
end
module RPG
class Item
def name
name = @name.split(/@/)[0]
return name != nil ? name : ""
end
def lgm_value
lgm_value = @name.split(/@/)[1]
return lgm_value != nil ? lgm_value.to_i : @id
end
end
end
class Scene_LGM
def main
@lgm_input_item = [0,0]
@lgm_output_item = 0
$lgm_input_item = ["没有蛊物","没有蛊物"]
$lgm_output_item = "沒有練化"
@tw = Window_LGM_Title.new
@hw = Window_LGM_Help.new
@iw = Window_LGM_Item.new
@iw.active = false
@iw.index = -1
@iw.help_window = @hw
@cw = Window_LGM_Command.new
@cw.active = true
@cw.index = 0
@ow = Window_LGM_Output.new
@ow.visible = false
@ow.z = 2000
Graphics.transition
loop do
Graphics.update
Input.update
update
break if $scene != self
end
Graphics.freeze
@tw.dispose
@hw.dispose
@iw.dispose
@cw.dispose
@ow.dispose
end
def update
@tw.update
@hw.update
@iw.update
@cw.update
@ow.update
return update_cw if @cw.active
return update_iw if @iw.active
return update_ow if @ow.visible
end
def update_cw
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$game_party.gain_item(@lgm_input_item[0],1) if @lgm_input_item[0] != 0
$game_party.gain_item(@lgm_input_item[1],1) if @lgm_input_item[1] != 0
@lgm_input_item = [0,0]
$lgm_input_item = ["沒有蠱物","没有蛊物"]
$scene = Scene_Map.new
return
end
if Input.trigger?(Input::C)
case @cw.index
when 0,1
$game_system.se_play($data_system.decision_se)
@cw.active = false
@iw.index = 0
@iw.active = true
when 2
if @lgm_input_item[0] == 0 or @lgm_input_item[1] == 0
$game_system.se_play($data_system.cancel_se)
return
end
Audio.se_play("Audio/SE/056-Right02")
a = $data_items[@lgm_input_item[0]].lgm_value
b = $data_items[@lgm_input_item[1]].lgm_value
c = (a + b) % LGM::Max_lgm_value
@lgm_output_item = LGM::Output[c]
$lgm_output_item = $data_items[@lgm_output_item].name
$game_party.gain_item(@lgm_output_item,1)
@lgm_input_item = [0,0]
$lgm_input_item = ["沒有蠱物","没有蛊物"]
@ow.refresh
@ow.visible = true
@cw.active = false
when 3
if @lgm_input_item[0] == 0 and @lgm_input_item[1] == 0
$game_system.se_play($data_system.cancel_se)
return
end
$game_system.se_play($data_system.decision_se)
$game_party.gain_item(@lgm_input_item[0],1) if @lgm_input_item[0] != 0
$game_party.gain_item(@lgm_input_item[1],1) if @lgm_input_item[1] != 0
@lgm_input_item = [0,0]
$lgm_input_item = ["沒有蠱物","没有蛊物"]
@cw.refresh
@iw.refresh
end
end
end
def update_iw
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@iw.active = false
@iw.index = -1
@cw.active = true
end
if Input.trigger?(Input::C)
@item = @iw.item
return $game_system.se_play($data_system.cancel_se) if @item == nil
$game_system.se_play($data_system.decision_se)
case @cw.index
when 0
$game_party.gain_item(@lgm_input_item[0],1) if @lgm_input_item[0] !=0
$game_party.gain_item(@item.id,-1)
@lgm_input_item[0] = @item.id
$lgm_input_item[0] = @item.name
if @lgm_input_item[1] != 0
@cw.index = 2
@cw.active = true
@iw.active = false
@iw.index = -1
else
@cw.index = 1
@cw.active = true
@iw.active = false
@iw.index = -1
end
when 1
$game_party.gain_item(@lgm_input_item[1],1) if @lgm_input_item[1] !=0
$game_party.gain_item(@item.id,-1)
@lgm_input_item[1] = @item.id
$lgm_input_item[1] = @item.name
if @lgm_input_item[0] == 0
@cw.index = 0
@cw.active = true
@iw.active = false
@iw.index = -1
else
@cw.index = 2
@cw.active = true
@iw.active = false
@iw.index = -1
end
end
@cw.refresh
@iw.refresh
end
end
def update_ow
if Input.trigger?(Input::C) or Input.trigger?(Input::B)
@ow.visible = false
@cw.index = 0
@cw.active = true
@iw.refresh
@cw.refresh
end
end
end

复制代码

q2571875 · 发表于 2008-2-9 23:20:13

恩....8错的说

莳绱主锍 · 发表于 2008-2-9 23:23:06

看看,8错,打包拿走{/hx}

IamI · 发表于 2008-2-9 23:47:06

哇，这不是我一直想做的吗？打算开始动手术……
1.允许突破上限
2.可以过滤掉一些东西

沉影不器 · 发表于 2008-2-10 03:48:50

提示: 作者被禁止或删除内容自动屏蔽

诡异の猫 · 发表于 2008-2-10 03:54:59

lim的东西当然要支持.
顶!

死圣 · 发表于 2008-2-10 04:12:05

很好
拿走
顶下

enghao_lim · 发表于 2008-2-10 07:29:13

以下引用沉影不器于2008-2-9 19:48:50的发言：
练蛊是不是物品合成的意思?

正解。{/hx}

Eclair · 发表于 2008-2-10 21:49:45

提示: 作者被禁止或删除内容自动屏蔽

死圣 · 发表于 2008-2-11 00:28:21

以下引用Eclair于2008-2-10 13:49:45的发言：

配合上原版的素材可能会更好的...似乎主战有个合成脚本了^^
越来越觉得..模仿仙剑的脚本越来越多，快要成整个系统了。

那样不好吗?

帐号		自动登录	找回密码
密码			注册会员

仿仙剑练蛊皿

加入我们，或者，欢迎回来。

开拓者

贵宾

第1届Title华丽大赛新人奖