This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Help with a Small Script

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
User avatar
Thanhas
Op
Posts: 124
Joined: Sat Sep 02, 2006 11:14 am
Location: Ottawa, Canada

Heay Thanks it works

Post by 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:))
User avatar
rosc2112
Revered One
Posts: 1454
Joined: Sun Feb 19, 2006 8:36 pm
Location: Northeast Pennsylvania

Re: heay

Post by rosc2112 »

Thanhas wrote: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.
User avatar
Thanhas
Op
Posts: 124
Joined: Sat Sep 02, 2006 11:14 am
Location: Ottawa, Canada

:)

Post by 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
User avatar
rosc2112
Revered One
Posts: 1454
Joined: Sun Feb 19, 2006 8:36 pm
Location: Northeast Pennsylvania

Post by 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
Post Reply