Forums Scripts & Popups asking for a simple script

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
  }
}

on *:text:!code *:#:{
  if (%code) { $iif($2 == %code,msg $chan code confirmed,msg $chan $1- Does Not Match) }
  if (!%code) { 
    set -u10 %code $read(random.txt)
    msg $chan Current code: %code
  }
}

 on *:text:!code:#:{
set %code $read(code.txt)
.msg $chan security code: %code
}
on *:text:*:#:{
if $1 == %code {
.msg $chan code confirmed
}
}
  

on *:text:!code:#:{
  if (%occupied == 0) || (!%occupied) {
    set %occupied 1
    set %nick $nick
    set %chan $chan
    set %code $read(code.txt)
    msg $chan Security code: %code
    .timercode 1 10 /timeout
    .enable #codecheck
  }
  else msg $chan $nick bot is already working ;)
}
#codecheck off
on *:text:&:#:{
  if ($nick == %nick) {
    if ($1 == %code) {
      msg $chan code confirmed
      set %occupied 0
      timercode off
    }
    else {
      msg $chan %nick $+ , $1 $+ : wrong code
      msg $chan %nick repeat operation
      set %occupied 0
      timercode off
    }
    .disable #codecheck
  }
}
#codecheck end
alias -l /timeout {
  set %occupied 0
  msg %chan %nick $+ , time out, sorry
  msg %chan %nick repeat operation 
  .disable #codecheck
}