|
 |
|
 |
| |
| |
 |
Ro-Tcl
Aici Gasesti Tot Felul De Tcl`uri
|
 |
|
Acum este: 11/10/2026 13:54
|
| Autor |
Mesaj |
TrAsNeT
Junior
Data inscrierii: 30/Iun/2008
Mesaje: 7
Localitate: Sighetul-Marmatiei
|
 Trimis: 30/06/2008 22:44 Titlul subiectului: next.tcl |
 |
|
Sper Sa Mearga !!
| Citat: |
### 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 orice 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 rapid 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 3can I help you with anything else? If not, please 4/part #mIRCBOT3 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 3cu altceva te mai pot ajuta? Daca nu, te rog 4/part #mIRCBOT3 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 nereguli 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 Nu Va Merge Ca Rog Sa Postati !!
_________________
#mIRCBOT Fondator |
|
| Sus |
|
| Autor |
Mesaj |
tabernaculum
Junior
Data inscrierii: 02/Iul/2012
Mesaje: 6
Localitate: Uganda
|
| Trimis: 13/07/2012 23:54 Titlul subiectului: |
|
|
| I had no idea how to approach this before-now I'm locked and laoedd. |
|
| Sus |
|
| Autor |
Mesaj |
tabernaculum
Junior
Data inscrierii: 02/Iul/2012
Mesaje: 6
Localitate: Uganda
|
| Trimis: 15/07/2012 18:11 Titlul subiectului: |
|
|
| You are so great |
|
| Sus |
|
| Autor |
Mesaj |
tabernaculum
Junior
Data inscrierii: 02/Iul/2012
Mesaje: 6
Localitate: Uganda
|
| Trimis: 18/07/2012 19:28 Titlul subiectului: |
|
|
| How cool is that! |
|
| Sus |
|
|
Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum
|
| |
 |
|
 |
|
|
