某礼物系统脚本

越前リョーマ · 发表于 2008-1-13 22:21:37

以下引用yangff于2008-1-13 13:50:51的发言：

做出来了，不过八成大概因该，脚本没人看的懂（窗口），太乱了（没注解）防盗
OK了
http://rpg.blue/upload_program/files/礼物_80660741.rar
注意NPC的事件那里在$scene = Scene_Pr.new
后面必须等待20针以上，否则。。。
自己试吧~~
----------------------------
在
$item=
[
1,2,3,4,5,6,
7,8,9,10,9,9,
9,9,9,9,9,9,
9,9,9,9,9,9,
]
设置穿口中每种图标代表的物品

这里的1、2之类的数字是指物品的编号？

还问个问题，
这个送了以后有什么反映吗？{/gg}
需要送了以后执行公共事件19……
不然无法判断每个人送礼物后不通的友好度增加……{/gg}

越前リョーマ · 发表于 2008-1-14 02:06:52

还没问完呢……

FF呢……

yangff · 发表于 2008-1-14 03:10:03

这里的1、2之类的数字是指物品的编号？
就是数据库里001、002那个

这个送了以后有什么反映吗？
需要送了以后执行公共事件19……
把Scene_Pr的底53行改成$game_temp.common_event_id = 19
既调用19号公共事件（我写成5号了 {/gg}）

亿万星辰 · 发表于 2008-1-14 04:15:39

里面的都是物品吧,图片和物品的icon关联上,点下去后,执行物品对应的公共事件...

°［Sorｒy。 · 发表于 2008-1-15 02:05:49

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

yangff · 发表于 2008-1-15 04:25:07

以下引用°［Sorｒy。于2008-1-14 18:05:49的发言：

为什么一定要等待20帧-_-||，我把他删了的话他就会脚本前面的东西全部无视，然后一直循环，怎么解决-_-||

因为对话框确定后=按下确定，再次激发事件（这里的对话=并行）

wu3846111 · 发表于 2008-1-15 04:27:28

跟我一样，美工+脚本盲{/gg}

yangff · 发表于 2008-1-15 05:38:55

还有BUG {/gg}
覆盖“窗口”

$item=
[
1,2,3,4,5,6,
7,8,9,15,9,9,
9,9,9,9,9,9,
9,9,9,9,9,9
]
class Window_Pr < Window_Base
attr_accessor :index # index
attr_accessor :hindex # index
attr_accessor :hh # index
def initialize #一行6个 4 行
super(160, 300, 7 * 32, 5 * 32)
self.contents = Bitmap.new(width - 32, height - 32)
# self.index = 0
@index = 0
@hindex = 0
@hh = 0
@pic = []
x = 16
y = 1
x = 16
y = 1
@pic = nil
@pic = []
for i in 1..24
if i % 6 == 1
y += 32
x = 16
end
@pic[i-1] = Sprite.new
@pic[i-1].x = x + 160
@pic[i-1].y = y + 300 - 16
@pic[i-1].z = 9999 * i
if $game_party.item_number($item[i-1]) >= 1
@pic[i-1].bitmap = RPG::Cache.icon($data_items[$item[i-1].to_i].icon_name)
# @pic[i-1].bitmap.hue_change(0)
else
if $data_items[$item[i-1].to_i] == nil
@pic[i-1].bitmap = RPG::Cache.icon("037-Item06")
else
@pic[i-1].bitmap = RPG::Cache.icon($data_items[$item[i-1].to_i].icon_name)
end
@pic[i-1].tone.set(0, 0, 0, 255) # = RPG::Cache.icon("037-Item06")
end
x += 32
# refresh
end
refresh
end
def refresh
self.cursor_rect.set(got_x(@hindex) - 18,got_y(@hh)-5,32, 32)
end
def got_x(hindex)
x = 16
x += hindex * 32
return x
end
def got_y(hh)
y = 1
y += hh * 32
return y
end
def update
super
if Input.repeat?(Input::UP)
go_up
end
if Input.repeat?(Input::DOWN)
go_down
end
if Input.repeat?(Input::LEFT)
go_left
end
if Input.repeat?(Input::RIGHT)
go_right
end
end
def go_up
if @hh == 0
@hh = 3
@index += 18
else
@index -= 6
@hh -= 1
end
refresh
end
def go_down
if @hh == 3
@hh = 0
@index -= 18
else
@hh += 1
@index += 6
end
refresh
end
def go_left
if @hindex == 0
@hindex = 5
@index += 5
else
@hindex -= 1
@index -= 1
end
refresh
end
def go_right
if @hindex == 5
@hindex = 0
@index -= 5
else
@hindex += 1
@index += 1
end
refresh
end
def pic_cont
for i in 1..24
@pic[i-1].bitmap.dispose
@pic[i-1].dispose
end
@pic = []
@pic = nil
end
end

复制代码

越前リョーマ · 发表于 2008-1-17 01:15:09

看来这个系统还是无法完成了……|||

FF的话我也没听懂……|||
这个到底能不能执行公共事件……？
MS还需要一个判断友好度的变量，
那就是特殊变量，
这个是送了之后，
如果有就将某变量更改为该物品的编号。

变量就设置为50号好了……{/hx}

yangff · 发表于 2008-1-17 01:18:40

$item=
[
1,2,3,4,5,6,
7,8,9,15,9,9,
9,9,9,9,9,9,
9,9,9,9,9,9
]
标号是设置物品那里的001、002 {/hx}

那就是特殊变量，
这个是送了之后，
如果有就将某变量更改为该物品的编号。

变量就设置为50号好了……

把Scene_Pr的$set = $item[@window.index]更改为$game_variables[50]=$item[@window.index]

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

某礼物系统脚本

浏览过的版块

开拓者

贵宾

第3届短篇游戏大赛主流游戏组亚军

第5届短篇游戏比赛亚军

烫烫烫