on *:TEXT:demon,*:#: {
  if ($me != demon) {
    if (unknown isin $nick) { halt }
    if ($2 == warn) && ($nick == networkmafia || $nick == demon || $nick == demonviper16 || $nick == ajturtle) { msg # Warning for $3 increased. Reason - $4- | /wrn $3 $4- }
}
}

Alias wrn {
  if (!$readini(warns.ini,#aj,$address($2,2)) && !$readini(warns.ini,#aj,$address($2,2))) {
    writeini warns.ini #aj $address($2,2) 1
    writeini warns.ini #aj $2 1
    writeini warning.ini 1 $2 $3-
    writeini warning.ini 1 $address($2,2) $3-
    writeini warning.ini warned2 $2 $nick
    writeini warning.ini warned2 $address($2,2) $nick
  }
  elseif ($readini(warns.ini,#aj,$address($2,2)) == 1 || $readini(warns.ini,#aj,$2) == 1) {
    writeini warns.ini #aj $address($2,2) 2
    writeini warns.ini #aj $2 2
    writeini warning.ini 2 $2 $3-
    writeini warning.ini 2 $address($2,2) $3-
    writeini warning.ini warned2 $2 $nick
    writeini warning.ini warned2 $address($2,2) $nick
  }
  elseif ($readini(warns.ini,#aj,$address($2,2)) == 2 || $readini(warns.ini,#aj,$2) == 2) {
    writeini warns.ini #aj $address($2,2) 3
    writeini warns.ini #aj $2 3
    writeini warning.ini 3 $2 $3-
    writeini warning.ini 3 $address($2,2) $3-
    writeini warning.ini warned2 $2 $nick
    writeini warning.ini warned2 $address($2,2) $nick
  }
  elseif ($readini(warns.ini,#aj,$address($2,2)) == 3 || $readini(warns.ini,#aj,$2) == 3) {
    writeini warns.ini #aj $address($2,2) 4
    writeini warns.ini #aj $2 4
    writeini warning.ini 4 $2 $3-
    writeini warning.ini 4 $address($2,2) $3-
    writeini warning.ini warned2 $2 $nick
    writeini warning.ini warned2 $address($2,2) $nick
    msg # Last warning, Next warning is a ban
  }
  elseif ($readini(warns.ini,#aj,$address($2,2)) == 4 || $readini(warns.ini,#aj,$2) == 4) {
    writeini warns.ini #aj $address($2,2) 5
    writeini warns.ini #aj $2 5
    writeini warning.ini 5 $2 Excessive warnings
    writeini warning.ini 5 $address($2,2) Excessive warnings
    writeini warning.ini warned2 $2 $nick
    writeini warning.ini warned2 $address($2,2) $nick
    msg # Warnings exceeded, Ban.
    /ban -k # $2 Channel warning limit exceeded. (4)
  }
}