龙仔rmxp吧 关注:14贴子:84
  • 1回复贴,共1

【原创RGSS】事件计时器多元化控制

只看楼主收藏回复

#==============================================================================
# ■ 事件计时器多元化控制
#------------------------------------------------------------------------------
#     作者:TERENCE (龙皇)
#  本类别的实例请参考 $game_system
#==============================================================================
class Game_System
#--------------------------------------------------------------------------
# ● 自定义设定
#--------------------------------------------------------------------------
Timer_Pause = 11    # 计时器暂停的开关编号
Timer_CountUp = 10    # 计时器 "启动" 正数 的开关编号
Midway_CountUp = 12    # 计时器 "中途" 改变计数方式 的开关编号
Count_speed = 12    # 计时器计算速度的变量编号
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
    unless $game_switches[Timer_CountUp] #若要正数,使游戏的10号开关为ON
      # 计时器减 1
      if @timer_working and @timer > 0*40
        if $game_switches[Timer_Pause] # 计时器是否暂停
          @timer -= 0
        else
           unless $game_switches[Midway_CountUp]
              if $game_variables[Count_speed]<=0
                @timer -= 1
              else
                @timer -= 1*$game_variables[Count_speed]
              end
           else
             if @timer_working and @timer < 5999*40
               if $game_variables[Count_speed]<=0
                  @timer += 1
                else
                  @timer += 1*$game_variables[Count_speed]
                end
              end
           end



1楼2010-01-09 18:08回复
            end
          end
        else
          # 计时器加 1
          if @timer_working and @timer < 5999*40
            if $game_switches[Timer_Pause] # 计时器是否暂停
              @timer += 0
            else
               unless $game_switches[Midway_CountUp]
                  if $game_variables[Count_speed]<=0
                    @timer += 1
                  else
                    @timer += 1*$game_variables[Count_speed]
                  end
               else
                  if @timer_working and @timer > 0*40
                    if $game_variables[Count_speed]<=0
                      @timer -= 1
                    else
                      @timer -= 1*$game_variables[Count_speed]
                    end
                  end
               end
            end
          end
        end
    end
    end


    2楼2010-01-09 18:08
    回复