Nu merge. Ca sa mearga stergi
Code:
routine:addcom slap pub:slap 1020 504 |v 1
routine:addcom fute pub:fute 1020 504 |v 1
routine:addcom pupa pub:pupa 1019 505 |v 1
adaugi
Code:
bind pub -|- .slap pub:slap
bind pub -|- .fuck pub:fute
bind pub -|- .kiss pub:pupa
dupa aceasta toate randurile
Code:
{hand chan args x mix}
inlocuiesti cu
Code:
{nick uhost hand chan args}
versiunea finala
Code:
bind pub -|- .slap pub:slap
bind pub -|- .fuck pub:fuck
bind pub -|- .kiss pub:kiss
proc pub:slap {nick uhost hand chan args} {
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:fute {nick uhost hand chan args} {
set target [lindex $args 0]
if {$args == ""} {
puthelp "PRIVMSG $chan :USAGE: fute <nick>"
return 1 }
puthelp "PRIVMSG $chan :\001ACTION Il fute tare de tot pe \002$target\002 exact in ga0z!\001"
return "$target" }
proc pub:pupa {nick uhost hand chan args} {
set target [lindex $args 0]
if {$args == ""} {
puthelp "PRIVMSG $chan : USAGE: kiss <nick>"
return 1 }
puthelp "PRIVMSG $chan :\001ACTION pupa duuuulce pe \002$target\002 pe botic :D \001"
return "$target" }