Code:

  dnslookup <ip-address/hostname> <proc> [[arg1] [arg2] ... [argN]]    Description: This issues an asynchronous dns lookup request. The      command will block if dns module is not loaded; otherwise it will      either return immediately or immediately call the specified proc      (e.g. if the lookup is already cached).      As soon as the request completes, the specified proc will be called      as follows:       <proc> <ipaddress> <hostname> <status> [[arg1] [arg2] ... [argN]]      status is 1 if the lookup was successful and 0 if it wasn't. All      additional parameters (called arg1, arg2 and argN above) get      appended to the proc's other parameters.    Returns: nothing    Module: core

Code:

nick - 255.255.255.0nick2 - 192.168.1.100etc

Code:

set ver "1.1-opp"set dumpfile "/nicklist.txt"set channel "#channelname"# Bind Events we want to catch...# Note: Remove the following 6 lines for timer only update. Reccomended for larger channels.bind sign - "$channel %" nicklist:makebind part - "$channel %" nicklist:makebind splt - "$channel %" nicklist:makebind join - "$channel %" nicklist:makebind kick - "$channel %" nicklist:makebind nick - "$channel %" nicklist:makebind mode - "$channel %" nicklist:makebind raw - "353" nicklist_opp:makeproc nicklist:make {args} {global channelputserv "NAMES $channel"}proc nicklist_opp:make {from keyword argz} {global dumpfile channel botnickset nicklist [split [lindex [split [string trim $argz] ":"] 1] " "]set templist ""set ownerlist ""set protlist ""set oplist ""set hoplist ""set voicelist ""set userlist ""foreach user $nicklist {if {[string first "~" $user] == 0} {lappend ownerlist $user} elseif {[string first "!" $user] == 0} {lappend protlist $user} elseif {[string first "@" $user] == 0} {lappend oplist $user} elseif {[string first "%" $user] == 0} {lappend hoplist $user} elseif {[string first "+" $user] == 0} {lappend voicelist $user} else {lappend userlist $user}}set ownerlist [lsort -dictionary $ownerlist]set protlist [lsort -dictionary $protlist]set oplist [lsort -dictionary $oplist]set hoplist [lsort -dictionary $hoplist]set voicelist [lsort -dictionary $voicelist]set userlist [lsort -dictionary $userlist]foreach user $ownerlist {lappend templist $user}foreach user $protlist {lappend templist $user}foreach user $oplist {lappend templist $user}foreach user $hoplist {lappend templist $user}foreach user $voicelist {lappend templist $user}foreach user $userlist {lappend templist $user}set outputfile [open $dumpfile w]foreach user $templist {puts $outputfile $user}close $outputfileputlog "Saving $channel NickList..."return 1}if {![info exists nicklist_running]} {timer 60 nicklist:makeset nicklist_running 1}nicklist:makeputlog "Write Channel Nicklist to File v$ver by SpOoK loaded."