Скрипт, выдающий статистику по дате регистрации ников
Страница 1 из 1
Скрипт, выдающий статистику по дате регистрации ников
в мирк нажимаем сочитание клавишь alt+r раздел "скрипты" потом файл->добавить новый и встовляем скрипт, отом сохраняеем.
В скрипты:
В алиасы:
В скрипты:
- Код:
on 1:NOTICE:*незарегистрирован.*:?: {
set %regnick $2
if %regnick == %nick1 { /timer1 1 3 /stat2 }
}
on 1:NOTICE:*это*:?: {
set %regnick $1
if %regnick == %nick1 { /timer1 1 3 /stat2 }
}
on 1:NOTICE:Зарегистрирован*:?: {
set %mes $3
if ( %mes == Янв ) { set %mi 0 $+ 1 }
if ( %mes == Фев ) { set %mi 0 $+ 2 }
if ( %mes == Мар ) { set %mi 0 $+ 3 }
if ( %mes == Апр ) { set %mi 0 $+ 4 }
if ( %mes == Май ) { set %mi 0 $+ 5 }
if ( %mes == Июн ) { set %mi 0 $+ 6 }
if ( %mes == Июл ) { set %mi 0 $+ 7 }
if ( %mes == Авг ) { set %mi 0 $+ 8 }
if ( %mes == Сен ) { set %mi 0 $+ 9 }
if ( %mes == Окт ) { set %mi 10 }
if ( %mes == Ноя ) { set %mi 11 }
if ( %mes == Дек ) { set %mi 12 }
set %god $5
set %den $2
if ( $len(%den) = 1 ) { set %den 0 $+ %den }
/write regs.txt %regnick : %god $+ %mi $+ %den }
on 1:text:!topic *:#:/if ( $nick isop $chan || $nick ishop $chan )
{ /set %topic $2- | /topic $Chan Topic: %topic / I am %status / Streaming @ <my stream.url> /halt
}
В алиасы:
- Код:
/regs {
set %i 1
set %regchan #
while ( %i <= $nick(#,%i) ) {
/ns info $nick(#,%i) all
inc %i
}
set %nick1 $nick(#,$calc( %i - 1 ))
}
/stat2 {
set %i 1
:next3
if ( $read(regs.txt,%i) = $null ) goto done3
inc %i
goto next3
:done3
set %nmax $calc(%i - 1)
if ( %nmax < 5 ) { set %kol %nmax }
else { set %kol 5 }
/msg %regchan %kol $+ -ка старперов канала %regchan $+ :
set %j 1
:next2
set %p $read(regs.txt,1)
set %min $mid(%p,$calc($pos(%p,:,1) + 2),$calc($len(%p) - $calc($pos(%p,:,1) + 1)))
set %i 2
set %mini 1
:next
if ( $read(regs.txt,%i) = $null ) goto done
set %p $read(regs.txt,%i)
if ( %min > $mid(%p,$calc($pos(%p,:,1) + 2),$calc($len(%p) - $calc($pos(%p,:,1) + 1))) ) { set %min $mid(%p,$calc($pos(%p,:,1) + 2),$calc($len(%p) - $calc($pos(%p,:,1) + 1))) | set %mini %i }
inc %i
goto next
:done
set %mstr $read(regs.txt , w, * $+ %min $+ *)
set %starnick $mid(%mstr,1,$calc($pos(%mstr,:,1) - 2))
/msg %regchan %j - ое место: ? %starnick ?
set %god $mid(%min,1,4)
set %mesc $mid(%min,5,2)
set %den $mid(%min,7,2)
/msg %regchan Дата регистрации: ? %den $+ . $+ %mesc $+ . $+ %god ?
/write -dl $+ %mini regs.txt
inc %j
if %j == $calc( %kol + 1 ) goto done2
goto next2
:done2
/remove regs.txt
}
Похожие темы
» Стилизатор ников
» Скрипт антирекламы
» Скрипт-записки на боте
» Скрипт "албанского" языка
» Скрипт - Winamp
» Скрипт антирекламы
» Скрипт-записки на боте
» Скрипт "албанского" языка
» Скрипт - Winamp
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения
|
|