RM计算器

七夕小雨 · 发表于 2007-6-24 01:36:30

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

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

x

这两天被脑子里乱七八糟的…………一直把to_s当成to_i来用，昨天还给你个新手会员把问题回答错了…………华丽的无视掉吧~

重新熟习RM基础的东西……残念……

一个又是貌似没有用的东西…………仅供学习参考好了

如果要直接插入使用的话可以在事件脚本栏中输入$scene = Scene_Compute.new

#==========================================================================
#RM计算机……无用产物之一
#脚本作者by 七夕小雨
#============================================================================
#Window_Command懒得写了……直接用星辰大人的好了……
class Window_Command_Compute < Window_Selectable
#--------------------------------------------------------------------------
# ● 初始化对像
# width : 每格的的宽
# row : 行数自己根据命令数算好行列的值,否则^^b
# column : 列数
# commands : 命令字符串序列
#--------------------------------------------------------------------------
def initialize(width, commands, column=1)
row = commands.size / column
# 由命令的个数计算出窗口的宽和高
super(0, 0, width, row * 32 + 32)
@item_max = commands.size
@commands = commands
@row = row
@width_txt = (width-32)/column
@column_max = column
self.contents = Bitmap.new(width-32, @row * 32)
refresh
self.index = 0
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
self.contents.clear
self.contents.font.size = 18
for i in 0...@item_max
draw_item(i, normal_color)
end
end
#--------------------------------------------------------------------------
# ● 描绘项目
# index : 项目编号
# color : 文字色
#--------------------------------------------------------------------------
def draw_item(index, color)
self.contents.font.color = color
# 计算得出当前index所对应的内容所在的行
row_index = index / @column_max
# 根据余数得出所在的列
for y in 0...@column_max
if index % @column_max == y
rect = Rect.new(y * @width_txt, 32 * row_index , @width_txt, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
self.contents.draw_text(rect, @commands[index],1)
break
end
end
end
#--------------------------------------------------------------------------
# ● 项目无效化
# index : 项目编号
#--------------------------------------------------------------------------
def disable_item(index)
draw_item(index, disabled_color)
end
#--------------------------------------------------------------------------
# ● 项目有效化
# index : 项目编号
#--------------------------------------------------------------------------
def able_item(index)
draw_item(index, normal_color)
end
#--------------------------------------------------------------------------
# ● 更新光标举行
#--------------------------------------------------------------------------
def update_cursor_rect
# 光标位置不满 0 的情况下
if @index < 0
self.cursor_rect.empty
return
end
# 获取当前的行
row = @index / @column_max
# 当前行被显示开头行前面的情况下
if row < self.top_row
# 从当前行向开头行滚动
self.top_row = row
end
# 当前行被显示末尾行之后的情况下
if row > self.top_row + (self.page_row_max - 1)
# 从当前行向末尾滚动
self.top_row = row - (self.page_row_max - 1)
end
# 计算光标的宽
cursor_width = @width_txt
# 计算光标坐标
x = @index % @column_max * cursor_width
y = @index / @column_max * 32 - self.oy
# 更新国标矩形
self.cursor_rect.set(x, y, @width_txt, 32)
end
end
#-------------------------七夕小雨华丽的分割线-------------------------------
class Window_Compute < Window_Base
def initialize
super(250, 64, 182, 64)
self.contents = Bitmap.new(width - 32, height - 32)
$compute = "0"
refresh
end
def refresh
self.contents.clear
self.contents.font.color = normal_color
self.contents.draw_text(-32, 0, 180, 32, $compute.to_s, 2)
end
end
#-------------------------七夕小雨华丽的分割线--------------------------------
class Scene_Compute
#--------------------------------------------------------------------------
# ● 初始化对像
# menu_index : 命令光标的初期位置
#--------------------------------------------------------------------------
def initialize(menu_index = 0)
@menu_index = menu_index
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
@back = Spriteset_Map.new
@command_window = Window_Command_Compute.new(180, ["1","2","3","4","5","6","7","8","9","0","+","-","×","÷","=","归零"],4)
@command_window.x = 250
@command_window.y = 140
@command_window.index = @menu_index
@compute_window = Window_Compute.new
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果切换画面就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
@compute_window.dispose
@command_window.dispose
@back.dispose
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
@compute_window.update
@compute_window.refresh
@command_window.update
# 命令窗口被激活的情况下: 调用 update_command
if @command_window.active
update_command
return
end
end
#--------------------------------------------------------------------------
# ● 刷新画面 (命令窗口被激活的情况下)
#--------------------------------------------------------------------------
def update_command
# 按下 B 键的情况下
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$scene = Scene_Map.new
return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
case @command_window.index
when 0 # 1
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "1"
else
$compute = "1"
end
when 1 # 2
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "2"
else
$compute = "2"
end
when 2 # 3
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "3"
else
$compute = "3"
end
when 3 # 4
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "4"
else
$compute = "4"
end
when 4 # 5
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "5"
else
$compute = "5"
end
when 5 # 6
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "6"
else
$compute = "6"
end
when 6 # 7
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "7"
else
$compute = "7"
end
when 7 # 8
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "8"
else
$compute = "8"
end
when 8 # 9
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "9"
else
$compute = "9"
end
when 9 # 0
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "0"
else
$compute = "0"
end
when 10 # +
$game_system.se_play($data_system.decision_se)
@a = $compute.to_i
@Operation = 1
$compute = "0"
when 11 # -
$game_system.se_play($data_system.decision_se)
@a = $compute.to_i
@Operation = 2
$compute = "0"
when 12 # x
$game_system.se_play($data_system.decision_se)
@a = $compute.to_i
@Operation = 3
$compute = "0"
when 13 # /
$game_system.se_play($data_system.decision_se)
@a = $compute.to_i
@Operation = 4
$compute = "0"
when 14 # =
case @Operation
when 0
$game_system.se_play($data_system.cancel_se)
when 1
$game_system.se_play($data_system.decision_se)
@b = $compute.to_i
$c = @a + @b
$c = $c.to_s
$compute = $c
when 2
$game_system.se_play($data_system.decision_se)
@b = $compute.to_i
$c = @a - @b
$c = $c.to_s
$compute = $c
when 3
$game_system.se_play($data_system.decision_se)
@b = $compute.to_i
$c = @a * @b
$c = $c.to_s
$compute = $c
when 4
$game_system.se_play($data_system.decision_se)
@b = $compute.to_i
$c = @a / @b
$c = $c.to_s
$compute = $c
end
when 15
$game_system.se_play($data_system.cancel_se)
$compute = "0"
@Operation = 0
end
return
end
end
end

复制代码

范例下载地址：
ftp://[email protected]/200707/rm计算机.rar

截图一张：

　　　　　　　　　　　　　　[本贴由叶舞枫于 2007-6-30 20:11:40 进行了编辑]

七夕小雨 · 发表于 2007-6-24 01:36:30

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

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

x

这两天被脑子里乱七八糟的…………一直把to_s当成to_i来用，昨天还给你个新手会员把问题回答错了…………华丽的无视掉吧~

重新熟习RM基础的东西……残念……

一个又是貌似没有用的东西…………仅供学习参考好了

如果要直接插入使用的话可以在事件脚本栏中输入$scene = Scene_Compute.new

#==========================================================================
#RM计算机……无用产物之一
#脚本作者by 七夕小雨
#============================================================================
#Window_Command懒得写了……直接用星辰大人的好了……
class Window_Command_Compute < Window_Selectable
#--------------------------------------------------------------------------
# ● 初始化对像
# width : 每格的的宽
# row : 行数自己根据命令数算好行列的值,否则^^b
# column : 列数
# commands : 命令字符串序列
#--------------------------------------------------------------------------
def initialize(width, commands, column=1)
row = commands.size / column
# 由命令的个数计算出窗口的宽和高
super(0, 0, width, row * 32 + 32)
@item_max = commands.size
@commands = commands
@row = row
@width_txt = (width-32)/column
@column_max = column
self.contents = Bitmap.new(width-32, @row * 32)
refresh
self.index = 0
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
self.contents.clear
self.contents.font.size = 18
for i in 0...@item_max
draw_item(i, normal_color)
end
end
#--------------------------------------------------------------------------
# ● 描绘项目
# index : 项目编号
# color : 文字色
#--------------------------------------------------------------------------
def draw_item(index, color)
self.contents.font.color = color
# 计算得出当前index所对应的内容所在的行
row_index = index / @column_max
# 根据余数得出所在的列
for y in 0...@column_max
if index % @column_max == y
rect = Rect.new(y * @width_txt, 32 * row_index , @width_txt, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
self.contents.draw_text(rect, @commands[index],1)
break
end
end
end
#--------------------------------------------------------------------------
# ● 项目无效化
# index : 项目编号
#--------------------------------------------------------------------------
def disable_item(index)
draw_item(index, disabled_color)
end
#--------------------------------------------------------------------------
# ● 项目有效化
# index : 项目编号
#--------------------------------------------------------------------------
def able_item(index)
draw_item(index, normal_color)
end
#--------------------------------------------------------------------------
# ● 更新光标举行
#--------------------------------------------------------------------------
def update_cursor_rect
# 光标位置不满 0 的情况下
if @index < 0
self.cursor_rect.empty
return
end
# 获取当前的行
row = @index / @column_max
# 当前行被显示开头行前面的情况下
if row < self.top_row
# 从当前行向开头行滚动
self.top_row = row
end
# 当前行被显示末尾行之后的情况下
if row > self.top_row + (self.page_row_max - 1)
# 从当前行向末尾滚动
self.top_row = row - (self.page_row_max - 1)
end
# 计算光标的宽
cursor_width = @width_txt
# 计算光标坐标
x = @index % @column_max * cursor_width
y = @index / @column_max * 32 - self.oy
# 更新国标矩形
self.cursor_rect.set(x, y, @width_txt, 32)
end
end
#-------------------------七夕小雨华丽的分割线-------------------------------
class Window_Compute < Window_Base
def initialize
super(250, 64, 182, 64)
self.contents = Bitmap.new(width - 32, height - 32)
$compute = "0"
refresh
end
def refresh
self.contents.clear
self.contents.font.color = normal_color
self.contents.draw_text(-32, 0, 180, 32, $compute.to_s, 2)
end
end
#-------------------------七夕小雨华丽的分割线--------------------------------
class Scene_Compute
#--------------------------------------------------------------------------
# ● 初始化对像
# menu_index : 命令光标的初期位置
#--------------------------------------------------------------------------
def initialize(menu_index = 0)
@menu_index = menu_index
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
@back = Spriteset_Map.new
@command_window = Window_Command_Compute.new(180, ["1","2","3","4","5","6","7","8","9","0","+","-","×","÷","=","归零"],4)
@command_window.x = 250
@command_window.y = 140
@command_window.index = @menu_index
@compute_window = Window_Compute.new
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果切换画面就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
@compute_window.dispose
@command_window.dispose
@back.dispose
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
@compute_window.update
@compute_window.refresh
@command_window.update
# 命令窗口被激活的情况下: 调用 update_command
if @command_window.active
update_command
return
end
end
#--------------------------------------------------------------------------
# ● 刷新画面 (命令窗口被激活的情况下)
#--------------------------------------------------------------------------
def update_command
# 按下 B 键的情况下
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$scene = Scene_Map.new
return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
case @command_window.index
when 0 # 1
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "1"
else
$compute = "1"
end
when 1 # 2
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "2"
else
$compute = "2"
end
when 2 # 3
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "3"
else
$compute = "3"
end
when 3 # 4
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "4"
else
$compute = "4"
end
when 4 # 5
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "5"
else
$compute = "5"
end
when 5 # 6
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "6"
else
$compute = "6"
end
when 6 # 7
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "7"
else
$compute = "7"
end
when 7 # 8
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "8"
else
$compute = "8"
end
when 8 # 9
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "9"
else
$compute = "9"
end
when 9 # 0
$game_system.se_play($data_system.decision_se)
if $compute != "0"
$compute += "0"
else
$compute = "0"
end
when 10 # +
$game_system.se_play($data_system.decision_se)
@a = $compute.to_i
@Operation = 1
$compute = "0"
when 11 # -
$game_system.se_play($data_system.decision_se)
@a = $compute.to_i
@Operation = 2
$compute = "0"
when 12 # x
$game_system.se_play($data_system.decision_se)
@a = $compute.to_i
@Operation = 3
$compute = "0"
when 13 # /
$game_system.se_play($data_system.decision_se)
@a = $compute.to_i
@Operation = 4
$compute = "0"
when 14 # =
case @Operation
when 0
$game_system.se_play($data_system.cancel_se)
when 1
$game_system.se_play($data_system.decision_se)
@b = $compute.to_i
$c = @a + @b
$c = $c.to_s
$compute = $c
when 2
$game_system.se_play($data_system.decision_se)
@b = $compute.to_i
$c = @a - @b
$c = $c.to_s
$compute = $c
when 3
$game_system.se_play($data_system.decision_se)
@b = $compute.to_i
$c = @a * @b
$c = $c.to_s
$compute = $c
when 4
$game_system.se_play($data_system.decision_se)
@b = $compute.to_i
$c = @a / @b
$c = $c.to_s
$compute = $c
end
when 15
$game_system.se_play($data_system.cancel_se)
$compute = "0"
@Operation = 0
end
return
end
end
end

复制代码

范例下载地址：
ftp://[email protected]/200707/rm计算机.rar

截图一张：

　　　　　　　　　　　　　　[本贴由叶舞枫于 2007-6-30 20:11:40 进行了编辑]

devilcraft · 发表于 2007-6-24 01:39:31

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

星之云 · 发表于 2007-6-24 01:44:48

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

七夕小雨 · 发表于 2007-6-24 01:46:26

以下引用devilcraft于2007-6-23 17:39:31的发言：

看起来很好吃啊!嗯,强大的东西
收藏了!!!

[本贴由作者于 2007-6-23 17:42:49 最后编辑]

强大倒是不强大…………不过代码就学习比较有用吧~

以下引用星之云于2007-6-23 17:44:48的发言：

这个适合用来锻炼脚本,貌似学习VB,VC起初开始都是学习编写计算器的,呵呵,对脚本新手学习还是有帮助的,

不错…………了解一些基础算法可以起那么些作用吧~

got3 · 发表于 2007-6-24 04:36:10

...我的沙发{/ll}
都是网速的问题..！
-----------------------
这个画面好像可以做商店窗口版..
楼主去做个{/se}

七夕小雨 · 发表于 2007-6-24 06:02:51

以下引用got3于2007-6-23 20:36:10的发言：

...我的沙发
都是网速的问题..！
-----------------------
这个画面好像可以做商店窗口版..
楼主去做个

商店窗口版？{/gg}那似什么东西啊~

残阳泪珀 · 发表于 2007-6-24 06:18:05

MS是个很没有用的东西~~~~不过还是下下来，以后说不定哪部游戏里要用到呢~~~~

4262130 · 发表于 2007-6-24 17:29:33

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

got3 · 发表于 2007-6-24 18:46:43

以下引用七夕小雨于2007-6-23 22:02:51的发言：
商店窗口版？那似什么东西啊~

就是可以不全屏进入商店...直接显示一个窗口..我觉得全屏太土了...
现在的游戏几乎没有买东西是全屏的...{/gg}
而且窗口的话看起来会更舒服一点...

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

RM计算器

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

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

第2届短篇游戏比赛季军

第3届短篇游戏大赛小游戏及其他组季军