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

hitlerson

以下引用灯笼菜刀王于2008-6-27 13:41:08的发言：

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

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

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

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


[本贴由作者于 2008-6-27 13:42:46 最后编辑]

等下一课吧，下一课柳前辈要讲 游戏王 了，那个AI，爽死了
期待下一课

亿万星辰

以下引用灯笼菜刀王于2008-6-27 13:41:08的发言：

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

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

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

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

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

身之察察

报告老师，我来交作业啦
由于这个比较复杂，截图的话太多了，所以传工程
截一张效果图好啦。


还有，我制作过程中遇到了点问题，请问老师怎么才能在地图上显示两个
变量的值啊，注：我是脚本白痴
游戏里用的这个：http://rpg.blue/viewthread.php?tid=87360
那个ｖｘ版的地图上显示变量的脚本。不知能不能改成显示两个变量的

工程如下（做的很难看，不过有懒的做图的同学想用的话随便拿去好了）
http://rpg.blue/upload_program/files/舌战系统_95124944.rar

更新的（有简单的血条的）：
http://rpg.blue/upload_program/files/舌战系统_95163563.rar

2008年6月29日19:51分更新：（改正了有时敌人出牌不显示的错误，
修善了敌人判断出牌的方法，改正了有时主题改不过来的错误）
http://rpg.blue/upload_program/files/舌战系统_95198257.rar

灯笼菜刀王

交作业交作业....

1. class Window_Minigame < Window_Base
   
2.   #--------------------------------------------------------------------------
   
3.   # ● 初始化窗口
   
4.   #--------------------------------------------------------------------------
   
5.   def initialize
   
6.     super(0, 0, 160, 64)
   
7.     self.contents = Bitmap.new(width - 32, height - 32)
   
8.     refresh
   
9.   end
   
10.   #--------------------------------------------------------------------------
    
11.   # ● 刷新
    
12.   #--------------------------------------------------------------------------
    
13.   def refresh
    
14.     self.contents.clear
    
15.     $game_variables[1] = 100 #我方HP
    
16.     $game_variables[2] = 100 #敌方HP
    
17. cass $game_variables[3]
    
18.   when = 1
    
19.     motif = "故事"
    
20.   when = 2
    
21.     motif = "时节"
    
22.   when = 3
    
23.     motif = "道理"
    
24.   end
    
25. loop do
    
26.   $game_temp.message_text＝ "游戏开始：\n我方HP：#{$game_variables[1]}\n敌方HP：#{$game_variables[2]}\n当前主题：#{motif}"
    
27.    
    
28.   a = rand(12)+1
    
29.     b = a/4
    
30.     c % a/4
    
31. cass b
    
32.     when 1
    
33.      type = "故事"
    
34.     when 2
    
35.      type = "时节"
    
36.     when 3
    
37.      type = "道理"
    
38.     end
    
39. cass c
    
40.   when 0
    
41.     amo  = "特殊" #特殊牌处理。
    
42.   when 1
    
43.     amo  = "小"
    
44.   when 2
    
45.     amo  = "中"
    
46.   when 3
    
47.     amo  = "大"
    
48.   end
    
49. card1 = type + amo
    
50. $game_variables[4] = a #第一张牌
    
51. 
    
52. a = rand(12)+1
    
53.     b = a/4
    
54.     c % a/4
    
55. cass b
    
56.     when 1
    
57.      type = "故事"
    
58.     when 2
    
59.      type = "时节"
    
60.     when 3
    
61.      type = "道理"
    
62.     end
    
63. cass c
    
64.   when 0
    
65.     amo  = "特殊" #特殊牌处理。
    
66.   when 1
    
67.     amo  = "小"
    
68.   when 2
    
69.     amo  = "中"
    
70.   when 3
    
71.     amo  = "大"
    
72.   end
    
73. card2 = type + amo
    
74. $game_variables[5] = a #第二张牌
    
75. 
    
76. a = rand(12)+1
    
77.     b = a/4
    
78.     c % a/4
    
79. cass b
    
80.     when 1
    
81.      type = "故事"
    
82.     when 2
    
83.      type = "时节"
    
84.     when 3
    
85.      type = "道理"
    
86.     end
    
87. cass c
    
88.   when 0
    
89.     amo  = "特殊" #特殊牌处理。
    
90.   when 1
    
91.     amo  = "小"
    
92.   when 2
    
93.     amo  = "中"
    
94.   when 3
    
95.     amo  = "大"
    
96.   end
    
97. card3 = type + amo
    
98. $game_variables[6] = a #第三张牌
    
99. end
    
100. def main
     
101.     @sprite = Sprite.new
     
102.     s1 = "#{card1}"
     
103.     s2 = "#{card2}"
     
104.     s3 = "#{card3}"
     
105.     @command_window = Window_Command.new(192, [s1, s2, s3])
     
106.     @command_window.back_opacity = 160
     
107.     @command_window.x = 320 - @command_window.width / 2
     
108.     @command_window.y = 288
     
109.     Graphics.transition
     
110.     loop do
     
111.       # 刷新游戏画面
     
112.       Graphics.update
     
113.       # 刷新输入信息
     
114.       Input.update
     
115.       # 刷新画面
     
116.       update
     
117.       # 如果画面被切换就中断循环
     
118.       if $scene != self
     
119.         break
     
120.       end
     
121.     end
     
122.     # 装备过渡
     
123.     Graphics.freeze
     
124.     # 释放命令窗口
     
125.     @command_window.dispose
     
126.     # 释放标题图形
     
127.     @sprite.dispose
     
128.   end
     
129. def update
     
130.     # 刷新命令窗口
     
131.     @command_window.update
     
132.     # 按下 C 键的情况下
     
133.     if Input.trigger?(Input::C)
     
134.       # 命令窗口的光标位置的分支
     
135.       case @command_window.index
     
136.       when 0  # 第一张牌
     
137.         $game_temp.message_text = "我出#{card1}"
     
138.         me = $game_variables[4]
     
139.       when 1  # 第二张牌
     
140.         $game_temp.message_text = "我出#{card2}"
     
141.         me = $game_variables[5]
     
142.       when 2  # 第三张牌
     
143.         $game_temp.message_text = "我出#{card3}"
     
144.         me = $game_variables[6]
     
145.     end
     
146.   end
     
147. end
     
148. end
     
149. lood do
     
150. a = rand(12)+1
     
151.     b = a/4
     
152.     c % a/4
     
153. cass b
     
154.     when 1
     
155.      type = "故事"
     
156.     when 2
     
157.      type = "时节"
     
158.     when 3
     
159.      type = "道理"
     
160.     end
     
161. cass c
     
162.   when 0
     
163.     amo  = "特殊" #特殊牌处理。
     
164.   when 1
     
165.     amo  = "小"
     
166.   when 2
     
167.     amo  = "中"
     
168.   when 3
     
169.     amo  = "大"
     
170.   end
     
171. youcard = type + amo
     
172. you = a
     
173. 
     
174. me2 % me/4
     
175. you2 % you/4
     
176. if me/4 == you/4
     
177.   if me2 == you2
     
178.    $game_temp.message_text = "对方出#{youcard}\n平局"
     
179.    $game_variables[3] = me/4
     
180.   end
     
181.   if me2 < you2
     
182.    $game_temp.message_text = "对方出#{youcard}\n你输了"
     
183.    $game_variables[1] -= 10
     
184.    $game_variables[3] = you/4
     
185.   end
     
186.   if me2 > you2
     
187.    $game_temp.message_text = "对方出#{youcard}\n你赢了"
     
188.    $game_variables[2] -= 10
     
189.    $game_variables[3] = me/4
     
190.   end
     
191. else
     
192.   if $game_variables[3] == me/4
     
193.     $game_temp.message_text = "对方出#{youcard}\n你赢了"
     
194.     $game_variables[2] -= 10
     
195.   elsif $game_variables[3] == you/4
     
196.     $game_temp.message_text = "对方出#{youcard}\n你输了"
     
197.     $game_variables[1] -= 10
     
198.   else
     
199.    if me2 < you2
     
200.    $game_temp.message_text = "对方出#{youcard}\n你输了"
     
201.    $game_variables[1] -= 10
     
202.    $game_variables[3] = you/4
     
203.   end
     
204.    if me2 > you2
     
205.    $game_temp.message_text = "对方出#{youcard}\n你赢了"
     
206.    $game_variables[2] -= 10
     
207.    $game_variables[3] = me/4
     
208.   end
     
209. end
     
210. end
     
211. if $game_variables[1] <= 0
     
212.   $game_temp.message_text = "YOU LOST!"
     
213.   break
     
214.   end
     
215. end
     
216. if $game_variables[2] <= 0
     
217.   $game_temp.message_text = "YOU WIN!"
     
218.   break
     
219. end
     
220. end
     
221. end

复制代码

第一次写脚本- -错误百出的句子，请帮忙改改错....

灯笼菜刀王

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

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

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

亿万星辰

to 身之察察
整体效果都不错，规则也大致满足，需要再提出的一条是：

如果一方出当前主题的牌，则不论大小，当前主题牌的那方胜利。但是如果非当前主题一方的的大小胜过当前主题牌，则改变当前主题为非当前主题。

这条要求没有提现，至少是我在测试的过程中没有看到根据这个规则进行当前主题的更换，所以这里和要求是有一些差距的。
另一个就是关于对手的 HP，没有一个直观的体现，这就有点让我觉得有点盲目了……

to 灯笼菜刀王
这个……在整个结构上存在一些问题，建议还是用事件来做……

身之察察

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

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


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

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

精灵使者

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

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

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

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

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


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

告诉你：在对话框里显示变量使用\v[n] n=变量的值

身之察察

以下引用精灵使者于2008-6-29 8:29:30的发言：


告诉你：在对话框里显示变量使用\v[n] n=变量的值

谢谢，您是说，，每次扣血之后  用显示文章  通报一下血量？
这效果也太。。不能时时显示么。。
还是期待成绩好的同学们快交作业哇，让我看看您的敌我双方血量是怎么在地图上显示地。

精灵使者

以下引用身之察察于2008-6-29 8:46:55的发言：


以下引用精灵使者于2008-6-29 8:29:30的发言：


告诉你：在对话框里显示变量使用\v[n] n=变量的值



谢谢，您是说，，每次扣血之后  用显示文章  通报一下血量？
这效果也太。。不能时时显示么。。
还是期待成绩好的同学们快交作业哇，让我看看您的敌我双方血量是怎么在地图上显示地。

我记得以前有一个事件版的血条教程的……