cdcyborg commented on a Page, Nickserv identify script  -  Feb 18, 2008

My Code:
I Coded it all :)

on *:start: {
hmake Config 10
hmake IpLog 25
hload IpLog IpLog.hash
hload Config Config.hash
window -zk[0] @Raws
window -n @Raws
if ($hget(Config,Servers) == $null) { setupserver $input(There Is No Servers To Connect To.) | halt }
server $gettok($hget(Config,Servers),1,32)
set %svrnum 2
:top
if ($gettok($hget(Config,Servers),%svrnum,32) == $null) { unset %svrnum | halt }
server -m $gettok($hget(Config,Servers),%svrnum,32)
inc %svrnum 1
goto top
}

on *:connect: {
if ($hget($network) == $null) {
hmake $network 10
}
if ($exists( $+ $network $+ .hash) == $true) { hload $network $network $+ .hash }
perform
set -u10 %startup yes
}

alias perform {
if ($hget($network,Nickname) == $null) { set %setupsvr $network | setupserver | halt }
if ($hget($network,Channels)) { join $hget($network,Channels) }
nick $iif(%tempnick,%tempnick,$hget($network,Nickname))
ns identify $dcode($hget($network,Password),m)
if ($hget($network,OperNick)) {
oper $dcode($hget($network,OperNick)) $dcode($hget($network,OperPass))
/mode $me +iwxoghaAsNWtTq
/mode $me +s +cFkevGnNqsSo
}
window -n \"status window\"
}

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.