egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Help with a Small Script
Goto page Previous  1, 2
 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
Thanhas
Op


Joined: 02 Sep 2006
Posts: 124
Location: Ottawa, Canada

PostPosted: Mon Sep 18, 2006 3:04 am    Post subject: Heay Thanks it works Reply with quote

Code:
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 Smile) 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:))
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
rosc2112
Revered One


Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania

PostPosted: Mon Sep 18, 2006 3:10 am    Post subject: Re: heay Reply with quote

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.
Back to top
View user's profile Send private message
Thanhas
Op


Joined: 02 Sep 2006
Posts: 124
Location: Ottawa, Canada

PostPosted: Mon Sep 18, 2006 3:19 am    Post subject: :) Reply with quote

Heay rosc2112 Thanks for your uscha good advise i will try my best Smile) 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 Smile)
Regards
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
rosc2112
Revered One


Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania

PostPosted: Mon Sep 18, 2006 4:40 pm    Post subject: Reply with quote

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_archive.tcl?mode=download&id=126
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber