autoidentify.tcl

## Descripcion:  

## my simple try to Allnet nickserv@services.allnetwork.org identify 

## and my first try too

# TCL edited by dede

# Goger Identify  TCL

putlog "auto identify to nickserv tcl is loaded"

### Setup

# set nick n password to be identified - you must edit this

set nickname "nick"

set password "pass"

### Code

# Change the m to another flag if you like. 

bind pub m !identify  do_identify

bind pub m !release do_release

bind pub m !ghost do_ghost

#    # # # # ## do not edit below # ### # # ## 

#identify  starts #

proc do_identify {nick host handle chan text} { 

global nickname password

putquick "PRIVMSG nickserv@services.allnetwork.org :identify $nickname $password" 

putserv "NOTICE $nick :identifying to nickserv@services.allnetwork.org..."

}

#ends here #

# nick release starts here #

proc do_release {nick host handle chan text} {

global nickname password

putquick "PRIVMSG nickserv@services.allnetwork.org :release $nickname $password"

putserv "NOTICE $nick :releasing nick from  nickserv@services.allnetwork.org..."

}

#ends here #

# nick Ghosting starts here #

proc do_ghost {nick host handle chan text} {

global nickname password

putquick "PRIVMSG nickserv@services.allnetwork.org :ghost $nickname $password"

putserv "NOTICE $nick :Ghosting your Bot nick"

}

#ends here #

set init-server {  

putquick "PRIVMSG nickserv@services.allnetwork.org :identify $nickname $password" 

putserv "MODE $nick +i"

}