Code:

# CHAN INVITE V1.1 BY DREAMTEAM/PERPLEX## this is maybe one of the best invite scripts ever.# tell me which other invite script supports blowcrypt WITHOUT# another script? this one also supports warnmsg/kick/kickban# if a user invites himself more than one time.# fully configurable, total secure.## commands:## msg: # !invite <userpass>## config:# set this to your invite chanset ICHAN "#***"# which flag is needed to get invitedset IFLAG "X"# set your group name hereset invgroup "Idler"# set to 1 for blowcrypt, 0 for plainset invblow 0# enter your blowcrypt key belowset invblowkey($ICHAN) "Nutte"# nick tracking# 0 = disabled# 1 = warn msgs only# 2 = 1 + kicking# 3 = 2 + banset invnt 1# what reason should the ban haveset invcom "PERPLEX.CHAN.iNViTE"###########################################################################set invver "V1.1"bind msg - !invite msg:invbind pub - +OK invencryptedincominghandlerproc msg:inv {nick uhost hand arg} {global ICHAN IFLAG invblow invgroup invnt invkb invcom botnickset passw [lindex $arg end]# Startingif {$arg == ""} {return 0}# Check for valid userif { [validuser $hand] == 0 } {if {$invblow == 0} {putserv "PRIVMSG $ICHAN :Not Inviting \002$nick!$uhost\002 (He is not a $invgroup Member.)."putserv "NOTICE $nick :You are not authorized to use this command."} else {invputblow "PRIVMSG $ICHAN :Not Inviting \002$nick!$uhost\002 (He is not a $invgroup Member.)."putserv "NOTICE $nick :You are not authorized to use this command."}return 0# Check for valid password} elseif { [passwdok $hand $passw] == 0 } {if {$invblow == 0} {putserv "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of wrong password."putserv "NOTICE $nick :This password is wrong."} else {invputblow "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of wrong password."putserv "NOTICE $nick :This password is wrong."}return 0# Check for valid hostmask} elseif { [finduser $uhost] eq "$hand" } {if {$invblow == 0} {putserv "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of wrong hostmask."putserv "NOTICE $nick :Your current hostmask is not added. Contact an @."} else {invputblow "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of wrong hostmask."putserv "NOTICE $nick :Your current hostmask is not added. Contact an @."}return 0# Check for valid flag} elseif { [matchattr $hand $IFLAG] == 0 } {if {$invblow == 0} {putserv "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of missing flag."putserv "NOTICE $nick :You have not the right Flag. Contact an @."} else {invputblow "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of missing flag."putserv "NOTICE $nick :You have not the right Flag. Contact an @."}return 0# Check if the user isn't already there} elseif { [handonchan $hand $ICHAN] == 1} {if {$invnt != 0} {    set onick [hand2nick $hand $ICHAN]    if {$invnt == 2} {putquick "KICK $ICHAN $onick"    }     if {$invnt == 3} {set host "*![getchanhost $onick $ICHAN]"chattr $hand -Xnewchanban $ICHAN $host $botnick $invcomputquick "KICK $ICHAN $onick"    }}        if {$invblow == 0} {                        putserv "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause he is already here."                        putserv "NOTICE $nick :You already are on the chan."        } else {                        invputblow "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause he is already here."                        putserv "NOTICE $nick :You already are on the chan."}return 0# Invite user if all OK} else {if {$invblow == 0} {putserv "PRIVMSG $ICHAN : Inviting \002$hand\002 ($nick!$uhost)."putserv "INVITE $nick $ICHAN"} else {invputblow "PRIVMSG $ICHAN : Inviting \002$hand\002 ($nick!$uhost)."putserv "INVITE $nick $ICHAN"}}}# blowfish part beginningproc invputblow {text {option ""}} {global invblowkeyif {$option==""} {if {[lindex $text 0]=="PRIVMSG" && [info exists invblowkey([string tolower [lindex $text 1]])]} {putserv "PRIVMSG [lindex $text 1] :+OK [encrypt $invblowkey([string tolower [lindex $text 1]]) [string trimleft [join [lrange $text 2 end]] :]]"} else {putserv $text}} else {  if {[lindex $text 0]=="PRIVMSG" && [info exists invblowkey([string tolower [lindex $text 1]])]} {putserv "PRIVMSG [lindex $text 1] :+OK [encrypt $invblowkey([string tolower [lindex $text 1]]) [string trimleft [join [lrange $text 2 end]] :]]" $option} else {putserv $text $option}}}proc invencryptedincominghandler {nick host hand chan arg} {global invblowkeyif {![info exists invblowkey([string tolower $chan])]} {return}set tmp [decrypt $invblowkey([string tolower $chan]) $arg]foreach item [binds pub] {if {[lindex $item 2]=="+OK"} {continue}if {[lindex $item 1]!="-|-"} {if {![matchattr $hand [lindex $item 1] $chan]} {continue}}if {[lindex $item 2]==[lindex $tmp 0]} {[lindex $item 4] $nick $host $hand $chan [lrange $tmp 1 end]} }}putlog "CHAN INVITE $invver BY THE TEAM-PERPLEX DREAMTEAM LOADED."