alias age { if (!%age1) { .enable #age | set %age1 1 | echo -a  age limit on. }
  else { .disable #age | unset %age1 | echo -a  age limit off. }
}
 
 
 
#age off
 
on *:JOIN:%agechan: { if ($readini(age,$chan,$+($nick,num)) isnum)  { msg $chan Welcome $nick $+ , $readini(age,$chan,$nick) } | else { if ($nick != $me) { 
      if ($readini(age,$chan,$address($nick,2)) !isnum) { set %chan $chan | set %nick $nick | msg $chan Welcome, $+($nick,$chr(44)) to $+(%agechan,.) please say your age or I cannot allow you to stay. [double digit numbers only please] (you have 60 seconds to state your age) [automated msg] | $remove(.timer $nick,$chr(32)) 1 60 kick %chan %nick didnt state age quick enough, rejoin and retry | $remove(.timer $nick 30,$chr(32)) 1 30 msg %chan You have only 30 seconds left to say how old you are before this bot kicks you out. }
      if ($readini(age,$chan,$address($nick,2)) isnum) { if ($readini(age,$chan,$address($nick,2)) >= %agelimit) { msg $chan $+($nick,$chr(44)) my records say you are $+($readini(age,$chan,$address($nick,2)),.) Welcome. } | if ($readini(age,$chan,$address($nick,2)) < %agelimit) { kick $chan $nick sorry, still too young. you have $calc( %agelimit - $readini(age,$chan,$address($nick,2)) ) years to go. come back then. | mode $chan +b $address($nick,2) } 
    } }
} }
 
menu nicklist {
  ..Age limit 
  .Except user: { writeini age $chan $1 $?"why are they excepted from the age limit?" | writeini age $chan $+($1,num) 1 | echo -a User Excepted: $readini(age,$chan,$1) } 
.Delete user: { remini age $chan $1 | remini age $chan $+($1,num) } }
 
on $*:TEXT:/([0-9]*)/giS:%agechan: if ($readini(age,$chan,$address($nick,2)) !isnum) { if ($regml(1) >= %agelimit) { writeini age $chan $address($nick,2) $regml(1) | $remove(timer $nick,$chr(32)) off | $remove(timer $nick 30,$chr(32)) off | msg $chan thank you, i will remember that, :) | unset %chan | unset %nick } | if ($regml(1) < %agelimit) { writeini age $chan $address($nick,2) $regml(1) | kick $chan $nick sorry, too young. | $remove(timer $nick,$chr(32)) off | $remove(timer $nick 30,$chr(32)) off } }
on *:TEXT:!erase:%agechan: if ($readini(age,$chan,$address($nick,2)) isnum) { if ($readini(age,$chan,$address($nick,2)) >= %agelimit) { writeini age $chan $address($nick,2) moo | msg $chan record successfully erased. } }
#age end
 
 
alias agelimit { set %agechan $?"What channel has the age limit?" | set %agelimit $?"What is the age limit?" | .enable #age | set %age1 1 }
 

Commenting Options