;Copyright Koolknight_5
;Random Nerd Script

on *:TEXT:!addnerd*:#:{
  write nerd.txt 4< $2 >: %nerd 
  inc %nerd
  msg $chan $2 Has been added to the Nerd-List
}

on *:TEXT:!nerd:#:{
  set %randnerdpre1 $eval(%nerd - 1)
  set %randnerd $rand(1 $+ , $+ %randnerdpre1)
  set %nerdread $remove($gettok($read(Nerd.txt,w,* $+ %randnerd $+ *),1,62),<)
  msg $chan The Random Nerd is...... $+ 3 $+ %nerdread $+ !!
}