egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-02-05T03:54:59-04:00 https://forum.eggheads.org/app.php/feed/topic/6755 2004-02-05T03:54:59-04:00 2004-02-05T03:54:59-04:00 https://forum.eggheads.org/viewtopic.php?p=33226#p33226 <![CDATA[permident]]> Statistics: Posted by duofruo — Thu Feb 05, 2004 3:54 am

]]> 2004-02-01T16:00:47-04:00 2004-02-01T16:00:47-04:00 https://forum.eggheads.org/viewtopic.php?p=33150#p33150 <![CDATA[permident]]> Statistics: Posted by caesar — Sun Feb 01, 2004 4:00 pm

]]> 2004-02-01T14:53:29-04:00 2004-02-01T14:53:29-04:00 https://forum.eggheads.org/viewtopic.php?p=33144#p33144 <![CDATA[permident]]> Statistics: Posted by duofruo — Sun Feb 01, 2004 2:53 pm

]]> 2004-02-01T13:51:44-04:00 2004-02-01T13:51:44-04:00 https://forum.eggheads.org/viewtopic.php?p=33140#p33140 <![CDATA[permident]]> Statistics: Posted by duofruo — Sun Feb 01, 2004 1:51 pm

]]> 2004-02-01T13:20:59-04:00 2004-02-01T13:20:59-04:00 https://forum.eggheads.org/viewtopic.php?p=33139#p33139 <![CDATA[permident]]> pub v|v !permident pub_lol_permident
what about that ?

Statistics: Posted by GodOfSuicide — Sun Feb 01, 2004 1:20 pm

]]> 2004-02-01T12:52:59-04:00 2004-02-01T12:52:59-04:00 https://forum.eggheads.org/viewtopic.php?p=33138#p33138 <![CDATA[permident]]>

Code: 

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"}
This a permident script from lol. This works only whith /msg $botnick permident pass . I wana insert a pub command of !permident , that will set the permident of the user whithout puting the pass ( of course )

I try this

Code: 

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"}
I try to make, but shet. I got errors like
[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)

Statistics: Posted by duofruo — Sun Feb 01, 2004 12:52 pm

]]>