[Modify script] Spam Script

[zappu]

Salutare! As avea si eu o problema, legat despre acest script, problema ar fi ca eu atunci cand dau pe canal .spam nick merge, dar daca dau .spam *!ident@host nu mai merge imi da eroarea urmatoare: Tcl error [pub:spam]: can't read "mask": no such variable . Poate-mi spuneti voi cam ce nu este corect aici de-mi da asa.

proc pub:spam {nickname hostname handle channel text} {
global botnick edu
set bnick [lindex [split $text] 0]
if {[isbotnick $bnick]} {
putquick "NOTICE $nickname :$edu(dontban)"
return 0
}
if {![botisop $channel]} {
putquick "NOTICE $nickname :$edu(noop)"
return 0
}
if {[onchan $bnick $channel]} {
set mask *!*@[lindex [split [getchanhost $bnick $channel] "@"] 1]
}
if {$mask == ""} {
putquick "NOTICE $nickname :SYNTAX: spam <nick>"
return 0
}
if {![onchan $bnick $channel]} {
set mask [lindex $text 1]
}

newchanban $channel $mask $handle $edu(spam) [expr $edu(spamtime) * 60]
putserv "MODE $channel +b $mask"
putserv "KICK $channel $bnick :$edu(spam)"
putquick "PRIVMSG #canal :$nickname banned $mask for 14 days (spamming without our consent)"
}

[arcade]

inlocuieste asta:

if {$mask == ""} {

cu asta:

 if {!$mask} {

[zappu]

Este o problema ca am modificat la ceea ce mi-ai scris tu s-amu imi da cand dau: [15:55] <Zale> .spam *!*@87.3.4.5 , imi da acelasi lucru: Tcl error [pub:spam]: can't read "mask": no such variable , ce poate fi?

[lsn]

proc pub:spam {nickname hostname handle channel text} {
         global botnick edu
         set bnick [lindex [split $text] 0]
         if {[isbotnick $bnick]} {
                putquick "NOTICE $nickname :$edu(dontban)"
                return 0
         }
         if {![botisop $channel]} {
                putquick "NOTICE $nickname :$edu(noop)"
                return 0
         }
        if {[onchan $bnick $channel]} {
                set mask *!*@[lindex [split [getchanhost $bnick $channel] "@"] 1] 
       } else { set mask $bnick }
           if {![llength $mask]} {
              putquick "NOTICE $nickname :SYNTAX: spam <nick>"
            return 0
          }
    
  
       newchanban $channel $mask $handle $edu(spam) [expr $edu(spamtime) * 60]
       putserv "MODE $channel +b $mask"
       putserv "KICK $channel $bnick :$edu(spam)"
       putquick "PRIVMSG #canal :$nickname banned $mask for 14 days (spamming without our consent)"
}

[zappu]

Mersi mult pentru corectare, asta a mers perfect .

[zappu]

Gata l-am facut, merg amandoua amu .