on *:TEXT:!reg*:#:{ write(applist.txt $nick) {
    msg $chan $nick wants to register to $chan
  msg $chan if you accept this type !accept and !decline to decline }
}
on *:TEXT:!accept*:#:{ inc %acc $+ $chan }
on *:TEXT:!decline*:#:{ inc %dec $+ $chan }
on *:TEXT:!regend*:#:{ msg $chan there are %acc accepts and %dec declines {
    if (%acc > %dec) {
      msg $nick has been accepted into $chan 
    write(reglist.txt $nick) }
    esle { msg $chan $nick has been declined from $chan 
      write(declinelist.txt $nick) 
      set %acc 0
    set %dec 0 }
  }
}
on *:TEXT:!reglist*:#:{ if ($nick == Peter) $msg $chan $read(reglist.txt) }
on *:TEXT:!declist*:#:{ if ($nick == Peter) $msg $chan $read(declinelist.txt) }
on *:TEXT:!applist*:#:{ if ($nick == Peter) $msg $chan $read(applist.txt) }