bind pub -|- .slap pub:slap
bind pub -|- .fuck pub:fuck
bind pub -|- .kiss pub:kiss 

proc pub:slap {hand chan args x mix} {
set target [lindex $args 0]
if {$args == ""} {
puthelp "PRIVMSG $chan :USAGE: slap <nick>"
return 1 }
puthelp "PRIVMSG $chan :\001ACTION loveste pe \002$target\002 cu ciocanul peste degetul mic de la picior\001"
return "$target" }


proc pub:fuck {hand chan args x mix} {
set target [lindex $args 0]
if {$args == ""} {
puthelp "PRIVMSG $chan :USAGE: fuck <nick>"
return 1 }
puthelp "PRIVMSG $chan :\001ACTION Il fute tare de tot pe \002$target\002 exact in ga0z!\001"
return "$target" }


proc pub:kiss {hand chan args x mix} {
set target [lindex $args 0]
if {$args == ""} {
puthelp "PRIVMSG $chan : USAGE: kiss <nick>"
return 1 }
puthelp "PRIVMSG $chan :\001ACTION Kiss pe \002$target\002 pe gura,te musc de buza tare...mainile`mi umbla pe corpul tau,vad cum tu nu mai ai rabdare sa ma simti in tine,ma doresti,ma vrei,iti strang sanii frumosi in palme uffffffff ce sentiment placut,te sarut toata imi place cum mirosi,imi place finetea pieli tale ...de pe burta,dintre picioare..te musc de sfarcuri ...mmmmmm iti place ...imi spui asta TE DORESC ACUM NU MAI POT ! \001"
return "$target" }