As the title says, it warns somebody that does something wrong or breaks rules.

Only OPs can use it.

Please report if there is any bug!

; Warn System Beta 1.0
; By Hammer
; gs.mindfreakers.net #Hawkee
; Variable Version

on *:TEXT:!altwarn*:#: {
  if ($nick isop #) { 
    if ($2- == $null) {
      msg $chan Format : !altwarn <Nickname> - Will Increase Warn Level of Given Nickname [Max Level : 10].
      halt
    }
    if (%WarnLevel. [ $+ [ $2 ] ] == 10) { 
      msg $chan $2 Has 10 Warns Already. 
      halt 
    }
    if ($3 > 10) { msg $chan The Level Must Be Less Than 10 }
    else { 
      INC %WarnLevel. [ $+ [ $2 ] ] $3
      if ($3 == $null) {
        msg $chan Warn Level of $2 Has Been Increased By 1.
        if (%WarnLevel. [ $+ [ $2 ] ] == 10) { 
          msg $chan $2 Has 10 Warns Now. 
        }
      }
      else {
        msg $chan Warn Level of $2 Has Been Increased By $3.
        if (%WarnLevel. [ $+ [ $2 ] ] == 10) { 
          msg $chan $2 Has 10 Warns Now. 
        }
      }
    }
  }
  else {
    msg $chan You're Not An Operator. You Cannot Use This Command.
  }
}
on *:TEXT:!decwarn*:#: {
  if ($nick isop #) {
    if ($2- == $null) {
      msg $chan Format : !decwarn <Nickname> <Level> - Will Decrease Warn Level of Given Nickname.
      halt
    }
    DEC %WarnLevel. [ $+ [ $2 ] ] $3
    if ($3 == $null) {
      msg $chan Warn Level of $2 Has Been Decreased By 1.
    }
    else {
      msg $chan Warn Level of $2 Has Been Decreased By $3.
    }
  }
  else {
    msg $chan You're Not An Operator. You Cannot Use This Command.
  }
}
on *:TEXT:!showwarn*:#: {
  if ($nick isop #) {
    if ($2- == $null) {
      msg $chan Format : !showwarn <Nickname> - Will Show Warn Level of Given Nickname.
      halt
    }
    if (%WarnLevel. [ $+ [ $2 ] ] == $null) {
      msg $chan $2 Has 0 Warn(s).
    }
    else {
      msg $chan $2 Has %WarnLevel. [ $+ [ $2 ] ] Warn(s).
    }
  }   
  else {
    msg $chan You're Not An Operator. You Cannot Use This Command.
  }
}

; INI File Version

on *:TEXT:!altwarn*:#: {
  if ($nick isop #) { 
    if ($2- == $null) {
      msg $chan Format : !altwarn <Nickname> - Will Increase Warn Level of Given Nickname [Max Level : 10].
      halt
    }
    if ($readini(Warns.ini,n,Warns,$2) == 10) { 
      msg $chan $2 Has 10 Warns Already. 
      halt 
    }
    if ($3 > 10) { msg $chan The Level Must Be Less Than 10 }
    else { 
      set %warn $readini(Warns.ini,n,Warns,$2)
      INC %warn $3
      writeini Warns.ini Warns $2 %warn
      unset %warn
      if ($3 == $null) {
        msg $chan Warn Level of $2 Has Been Increased By 1.
        if ($readini(Warns.ini,n,Warns,$2) == 10) { 
          msg $chan $2 Has 10 Warns Now. 
        }
      }
      else {
        msg $chan Warn Level of $2 Has Been Increased By $3.
        if ($readini(Warns.ini,n,Warns,$2) == 10) { 
          msg $chan $2 Has 10 Warns Now. 
        }
      }
    }
  }
  else {
    msg $chan You're Not An Operator. You Cannot Use This Command.
  }
}
on *:TEXT:!decwarn*:#: {
  if ($nick isop #) {
    if ($2- == $null) {
      msg $chan Format : !decwarn <Nickname> <Level> - Will Decrease Warn Level of Given Nickname.
      halt
    }
    else {
      set %warn $readini(Warns.ini,n,Warns,$2)
      DEC %warn $3
      writeini Warns.ini Warns $2 %warn
      unset %warn
      if ($3 == $null) {
        msg $chan Warn Level of $2 Has Been Decreased By 1.
      }
      else {
        msg $chan Warn Level of $2 Has Been Decreased By $3.
      }
    }
  }
  else {
    msg $chan You're Not An Operator. You Cannot Use This Command.
  }
}
on *:TEXT:!showwarn*:#: {
  if ($nick isop #) {
    if ($2- == $null) {
      msg $chan Format : !showwarn <Nickname> - Will Show Warn Level of Given Nickname.
      halt
    }
    if ($readini(Warns.ini,n,Warns,$2) == $null) {
      msg $chan $2 Has 0 Warn(s).
      halt
    }
    elseif ($readini(Warns.ini,n,Warns,$2) != $null) {
      msg $chan $2 Has $readini(Warns.ini,n,Warns,$2) Warn(s).
      halt
    }
  }   
  else {
    msg $chan You're Not An Operator. You Cannot Use This Command.
  }
}