Code: Select all
proc msg_lol_permident {nick host hand arg} {
set arg [charfilter $arg]
if {$hand == "*"} {return 0}
global botnick
if {[llength $arg] < 1} {
puthelp "PRIVMSG $nick :\002Usage:\002 permident <password> \[nick!user@host\]"
return 0
}
set mask [lindex $arg 1]
if {![passwdok $hand [lindex $arg 0]]} {
puthelp "PRIVMSG $nick :Invalid password \002Usage:\002 permident <password> \[user@host\]"
return 0
}
if {[passwdok $hand ""]} {
puthelp "PRIVMSG $nick :You must set a password: pass <your_new_password>"
return 0
}
set find 0
foreach ch [channels] {
if {[onchan $nick $ch]} {
set find 1
break
}
}
if {$find == 0 && $mask == ""} {
puthelp "PRIVMSG $nick :You must be in one of my chans to be permidentified, or use: permident <password> <us$
return 0
}
if {$mask == ""} {
setuser $hand xtra permident *!$host
} {
setuser $hand xtra permident $mask
}
puthelp "PRIVMSG $nick :You are now permidentified with this mask: [getuser $hand xtra permident]. Use \002unpermiden"
}
I try this
Code: Select all
bind v|v !permident pub_lol_permident
proc pub_lol_permident {nick host hand chan arg} {
set arg [charfilter $arg]
if {$hand == "*"} {return 0}
global botnick
set mask [lindex $arg 1]
if {$mask == ""} {
setuser $hand xtra permident *!$host
} {
setuser $hand xtra permident $mask
}
puthelp "PRIVMSG $nick :You are now permidentified with this mask: [getuser $hand xtra permident]. Use \002unpermident"
}
[18:49] bad type, should be one of: act, away, bcst, bot, chat, chjn, chof, chon, chpt, ctcp, ctcr, dcc, disc, evnt, filt, flud, join, kick, link, load, mode, msg, msgm, need, nick, nkch, notc, note, part, pub, pubm, raw, rejn, sign, splt, time, topc, unld, wall
while executing
"bind v|v !permident pub_lol_permident "
(file "ciumegu.tcl" line 4940)
invoked from within
"source ciumegu.tcl"
(file "eggdrop.conf" line 1324)
[18:49] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)