Code:

proc aov:delete {nick uhost hand chan arg} { global aov sov set arg [split $arg] set chan [string tolower $chan] if {$arg == ""} { putserv "PRIVMSG $chan :Usage: !delaov <nick>"; return 0 }  set fp [open $sov r+]  set data [read -nonewline $fp]  close $fp  set sovlist [split $data "\n"]  set fp [open $aov r+]  set data [read -nonewline $fp]  close $fp  set aovlist [split $data "\n"]  #check if user has access level sov or founder  if {[matchattr $hand mn|mn $chan]} { set founder:ok 1 }  foreach person $sovlist {   if {[string equal -nocase "$nick:$chan" $person]} {    set sov:ok 1; break    }  }  foreach person $aovlist {   if {[string equal -nocase "$nick:$chan" $person]} {    set aov:ok 1; break    }  }  #if access level not sov or founder stop  if {![info exists founder:ok] || ![info exists sov:ok] || ![info exists aov:ok]} {   putserv "NOTICE $nick :You do not have access to modify the AOv list of $chan."   return 0  }  #check if access level is aov  foreach person $aovlist {   if {[string equal -nocase "$nick:$chan" $person]} {    set aov:user 1; break    }  }  #user has aov access  if {[info exists aov:user]} {   #if argument contains same nick as user   if {[string equal -nocase "[lindex $arg 0]:$chan" $nick:$chan]} {    #del nick from aov list    set user [string tolower [lindex $arg 0]]:$chan    set i [lsearch -exact [split [string tolower $aovlist]] [split $user]]    set fd [open $aov w+]    puts -nonewline $fd [join [lreplace $aovlist $i $i] "\n"]    close $fd    putserv "PRIVMSG $chan :[lindex $arg 0] has been successfully removed from the AOv list of $chan."    utimer 2 [list aov:on:del [lindex $arg 0] $chan]    return 0   } else {    putserv "NOTICE $nick :You do not have access to modify the AOv list of $chan."    return 0    }  }  #check if user is in sov or founder  foreach person $sovlist {   if {[string equal -nocase "$nick:$chan" $person]} {    set sov:found 1; break    }  }  #if user has sov or founder access level  if {[info exists sov:found] || [matchattr $hand mn|mn $chan]} {  #check if aov is in list or not   foreach person $aovlist {    if {[string equal -nocase "[lindex $arg 0]:$chan" $person]} {    set aov:found 1; break    }   }  #if aov is not in list stop  if {![info exists aov:found]} {   putserv "PRIVMSG $chan :[lindex $arg 0] was not found in the AOv list of $chan."   return 0  #if aov is in list then delete  } else {   set user [string tolower [lindex $arg 0]]:$chan   set i [lsearch -exact [split [string tolower $aovlist]] [split $user]]   set fd [open $aov w+]   puts -nonewline $fd [join [lreplace $aovlist $i $i] "\n"]   close $fd   putserv "PRIVMSG $chan :[lindex $arg 0] has been successfully removed from the AOv list of $chan."   utimer 2 [list aov:on:del [lindex $arg 0] $chan]   return 0  } }}

Code:

set arg [split $arg]set fp [open $sov r+] set data [read -nonewline $fp] close $fp set list [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} [string tolower $data]]]foreach person $list {if {[string match -nocase *$person* [lindex $arg 0]:$chan]} { set matchfound 1; break }}###OR###set arg [split $arg]set fp [open $sov r+] set data [read -nonewline $fp] close $fp set list [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} [string tolower $data]]]if {[string match -nocase *[lindex $arg 0]:$chan* $list]} { #do stuff}

Code:

proc aov:add {nick uhost hand chan arg} { global aov sov set arg [split $arg] if {$arg != ""} {  set fp [open $sov r+]  set data [read -nonewline $fp]  close $fp  set list [split $data "\n"]  if {[lsearch -exact [split [string tolower $list]] [string tolower [lindex $arg 0]:$chan]] != -1} {   putserv "PRIVMSG $chan :You are already a SOv on \002[string tolower $chan]\002. You cannot add yourself to the AOv list of \002[string tolower $chan]\002."   return 0  }  if {([lsearch -exact [split [string tolower $list]] [string tolower $nick:$chan]] != -1) || [matchattr $hand mn|mn $chan]} {   set user [string tolower [lindex $arg 0]:$chan]   set fp [open $aov r+]   set data [read -nonewline $fp]   close $fp   set list2 [split $data "\n"]   if {[lsearch -exact [split [string tolower $list2]] $user] == -1} {    set file [open $aov a+]    puts $file $user    close $file    putserv "PRIVMSG $chan :\002[lindex [split $arg] 0]\002 has been successfully added to the AOv list of \002[string tolower $chan]\002."    utimer 3 [list aov:on:add [lindex [split $arg] 0] $chan]    return 0   } else {     putserv "PRIVMSG $chan :\002[lindex [split $arg] 0]\002 already exists on the AOv list of \002[string tolower $chan]\002."     return 0     }   } else {      putserv "PRIVMSG $chan :You do not have access to modify the AOv list of \002[string tolower $chan]\002."; return 0      }   }}proc aov:delete {nick uhost hand chan arg} { global aov sov set arg [split $arg] if {$arg != ""} {  set fp [open $sov r+]  set data [read -nonewline $fp]  close $fp  set list [split $data "\n"]  set fp [open $aov r+]  set data [read -nonewline $fp]  close $fp  set list2 [split $data "\n"]  if {([lsearch -exact [split [string tolower $list]] [string tolower $nick:$chan]] != -1) || ([lsearch -exact [split [string tolower $list2]] [string tolower $nick:$chan]] != -1) || [matchattr $hand mn|mn $chan]} {   set user [string tolower [lindex $arg 0]:$chan]   set fd [open $aov w+]   if {[set i [lsearch -exact [split [string tolower $list2]] $user]] != -1} {     set fd [open $aov w+]     puts -nonewline $fd [join [lreplace $list2 $i $i] \n]     close $fd     putserv "PRIVMSG $chan :\002[lindex [split $arg] 0]\002 has been successfully removed from the AOv list of \002[string tolower $chan]\002."     utimer 3 [list aov:on:del [lindex $arg 0] $chan]   } else {     putserv "PRIVMSG $chan :\002[lindex [split $arg] 0]\002 was not found in the AOv list of \002[string tolower $chan]\002."     return 0     }   } else {     putserv "PRIVMSG $chan :You do not have access to modify the AOv list of \002[string tolower $chan]\002."    }  }}

Code:

set arg [split $arg]set user [join [string tolower [lindex $arg 0]:$chan]]###OR###set user [join [lindex $arg 0]:$chan]Since I think when using lsearch $list should be split, but the *pattern* can be a string, as I checked in the tcl manual, hence [join] and [string tolower] both produce a string.

Code:

proc aov:add {nick uhost hand chan arg} { global aov sov set arg [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $arg] if {$arg != ""} {  set fp [open $sov r+]  set data [read -nonewline $fp]  close $fp  set list [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $data]]  if {[lsearch -exact [string tolower $list] [string tolower [lindex $arg 0]]:[string tolower $chan]] != -1} {   putserv "PRIVMSG $chan :You are already a SOv on [string tolower $chan]. You cannot add yourself to the AOv list of [string tolower $chan]."   return 0  }  if {([lsearch -exact [string tolower $list] [string tolower $nick]:[string tolower $chan]] != -1) || [matchattr $hand mn|mn $chan]} {   set user [lindex $arg 0]:[string tolower $chan]   set fp [open $aov r+]   set data [read -nonewline $fp]   close $fp   set list2 [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $data]]   if {[lsearch -exact [string tolower $list2] [string tolower $user]] == -1} {    set file [open $aov a+]    puts $file $user    close $file    putserv "PRIVMSG $chan :[lindex $arg 0] has been successfully added to the AOv list of [string tolower $chan]."    utimer 3 [list aov:on:add [lindex $arg 0] $chan]    return 0   } else {     putserv "PRIVMSG $chan :[lindex $arg 0] already exists on the AOv list of [string tolower $chan]."     return 0     }   } else {      putserv "PRIVMSG $chan :You do not have access to modify the AOv list of [string tolower $chan]."; return 0      }   }}proc aov:delete {nick uhost hand chan arg} { global aov sov set arg [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $arg] if {[info exists list3]} { unset list3 } if {$arg != ""} {  set fp [open $sov r+]  set data [read -nonewline $fp]  close $fp  set list [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $data]]  set fp [open $aov r+]  set data [read -nonewline $fp]  close $fp  set list2 [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $data]]  if {([lsearch -exact [string tolower $list] [string tolower $nick]:[string tolower $chan]] != -1) || ([lsearch -exact [string tolower $list2] [string tolower $nick]:[string tolower $chan]] != -1) || [matchattr $hand mn|mn $chan]} {   set user [lindex $arg 0]:[string tolower $chan]   set fp [open $aov r+]   set data [read -nonewline $fp]   close $fp   set list3 [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $data]]   set fd [open $aov w+]   if {[set i [lsearch -exact [string tolower $list3] [string tolower $user]]] != -1} {     set fd [open $aov w+]     puts -nonewline $fd [join [lreplace $list3 $i $i] \n]     close $fd     putserv "PRIVMSG $chan :[lindex $arg 0] has been successfully removed from the AOv list of [string tolower $chan]."     utimer 3 [list aov:on:del [lindex $arg 0] $chan]   } else {     putserv "PRIVMSG $chan :[lindex $arg 0] was not found in the AOv list of [string tolower $chan]."     return 0     }   } else {     putserv "PRIVMSG $chan :You do not have access to modify the AOv list of [string tolower $chan]."    }   if {[info exists list3]} { close $fd; unset list3; return 0 }  }}

Code:

proc sov:wipe {nick uhost hand chan arg} { global aov sov  set fp [open $sov r+]  set data [read -nonewline $fp]  close $fp  set list [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $data]]  if {[matchattr $hand mn|mn $chan]} {  set fd [open $sov w+]  set list3 [list]   foreach user $list {    if {[set i [lsearch -exact [string tolower $list] [string tolower $user]]] != -1} {     set list3 [lreplace $list3 $i $i]     }   }   puts -nonewline $fd [join $list3 "\n"]   putserv "PRIVMSG $chan :The SOv list of [string tolower $chan] has been wiped successfully."   close $fd  }  set fp [open $aov r+]  set data [read -nonewline $fp]  close $fp  set list2 [split [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $data]]  if {([lsearch -exact [string tolower $list] [string tolower $nick]:[string tolower $chan]] != -1) || ([lsearch -exact [string tolower $list2] [string tolower $nick]:[string tolower $chan]] != -1)} {   putserv "PRIVMSG $chan :You do not have access to wipe the SOv list of [string tolower $chan]."   return 0   }}