Code: Select all
bind pub -|- !forum typ_forum
proc typ_forum {nick uhost handle channel text} {
puthelp "PRIVMSG $channel :\[\002Forum\002\] http://www.moxquiz.de"
}Code: Select all
set fl_flood_control 0
set fl_msg {
"\[\002Forum\002\] http://www.moxquiz.de/"
}
bind pub -|- !forum fl:reply
proc fl:reply {nick uhost handle channel text} {
global fl_flood_control fl_msg
if {$fl_flood_control == "1"} {return 0}
set fl_flood_control 1
utimer 7 [list set fl_flood_control 0]
set temp_fl $fl_msg
set temp_fl [lindex $temp_fl [rand [llength $temp_fl]]]
putquick "PRIVMSG $channel :$temp_fl"
return 0
}
Code: Select all
.chanset #somewere +foum or -forumCode: Select all
# Rls: SaNcTuM_help.v1.0
# Date: 27/04/10
# Coded by: doggo
# Contact: #alt.binaries.inner-sanctum@EFNET
#
# Script Starts Here - DO NOT EDIT BELOW!
## forum ##
set forum "!forum"
bind PUB $forum forumcom
proc forumcom {nick uhost hand chan text} {
global botnick
if {![channel get $chan forum]} {return 0}
puthelp "NOTICE $nick :\0033http://doggo.is-a-geek.com"
}
Code: Select all
[12:27pm] <doggo> -forum
[12:27pm] -tsara- http://doggo.is-a-geek.comCode: Select all
set forum "!forum"
bind PUB $forum forumcom
proc forumcom {nick uhost hand chan text} { Code: Select all
set radio "!radio"
bind PUB $radio radiocom
proc radiocom {nick uhost hand chan text} {