【初级教学2】仿三国志舌战制作方法。 - Project1

class Window_Minigame < Window_Base
#--------------------------------------------------------------------------
# ● 初始化窗口
#--------------------------------------------------------------------------
def initialize
super(0, 0, 160, 64)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
self.contents.clear
$game_variables[1] = 100 #我方HP
$game_variables[2] = 100 #敌方HP
cass $game_variables[3]
when = 1
motif = "故事"
when = 2
motif = "时节"
when = 3
motif = "道理"
end
loop do
$game_temp.message_text＝ "游戏开始：\n我方HP：#{$game_variables[1]}\n敌方HP：#{$game_variables[2]}\n当前主题：#{motif}"
a = rand(12)+1
b = a/4
c % a/4
cass b
when 1
type = "故事"
when 2
type = "时节"
when 3
type = "道理"
end
cass c
when 0
amo = "特殊" #特殊牌处理。
when 1
amo = "小"
when 2
amo = "中"
when 3
amo = "大"
end
card1 = type + amo
$game_variables[4] = a #第一张牌
a = rand(12)+1
b = a/4
c % a/4
cass b
when 1
type = "故事"
when 2
type = "时节"
when 3
type = "道理"
end
cass c
when 0
amo = "特殊" #特殊牌处理。
when 1
amo = "小"
when 2
amo = "中"
when 3
amo = "大"
end
card2 = type + amo
$game_variables[5] = a #第二张牌
a = rand(12)+1
b = a/4
c % a/4
cass b
when 1
type = "故事"
when 2
type = "时节"
when 3
type = "道理"
end
cass c
when 0
amo = "特殊" #特殊牌处理。
when 1
amo = "小"
when 2
amo = "中"
when 3
amo = "大"
end
card3 = type + amo
$game_variables[6] = a #第三张牌
end
def main
@sprite = Sprite.new
s1 = "#{card1}"
s2 = "#{card2}"
s3 = "#{card3}"
@command_window = Window_Command.new(192, [s1, s2, s3])
@command_window.back_opacity = 160
@command_window.x = 320 - @command_window.width / 2
@command_window.y = 288
Graphics.transition
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面被切换就中断循环
if $scene != self
break
end
end
# 装备过渡
Graphics.freeze
# 释放命令窗口
@command_window.dispose
# 释放标题图形
@sprite.dispose
end
def update
# 刷新命令窗口
@command_window.update
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 命令窗口的光标位置的分支
case @command_window.index
when 0 # 第一张牌
$game_temp.message_text = "我出#{card1}"
me = $game_variables[4]
when 1 # 第二张牌
$game_temp.message_text = "我出#{card2}"
me = $game_variables[5]
when 2 # 第三张牌
$game_temp.message_text = "我出#{card3}"
me = $game_variables[6]
end
end
end
end
lood do
a = rand(12)+1
b = a/4
c % a/4
cass b
when 1
type = "故事"
when 2
type = "时节"
when 3
type = "道理"
end
cass c
when 0
amo = "特殊" #特殊牌处理。
when 1
amo = "小"
when 2
amo = "中"
when 3
amo = "大"
end
youcard = type + amo
you = a
me2 % me/4
you2 % you/4
if me/4 == you/4
if me2 == you2
$game_temp.message_text = "对方出#{youcard}\n平局"
$game_variables[3] = me/4
end
if me2 < you2
$game_temp.message_text = "对方出#{youcard}\n你输了"
$game_variables[1] -= 10
$game_variables[3] = you/4
end
if me2 > you2
$game_temp.message_text = "对方出#{youcard}\n你赢了"
$game_variables[2] -= 10
$game_variables[3] = me/4
end
else
if $game_variables[3] == me/4
$game_temp.message_text = "对方出#{youcard}\n你赢了"
$game_variables[2] -= 10
elsif $game_variables[3] == you/4
$game_temp.message_text = "对方出#{youcard}\n你输了"
$game_variables[1] -= 10
else
if me2 < you2
$game_temp.message_text = "对方出#{youcard}\n你输了"
$game_variables[1] -= 10
$game_variables[3] = you/4
end
if me2 > you2
$game_temp.message_text = "对方出#{youcard}\n你赢了"
$game_variables[2] -= 10
$game_variables[3] = me/4
end
end
end
if $game_variables[1] <= 0
$game_temp.message_text = "YOU LOST!"
break
end
end
if $game_variables[2] <= 0
$game_temp.message_text = "YOU WIN!"
break
end
end
end

复制代码

以下引用身之察察于2008-6-28 23:40:29的发言：

谢谢星老师耐心的批改偶的作业，辛苦您了

那条规则居然做着做着就给忘了。。。失误啊
现已在交作业那楼修正。
http://rpg.blue/upload_program/files/舌战系统_95124944.rar

另外，关于敌人hp的问题，我也想显示啊，可是我是新手
敌我双方的hp我是用变量的，可是我不知道怎样才能在地图上显示两个变量啊。。。

我搜到的vx版的地图显示变量脚本好像只能显示一个变量，想自己改一下，还不会改。。（所以请老师看的时候暂时用f9吧。。。）
我脚本很白痴的。(基本就是空白。。)不知道这个效果简不简单。假如方便的话，不知能否请老师大人简单地讲一下方法。
要是很麻烦的话就算了，等别的优秀的同学交了有那个效果的作业后，我趁机偷学一下好了。

[本贴由作者于 2008-6-28 23:55:41 最后编辑]