# Just to make your bot hugs your friends.
# Usage !hug <nick>
# faz o bot abraÎar a alguem
# uso !abraco <nick>
proc putnot {nick msg} { putserv "NOTICE $nick :$msg" }
proc putchan {chan msg} { putserv "PRIVMSG $chan :$msg" }
proc pub_!hug {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION Abraca o (a) amigo (a) $nick !\001"; return 0}
putchan $chan "\001ACTION Abraca $rest com carinho!\001"
}
proc msg_!hug {nick uhost hand rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION Abraca o (a) amigo (a) $nick !\001"; return 0}
putchan $chan "\001ACTION abraca $rest com carinho!\001"
}
bind pub - !hug pub_!hug
bind msg - !hug msg_!hug
bind msg m hug msg_!hug
bind msg - !abraco msg_!hug
bind pub - !abraco pub_!hug
### Hug Ends ###
# Beijo
# uso: !beijar <nick>
proc pub_kiss {nick uhost hand channel arg} {
global botnick
if {$arg == ""} {
putmsg $nick "Forma de uso: !beijar <nick>"
return 0
} {
set who [lrange $arg 0 end]
putserv "PRIVMSG $channel :\001ACTION Olha $nick beijar $who, carinhosamente.. \"Parece que $who tah gostando...\"\001"
return 0
}
}
bind pub - !kiss pub_kiss
bind pub - !beijar pub_kiss
putlog "HuGTCL, traducao: WarNinG_MaPB"