Untitled

			set number [lindex $parameters 1]
			set aopfile [open "users/$client.aop" r]
			set count 0
			while { [gets $aopfile line] >= 0 } {
				set aops($count) $line
				incr count
			}
			close $aopfile
			bncnotc "Deleted auto-op with number $number."
			set aopfile [open "users/$client.aop" w]
			for {set i 0} {$i <= $count} {incr i} {
				if {$i != $number} {
					bncnotc "#$i: autoop for [lindex $aops($i) 0] on [lindex $aops($i) 1]"
					puts $aopfile "[lindex $aops($i) 0] [lindex $aops($i) 1]"
				}
			}
			close $aopfile