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

灯笼菜刀王 · 发表于 2008-6-27 21:41:08

= =怎么第二课难度就提升这么多~~~~~

电脑AI方面不会做，只用随机行么。或者，用作弊式...电脑出的牌永远是当前主题-v-

------不负责的分割线-----------

估计是上次那些高手们的搅和让柳之一先生火大了-v-

灯笼菜刀王 · 发表于 2008-6-28 22:59:45

交作业交作业....

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:03:26

以下引用亿万星辰于2008-6-27 19:08:17的发言：

这个的AI可以用最简单的一个方式来编写，如果有当前主题的牌，那么就出当前主题里最大的牌；没有当前主题的牌，就出一张现有的牌中最大的……

那个....我偷懒，直接让电脑用随机数了.....昨天脑糊了一晚上，睡觉满脑袋还都是if,else飞来飞去- -~~

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

[原创发布] 【初级教学2】仿三国志舌战制作方法。

[原创发布] 【初级教学2】仿三国志舌战制作方法。