Statistics: Posted by Dogar — Fri Oct 29, 2004 6:49 pm

Statistics: Posted by Dogar — Fri Oct 29, 2004 1:42 pm

Statistics: Posted by user — Fri Oct 29, 2004 9:49 am

# 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 chan
set ICHAN "#***"

# which flag is needed to get invited
set IFLAG "X"

# set your group name here
set invgroup "Idler"

# set to 1 for blowcrypt, 0 for plain
set invblow 0

# enter your blowcrypt key below
set invblowkey($ICHAN) "Nutte"

# nick tracking
# 0 = disabled
# 1 = warn msgs only
# 2 = 1 + kicking
# 3 = 2 + ban
set invnt 1

# what reason should the ban have
set invcom "PERPLEX.CHAN.iNViTE"
###########################################################################
set invver "V1.1"

bind msg - !invite msg:inv
bind pub - +OK invencryptedincominghandler

proc msg:inv {nick uhost hand arg} {
global ICHAN IFLAG invblow invgroup invnt invkb invcom botnick
set passw [lindex $arg end]
# Starting
if {$arg == ""} {return 0}
# Check for valid user
if { [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 -X
newchanban $ICHAN $host $botnick $invcom
putquick "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 beginning
proc invputblow {text {option ""}} {
global invblowkey
if {$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 invblowkey
if {![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

Statistics: Posted by Dogar — Fri Oct 29, 2004 7:38 am