Sa Aduag ink 2 - 3 comenzi

[Setting]

###
# SETINGS
###
# reply when someone tries to ban the robot:
set edu(dontban) "Access denied"

###
# reply when someone uses the public commands and the robot is not opped:
set edu(noop) "I'm not opped!"

###
# dr reason:
set edu(w) "4Comportamentul"
set edu(b) "1B3anned. 12For 4UnBaN 12Join 4#HelpCService 6!"
###
# dr ban time (hours):
set edu(wtime) "1"
set edu(btime) "0"
set prechar "."
###
#BINDS
bind pub o|o !w pub:w
bind pub o|o !b pub:b
bind pub o|o !h pub:h

## Comanda !h
set h {
"4Comenzi Disponibile 3:12 !w 3< nick > 1, 12!b 3< nick > "

}

###
# CODE

setudef flag tool

proc pub:w {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: w <nick>"
}
putserv "KICK $channel $bnick $edu(w)"

}
proc pub:b {nickname hostname handle channel text} {
global botnick edu
set bnick [lindex [split $text] 0]
set reason [lrange $text 1 end]
set mask [lindex [split $text] 0]
if {$reason == ""} { set reason "1B3anned. 12For 4UnBaN 12Join 4#HelpCService 6!" }
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: d <nick>"
}

newchanban $channel $mask $handle $reason [expr $edu(btime) * 60]
putquick "MODE $channel +b $mask"
}

bind pub o|o .h pub:h
proc pub:h {nick uhost hand chan text} {
global h
foreach line $h { puthelp "NOTICE $nick :$line" }
}


putlog "Alltools Tcl BLaCkShaDoW Loaded "


Qm Chestia e ca vreau sa mai aduag comenzi le !o <nick> !deop <nick> !v <nick> !dv <nick> Shi !ub care sa dea unban dar nu prea gasesc cum ... shi la !w da kick doar un ultimul cuvant dak scriu un tedxt de 4 cuv il ia doar pe ultimeul ... thanks :P

[Ionut]

O varianta mai simpla la ce vrei tu este sa inserezi codul pt alias-uri pe care il poti gasi aici [postul lui AdrianK cu rectificarea facut de lsn (pentru: op - deop - voice - devoice - unban. Pentru w poti folosi comanda kick)] sau viziteaza www.egghelp.org - optools tcl

... shi la !w da kick doar un ultimul cuvant dak scriu un tedxt de 4 cuv il ia doar pe ultimeul ... thanks :P

cred ca da kick cu un mesaj deja setat (set edu(w) "\00304Comportamentul")
ps1: cand mai postezi coduri de tcl foloseste [code] text [/code]
ps2: sper ca postul meu iti va fii folositor desi nu a rezolvat cea ce tu doreai (modificarea pe codul tau)