View Single Post
Old 09-08-2004, 19:24   #1 (permalink)
dutz
Junior Member
 
Join Date: Jul 2004
Posts: 3
Rep Power: 0
dutz is an unknown quantity at this point
Exclamation need help urgent !fuck !kiss !slap ...etc

#This is the action.tcl that allows to add a public command for the bot to /me :)
#Copyright dutz 2004 <<>> inspired by yx_96_local_v.tcl a&a copyright .. All rights reserved
#You can add or modify message by adding or modifing the lines :) example :
#Let say you want to modify the command slap ... you just need to modify this line : puthelp #"PRIVMSG $chan :\001ACTION
#after this line you see loveste pe \002$target\002 cu ciocanul .... and
#you modify ..that .. in to whatever you want..let`s say \002$target\002 cu barosu` :) and thats #all:P
#now lets say you wanna add your new shit ... justa add a line after this text that will look #like this : example:
#you wanna add "flood command" .. you just need yo add a line like this: routine:addcom flood # pub:flood 1020 504 |v 1
#and then ... after that line .. you must add this :
#proc pub:flood {hand chan args x mix} {
# set target [lindex $args 0]
# if {$args == ""} {
# puthelp "PRIVMSG $chan :USAGE: flood <nick>"
# return 1 }
# puthelp "PRIVMSG $chan :\001ACTION your message "
# return "$target" }

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

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:fute {hand chan args x mix} {
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 {hand chan args x mix} {
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" }



am asa ceva...pus intrun tcl....intrebarea mea e.... cum fac ca asta sa fie o comanda publica? sa o poata accesa oricine ?
dutz is offline