Project1

标题: 【VX】怎么在NPC头上加1个计时器 [打印本页]
作者: 936586666    时间: 2011-12-16 17:47
标题: 【VX】怎么在NPC头上加1个计时器
本帖最后由 月夜神音 于 2011-12-16 18:34 编辑

我想做一个农场型的游戏我想在菜头上加个计时器，计时器的时间到0后可以显示“可摘取”的字样！
作者: iisnow    时间: 2011-12-17 12:40
本帖最后由 iisnow 于 2011-12-17 13:41 编辑

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

脚本：

  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. }


  13. class Game_Event
  14.   attr_accessor :event
  15. end
  16. class Game_Map
  17.   attr_accessor :map_id
  18. end

  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

  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

  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

  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

  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)


下面是存档改正：
脚本：

  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. }


  14. class Game_Event
  15.   attr_accessor :event
  16. end
  17. class Game_Map
  18.   attr_accessor :map_id
  19. end

  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

  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

  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

  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

  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

  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)
（这个附件中的脚本，我改了一行Main，就是kill那个进程用的，改不改应该无所谓吧）
作者: 936586666    时间: 2011-12-18 12:21
谢谢了




欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1