how to make an idle away? - 28/07/04 04:51 AM
Can I get some help on where I should start ?
on *:INPUT:*: { .timerAutoAway 1 $calc([color:red]N[/color]*60) away Auto-away after $calc([color:red]N[/color]*60) idle. }
on *:input:*:{ if ($readini(serv.ini, idle, power) == On) { if (%idle != $null) { .set %idle 1 } if (%idle == $null) { .away .ame _( AWAY )_( Back From: )_( IDLE )_ .echo -a _( AWAY )_( Back From: )_( IDLE )_ .set %idle 1 } } } alias ckidle { if ($readini(serv.ini, idle, power) == On) { if (%idle == %idletime) { .away _( AWAY )_( Auto Away After $calc(%idletime / 60) Minute(s) )_( IDLE )_ .ame _( AWAY )_( Auto Away After $calc(%idletime / 60) Minute(s) )_( IDLE )_ .echo -a _( AWAY )_( Auto Away After $calc(%idletime / 60) Minute(s) )_( IDLE )_ .unset %idle halt } if (%idle < %idletime) { .inc %idle 1 | halt } if (%idle > %idletime) { halt } } } menu channel,status,query,menubar { Idle For $+ $chr(58) $duration($calc(%idle),4) ._( Idle Limit )_( $duration($calc(%idletime),4) )_:.set %idletime $calc($input(Auto Away After How Many Minutes?,1,Idle,$calc(%idletime / 60)) * 60) ._( Auto Away )_( $readini(serv.ini, idle, power) )_:{ .writeini serv.ini idle power $iif($readini(serv.ini, idle, power) = Off,On,Off) if ($readini(serv.ini, idle, power) == On) { .set %idletime $calc($input(Auto Away After How Many Minutes?,1,Idle,$calc(%idletime / 60)) * 60) | .inc %idle 1 | .timerCKIDLE 0 1 ckidle } if ($readini(serv.ini, idle, power) == Off) { .timerCKIDLE off | .unset %idle } } }