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

复制代码

叶舞枫

发布到主站完毕，
VIP += 3

美兽

以下引用純属娯樂′于2007-3-15 2:11:44的发言：

晕阿..
这东西害人啊..
我刚刚试了下.
结果没到1个小时才几分钟就提示了.
不关他自动关..
后来不小心按了下 关.
我以为是关游戏.
结果把电脑关了..
晕.  害人的东西..

显然没仔细看说明.

火鸡三毛老大

美兽可以交我脚本吗？？？　　可以就加Ｑ４２０１４９８６３

火鸡三毛老大

美兽　姐　　　可以把关机改成退出吗？
还有就是　时间快到了　比如说还有１～５分钟的时候提醒玩家存档．
过了再提醒退出

国家保护怪物

。。。。。
以前只碰到过一个这样的游戏。。一小时就提醒我该睡觉了..

江湖大虾仁

直接用windows对话框阿
这倒是蛮实用的

美兽

以下引用红世之徒于2007-3-8 13:32:10的发言：

昨天用了用这个脚本...这才发现是块宝啊...
这个脚本生成的是Windows对话框，在实际运用中是十分有用的..
利用API生成这种对话框是十分困难的，VB.net还好说,因在Rm运行模式中如果没有第三方脚本很难完成这种Windows的弹出对话框，通常这类对话框的实际应用是版权信息或者连接到作者主页(待研究)等地点,大家也可以尝试一下,为上次的发言..忏悔...

那个对话框函数有一定的扩展性，你可以试试修改参数，有不少变化，不过有为窗体直接添加菜单项的API。