RM反沉迷系统

美兽

可以让游戏执行固定时间后运行一个程序，提醒玩家要注意休息，
TIME是设定间隔时间，以秒为单位，默认10秒，如果想设为半小时，改为1800即可。

1. module Graphics
   
2.   
   
3.   @ask1 = ["你已玩了一小时，请问要关机吗？","反沉迷提示！！"]
   
4.   @ask2 = ["如果不关机会直接退出游戏，确定吗？","反沉迷提示！！"]
   
5.   CP_ACP = 0
   
6.   CP_UTF8 = 65001
   
7.   TIME = 10
   
8.   @ctext = Array.new
   
9.   @m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
   
10.   @w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
    
11.   @msgbox = Win32API.new('user32', 'MessageBox', %w(p p p i), 'i')
    
12.   @wsm = Proc.new{|i|
    
13.          len = @m2w.call(CP_UTF8, 0, i, -1, nil, 0)
    
14.          buf = "\0\0" * len
    
15.          @m2w.call(CP_UTF8, 0, i, -1, buf, buf.size/2)
    
16.          len = @w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil)
    
17.          @ctext.push "\0" * len
    
18.          @w2m.call(CP_ACP, 0, buf, -1, @ctext.last, @ctext.last.size, nil, nil)
    
19.          }
    
20.   [@ask1,@ask2].flatten.each{|i| @wsm.call(i)}
    
21.   
    
22.   @update = method("update") if @update.nil?
    
23.   def self.update
    
24.      @first = Time.now.sec if !@first
    
25.      @atend = Time.now.sec        
    
26.      if ((@atend - @first).abs+1) % TIME == 0
    
27.         begin
    
28.            self.warning{|a,b| @msgbox.call(0, a, b, 1) }
    
29.         rescue  Hangup
    
30.            exit
    
31.         end   
    
32.      end  
    
33.      @update.call
    
34.   end
    
35. 
    
36.   def self.warning
    
37.       2.times{|j| j == 0 ?
    
38.           ((yield @ctext[0], @ctext[1]) == 1 ? (`Shutdown.exe -s -t 10`) : (next)):
    
39.           (yield @ctext[2], @ctext[3]) == 1 ? (exit) : (retry)      
    
40.         }
    
41.   end
    
42. 
    
43. end

复制代码

美兽

可以让游戏执行固定时间后运行一个程序，提醒玩家要注意休息，
TIME是设定间隔时间，以秒为单位，默认10秒，如果想设为半小时，改为1800即可。

1. module Graphics
   
2.   
   
3.   @ask1 = ["你已玩了一小时，请问要关机吗？","反沉迷提示！！"]
   
4.   @ask2 = ["如果不关机会直接退出游戏，确定吗？","反沉迷提示！！"]
   
5.   CP_ACP = 0
   
6.   CP_UTF8 = 65001
   
7.   TIME = 10
   
8.   @ctext = Array.new
   
9.   @m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
   
10.   @w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
    
11.   @msgbox = Win32API.new('user32', 'MessageBox', %w(p p p i), 'i')
    
12.   @wsm = Proc.new{|i|
    
13.          len = @m2w.call(CP_UTF8, 0, i, -1, nil, 0)
    
14.          buf = "\0\0" * len
    
15.          @m2w.call(CP_UTF8, 0, i, -1, buf, buf.size/2)
    
16.          len = @w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil)
    
17.          @ctext.push "\0" * len
    
18.          @w2m.call(CP_ACP, 0, buf, -1, @ctext.last, @ctext.last.size, nil, nil)
    
19.          }
    
20.   [@ask1,@ask2].flatten.each{|i| @wsm.call(i)}
    
21.   
    
22.   @update = method("update") if @update.nil?
    
23.   def self.update
    
24.      @first = Time.now.sec if !@first
    
25.      @atend = Time.now.sec        
    
26.      if ((@atend - @first).abs+1) % TIME == 0
    
27.         begin
    
28.            self.warning{|a,b| @msgbox.call(0, a, b, 1) }
    
29.         rescue  Hangup
    
30.            exit
    
31.         end   
    
32.      end  
    
33.      @update.call
    
34.   end
    
35. 
    
36.   def self.warning
    
37.       2.times{|j| j == 0 ?
    
38.           ((yield @ctext[0], @ctext[1]) == 1 ? (`Shutdown.exe -s -t 10`) : (next)):
    
39.           (yield @ctext[2], @ctext[3]) == 1 ? (exit) : (retry)      
    
40.         }
    
41.   end
    
42. 
    
43. end

复制代码

颠倒的彩虹

{/fd}…做这种东西．．．

镜无颜

呃寒...这个东西估计不会有人用吧...=。=

玩一个小时退出，再进入不就完事了...{/gg}

美兽

以下引用镜无颜于2007-2-26 10:07:45的发言：

呃寒...这个东西估计不会有人用吧...=。=

玩一个小时退出，再进入不就完事了...

万一战斗中退出呢，呵呵。
您也可以改成提示存档一类的功能

镜无颜

以下引用美兽于2007-2-26 10:08:51的发言：

万一战斗中退出呢，呵呵。

每次BOSS战前先存档，然后退出，再进入读档...=。=+

用这个脚本起码得配备一个自动存档...否则...= =b

亿万星辰

高,一直不知道怎么样通过API生成这样的对话框

千年狐狸精

................MS没用