Help with a Small Script

[Thanhas]

Code: Select all

bind pub - !slap slapproc 
proc slapproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :Slap who? Or did you want me to slap YOU, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION slaps so Hard tell me How you feel Now $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also ,. please!" 
     } 
} 


bind pub - !kik kikproc 
proc kikproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :kick who? Or did you want me to kick YOU, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION kicks so Hard tell me How you feel Now $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also DOT CUMA . , Please!" 
     } 
} 

bind pub - !kiss kissproc 
proc kissproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :kiss who? Or did you want me to kiss YOU on Lips, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION kiss On lips Aow What Lovly lips Lipstick test is so Nice $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also DOT CUMA . , Please!" 
     } 
} 


bind pub - !hugs hugsproc 
proc hugsproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :hugs who? Or did you want me to hugs YOU, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION Hugs So So Tit wow you are soft like Cack lolx $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also DOT CUMA . , Please!" 
     } 
} 


bind pub - !love loveproc 
proc loveproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :love who? Or did you want me to love YOU, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION Love More then anyone on the InterNet Media Happy $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also DOT CUMA . , Please!" 
     } 
} 


bind pub - !flood floodproc 
proc floodproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :flood who? Or did you want me to flood YOU, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood FLood  Boooooooooooooooooooooooooooo $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also DOT CUMA . , Please!" 
     } 
} 


bind pub - !winks winksproc 
proc winksproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :wink who? Or did you want me to winks YOU, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION winks to Beauty  $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also DOT CUMA . , Please!" 
     } 
} 


bind pub - !rubs rubsproc 
proc rubsproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :rubs who? Or did you want me to Rubs YOU, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION Rubs the hidden solip beauty of $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also DOT CUMA . , Please!" 
     } 
} 


bind pub - !hate hateproc 
proc hateproc {nick uhost hand chan text} { 
     set text [split $text] 
     if {$text == ""} { 
            puthelp "PRIVMSG $chan :hate who? Or did you want me to hate YOU, $nick?" 
     } elseif {[onchan $text $chan]} { 
            puthelp "PRIVMSG $chan :\001ACTION Love More then anyone on the InterNet Media Happy ? $text \001" 
     } else { 
            puthelp "PRIVMSG $chan :No one here by that name or remove space after nick also DOT CUMA . , Please!" 
     } 
} 

That Works ) thaks alot now i need a Small help more just anyone Join he do msg him that i have those Commands !slaps !hugs Blah blah i wana put it in this COde thankas once agian:))

[rosc2112]

can u please make TCL

No, I can't.. The point of my reply and pretty much everyone elses, was to show you how to do it yourself. It's not hard. Learn. You'll feel very happy knowing you could do it yourself.

[Thanhas]

Heay rosc2112 Thanks for your uscha good advise i will try my best ) but after my examz finished untill i ned just notice command that on join the BOT notice then Joined nick that i have those commands for Publick Thanks agian & agian )
Regards

[rosc2112]

I use a little script called "Flag on Join" to send msg or notice to people when they join a channel. It's a nice script, I modified my copy some, but here is the original:
http://www.egghelp.org/cgi-bin/tcl_arch ... oad&id=126