【VX】怎么在NPC头上加1个计时器

936586666

我想做一个农场型的游戏我想在菜头上加个计时器，计时器的时间到0后可以显示“可摘取”的字样！

iisnow

嗯！这是一个好想法，农场游戏~
然后就写了一个脚本，基本可以实现你要的功能，不过要配合事件实现，于是就发个范例给你吧……
不多说了，效果：

脚本：

1. 
   
2. $time = {}
   
3. code_time = Thread.new{
   
4. loop do
   
5.   $time.each do |k,v|
   
6.     $time[k] = [v - 1,0].max
   
7.   end
   
8.   sleep 1
   
9. end
   
10. }
    
11. 
    
12. 
    
13. class Game_Event
    
14.   attr_accessor :event
    
15. end
    
16. class Game_Map
    
17.   attr_accessor :map_id
    
18. end
    
19. 
    
20. class Sprite_time < Sprite_Base
    
21.   
    
22.   def initialize(view_port,ch)
    
23.     super(view_port)
    
24.     @ch = ch
    
25.     @time = $time[[$game_map.map_id,@ch.event.id]]
    
26.     @new = true
    
27.     self.bitmap = Bitmap.new(64,20)
    
28.   end
    
29.   
    
30.   def clear_self
    
31.     if $time[[$game_map.map_id,@ch.event.id]] == 0
    
32.       $time.delete([$game_map.map_id,@ch.event.id])
    
33.       self.dispose
    
34.       return true
    
35.     else
    
36.       return false
    
37.     end
    
38.   end
    
39.   
    
40.   def update
    
41.     if @time == nil  
    
42.       if @ch.event.name =~ /%(\d{0,2}[,，])?(\d+[,，])(\d+)/
    
43.         hou = $1 ? $1.to_i : 0
    
44.         min = $2.to_i
    
45.         sec = $3.to_i
    
46.       end
    
47.       $time[[$game_map.map_id,@ch.event.id]] = hou * 3600 + min * 60 + sec
    
48.     end
    
49.     if @time != $time[[$game_map.map_id,@ch.event.id]] || @new
    
50.       @time = $time[[$game_map.map_id,@ch.event.id]]
    
51.       @new = false
    
52.       if @time != 0
    
53.         ho = @time / 3600
    
54.         mi = @time / 60 - ho * 60
    
55.         se = @time % 60
    
56.         string = sprintf("%02d:%02d:%02d", ho,mi,se) if ho >0
    
57.         string = sprintf("%02d:%02d", mi,se) if ho == 0
    
58.       else
    
59.         string = "收获啦~"
    
60.       end
    
61.       self.bitmap.clear
    
62.       self.bitmap.font.size = 14
    
63.       self.bitmap.draw_text(0,0,64,20,string,1)
    
64.     end
    
65.     self.x = @ch.screen_x - 32
    
66.     self.y = @ch.screen_y - 50
    
67.   end
    
68.   
    
69. end
    
70. 
    
71. class Game_Interpreter
    
72.   
    
73.   def add_self
    
74.     if $time[[$game_map.map_id,@event_id]] == nil
    
75.       view_port = Viewport.new(0, 0, 544, 416)
    
76.       sprite = Sprite_time.new(view_port,$game_map.events[@event_id])
    
77.       $scene.spriteset.character_sprites.push(sprite)
    
78.       $scene.spriteset.update
    
79.     end
    
80.   end
    
81.   
    
82.   def get_result
    
83.     if $time[[$game_map.map_id,@event_id]] > 0
    
84.       return false
    
85.     elsif $time[[$game_map.map_id,@event_id]] == 0
    
86.       $scene.spriteset.clear_time
    
87.       return true
    
88.     end
    
89.   end
    
90.   
    
91.   alias :iisnow_command_201 :command_201
    
92.   def command_201
    
93.     $flag = @params[0] == 0 ? @params[1] : $game_variables[@params[1]]
    
94.     iisnow_command_201
    
95.   end
    
96. end
    
97. 
    
98.    
    
99. class Scene_Map < Scene_Base
    
100.   attr_accessor :spriteset
     
101.   
     
102.   alias :iisnow_start :start
     
103.   def start
     
104.     $flag = $game_map.map_id
     
105.     iisnow_start
     
106.   end
     
107. 
     
108. end
     
109. class Spriteset_Map
     
110.   attr_accessor :character_sprites
     
111.   
     
112.   alias :iisnow_update :update
     
113.   def update
     
114.     if $flag
     
115.     $time.each do |k,v|
     
116.       if k[0] == $flag && $flag == $game_map.map_id
     
117.         view_port = Viewport.new(0, 0, 544, 416)
     
118.         sprite = Sprite_time.new(view_port,$game_map.events[k[1]])
     
119.         @character_sprites.push(sprite)
     
120.       end
     
121.     end
     
122.     $flag = nil if $flag == $game_map.map_id
     
123.     end
     
124.     iisnow_update
     
125.   end
     
126.   
     
127.   def clear_time
     
128.     @character_sprites.each do |s|
     
129.       c = s.clear_self if s.is_a?(Sprite_time)
     
130.       @character_sprites[@character_sprites.index(s)] = nil if c
     
131.     end
     
132.     @character_sprites.compact!
     
133.   end
     
134. 
     
135. end
     

复制代码

然后说说缺点吧：
1.时间的不精确性，就是指精确度为1s小于1s的时间被忽视
2.存档的问题：即存档打开后会有错误，现在我在想办法修改，后面将会改正，就是增加一个文件记录
3.存档期间，游戏的时间会停止运转，即开始游戏蔬菜才会倒计时（估计改正存档以后这个问题可以解决），但是游戏中无论怎么暂停，蔬菜都不会停止生长
附件在下方，注意每个事件的设置方式，以及一定要将事件的优先级调整为“与普通角色相同”
另外时间的名称标识着蔬菜的种植时间格式为：“%x,y,z”
（x指小时，y指分钟，z指秒，其中x和它后面的，可以省略表示时间小于1个小时，x,y,z的值不限大小，但是毕竟希望你设置的合乎情理一点，比如y和z尽量小于60等等……）
iisnow_.rar (240.77 KB, 下载次数: 141)

2011-12-17 12:40 上传

点击文件名下载附件

下面是存档改正：
脚本：

1. 
   
2. $last = false
   
3. $time = {}
   
4. code_time = Thread.new{
   
5. loop do
   
6.   $time.each do |k,v|
   
7.     $time[k] = [v - 1,0].max
   
8.   end
   
9.   sleep 1
   
10. end
    
11. }
    
12. 
    
13. 
    
14. class Game_Event
    
15.   attr_accessor :event
    
16. end
    
17. class Game_Map
    
18.   attr_accessor :map_id
    
19. end
    
20. 
    
21. class Sprite_time < Sprite_Base
    
22.   
    
23.   def initialize(view_port,ch)
    
24.     super(view_port)
    
25.     @ch = ch
    
26.     @time = $time[[$game_map.map_id,@ch.event.id]]
    
27.     @new = true
    
28.     self.bitmap = Bitmap.new(64,20)
    
29.   end
    
30.   
    
31.   def clear_self
    
32.     if $time[[$game_map.map_id,@ch.event.id]] == 0
    
33.       $time.delete([$game_map.map_id,@ch.event.id])
    
34.       self.dispose
    
35.       return true
    
36.     else
    
37.       return false
    
38.     end
    
39.   end
    
40.   
    
41.   def update
    
42.     if @time == nil  
    
43.       if @ch.event.name =~ /%(\d{0,2}[,，])?(\d+[,，])(\d+)/
    
44.         hou = $1 ? $1.to_i : 0
    
45.         min = $2.to_i
    
46.         sec = $3.to_i
    
47.       end
    
48.       $time[[$game_map.map_id,@ch.event.id]] = hou * 3600 + min * 60 + sec
    
49.     end
    
50.     if @time != $time[[$game_map.map_id,@ch.event.id]] || @new
    
51.       @time = $time[[$game_map.map_id,@ch.event.id]]
    
52.       @new = false
    
53.       if @time != 0
    
54.         ho = @time / 3600
    
55.         mi = @time / 60 - ho * 60
    
56.         se = @time % 60
    
57.         string = sprintf("%02d:%02d:%02d", ho,mi,se) if ho >0
    
58.         string = sprintf("%02d:%02d", mi,se) if ho == 0
    
59.       else
    
60.         string = "收获啦~"
    
61.       end
    
62.       self.bitmap.clear
    
63.       self.bitmap.font.size = 14
    
64.       self.bitmap.draw_text(0,0,64,20,string,1)
    
65.     end
    
66.     self.x = @ch.screen_x - 32
    
67.     self.y = @ch.screen_y - 50
    
68.   end
    
69.   
    
70. end
    
71. 
    
72. class Game_Interpreter
    
73.   
    
74.   def add_self
    
75.     if $time[[$game_map.map_id,@event_id]] == nil
    
76.       view_port = Viewport.new(0, 0, 544, 416)
    
77.       sprite = Sprite_time.new(view_port,$game_map.events[@event_id])
    
78.       $scene.spriteset.character_sprites.push(sprite)
    
79.       $scene.spriteset.update
    
80.     end
    
81.   end
    
82.   
    
83.   def get_result
    
84.     if $time[[$game_map.map_id,@event_id]] > 0
    
85.       return false
    
86.     elsif $time[[$game_map.map_id,@event_id]] == 0
    
87.       $scene.spriteset.clear_time
    
88.       return true
    
89.     end
    
90.   end
    
91.   
    
92.   alias :iisnow_command_201 :command_201
    
93.   def command_201
    
94.     $flag = @params[0] == 0 ? @params[1] : $game_variables[@params[1]]
    
95.     iisnow_command_201
    
96.   end
    
97. end
    
98. 
    
99.    
    
100. class Scene_Map < Scene_Base
     
101.   attr_accessor :spriteset
     
102.   
     
103.   alias :iisnow_start :start
     
104.   def start
     
105.     $flag = $game_map.map_id
     
106.     iisnow_start
     
107.   end
     
108. 
     
109. end
     
110. class Spriteset_Map
     
111.   attr_accessor :character_sprites
     
112.   
     
113.   alias :iisnow_update :update
     
114.   def update
     
115.     if $flag
     
116.     $time.each do |k,v|
     
117.       if k[0] == $flag && $flag == $game_map.map_id
     
118.         view_port = Viewport.new(0, 0, 544, 416)
     
119.         sprite = Sprite_time.new(view_port,$game_map.events[k[1]])
     
120.         @character_sprites.push(sprite)
     
121.       end
     
122.     end
     
123.     $flag = nil if $flag == $game_map.map_id
     
124.     end
     
125.     iisnow_update
     
126.   end
     
127.   
     
128.   def clear_time
     
129.     @character_sprites.each do |s|
     
130.       c = s.clear_self if s.is_a?(Sprite_time)
     
131.       @character_sprites[@character_sprites.index(s)] = nil if c
     
132.     end
     
133.     @character_sprites.compact!
     
134.   end
     
135.   
     
136. end
     
137. 
     
138. class Scene_File
     
139.   
     
140.   alias :iisnow_write_save_data :write_save_data
     
141.   def write_save_data(file)
     
142.     iisnow_write_save_data(file)
     
143.     Marshal.dump($time,file)
     
144.   end
     
145.   
     
146.   alias :iisnow_read_save_data :read_save_data
     
147.   def read_save_data(file)
     
148.     iisnow_read_save_data(file)
     
149.     $time = Marshal.load(file)
     
150.     if $last
     
151.       time_last = (Time.now - file.mtime).to_i
     
152.       $time.each do |k,v|
     
153.         $time[k] = [v - time_last,0].max
     
154.       end
     
155.     end
     
156.   end
     
157.   
     
158. end
     
159. 
     
160.   
     
161.   
     
162.   

复制代码

改变内容：
使得存档变的可行，并加入了$last变量用于管理持续的时间消耗：
$last = true表示存档以后，显示时间的消耗会反应在游戏中，即存档1个小时后打开，你会发现游戏也过了1个小时；
$last = false表示不进行上述操作，也就是，存档时有x分钟成熟，读档就还有x分钟；
那种你喜欢就手动修改吧
脚本修改后，事件的用法不变
增加115分流：http://115.com/file/clj1zpal
改正后附件： ii_snow_2.rar (240.83 KB, 下载次数: 147)

2011-12-17 13:37 上传

点击文件名下载附件

（这个附件中的脚本，我改了一行Main，就是kill那个进程用的，改不改应该无所谓吧）

936586666

谢谢了