!Hugs

[TerraChat]

Código [Seleccionar] Expandir

# 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"