Форум о ботах Eggdrop/Windrop

[Stefan]

из 10 пользователей отмечают, что (Over брой users) в этом скрипт :

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Channel Users tcl  by Nixen Group. v 1.0

### Description:
#  public command for current users in the channel
#  announces  when people reached over 100 users in the channel.


### Thanks To:
# Berkstock

bind join - * join:peak
proc join:peak {nick host hand chan} {
   set curnum [llength [chanlist $chan]]
   if {$curnum > 99} {
                if {$curnum==100} { puthelp "PRIVMSG $chan :5-----=====4(Over 100 users)5 =====----- "}
# return [cheking $curnum]
   if {$curnum < 100} {
                if {$curnum==99} { puthelp "PRIVMSG $chan :New low" }
    }
 }
  return
}

 #provides the !users public command:
bind pub o!o !users pub:users
proc pub:users {nick host hand chan arg} { set peak [cheking $chan]
 putcmdlog "<$nick@$chan> !$hand! peak"
 set number [llenght [chanlist $chan]]
  puthelp "PRIVMSG $chan : Current Users:  "
}
proc cheking {chan curnum} {global peak
 set chan [string tolower $chan]
 set peak($chan) "$curnum"
}

[tvrsh]

Что это такое?

[Stefan]

example script is exactly 100 users to write in the channel - (Over 100 users) .
I want every 10 users to write in the channel - (Over number users) .

example: (Over 10 users) , (Over 20 users) (Over 30 users) (Over 40 users) (Over 50 users) .....

[tvrsh]

Before

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

if {$curnum==100} { puthelp "PRIVMSG $chan :5-----=====4(Over 100 users)5 =====----- "}

add

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

if {$curnum==10} { puthelp "PRIVMSG $chan :\00305-----=====\00304(Over 10 users)\00305 =====----- "}
if {$curnum==20} { puthelp "PRIVMSG $chan :\00305-----=====\00304(Over 20 users)\00305 =====----- "}
...
if {$curnum==90} { puthelp "PRIVMSG $chan :\00305-----=====\00304(Over 90 users)\00305 =====----- "}

[Stefan]

thanks alot.

regards