permident

[duofruo]

The beginner need another thing

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"
}

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: 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"
}

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)

[GodOfSuicide]

bind pub v|v !permident pub_lol_permident
what about that ?

[duofruo]

lol. so stupid.

[duofruo]

i edit that but stil no work. any sugestion ?>

[caesar]

What error have you got this time?

[duofruo]

something such NO USER