蛐蛐儿的简约（渣）菜单计划（一）

退屈￡无聊 · 发表于 2011-8-16 12:27:26

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

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

x

本帖最后由退屈￡无聊于 2011-8-17 15:12 编辑

菜单计划之二：http://rpg.blue/thread-202724-1-1.html

前言：
由于最近不想填坑，所以挖了个菜单坑（....
喵，总之没有PS过，效果很渣，触手及高要求者请点右上角。
目前只做了菜单的开始界面= =（啥叫开始

外援脚本：
-必用- 描绘字符扩张 By忧雪の伤 http://rpg.blue/thread-181553-1-1.html
介绍：用来让描绘字符得到比较好的效果。
-备用- 容错脚本 By轮回者 http://rpg.blue/thread-44200-1-1.html
介绍：如果你没有人物立绘的话，请使用这个脚本规避。

效果：

脚本内容：
- 设定部分 -（请放在MAIN之前，并一定要放在菜单脚本的主体之前

module New_Menu_Config
COMMAND = [
["物品Item ",Scene_Item],
["技能Skill",Scene_Skill,1],
["装备Equip",Scene_Equip,1],
["存档Save ",Scene_Save],
["退出End ",Scene_End],
["离开Exit ",Scene_Map]]
end

复制代码

- 菜单主体：初始的界面 -

class Scene_Menu
include New_Menu_Config
def initialize(index=0)
@index = index
@sindex = 0
end
def main
@bitmap = Spriteset_Map.new
@back = Sprite.new
@person = []
$game_party.actors.each_index {|a|
@person[a] = RPG::Sprite.new
@person[a].bitmap = Bitmap.new(130,480)
@person[a].bitmap.blt(0,0,
Bitmap.new("Graphics/Menu/#{$game_party.actors[a].name}"),
Rect.new(0,0,640,480),150)
@person[a].bitmap.fill_rect(0,0,1,480,Color.new(255,255,255))
@person[a].bitmap.fill_rect(129,0,1,480,Color.new(255,255,255))
@person[a].x = 3 + 133*a
@person[a].bitmap.fill_rect(23, 360, 92, 3, Color.new(0,0,0))
@person[a].bitmap.fill_rect(23, 370, 92, 3, Color.new(0,0,0))
@person[a].bitmap.fill_rect(23, 380, 92, 3, Color.new(0,0,0))
@person[a].bitmap.fill_rect(24, 361,
(90*$game_party.actors[a].hp / $game_party.actors[a].maxhp).to_i, 1, Color.new(200,0,0))
@person[a].bitmap.fill_rect(24, 371,
(90*$game_party.actors[a].sp / $game_party.actors[a].maxsp).to_i, 1, Color.new(0,0,200))
@person[a].bitmap.fill_rect(24, 381,
(90*$game_party.actors[a].exp_s.to_i /
$game_party.actors[a].next_exp_s.to_i).to_i, 1, Color.new(0,200,0))
@person[a].bitmap.font.size = 11
@person[a].bitmap.blur_draw_text(10, 350, 30, 20,
"HP",1,Color.new(0,0,0,10),2)
@person[a].bitmap.blur_draw_text(40, 350, 70, 20,
"#{$game_party.actors[a].hp}/#{$game_party.actors[a].maxhp}",
1,Color.new(0,0,0,10),2)
@person[a].bitmap.blur_draw_text(10, 360, 30, 20,
"SP",1,Color.new(0,0,0,10),2)
@person[a].bitmap.blur_draw_text(40, 360, 70, 20,
"#{$game_party.actors[a].sp}/#{$game_party.actors[a].maxsp}",
1,Color.new(0,0,0,10),2)
@person[a].bitmap.blur_draw_text(10, 370, 40, 20,
"EXP",1,Color.new(0,0,0,10),2)
@person[a].bitmap.blur_draw_text(40, 370, 70, 20,
"#{$game_party.actors[a].exp_s}/#{$game_party.actors[a].next_exp_s}",
1,Color.new(0,0,0,10),2)
b = $game_party.actors[a].name.scan(/./)
b << "Lv"
b << $game_party.actors[a].level.to_s
@person[a].bitmap.font.size = 30
b.each_index {|c| @person[a].bitmap.blur_draw_text(90, 50+30*c, 30, 30,
b[c],2,Color.new(0,0,0,10),2)}}
@z = Sprite.new
@back.bitmap = Bitmap.new(640,480)
@z.bitmap = Bitmap.new(640,480)
@back.bitmap.fill_rect(0,0,640,480,Color.new(0,0,0,150))
@z.bitmap.fill_rect(0,0,640,30,Color.new(0,0,0))
@z.bitmap.fill_rect(0,450,640,30,Color.new(0,0,0))
for i in 0..255/5
@z.bitmap.fill_rect(0,30+i*3,640,3,Color.new(0,0,0,255-5*i))
@z.bitmap.fill_rect(0,450-i*3,640,3,Color.new(0,0,0,255-5*i))
end
@command = []
COMMAND.each_index {|a| @command[a] = Sprite.new
@command[a].bitmap = Bitmap.new(100,40)
@command[a].x = 640-50
@command[a].x = 540 if a == 0
@command[a].y = 50 + (a) * 42
@command[a].bitmap.font.size = 15
for i in 0...255/5
@command[a].bitmap.fill_rect(110-i*2,0,2,40,Color.new(0,0,0,255-5*i))
@command[a].bitmap.fill_rect(110-i*2,0,2,1,Color.new(255,255,255,255-5*i))
@command[a].bitmap.fill_rect(110-i*2,39,2,1,Color.new(255,255,255,255-5*i))
end
@command[a].bitmap.draw_text(0,0,100,40,COMMAND[a][0],2)}
@cout = 0
@gold = Sprite.new
@gold.x = 640-510
@gold.y = 440
@gold.bitmap = Bitmap.new(510,30)
@gold1 = Sprite.new
@gold1.x = @gold.x
@gold1.y = @gold.y
@gold1.bitmap = Bitmap.new(510,30)
for i in 0...255/5
@gold.bitmap.fill_rect(i*10,0,10,1,Color.new(255,255,255,5*i))
@gold.bitmap.fill_rect(i*10,29,10,1,Color.new(255,255,255,5*i))
end
time = Graphics.frame_count / Graphics.frame_rate
sec = time % 60
min = time / 60 % 60
hou = time / 60 / 60
@gold1.bitmap.font.size = 15
@gold1.bitmap.draw_text(0,0,510,30,"金钱 #{$game_party.gold} " +
" 时间 #{hou}:#{min}:#{sec}",1)
Graphics.transition
change_index if @index != 0
loop {update;break if $scene != self}
@command.each {|a| a.bitmap.dispose;a.dispose}
@person.each {|a| a.bitmap.dispose;a.dispose}
@back.dispose
@z.dispose
@bitmap.dispose
end
def update
Graphics.update
update_gold
@person.each {|a| a.update} if @status
update_status and return if @status
update_input
end
def update_input
Input.update
@index += 1 and change_index if @index < COMMAND.size-1 && Input.trigger?(Input::DOWN)
@index -= 1 and change_index if @index > 0 && Input.trigger?(Input::UP)
create_class if Input.trigger?(Input::C)
$scene = Scene_Map.new if Input.trigger?(Input::B) # 按ESC回地图
return
end
def change_index
@cin = @index
@command.each_index {|a|
@cout = a if @command[a].x != 590 && a != @index}
for i in 0...10
@command[@cin].x -= 5
@command[@cout].x += 5
Graphics.update
end
end
def update_status
Input.update
@sindex += 1 and change_sindex if @sindex < $game_party.actors.size-1 &&
Input.trigger?(Input::RIGHT)
@sindex -= 1 and change_sindex if @sindex > 0 && Input.trigger?(Input::LEFT)
$scene = COMMAND[@index][1].new(@sindex) if Input.trigger?(Input::C)
if Input.trigger?(Input::B)
@person.each {|a| a.blink_off} ; @status = false
end
return
end
def change_sindex
@person.each_index {|a| @person[a].blink_off
@person[a].blink_on if a == @sindex}
end
def create_class
$scene = COMMAND[@index][1].new and return if COMMAND[@index][2].nil?
@status = true
change_sindex
end
def update_gold
@gold1.bitmap.clear
time = Graphics.frame_count / Graphics.frame_rate
sec = time % 60
min = time / 60 % 60
hou = time / 60 / 60
@gold1.bitmap.draw_text(0,0,510,30,"金钱 #{$game_party.gold} " +
" 时间 #{hou}:#{min}:#{sec}",1)
end
end

复制代码

使用说明：
1、请在Graphics下新开文件夹Menu，并把人物立绘以人物名称命名塞到文件夹中。
2、请不要让角色的等级大于或等于最高级别。
3、这是个万年坑……
4、本脚本无版权，但外援脚本的版权还是掌握在其开发者手中。
5、在设定部分中，每个元素的一号元素是选项上的字，二号元素是选中进入的界面，如果进入的是状态、装备、技能画面，第三个元素请设置为不为nil的东西，如1，否则留空。

liqunsz · 发表于 2011-8-16 12:28:48

本帖最后由 liqunsz 于 2011-8-16 12:30 编辑

蛐蛐儿加了个油~❤，图片还没刷出来

图片刷出来了…………你个窗口标题三国战记立绘摸你傻……= =||||||，拿阿尔西斯也行啊喵

忧雪の伤 · 发表于 2011-8-16 12:31:05

本帖最后由忧雪の伤于 2011-8-16 12:35 编辑

我只是说，为什么不用 FileTest.exist?(filename) 来判断是否存在立绘……
敢把脚本写简洁规范些么！

月夜神音 · 发表于 2011-8-16 14:11:12

- -唔……
来学习一下~
@person.each {|a| a.update}
这句是把@person里所有资料带入a然后再update吗？

忧雪の伤 · 发表于 2011-8-16 14:18:31

月夜神音发表于 2011-8-16 14:11
- -唔……
来学习一下~
@person.each {|a| a.update}

把数组 @person 的每个项目迭代到 a 。

summer92 · 发表于 2011-8-17 13:09:48

怎么看着跟我那新游戏的菜单有点撞车。。。也是菜单目录在右上角。。。。。

薄荷冰水 · 发表于 2011-8-17 14:34:31

征用了.........还有几个选项的菜单之X有没有后文的？

全是脚本描绘啊，貌似修改无能....

退屈￡无聊 · 发表于 2011-8-17 15:14:25

本帖最后由退屈￡无聊于 2011-8-17 15:14 编辑

薄荷冰水发表于 2011-8-17 14:34
征用了.........还有几个选项的菜单之X有没有后文的？

全是脚本描绘啊，貌似修改无能.... ...

总之暑假的时间也不多了……我会努力的。
不过等到全部的界面都写完也不可能只有一天两天的时间。
谢谢支持>. <

薄荷冰水 · 发表于 2011-8-17 21:06:39

于是要有声音啊，声音音效啊！！！

poiuy12348609 · 发表于 2011-8-23 14:22:04

請問....
圖片要多大

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

[原创发布] 蛐蛐儿的简约（渣）菜单计划（一）

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

点评

评分

点评

点评

点评

点评

贵宾

[原创发布] 蛐蛐儿的简约（渣）菜单计划 （一）

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

点评

评分

点评

点评

点评

点评

贵宾

[原创发布] 蛐蛐儿的简约（渣）菜单计划（一）