Request of tcl script :Special User Join A Channel....

TakaShi^^ · Post by **TakaShi^^** » Fri May 06, 2005 8:04 am

Special Users...like ur Best friend...if he join a channel....the bot will say tis On channel for him only : The Best actor <Nick>

Got Any script for tis? =D

^DooM^ · Post by **^DooM^** » Fri May 06, 2005 8:14 am

Takashi.

You have requested more scripts on here in 2 weeks than 90% of every other user on here. We are not your personal script making service. If you cant be bothered to help yourself and learn something for yourself then we cant be arsed to help you. Read the tcl-commands.doc that comes with your eggdrop. look at all the resources on this forum for help on how to start scripting also there are other scripting help sites like suninet.nl and so on.

Make an effort to help yourself and we will make an effort to help you.

TakaShi^^ · Post by **TakaShi^^** » Fri May 06, 2005 8:26 am

o sorry =) just wanna rush my bot ^_^

awyeah · Post by **awyeah** » Fri May 06, 2005 8:53 am

A simple example of a greet script. If a user with the nickname "awyeah" (non-casesensitive) joins any of the channels the bot is on, it will be greeted by the bot.

Code: Select all


bind join - "*" do:greet

proc do:greet {nick uhost hand chan} {
 if {![isbotnick $nick] && [string equal -nocase "awyeah" $nick]} {
  putserv "PRIVMSG $chan :Hey hey awyeah! welcome man!@"
  }
}

Code: Select all

Explanation line by line:

1) We trigger to check everyone joining a channel where the bot is on
2) We start our procedure
3) Check if the joining nick is not the bot's nick and the joining nick is "awyeah"
4) Go ahead ahead and display the greet message into the channel
5) Close with the if statements and procedures ending braces

To use on a specific channel:

Code: Select all

if {[string equal -nocase "#mychannel" $chan]} {