egghelp/eggheads community

Help with a Small Script

2006-09-18T16:40:25-04:00

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

Statistics: Posted by rosc2112 — Mon Sep 18, 2006 4:40 pm

:)

2006-09-18T03:19:24-04:00

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

Statistics: Posted by Thanhas — Mon Sep 18, 2006 3:19 am

Re: heay

2006-09-18T03:10:15-04:00

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.

Statistics: Posted by rosc2112 — Mon Sep 18, 2006 3:10 am

Heay Thanks it works

2006-09-18T03:04:03-04:00

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 ) 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:))

Statistics: Posted by Thanhas — Mon Sep 18, 2006 3:04 am

Help with a Small Script

2006-09-17T17:32:39-04:00

How about changing the topic of the original post to "Help with a Large Script"?

There are literally tonnes of these annoying scripts all over the place; moxfun being just one of them.

Statistics: Posted by Alchera — Sun Sep 17, 2006 5:32 pm

Help with a Small Script

2006-09-17T15:15:16-04:00

How about you post what you have right now and we'll tell you what's wrong.

Statistics: Posted by metroid — Sun Sep 17, 2006 3:15 pm

heay

2006-09-17T08:02:25-04:00

can u please make TCL & send me on Thanhas@gmail.com
coz i try alot but ia m still not getting Please Put Those things

!Slap
!kik
!kiss
!hugs
!rubs
!haros
!flood
!love
!winks
!ping
!Hate
!care
!hc
!sleep

Thanks if u could send i will Put msg my self just type in the msg place MSG HERE then i can add msg thanks agian
Regards

Statistics: Posted by Thanhas — Sun Sep 17, 2006 8:02 am

Re: yup

2006-09-17T06:34:05-04:00

Hello
Yup when i type in channel !slap Blah it answers in DCC
Tcl error [kiss]: can't read kissprcc
Something like This
Regards

That looks like you made a typo, in "kissproc" and have "kissprcc"

Check over your code carefully, and paste the exact errors if necessary. Guessing won't help fix things

Statistics: Posted by rosc2112 — Sun Sep 17, 2006 6:34 am

yup

2006-09-17T03:09:40-04:00

Hello

Yup when i type in channel !slap Blah it answers in DCC

Tcl error [kiss]: can't read kissprcc

Something like This
Regards

Statistics: Posted by Thanhas — Sun Sep 17, 2006 3:09 am

Help with a Small Script

2006-09-14T02:30:25-04:00

It should make no difference, if you say "it doesn't work" atleast give us the errormessage too.

Statistics: Posted by metroid — Thu Sep 14, 2006 2:30 am

ammm

2006-09-13T13:17:51-04:00

Thanks for reply but i have done all in one TCL but it dose not work.
may i Put New tcl for Each for Exp

Spal.tcl
hugs.tcl
kik.tcl
kiss.tcl

i hope you understand ?
Regards

Statistics: Posted by Thanhas — Wed Sep 13, 2006 1:17 pm

Help with a Small Script

2006-09-13T09:40:54-04:00

you just need to change a few parts for each action.

for example.

Code:

bind pub - !hugs hugsprocproc hugsproc {nick uhost hand chan text} {     set text [split $text]     if {$text == ""} {            puthelp "PRIVMSG $chan :Hug who? Or did you want me to hug YOU, $nick?"     } elseif {[onchan $text $chan]} {            puthelp "PRIVMSG $chan :\001ACTION hugs $text \001"     } else {            puthelp "PRIVMSG $chan :No one here by that name!"     }}

Statistics: Posted by deadite66 — Wed Sep 13, 2006 9:40 am

Help with a Small Script

2006-09-13T05:36:55-04:00

A very basic template you can duplicate for making those kinds of actions:

Code:

bind pub - !slap slapprocproc 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 $text \001"     } else {            puthelp "PRIVMSG $chan :No one here by that name!"     }}

Should work, didn't test.

This word really good but i need Same !hugs !kik !kiss !love !hate !push etc etc tell me a Exp: i will make Others my self )) Thanks rosc2112
ReGards

Statistics: Posted by Thanhas — Wed Sep 13, 2006 5:36 am

Help with a Small Script

2006-09-12T15:13:52-04:00

A very basic template you can duplicate for making those kinds of actions:

Code:

bind pub - !slap slapprocproc 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 $text \001"     } else {            puthelp "PRIVMSG $chan :No one here by that name!"     }}

Should work, didn't test.

Statistics: Posted by rosc2112 — Tue Sep 12, 2006 3:13 pm

help

2006-09-12T06:58:22-04:00

---------------------------------------
& one thing else if you can please Give me a Small TCL which work by anyone on those Segments
!Slaps *demond* The BOT Shuold Slap him
!Winks *demond*
!Hugs *demond*
many more i wana add my self just tell me with all details Thanks for beging Kind....
Regards.
-----------------------------------------

can u find me This or make me A Simple one please

Statistics: Posted by Thanhas — Tue Sep 12, 2006 6:58 am