on $500:text:/^[.!@&]warn /Si:#:{
  If (!$read(file,s,$2)) { halt }
  If ($readini(warns.ini,warned,$2) > 2) { notice $nick 7 $2 14Already has 3 warns }
  elseif ($readini(warns.ini,warned,$2) == 1) { 
    writeini warns.ini Warned $2 2
    writeini warnreasons2.ini Reasons $2 $3-
    writeini warnick2.ini Nicks $2 $nick 
  msg %monitor 3[4-Warn Change-3] 7 $2 $+ 's 14 warn level has been changed to 7 2. 14 By 7 $+ $nick .14Reason : $3-  }
  elseif ($readini(warns.ini,warned,$2) == 2) { writeini warns.ini Warned $2 3 
  writeini warnreasons3.ini Reasons $2 $3-  |  writeini warnick3.ini Nicks $2 $nick | msg %monitor 3[4-Warn Change-3] 7 $2 $+ 's 14 warn level has been changed to 7 3.14 By 7 $+ $nick .14Reason : $3- }
  elseif (!$readini(warns.ini,warned,$2)) { writeini warns.ini warned $2 1 | writeini warnreasons1.ini Reasons $2 $3- | writeini warnick1.ini Nicks $2 $nick |  msg %monitor  3[4-Warn Change-3] 7 $2 $+ 's 14 warn level has been changed to 7 1. 14 By 7 $+ $nick .14Reason : $3-  
  }
}