as a start, try this
Code:
on *:text:!code *:#:{
  if (%code) { $iif($2 == %code,msg $chan code confirmed,msg $chan $1- Does Not Match) }
  if (!%code) { 
    set -u10 %code $r(1,9999)
    msg $chan Current code: %code
  }
}