Quakenet Channel Modes.

Release your script here.
State:
- Author
- What it does
- Perhaps a little guide.
- Also, if the snippet is of any use to the community, it has a chance of getting posted on the main page, so don't hesitate to submit/ask!

Quakenet Channel Modes.

Postby fraguk » Wed Jul 02, 2008 5:39 am

Old script i made some time ago, it will need some of the new channel modes added if/when i have time. ;)

The script will help save you time/remember what all the channel modes are and there use.

Read the top of the script on how to load and use it its commands.

Code: Select all
#####################################################################################
#         Channel modes that are available on Irc QuakeNet                          #
#    web url http://www.quakenet.org/faq/faq.php?c=176&f=177#177                                                                                    #
#  Put the script in in your scripts folder and add the line                        #
#  source scripts/qnet.tcl                                                          #
#  rehash or restart your bot, to use the script the command is.                    #
#  To get a list of channel modes type /msg botnick qnet                            #
#  To get more info on a specific channel mode,                                     #
#  type /msg botnick help mode+b .. will return info on channel mode+b              #  #                                                                                   #
#........................................................................           #
#  I can be found on Irc Quakenet channe #fraguk     #                                     
#  MY Web url http://www.fraguk.com                                                                                                                                     #
####################################################################################


bind msg - qnet msg:qnet
bind msg - help msg:mode


proc msg:qnet {nick uhost hand rest} {
putserv "NOTICE $nick :channel modes are available on Irc QuakeNet "
putserv "NOTICE $nick :Channel mode +b <> Channel ban "
putserv "NOTICE $nick :Channel mode +c <> No control codes "
putserv "NOTICE $nick :Channel mode +C <> No channel CTCPs"
putserv "NOTICE $nick :Channel mode +D <> Delayed join mode "
putserv "NOTICE $nick :Channel mode +d <> Hidden users present "
putserv "NOTICE $nick :Channel mode +i <> Invite only "
putserv "NOTICE $nick :Channel mode +k, Key <> Key'ed (Passworded) Channel "
putserv "NOTICE $nick :Channel mode +l <> Limit "
putserv "NOTICE $nick :Channel mode +m <> Moderated "
putserv "NOTICE $nick :Channel mode +n <> No external messages "
putserv "NOTICE $nick :Channel mode +N <> No channel notices "
putserv "NOTICE $nick :Channel mode +o <> Operator "
putserv "NOTICE $nick :Channel mode +p <> Private "
putserv "NOTICE $nick :Channel mode +r <> Authed users only "
putserv "NOTICE $nick :Channel mode +s <> Secret "
putserv "NOTICE $nick :Channel mode +t <> Topic Lock "
putserv "NOTICE $nick :Channel mode +u <> No Part/Quit reasons "
putserv "NOTICE $nick :Channel mode +v <> Voice "
putserv "NOTICE $nick :NOTE <> By default, channels are created with the flags +tCNn "
putserv "NOTICE $nick :........."
putserv "NOTICE $nick :To see the Usage on a mode use help mode + letter EX: /msg botnick help mode+b  will return"
putserv "NOTICE $nick :Channel mode +b "
putserv "NOTICE $nick :Channel ban "
putserv "NOTICE $nick :Bans an address from a channel. Any user with a host mask matching this address will be denied entry to the channel. If the user is already in the channel and does not have op/voice status, the user will not be able to speak."
putserv "NOTICE $nick :Usage: /MODE #channel +b nick!ident@host "
putserv "NOTICE $nick :Note: When a new QuakeNet fake host is banned (i.e. *!*@authname.users.quakenet.org) that authname is banned regardless of the user's host."

}

proc msg:mode {nick uhost hand text} {
   if {$text == "qnet"} {
   putserv "NOTICE $nick :/msg $::botnick qnet"
   } elseif {$text == "mode+b"} {
   putserv "NOTICE $nick :Channel mode +b "
   putserv "NOTICE $nick :Channel ban "
   putserv "NOTICE $nick :Bans an address from a channel. Any user with a host mask matching this address will be denied entry to the channel. If the user is already in the channel and does not have op/voice status, the user will not be able to speak."
   putserv "NOTICE $nick :Usage: /MODE #channel +b nick!ident@host "
   putserv "NOTICE $nick :Note: When a new QuakeNet fake host is banned (i.e. *!*@authname.users.quakenet.org) that authname is banned regardless of the user's host."
   } elseif {$text == "mode+c"} {   
   putserv "NOTICE $nick :Channel mode +c "
   putserv "NOTICE $nick :No control codes"
   putserv "NOTICE $nick :Prohibits mIRC & ANSI control codes (colours/bold/underline/italics/reverse) from being sent to a channel."
   putserv "NOTICE $nick :Usage: /MODE #channel +c "
   } elseif {$text == "mode+C"} { 
   putserv "NOTICE $nick :Channel mode +C "
   putserv "NOTICE $nick :No channel CTCPs"
   putserv "NOTICE $nick :Prohibits channel wide CTCPs."
   putserv "NOTICE $nick :Usage: /MODE #channel +C "
   } elseif {$text == "mode+D"} {
   putserv "NOTICE $nick :Channel mode +D"
   putserv "NOTICE $nick :Delayed join mode"
   putserv "NOTICE $nick :Joining users will not be shown until they are opped/voiced, change the topic or speak."
   putserv "NOTICE $nick :Usage: /MODE #channel +D "
   putserv "NOTICE $nick :Note that hidden users will not be revealed when the mode is cleared. Hidden users can be seen with /NAMES -d #channel."
   } elseif {$text == "mode+d"} {
   putserv "NOTICE $nick :Channel mode +d "
   putserv "NOTICE $nick :Hidden users present"
   putserv "NOTICE $nick :This mode is set automatically by a server when channel mode +D is cleared and there are still users hidden in the channel. It can only be set or cleared by the server and is removed automatically when all users become visible. Hidden users can be seen with /NAMES -d #channel."
   } elseif {$text == "mode+i"} {
   putserv "NOTICE $nick :Channel mode +i "
   putserv "NOTICE $nick :Invite only "
   putserv "NOTICE $nick :This prevents users from joining a channel until they are invited by a channel op, L, or Q "
   putserv "NOTICE $nick :Usage: /MODE #channel +i"
   putserv "NOTICE $nick :You may invite users by typing /INVITE nickname #channel. Note that inviting a user bypasses possible bans set on him."
   } elseif {$text == "mode+k"} {
   putserv "NOTICE $nick :Channel mode +k, Key"
   putserv "NOTICE $nick :Key'ed (Passworded) Channel"
   putserv "NOTICE $nick :Sets a key/password on a channel, without which people will be unable to join the channel. "
   putserv "NOTICE $nick :Usage: /MODE #channel +k key "
   putserv "NOTICE $nick :To join a channel which has a key set, do /JOIN #channel key"
   putserv "NOTICE $nick :To remove channel mode +k, use /MODE #channel -k key"
   } elseif {$text == "mode+l"} {
   putserv "NOTICE $nick :Channel mode +l"
   putserv "NOTICE $nick :Limit "
   putserv "NOTICE $nick :Only allows a certain number of people to join the channel."
   putserv "NOTICE $nick :Usage: /MODE #channel +l limit"
   } elseif {$text == "mode+m"} {
   putserv "NOTICE $nick :Channel mode +m "
   putserv "NOTICE $nick :Moderated "
   putserv "NOTICE $nick :This mode moderates the channel, i.e. prevents users without voice or op status from sending messages to a channel."
   putserv "NOTICE $nick :Usage: /MODE #channel +m"
   } elseif {$text == "mode+n"} {
   putserv "NOTICE $nick :Channel mode +n "
   putserv "NOTICE $nick :No external messages "
   putserv "NOTICE $nick :This prevents users from externally messaging a channel. The users must be on the channel to message it. "
   putserv "NOTICE $nick :Usage: /MODE #channel +n"
   } elseif {$text == "mode+N"} {
   putserv "NOTICE $nick :Channel mode +N "
   putserv "NOTICE $nick :No channel notices "
   putserv "NOTICE $nick :Prohibits the sending of channel notices."
   putserv "NOTICE $nick :Usage: /MODE #channel +N"
   } elseif {$text == "mode+o"} { 
   putserv "NOTICE $nick :Channel mode +o "
   putserv "NOTICE $nick :Operator "
   putserv "NOTICE $nick :Gives operator status to a user on a channel, allowing them to set or remove channel modes, kick/ban users, set the topic when channel mode +t is set and invite users into the channel. "
   putserv "NOTICE $nick :Usage: /MODE #channel +o nickname "
   } elseif {$text == "mode+p"} {
   putserv "NOTICE $nick :Channel mode +p"
   putserv "NOTICE $nick :Private"
   putserv "NOTICE $nick :This prevents the users in the channel being viewed externally. The channel also does not appear in a /LIST or /WHOIS, however the topic can be viewed using the /TOPIC command. Also see channel mode +s. +p cannot be set at the same time as +s."
   putserv "NOTICE $nick :Usage: /MODE #channel +p"
   } elseif {$text == "mode+r"} {
   putserv "NOTICE $nick :Channel mode +r "
   putserv "NOTICE $nick :Authed users only "
   putserv "NOTICE $nick :This mode only allows users authed with Q to join the channel. They will receive the message, You must be authed to join this channel (+r) when they attempt to join your channel when not authed. Once they have authed they will be able to join the channel normally. +r is a useful mode to set during flood attacks rather than +i (invite only)."
   putserv "NOTICE $nick :Usage: /MODE #channel +r"
   } elseif {$text == "mode+s"} {
   putserv "NOTICE $nick :Channel mode +s"
   putserv "NOTICE $nick :Secret"
   putserv "NOTICE $nick :This prevents the users in the channel or the topic being viewed externally using /TOPIC. The channel also does not appear in a /LIST or /WHOIS. Also see channel mode +p. +s cannot be set at the same time as +p."
   putserv "NOTICE $nick :Usage: /MODE #channel +s"
   } elseif {$text == "mode+t"} {
   putserv "NOTICE $nick :Channel mode +t "
   putserv "NOTICE $nick :Topic Lock "
   putserv "NOTICE $nick :Only channel operators may set the topic."
   putserv "NOTICE $nick :Usage: /MODE #channel +t"
   } elseif {$text == "mode+u"} {
   putserv "NOTICE $nick :Channel mode +u "
   putserv "NOTICE $nick :No Part/Quit reasons"
   putserv "NOTICE $nick :If a user is in any channel with channel mode +u set their quit and part messages are stripped, e.g. Quit (User definable quit message) would appear as Quit (Signed off). "
   putserv "NOTICE $nick :Usage: /MODE #channel +u"
   } elseif {$text == "mode+v"} {
   putserv "NOTICE $nick :Channel mode +v "
   putserv "NOTICE $nick :Voice "
   putserv "NOTICE $nick :Gives voice status to a user on a channel, thus allowing them to speak when the channel is moderated."
   putserv "NOTICE $nick :Usage: /MODE #channel +v nickname "
   putserv "NOTICE $nick :By default, channels are created with the flags +tCNn"
   }

}

putlog "Loaded : Quakenet channel modes info script version 1.0  By Smash` AKA FragUK."
fraguk
 

Re: Quakenet Channel Modes.

Postby Dandy » Wed Jul 02, 2008 8:25 am

Oh that seems spammy.
Dandy
 

Re: Quakenet Channel Modes.

Postby Lukemob » Wed Jul 02, 2008 7:51 pm

Wouldn't say it's spammy... I think usefull for IRC newbies!
Lukemob
 

Re: Quakenet Channel Modes.

Postby Dandy » Mon Jul 07, 2008 11:32 am

Lukemob wrote:Wouldn't say it's spammy... I think usefull for IRC newbies!


Not spammy?
Code: Select all
putserv "NOTICE $nick :channel modes are available on Irc QuakeNet "
putserv "NOTICE $nick :Channel mode +b <> Channel ban "
putserv "NOTICE $nick :Channel mode +c <> No control codes "
putserv "NOTICE $nick :Channel mode +C <> No channel CTCPs"
putserv "NOTICE $nick :Channel mode +D <> Delayed join mode "
putserv "NOTICE $nick :Channel mode +d <> Hidden users present "
putserv "NOTICE $nick :Channel mode +i <> Invite only "
putserv "NOTICE $nick :Channel mode +k, Key <> Key'ed (Passworded) Channel "
putserv "NOTICE $nick :Channel mode +l <> Limit "
putserv "NOTICE $nick :Channel mode +m <> Moderated "
putserv "NOTICE $nick :Channel mode +n <> No external messages "
putserv "NOTICE $nick :Channel mode +N <> No channel notices "
putserv "NOTICE $nick :Channel mode +o <> Operator "
putserv "NOTICE $nick :Channel mode +p <> Private "
putserv "NOTICE $nick :Channel mode +r <> Authed users only "
putserv "NOTICE $nick :Channel mode +s <> Secret "
putserv "NOTICE $nick :Channel mode +t <> Topic Lock "
putserv "NOTICE $nick :Channel mode +u <> No Part/Quit reasons "
putserv "NOTICE $nick :Channel mode +v <> Voice "
putserv "NOTICE $nick :NOTE <> By default, channels are created with the flags +tCNn "
putserv "NOTICE $nick :........."
putserv "NOTICE $nick :To see the Usage on a mode use help mode + letter EX: /msg botnick help mode+b  will return"
putserv "NOTICE $nick :Channel mode +b "
putserv "NOTICE $nick :Channel ban "
putserv "NOTICE $nick :Bans an address from a channel. Any user with a host mask matching this address will be denied entry to the channel. If the user is already in the channel and does not have op/voice status, the user will not be able to speak."
putserv "NOTICE $nick :Usage: /MODE #channel +b nick!ident@host "
putserv "NOTICE $nick :Note: When a new QuakeNet fake host is banned (i.e. *!*@authname.users.quakenet.org) that authname is banned regardless of the user's host."


27 notices, then using 1 command?
Dandy
 

Re: Quakenet Channel Modes.

Postby Cristian » Mon Jul 07, 2008 11:48 am

You could convert it to mirc and use the 'echo' command.

Using a bot to send messages about modes in single lines can be a lot of lines.
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar

Re: Quakenet Channel Modes.

Postby fraguk » Mon Jul 07, 2008 12:59 pm

Bots by nature are just that "spam" :lol: :roll:

That script was 1 i made some time ago for my self witch i decided to submit to egghelp.org
for release, same as now i have posted it on here for any one that may find it useful ;)

If they think its to spamy then they don't have to use it :)

Comments like yours Dandy do nothing to encourage people to script :roll:
and i thought this was a forum for people to help with and show scripts ;)

There is an old saying , "you can please some people most of the time" "but you cant please every one all of the time"
fraguk
 


Return to TCL Scripting Release

Who is online

Users browsing this forum: No registered users and 3 guests

cron