I've made a TCL bot too. The base takes hours to be completed, if you want your bot so be smart (know it's channels, channels of user, hosts, prefixes, authnames etc...) though the biggest problem for me was getting the new prefixes of nicks when they got mass-deopped/opped/voiced/devoiced.. Spending time with the bot makes it smar, light and efficient.
I think that script is ripped from QuakeNet's scriptwiki. Atleast most of it :P. http://script.quakenet.org/wiki/Shoutcast_status_script.
This is a chat dialog with oracle, the oracle answers your questions. At the moment the oracle can answer only in Finnish but i will make an edit so it will be able to answer atleast in English too. The snippet is easy to use and I don't think there's other oracle script in hawkee (yet ;d). Just type /oraakkeli to open the dialog. The snippet will ask you to set your nick. Then you're ready to chat..
This snippet logs the private messages and highlights while you're away. To be in a away mode you have to write /away and to return from the away mode you just need to write /away. When someone mentions your nick or pm's you, the snippet will inform the user that you are away. The snippet has 4 second flood protection preventing flooding from same user@host. You can see the logged messages in a dialog..
What is a better place to get the needed comments; what\'s good, what needs to be improved, what ahould be added and so on than hawkee.com?
The script is not update for the previous blacklist script as this script uses dialogs, previous doesn\'t. I\'d rather delete the previous script and add this not \"update\" it.
I don\'t know why you post scripts here, if you don\'t do it because of feedback.
Someone wanted me to make a shitlist snippet in a dialog. The truth is I have never used dialogs, so don't be too cruel ;) Rightclick in a channel window and select "shitlist by shitbreak" to open the shitlist dialog. To enable the shitlist check "Enabled". Any suggestions? Give me a comment or PM me on irc: I irc in QuakeNet network.
alias hlit {
var %i 1
while (%i <= $nick($chan,0)) {
if ($nick($chan,%i) isop $chan) var %pre @
if ($nick($chan,%i) isvoice $chan) var %pre +
if ($nick($chan,%i) isreg $chan) var %pre $null
if ($len(%k) < 300) { var %k = %k $+ $chr(44) $+(%pre,$nick($chan,%i)) }
if ($len(%k) >= 300) { msg $chan $right(%k,-1) }
inc %i
}
if (%k) { msg $chan $right(%k,-1) }
}