users.tcl

Просьбы о написании новых скриптов или поиске уже существующих.

Модератор: Модераторы

users.tcl

Сообщение Stefan » 06 ноя 2010 13:15

из 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"
}
Stefan
 
Сообщения: 23
Зарегистрирован: 02 окт 2010 15:13
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: users.tcl

Сообщение tvrsh » 07 ноя 2010 11:49

Что это такое?
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: users.tcl

Сообщение Stefan » 07 ноя 2010 14:55

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) .....
Stefan
 
Сообщения: 23
Зарегистрирован: 02 окт 2010 15:13
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: users.tcl

Сообщение tvrsh » 07 ноя 2010 17:25

Before
if {$curnum==100} { puthelp "PRIVMSG $chan :5-----=====4(Over 100 users)5 =====----- "}
add
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 =====----- "}
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: users.tcl

Сообщение Stefan » 07 ноя 2010 18:16

thanks alot.

regards
Stefan
 
Сообщения: 23
Зарегистрирован: 02 окт 2010 15:13
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.


Вернуться в Заявки на скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron