 |
|
 |
|
TrAsNeT
Junior 2
Data inscrierii: 12/Mai/2008
Mesaje: 44
Localitate: Sighet
|
|
 |
|
 |
|
 Trimis: 19/05/2008 16:36 Titlul subiectului: Re: next.tcl |
 |
|
Next tcl ... un tcl`u folositor pentru chanele de eggi .
| TrAsNeT a scris: | #
### Commands:
#
# Where Flag Command Description
# ----- ---- ------- -----------
# PUB : - n Voices the first nick in the list.
# - h Removes the "voice" and send a notice to leave the
# channel, after he/she had been helped.
# - b Kick/ban 1 minute "nick" for being idle/ away while
# in channel.
# - s Removes "nick" from the list. very useful when is a
# friend, and/ or a bot who changed his host or
# something like this.
# - p Adds "nick" in to the list, if for some reason
# "nick" isn't there.
# - l You will receive an notice with the "nicks" that are
# in his voice list.
#
# MSG : N/A
#
# DCC : n|n .chanset Use .chanset to set the script active for the special channel or not.
# Example: .chanset #abc123 +next
# .chanset #abc123 -next
# Flag that you or the helpers will need to use the .next TCL script?
set next(flag) "v|v"
# What should be the .noidle ban type to be?
# 0 - *!user@host.domain
# 1 - *!*user@host.domain
# 2 - *!*@host.domain
# 3 - *!*user@*.domain
# 4 - *!*@*.domain
# 5 - nick!user@host.domain
# 6 - nick!*user@host.domain
# 7 - nick!*@host.domain
# 8 - nick!*user@*.domain
# 9 - nick!*@*.domain
#
# You can also specify a type of 10-19 which corresponds to types 0-9,
# using this sub rule; If host.domain is a(n)-
# name - Instead of using a * wildcard to replace portions of the
# host.domain, it replaces the numbers in the host.domain with a
# '?' (question mark) wildcard.
# ip - It will mask as normal, with no '?' (question mark)
# replacements as does hostname.
set next(ban) 2
# How long, in minutes, do you want the .noidle ban to last? If you set this to
# 0, it will not be a ban in the bot, but rather a server ban.
set next(time) 1
# Custromize the messages and/ or notices.
set next(welcome) {
4Bine ai venit! Intreaba indiferent ce problema ai INTR-O SINGURA LINIE.Te rog 4NU da /msg la 4+v/4+o . | 4Welcome! Ask everything you want in ONE LINE . Please do 4NOT /msg to 4+v4/4+o.
}
set next(helped) {
Ai fost ajutat de 4!nick!. Daca nu mai ai si alte intrebari te rugam 4/part !chan!, iar daca mai ai inca nelamuriri te rugam 4/hop. | You have been helped by 4!nick!. Please 4/part !chan! If you still have more questions, please 4/hop.
}
set next(next) {
te va ajuta 4!nick!. Te rog spunei problema intr-o 4SINGURA LINIE.
}
### ANY EDITING AND/OR MODIFICATIONS MADE BEYOND THIS IS YOUR OWN RISK! ###
# stuff
set next(script) "U&U .next"
set next(version) "v1.0"
set next(aurthors) "Pharell&TopOmbladon"
catch {unset temp}
# binds
bind join - * next:add
bind part - * next:del
bind sign - * next:del
bind nick - * next:nick
bind kick - * next:kick
bind mode - * next:mode
bind pub v|v asken pub:asken
bind pub v|v askro pub:askro
bind pub v|v bncro pub:bncro
bind pub v|v bncen pub:bncen
bind pub v|v adden pub:adden
bind pub v|v addro pub:addro
# commands
set temp(list) [list n voice h "" b "" skip "" put "" list ""]
foreach "temp(1) temp(2)" $temp(list) {
if {$temp(2) == ""} {set temp(2) $temp(1)}
foreach temp(bind) [binds next:$temp(2)] {
unbind pub [lindex $temp(bind) 1] [lindex $temp(bind) 2] next:$temp(2)
}
bind pub $next(flag) $temp(1) next:$temp(2)
}
# join
proc next:add {nick uhost handle chan} {
global next settings
if {![botisop $chan] || ![next:moretools:chanflag $chan next] || [isbotnick $nick]} { return 0 }
if {[validuser $handle]} {
pushmode $chan +v $nick
return 1
}
set num [next:cmds add_list [list $nick $chan]]
set temp(post) [next:moretools:replace -- $next(welcome) [list \
!number! $num]]
foreach temp(post) [split $temp(post) \n] {
set temp(post) [string trim $temp(post) "\t "]
if {$temp(post) == ""} {continue}
putserv "NOTICE $nick :$temp(post)"
putserv "NOTICE $settings(homechan) :4ATeNtIe : 14$nick 12A IntraT Pe14 $chan 12treci si 4AjuTaL !!!"
}
return 2
}
# part & sign
proc next:del {nick uhost handle chan {text ""}} {
if {[isbotnick $nick] || ![next:moretools:chanflag $chan next]} {return -1}
return [next:cmds remove_list [list $nick $chan]]
}
# nick
proc next:nick {nick uhost handle chan newnick} {
if {[isbotnick $nick] || ![next:moretools:chanflag $chan next]} {return -1}
return [next:cmds remove_list [list $nick $chan $newnick]]
}
# kick
proc next:kick {nick uhost handle chan vict reason} {
if {[isbotnick $vict] || ![next:moretools:chanflag $chan next]} {return -1}
return [next:cmds remove_list [list $vict $chan]]
}
# mode
proc next:mode {nick uhost handle chan mode victim} {
if {[isbotnick $victim] || ![next:moretools:chanflag $chan next]} {return -1}
switch -- $mode {
"+o" { return [next:cmds remove_list [list $victim $chan]] }
"+v" { return [next:cmds remove_list [list $victim $chan]] }
}
}
# next
proc next:voice {nick uhost handle chan arg} {
global next
if {![next:moretools:chanflag $chan next]} {return 0}
set temp(list) [next:cmds get_list $chan]
for {set temp(i) 0} {
([set temp(voice) [lindex [lindex $temp(list) $temp(i)] 0]] != "") &&
![onchan $temp(voice) $chan] &&
[validuser [nick2hand $temp(voice) $chan]] &&
![isop $temp(voice) $chan] &&
![isvoice $temp(voice) $chan]} {incr temp(i)} {}
set temp(list) [lrange $temp(list) $temp(i) end]
next:cmds set_list [list $chan $temp(list)]
if {$temp(voice) == ""} {
putserv "NOTICE $nick :Ma chiorule nu vezi ca nu asteapta nimeni? Uff...nu mai sunt oftalmologii ca pe vremuri..| You blind one, can`t you see that nobody is waiting? Uff...there aren`t eye-doctors like old times..."
return 1
}
if {![botisop $chan]} {
putserv "NOTICE $nick :Nu pot procesa, nu am op. | I cannot proceed, I'm not opped."
return 1
}
set temp(duration) [expr [clock seconds] - [lindex [lindex $temp(list) 0] 1]]
set temp(duration) [duration $temp(duration)]
putserv "NOTICE $nick :$temp(voice) a asteptat dupa tine $temp(duration).Lenesule! (mai repede ca poate iei del) | $temp(voice) was waiting for you for $temp(duration). Lazy-bones (more quickly or you`ll get del)"
pushmode $chan +v $temp(voice)
set temp(post) [next:moretools:replace -- $next(next) [list \
!nick! $nick \
!chan! $chan \
!duration! $temp(duration)]]
foreach temp(post) [split $temp(post) \n] {
set temp(post) [string trim $temp(post) "\t "]
if {$temp(post) == ""} {continue}
putserv "PRIVMSG $chan : 2$temp(voice) $temp(post) | 2$temp(voice) you will be helped by 4$nick. Please state your question in 4ONE LINE."
return [next:cmds remove_list [list $temp(voice) $chan]]
}
return 1
}
proc pub:asken {nick uhost hand chan text} {
global asken
set nik [lindex $text 0]
puthelp "PRIVMSG $chan :4$nik 2can I help you with anything else? If not, please 4/part #TeamHelp2 and have a nice day !!"
}
proc pub:askro {nick uhost hand chan text} {
global askro
set nik [lindex $text 0]
puthelp "PRIVMSG $chan :4$nik 2cu altceva te mai pot ajuta? Daca nu, te rog 4/part #TeamHelp2 si o zi placuta !!"
}
proc pub:bncro {nick uhost hand chan text} {
global bncro
set nik1 [lindex $text 0]
set nik2 [lindex $text 1]
set nik3 [lindex $text 2]
puthelp "PRIVMSG $chan :4$nik1 te rog sa dai: 2/addautoop $nik2 :*!*@$nik3.users.undernet.org pentru a da botului autoop la psyBNC. Daca nu ai psyBNC roaga pe cineva de pe canalul tau sa dea aceasta comanda. Te rog sa dai paste la confirmari aici !!"
}
proc pub:bncen {nick uhost hand chan text} {
global bncen
set nik1 [lindex $text 0]
set nik2 [lindex $text 1]
set nik3 [lindex $text 2]
puthelp "PRIVMSG $chan :4$nik1 please add: 2/addautoop $nik2 :*!*@$nik3.users.undernet.org to give the eggdrop autoop throught the psyBNC. If you don`t have a psyBNC, please ask somebody on your channel who has to give this command. Please paste the confirmation in here !!"
}
proc pub:addro {nick uhost hand chan text} {
global addro
set nik1 [lindex $text 0]
set nik2 [lindex $text 1]
set nik3 [lindex $text 2]
puthelp "PRIVMSG $chan :4$nik1 te rog sa dai: 2/msg x adduser $nik2 $nik3 499 pentru a da botului 499, si 2/msg x modinfo $nik2 automode $nik3 op pentru a da botului autoop la X. Te rog sa dai paste la confirmari aici !!"
}
proc pub:adden {nick uhost hand chan text} {
global adden
set nik1 [lindex $text 0]
set nik2 [lindex $text 1]
set nik3 [lindex $text 2]
puthelp "PRIVMSG $chan :4$nik1 please add: 2/msg x adduser $nik2 $nik3 499 to give 499 to the eggdrop, and 2/msg x modinfo $nik2 automode $nik3 op to give autoop to the eggdrop throught X. Please paste the confirmation in here !!"
}
# helped
proc next:h {nick uhost handle chan arg} {
global next
if {![next:moretools:chanflag $chan next]} {return 0}
set helped [lindex [split $arg] 0]
if {$helped == ""} {
putserv "NOTICE $nick :\002Usage:\002 .helped <nick>"
} elseif {[isbotnick $helped]} {
putserv "NOTICE $nick :Nu ai ajutat inca aceasta persoana. Esti batran ce sa faci, mai si uiti! | You haven`t helped this person. You`re old, what can you do!"
} elseif {![botisop $chan]} {
putserv "NOTICE $nick :Poate daca imi dai si mie OP o sa fac si asta. | Maybe if you give me OP i`ll do that."
} elseif {![onchan $helped $chan]} {
putserv "NOTICE $nick :Iarasi ai baut...unde il vezi tu pe $helped?. | You`re drunk again...were do you see $helped? "
} elseif {[validuser [nick2hand $helped]]} {
putserv "NOTICE $nick :$helped este prea smecher pentru a ii da devoice. | $helped is to cool to be devoiced."
} elseif {![isvoice $helped $chan]} {
putserv "NOTICE $nick :$helped nu are voice, cumparati ochelari. | $helped is not voiced, buy a paire of glases."
} elseif {[isop $helped $chan]} {
putserv "NOTICE $nick :$helped ai complicații cu capul? Are @, vrei sa imi dea ban?. | $helped are you craizy? He has @, do you want to ban me?"
} else {
pushmode $chan -v $helped
set temp(post) [next:moretools:replace -- $next(helped) [list !nick! $nick \
!chan! $chan]]
foreach temp(post) [split $temp(post) \n] {
set temp(post) [string trim $temp(post) "\t "]
if {$temp(post) == ""} {continue}
putserv "NOTICE $helped :$temp(post)"
return [next:cmds remove_list [list $helped $chan]]
}
}
return 1
}
# noidle
proc next:b {nick uhost handle chan arg} {
global botname next
if {![next:moretools:chanflag $chan next]} {return 0}
set nnick [lindex [split $arg] 0]
if {$nnick == ""} {
putserv "NOTICE $nick :\002Usage:\002 .noidle <nick>"
} elseif {[isbotnick $nnick]} {
putserv "NOTICE $nick :I cannot idle? *pssh*"
} elseif {![botisop $chan]} {
putserv "NOTICE $nick :Poate daca imi dai si mie OP o sa fac si asta. | Maybe if you`ll give me OP I`m gonna do it."
} elseif {![onchan $nnick $chan]} {
putserv "NOTICE $nick :Unde il vezi tu pe $nnick? Mai pune inca o pereche de ochelari. | Where do you see $nnick? Put another pair of glasses."
} elseif {[validuser [nick2hand $nnick]]} {
putserv "NOTICE $nick :$nnick este prea smecher pentru aceasta comanda. | $nnick is to cool for this command."
} elseif {[isvoice $nnick $chan]} {
putserv "NOTICE $nick :$nnick are voice. Da cu carpa pe ochelari ca s-au aburit, si apoi incearca h $nnick . | $nnick is voiced. Clean your glases because they are dirty, and then try h $nnick ."
} elseif {[isop $nnick $chan]} {
putserv "NOTICE $nick :$nnick are OP ba chiorule, poate imi iau si ban acuma. | $nnick is an op, you blind man, maybe I`ll take ban now."
} elseif {[next:cmds is_in_list [list $nnick $chan]]} {
putserv "NOTICE $nick :$nnick cica te injura ca nu ii dai n...''shh'' sa te poata injura mai bine. | $nnick is swearing you because you don`t type n...''shh'' that he can swear you better."
} else {
set nuhost $nnick![getchanhost $nnick $chan]
set banmask [next:moretools:maskhostbytype $nuhost $next(ban)]
if {[string match $banmask $botname]} {
putserv "NOTICE $nick :I can't ban $nnick because $banmask matches me."
return 1
}
if {!$next(time)} {
putserv "MODE $chan +b $host"
} else {
set temp(reason) \
"Don't be idle in $chan channel please.Tempban \002$next(time)\002 min."
newchanban $chan $banmask $nick $temp(reason) $next(time)
}
return [next:cmds remove_list [list $nnick $chan]]
putserv "KICK $chan $nnick :$temp(reason)"
}
return 1
}
# skip
proc next:skip {nick uhost handle chan arg} {
global next
if {![next:moretools:chanflag $chan next]} {return 0}
set skip [lindex [split $arg] 0]
if {$skip == ""} {
putserv "NOTICE $nick :\002Usage:\002 .skip <nick>"
} elseif {![onchan $skip $chan]} {
putserv "NOTICE $nick :$skip is not on channel."
} elseif {![next:cmds is_in_list [list $skip $chan]]} {
putserv "NOTICE $nick :$skip is not awaiting help."
} else {
next:cmds remove_list [list $skip $chan]
putserv "NOTICE $nick :$skip has been removed from the help queue."
return [next:cmds remove_list [list $skip $chan]]
}
return 1
}
# put
proc next:put {nick uhost handle chan arg} {
global next
if {![next:moretools:chanflag $chan next]} {return 0}
set put [lindex [split $arg] 0]
if {$put == ""} {
putserv "NOTICE $nick :\002Usage:\002 .put <nick>"
} elseif {[isbotnick $put]} {
putserv "NOTICE $nick :I need help? I think not."
} elseif {![onchan $put $chan]} {
putserv "NOTICE $nick :I don't see $put on the channel."
} elseif {[isvoice $put $chan]} {
putserv "NOTICE $nick :$put already has voice."
} elseif {[isop $put $chan]} {
putserv "NOTICE $nick :$put is an op."
} elseif {[validuser [nick2hand $put $chan]]} {
putserv "NOTICE $nick :$put is a valid user of the bot, not adding."
} else {
next:cmds add_list [list $put $chan]
putserv "NOTICE $nick :$put has been added to the queue."
}
return 1
}
# list
proc next:list {nick uhost handle chan arg} {
global next
if {![next:moretools:chanflag $chan next]} {return 0}
set temp(list) [next:cmds get_list $chan]
set temp(post) ""
foreach temp(entry) $temp(list) {
set temp(duration) [duration [expr [clock seconds] - [lindex $temp(entry) 1]]]
lappend temp(post) "[lindex $temp(entry) 0] ($temp(duration))"
}
set temp(post) [expr {($temp(post) == "")?
"Currently empty.":
[join $temp(post) ", "]}]
putserv "NOTICE $nick :\002List\002: $temp(post)"
return 1
}
# next:cmds
proc next:cmds {command {arg ""}} {
global next
switch -- $command {
"add_list" {
next:moretools:unlist $arg nick channel
set channel [string tolower $channel]
lappend next(:list:$channel) [list $nick [clock seconds]]
return [llength $next(:list:$channel)]
}
"set_list" {
next:moretools:unlist $arg channel set_to
set channel [string tolower $channel]
return [set next(:list:$channel) $set_to]
}
"remove_list" {
next:moretools:unlist $arg nick channel {newnick ""}
set channel [string tolower $channel]
set nick [string tolower $nick]
if {![info exists next(:list:$channel)]} {
return 0
}
set temp(list) ""
foreach temp(entry) [string tolower [next:cmds get_list $channel]] {
if {[string tolower [lindex $temp(entry) 0]] == $nick} {
if {$newnick != ""} {
lappend temp(list) [list $newnick [lindex $temp(entry) 1]]
}
} else {
lappend temp(list) $temp(entry)
}
}
return [next:cmds set_list [list $channel $temp(list)]]
}
"get_list" {
set channel [string tolower $arg]
return [expr {![info exists next(:list:$channel)]?
"":
$next(:list:$channel)}]
}
"is_in_list" {
next:moretools:unlist $arg nick channel
set channel [string tolower $channel]
set nick [string tolower $nick]
foreach temp(entry) [string tolower [next:cmds get_list $channel]] {
if {[string tolower [lindex $temp(entry) 0]] == $nick} {
return 1
}
}
return 0
}
}
}
## More Tools quick procs.
## -- http://mc.purehype.net:81/script_info.tcl?script=moretools
# badargs <args> <min_llength> <max_llength|end> <argNames>
# version:
# v1.0
proc next:moretools:badargs {{args ""}} {
if {[llength $args] < 4} {
set temp() {"next:moretools:badargs args min_llength max_llength argNames"}
error {wrong # args: should be $temp()}
}
set index 0
foreach varName [list args min max names] {
set check_$varName [lindex $args $index]
incr index
}
if {[regexp -- {([^0-9])} $check_min -> bad]} {
error "bad number \"$bad\" in: $check_min"
}
if {[regexp -- {([^0-9])} $check_max -> bad] && ($check_max != "end")} {
error "bad number \"$bad\" in: $check_max"
}
# Make sure $check_args is in list format, if not then make it so.
# Were not going to use 2list here, don't want to evoke a 'too many nested
# calls to Tcl_EvalObj' error since '2list' uses on this proc.
if {[catch {llength $check_args} llength]} {
set check_args [split $check_args]
set llength $check_args
}
if {($llength < $check_min) || (($llength != "end") &&
($llength > $check_max))} {
if {[info level] == "1"} {return 1}
error "wrong # args: should be \"[lindex [info level -1] 0] $check_names\""
}; return 0
}
# 2list <text>
# version:
# v1.0
proc next:moretools:2list {{args ""}} {
next:moretools:badargs $args 1 1 "text"
next:moretools:unlist $args text
return [expr {([catch {llength $text}])?[split $text]:$text}]
}
# unlist <argsList> [varName1] [varName2] ... [varNameN]
# version:
# v1.0
proc next:moretools:unlist {{args ""}} {
next:moretools:badargs $args 1 end "argsList ?varName varName ...?"
set argList [lindex $args 0]
set argList [expr {([catch {llength $argList}])?[split $argList]:$argList}]
set argNames [lrange $args 1 end]
if {![llength $argNames]} {
return [expr {(![catch {llength $argList}])?
[join $argList]:$argList}]
}
for {set index 0} {$index < [llength $argNames]} {incr index 1} {
set argName [lindex $argNames $index]
set argListItem [lindex $argList $index]
set argName_ [expr {([catch {llength $argName}])?[split $argName]:$argName}]
set setTo [lindex $argName_ 1]
set argName [lindex $argName_ 0]
if {$argName == ""} {continue}
upvar 1 $argName var
if {[expr $index+1] > [llength $argList]} {
if {[llength $argName_] == "2"} {set var $setTo}
} else {
if {$argName == "args"} {
set var [lrange $argList $index end]
incr index [expr [llength $var]-1]
} else {set var $argListItem}
}
}; return $index
}
# replace [switches] <text> <substitutions>
# version:
# v1.3
proc next:moretools:replace {{args ""}} {
next:moretools:badargs $args 2 4 "?switches? text substitutions"
set switches ""
for {set i 0} {[string match -* [set arg [lindex $args $i]]]} {incr i} {
if {![regexp -- {^-(nocase|-)$} $arg -> switch]} {
error "bad switch \"$arg\": must be -nocase, or --"
}
if {$switch == "-"} {
incr i
break
}; lappend switches $switch
}
set nocase [expr {([lsearch -exact $switches "nocase"] >= "0") ? 1 : 0}]
set text [lindex $args $i]
set substitutions [lindex $args [expr $i+1]]
next:moretools:badargs [lrange $args $i end] 2 2 \
"?switches? text substitutions"
# Check to see if $substitutions is in list format, if not make it so.
set substitutions [next:moretools:2list $substitutions]
if {[info tclversion] >= "8.1"} {
return [expr {($nocase)?
[string map -nocase $substitutions $text]:
[string map $substitutions $text]}]
}
set re_syntax {([][\\\*\+\?\{\}\,\(\)\:\.\^\$\=\!\|])}
foreach {a b} $substitutions {
regsub -all -- $re_syntax $a {\\\1} a
if {$nocase} {regsub -all -nocase -- $a $text $b text} \
else {regsub -all -- $a $text $b text}
}; return [subst $text]
}
# chanflag <channel> <flag>
# version:
# v3.1
proc next:moretools:chanflag {{args ""}} {
next:moretools:badargs $args 2 2 "channel flag"
next:moretools:unlist $args channel flag
if {![validchan $channel]} {error "no such channel record"}
# Try the 'channel' commands' 'get' option first, it's faster since it is
# written in C by the eggdrop development team.
if {![catch {channel get $channel $flag} output]} {return $output}
set temp(chaninfo) [string tolower [channel info $channel]]
if {[lsearch -exact $temp(chaninfo) +[string tolower $flag]] >= "0"} {
return 1
}; return 0
}
# maskhostbytype <nick!ident@host.domain> [type]
# version:
# v2.1
proc next:moretools:maskhostbytype {{args ""}} {
next:moretools:badargs $args 1 2 "nick!ident@host.domain ?type?"
next:moretools:unlist $args nuhost type
set type [expr {($type == "")?5:$type}]
if {![regexp -- {^1?[0-9]$} $type]} {
set valid "0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 {or 19}"
error "bad type \"$type\": must be [join $valid ", "]"
}
# Define the maximum length the ircd allows for an ident. Standard is 9,
# however I made it to a variable incase someone wants to change it up.
set ident_max-length 9
# Define the maximum length the ircd allows for a hostname/ ip. Standard is
# 63, however I made it to a variable incase someone wants to change it up.
set host_max-length 63
if {![regexp -- {^(.*[^!])!((.*)@(.*))$} $nuhost -> nick uhost ident host]} {
error "invalid nick!ident@host.domain: $nuhost"
}
set maskhost 1
if {[string length $type] == "2"} {
# Type must be 10-19.
if {[info tclversion] < "8.1"} {
set re_syntax_1 {([12][0-9][0-9]|[1-9][0-9]|[1-9])}
set re_syntax_2 {([12][0-9][0-9]|[1-9][0-9]|[0-9])}
} else {
set re_syntax_1 {([12]\d{2}|[1-9][0-9]|[1-9])}
set re_syntax_2 {([12]\d{2}|[1-9][0-9]|[0-9])}
}
set re_syntax ^$re_syntax_1\\.$re_syntax_2\\.$re_syntax_2\\.$re_syntax_2\$
if {![regexp -- $re_syntax $host]} {
regsub -all -- {[0-9]} $host ? host
set maskhost 0
}; set type [string index $type 1]
}
# Previous version used regexp instead of these string matches. String match
# in this case is ~3 microseconds faster.
if {[string match {[0-4]} $type]} {set nick *}
if {[string match {[2479]} $type]} {set ident *}
if {[string match {[1368]} $type]} {regsub -- {^~?(.*)$} $ident *\\1 ident}
if {[string match {[3489]} $type] && $maskhost} {
set host [lindex [split [maskhost $host] @] end]
}
if {[set length [string length $ident]] > ${ident_max-length}} {
set ident *[string range $ident [expr $length-${ident_max-length}] end]
}
if {[set length [string length $host]] > ${host_max-length}} {
set host *[string range $host [expr $length-${host_max-length}] end]
}
return $nick!$ident@$host
}
## End of More Tools quick procs.
putlog "" |
daca va da vreo eroare sami spuneti
_________________
Fondator #mIRCBOT  |
|
FAQ 
Mesaje private 
