Stuff

on *:join:#:{ var %i = 1 
  while (%i <= $lines(infoline.txt)) { 
    if ($gettok($read(infoline.txt,%i),1,190) == $gettok($address($nick,2),2,64)) { 
      set %rinfo.num $+ $nick $numtok($read(infoline.txt,%i),190) 
      set %rinfo.rand $+ $nick $rand(2,%rinfo.num [ $+ [ $nick ] ]) 
      set %rinfo.value $+ $nick $gettok($read(infoline.txt,%i),%rinfo.rand [ $+ [ $nick ] ],190) 
    } 
  inc %i  } 
  $iif(%rinfo.value [ $+ [ $nick ] ],msg $chan Random info line for$nick $+ : 1 ( $+ $calc(%rinfo.rand [ $+ [ $nick ] ] - 1) $+ / $+ $calc(%rinfo.num [ $+ [ $nick ] ] - 1)  $+ )   $+ %rinfo.value [ $+ [ $nick ] ])
  unset %rinfo*
} 
alias addrinfo { var %i = 1 
  while (%i <= $lines(infoline.txt)) {
    if ($gettok($read(infoline.txt,%i),1,190) == $1) {  
      set %infoold $read(infoline.txt,%i)
      write -dl $+ %i infoline.txt
      write infoline.txt %infoold $+ $chr(190) $+ $2-
      set %i $lines(infoline.txt)
      var %infnick = 1
    }
    inc %i 
  }
  if (%infnick == $null) { 
    write infoline.txt $1 $+ $chr(190) $+ $2-  
  } 
  unset %infl*
}
alias delinfo { var %i = 1 
  while (%i <= $lines(infoline.txt)) { 
    if ($gettok($read(infoline.txt,%i),1,190) == $1) { 
      write -dl $+ %i infoline.txt
    }
    inc %i 
} }
menu nicklist {
  .infoline
  .addinfo:addrinfo $gettok($address($$1,2),2,64) $$?="info"
  .delinfolines:delinfo $gettok($address($$1,2),2,64)
  .run infoline-file://run infoline.txt
}