adddisplay help with -inactive channels

[Rusher2K]

Hello i had 60 chans in my chanfile bur 59 +inactve and want to msg an msg to all channels but distributed in 3 hours to prevent exxes flood but my script don`t work and i don`t no why

Code: Select all

bind time - "?? 02 *" addisplay
bind time - "?? 05 *" addisplay
bind time - "?? 08 *" addisplay
bind time - "?? 11 *" addisplay
bind time - "?? 14 *" addisplay
bind time - "?? 17 *" addisplay
bind time - "?? 20 *" addisplay
bind time - "?? 23 *" addisplay

proc addisplay {minute stunde tag monat jahr} {
set channel ""

foreach chan [channels] {

if {$chan != "#chan1"} { lappend channel $chan }

}

set total [expr [llength [channels]]-3]

set abstand [expr 10800/$total]

set nabstand 0

putlog "channel: $channel! total: $total! abstand: $abstand! nabstand: $nabstand"

foreach chan $channel {

utimer $nabstand "werbung $chan"

set nabstand [expr $nabstand+$abstand]

}

}





proc werbung {chan} {

global botnick

set originalmode [channel get $chan chanmode]


channel set $chan -inactive

putlog "mache in 10 Sekunden Werbung in $chan"

utimer 10 "putserv \"PRIVMSG $chan : .dsljhfasldf \""


utimer 20 "channel set $chan -inactive"

}

He only join 1 chan and only make there adversing

[Ofloo]

just create a timer and let it choose a random channel from a channel list and your done :p

[Rusher2K]

But how ?

[Ofloo]

using rand there is a way that it is discribed on this forum check this

http://forum.egghelp.org/viewtopic.php? ... light=spin

nice sample

Code: Select all

bind pub - !spin my:spin 

proc my:spin {nick host handle channel text} { 
  switch -- [rand 6] { 
    "1" { 
      # your stuff here 
    } 
    "2" { 
      # your stuff here 
    } 
    "3" { 
      # your stuff here 
    } 
    "4" { 
      # your stuff here 
    } 
    "5" { 
      # your stuff here 
    } 
    "6" { 
      # your stuff here 
    } 
  } 
}