proc pub_time {nick uhost hand chan rest} {     set time {     $arg     }     putquick "NOTICE $nick :Set interval to $time minutes"     return 0    }

Statistics: Posted by Sir_Fz — Tue May 10, 2005 5:54 pm

Code:

################################ ADV on Timer v.4  ###### Whats new on v0.4 ?  ############# -Added on multiple text message!## Whats new on v0.3 ?             ######################################## -Added on multiple channel advertisment########################################################################### Credits:## Mainly to Egghelp.Org helpers on behalf helping solving out errors    ## Errors/comments/suggestions do please email me: boojingyou@hotmail.com#             # Do visit my personnal webby @ http://singnet.per.sg                   ## For users who wanna chat with me, do loginto irc.GalaxyNet.Org        ## #JingYou . My Nickname would be JingYou.       --Have fun--           ################################################################################## COLORS / BOLD       ## To make a text bold do this: \002TEXT-BOLD\002       ## To make a text with colors do this: \00304TEXT-RED\003 (04 = red, e.g.)      ## To make a text with colors and bold do this: \002\00304TEXT-RED-BOLD\003\002 ## Alternative, hit ctrl+k in IRC and copy paste in to dialog box. (RECOMMENDED)###################################################################################### GENERAL SETTINGS ##### EDIT the channel names or REMOVE one or two depending on which channel you intend the bot the advertiseset channel "#oh.heck"# Edit the time cycle which is in minutes format depending on the time intervals you want the bot to flow out the advertismentset time 1# EDIT the text or REMOVE or ADD lines including inverted commas at the starting and ending at each line set text {"No message."}proc pub_time {nick uhost hand chan rest} {    set time {    $arg    }    putquick "NOTICE $nick :Set interval to $time minutes"    return 0   }bind pub o -mtime pub_timeproc pub_mmessage {nick uhost hand chan arg} {    set text "$arg"    putquick "NOTICE $nick :Set message to - $arg"    return 0   }bind pub o -mmessage pub_mmessageproc pub_mchannels {nick uhost hand chan rest} {set channel [lrange $rest 1 end]putquick "NOTICE $nick :Set channels to message to $channel"return 0}bind pub o -mchannels pub_mchannelsproc pub_rehash {nick uhost hand chan rest} {    rehash    putquick "notice $nick :Rehashing."    return 0   }bind pub o -rehash pub_rehashproc pub_debug {nick uhost hand chan rest} {putquick "MSG $chan :Text $text"putquick "MSG $chan :Time $time minutes"putquick "MSG $chan :Channels $channel"return 0}bind pub o  -debug pub_debugproc pub_die {nick uhost hand chan rest} {if {[llength $text] > 1} {set reason [lrange $text 1 end]} else {    set reason "Die command recieved from $nick"}       die $reason    return 0   }bind pub m .die pub_diebind msg m die pub_die##### DO NOT EDIT ANYTHING BELOW THIS LINE UNLESS YOU KNOW WHAT YOU ARE DOING #####if {[info exists channel] == 1} {if {[info exists text] == 1} {if {[info exists time] == 1} {if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }proc go {} {global channel time text timerforeach chan $channel {foreach line $text { putquick "PRIVMSG $chan :$line" }}if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }}}}}putlog "\002Loaded Auto-ADV script by JingYou @ Galaxynet #JingYou (v.4 13nov03)\002"

Statistics: Posted by mg123 — Tue May 10, 2005 3:27 pm

Statistics: Posted by De Kus — Tue May 10, 2005 3:07 am