Вторник
09.06.2026, 10:42
NS-script
 Приветствую Вас Гость | RSS
Главная Готовые mIRC скрипты - Форум Narkoman's Script Регистрация Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: D-Vantage, Death  
Форум Narkoman's Script » Главный форум » Scripting » Готовые mIRC скрипты
Готовые mIRC скрипты
ICQДата: Воскресенье, 08.07.2007, 00:47 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 3
Репутация: 0
Статус: Offline
Скрипт ПОДСЧЕТ ВРЕМЕНИ

menu menubar {
Подсчет времени:/calctime
}
alias calctime { dialog -m calctime calctime | cl.add }
dialog calctime {
title ".: Подсчет времени :."
size -1 -1 388 204
option pixels
box "Настройка:", 1, 5 5 375 52,
combo 2, 15 25 105 164, drop size
combo 3, 130 25 75 164, drop size
combo 4, 215 25 55 164, drop size
edit "00", 5, 280 25 25 20,
edit "00", 6, 312 25 25 20,
edit "00", 7, 345 25 25 20,
text ":", 8, 307 27 5 14,
text ":", 9, 340 27 5 14,
box "Статус:", 10, 5 60 375 90,
edit "", 11, 15 80 355 60, read multi autovs vsbar
button "П О Д С Ч Е Т В Р Е М Е Н И", 12, 5 155 375 22,
text "Copyright © 2007 by ToMMu", 13, 235 185 145 14,
}
alias r.inf1 { return $did(calctime,2).text }
alias r.inf2 { return $did(calctime,3).text }
alias r.inf3 { return $did(calctime,4).text }
alias t.a { return $did(calctime,5).text }
alias t.b { return $did(calctime,6).text }
alias t.c { return $did(calctime,7).text }
alias repcl return $replace($$1,wks, нед.,wk, нед.,days, дн.,day, дн.,hrs, ч.,hr, ч.,mins, мин.,min, мин.,secs, сек.,sec, сек.)
alias cl.add {
%i = 1
while (%i <= 31) { didtok calctime 3 C %i | inc %i }
%i = 2007
while (%i <= 2020) { didtok calctime 4 C %i | inc %i }
didtok calctime 2 C Январь
didtok calctime 2 C Февраль
didtok calctime 2 C Март
didtok calctime 2 C Апрель
didtok calctime 2 C Май
didtok calctime 2 C Июнь
didtok calctime 2 C Июль
didtok calctime 2 C Август
didtok calctime 2 C Сентябрь
didtok calctime 2 C Октябрь
didtok calctime 2 C Ноябрь
didtok calctime 2 C Декабрь
did -c calctime 2,3,4 1
}
on *:DIALOG:calctime:sclick:12:{
if ($r.inf1 == Январь) { %cl.year = 1 }
if ($r.inf1 == Февраль) { %cl.year = 2 }
if ($r.inf1 == Март) { %cl.year = 3 }
if ($r.inf1 == Апрель) { %cl.year = 4 }
if ($r.inf1 == Май) { %cl.year = 5 }
if ($r.inf1 == Июнь) { %cl.year = 6 }
if ($r.inf1 == Июль) { %cl.year = 7 }
if ($r.inf1 == Август) { %cl.year = 8 }
if ($r.inf1 == Сентябрь) { %cl.year = 9 }
if ($r.inf1 == Октябрь) { %cl.year = 10 }
if ($r.inf1 == Ноябрь) { %cl.year = 11 }
if ($r.inf1 == Декабрь) { %cl.year = 12 }
did -ri calctime 11 1 До $r.inf2 $r.inf1 $r.inf3 осталось:
did -i calctime 11 2 $repcl($duration($calc($ctime($r.inf2 $+ / $+ %cl.year $+ / $+ $r.inf3 $t.a $+ : $+ $t.b $+ : $+ $t.c) - $ctime)))
}

 
CepejkoДата: Понедельник, 10.12.2007, 04:17 | Сообщение # 2
Рядовой
Группа: Пользователи
Сообщений: 4
Репутация: 0
Статус: Offline
menu menubar {
Стилизатор
.$iif(%Style5,$style(1)) Английские буквы:if (%Style5) { unset %Style5 } | else { set %Style5 on }
.$iif(%Style7,$style(1)) Шепелявить:if (%Style7) { unset %Style7 } | else { set %Style7 on }
.$iif(%Style8,$style(1)) Без Shift (7 ?;1 !):if (%Style8) { unset %Style8 } | else { set %Style8 on }
.$iif(%Style9,$style(1)) Ставить точку.:if (%Style9) { unset %Style9 } | else { set %Style9 on }
.$iif(%Style10,$style(1)) Первая большая:if (%Style10) { unset %Style10 } | else { set %Style10 on }
.$iif(%Style11,$style(1)) © $me:if (%Style11) { unset %Style11 } | else { set %Style11 on }
.-
.$iif(%Style6,$style(1)) Автозамена!:dialog -m AutoReplace AutoReplace
}
on *:INPUT:* {
if (!$ctrlenter) {
haltdef
StyleSay $1-
}
}
;======== Обработка введенного текста
alias StyleSay {
if ($left($1-,1) == /) { $1- | halt }
set %StyleSay $1-
;=== вырезает цвета из сообщения, если комната не пропускает их (+c)
if ($chan && $poscs($chan($chan).mode,c)) { set %StyleSay $strip(%StyleSay,c)) }
if (%Style2) { set %StyleSay $Style2(%StyleSay) }
elseif (%Style1) { set %StyleSay $Style1(%StyleSay) }
if (%Style4) { set %StyleSay $Style4(%StyleSay) }
elseif (%Style3) { set %StyleSay $Style3(%StyleSay) }
if (%Style5) { set %StyleSay $Style5(%StyleSay) }
if (%Style6) { set %StyleSay $Style6(%StyleSay) }
if (%Style7) { set %StyleSay $replace(%StyleSay,р,л,ж,з,ч,с,ш,с) }
if (%Style8 && $right(%StyleSay,1) == 7) { set %StyleSay $left(%StyleSay,$calc($len(%StyleSay)-1)) $+ ? }
if (%Style8 && $right(%StyleSay,1) == 1) { set %StyleSay $left(%StyleSay,$calc($len(%StyleSay)-1)) $+ $chr(33) }
if ($right(%StyleSay,1) != $chr(33) && %Style9 && $right(%StyleSay,1) != $chr(63) && $right(%StyleSay,1) != $chr(46) && $right(%StyleSay,1) != $chr(133) && $right(%StyleSay,1) != $chr(58)) { set %StyleSay %StyleSay $+ $chr(46) }
if (%Style10) { set %StyleSay $Style10(%StyleSay) }
if (%Style11) { set %StyleSay %StyleSay © $me }
if (%StyleSay) msg $active %StyleSay
}
;======== Стили (алиасы)
alias -l Style1 {
unset %tmp | set %i 1
While ($mid($1-,%i,1)) {
if ($mid($1-,%i,1) == $chr(32)) { set %tmp %tmp $chr(32) }
elseif ($calc(%i / 2) != $round($calc(%i / 2),0)) { set %tmp %tmp $+ $iif($asc($mid($1-,%i,1)) > 223,$chr($calc($asc($mid($1-,%i,1)) - 32)),$upper($mid($1-,%i,1))) }
else { set %tmp %tmp $+ $iif($asc($mid($1-,%i,1)) > 191 && $asc($mid($1-,%i,1)) < 224,$chr($calc($asc($mid($1-,%i,1)) + 32)),$lower($mid($1-,%i,1))) }
inc %i
}
unset %i | return %tmp
}
alias -l Style2 {
unset %tmp | set %i 0
While ($mid($1-,%i,1)) {
inc %i
if ($mid($1-,%i,1) == $chr(32)) { set %tmp %tmp $chr(32) }
if ($rand(0,1) == 1) { set %tmp %tmp $+ $iif($asc($mid($1-,%i,1)) > 223,$chr($calc($asc($mid($1-,%i,1)) - 32)),$upper($mid($1-,%i,1))) }
else { set %tmp %tmp $+ $iif($asc($mid($1-,%i,1)) > 191 && $asc($mid($1-,%i,1)) < 224,$chr($calc($asc($mid($1-,%i,1)) + 32)),$lower($mid($1-,%i,1))) }
}
unset %i | return %tmp
}
alias -l Style3 {
unset %tmp | set %i 0
While ($mid($1-,%i,1)) {
inc %i
if ($mid($1-,%i,1) == $chr(32)) { set %tmp %tmp $chr(32) }
set %tmp %tmp $+  $+ $rand(0,15) $+ $mid($1-,%i,1)
}
unset %i | return %tmp
}
alias -l Style4 {
unset %tmp | set %i 0
While ($mid($1-,%i,1)) {
inc %i
if ($mid($1-,%i,1) == $chr(32)) { set %tmp %tmp $chr(32) }
set %tmp %tmp $+  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ $mid($1-,%i,1)
}
unset %i | return %tmp
}
alias -l Style5 { return $replace($1-,a,a,б,b,в,v,г,g,д,d,е,e,ё,yo,ж,zh,з,z,и,i,й,i,к,k,л,l,м,m,н,n,о,o,п,p,р,r,с,s,т,t,у,u,ф,f,х,x,ц,c,ч,4,ш,sh,щ,sh,ы,i,ь,',э,e,ъ,' ,ю,iy,я,ya) }

;======== Cтиль Автозамена
alias -l Style6 {
set %i 1 | set %tmp $1-
While (%Style.AutoReplace. [ $+ [ %i ] ]) {
if ($gettok(%Style.AutoReplace. [ $+ [ %i ] ],1,44) == 2) {
set %tmp $replace(%tmp,$gettok(%Style.AutoReplace. [ $+ [ %i ] ],2,44),$gettok(%Style.AutoReplace. [ $+ [ %i ] ],3,44))
}
elseif ($gettok(%Style.AutoReplace. [ $+ [ %i ] ],1,44) == 0) {
if ($1 == $gettok(%Style.AutoReplace. [ $+ [ %i ] ],2,44) && !$2) { set %tmp $gettok(%Style.AutoReplace. [ $+ [ %i ] ],3,44) }
}
elseif ($gettok(%Style.AutoReplace. [ $+ [ %i ] ],1,44) == 1) {
set %tmp $reptok(%tmp,$gettok(%Style.AutoReplace. [ $+ [ %i ] ],2,44),$gettok(%Style.AutoReplace. [ $+ [ %i ] ],3,44),1,32)
}
inc %i
}
return %tmp
}
alias -l Style10 { return $Style1($left($1,1)) $+ $iif($mid($1-,2,$calc($len($1-)-1)),$ifmatch) }
;======== Диологовое окно для стиля Автозамена
dialog AutoReplace {
title "Авто замена"
size -1 -1 316 515
option pixels, AutoReplace
box "", 10, 0 0 310 470, disable hide
edit "", 1, 10 40 295 20,
list 6, 10 210 295 295, hsbar vsbar
button "Добавить", 3, 20 110 75 27,
button "Изменить", 5, 120 110 75 27,disable
edit "", 2, 10 80 295 20,
text "Слово:", 7, 10 20 75 14,
text "Заменить на:", 8, 10 60 85 14,
button "Удалить", 4, 220 110 75 27,
radio "Заменять если слово одно", 11, 20 150 275 14,
radio "Заменять все слова", 12, 20 170 275 14,
radio "Заменять все символы", 13, 20 190 275 14,
check "Включить", 9, 200 20 75 14,
}
on *:dialog:AutoReplace:init:*: {
did -f $dname 6
did -t $dname 3
set %Style.AutoReplace 1
While (%Style.AutoReplace. [ $+ [ %Style.AutoReplace ] ]) {
did -a $dname 6 %Style.AutoReplace. [ $+ [ %Style.AutoReplace ] ]
inc %Style.AutoReplace
}
if (%Style6) { did -c $dname 9 }
}
on *:dialog:AutoReplace:sclick:*: {
if ($did == 3 && $did(1) && $did(2)) {
if ($did(11).state) set %tmp 0
elseif ($did(12).state) set %tmp 1
elseif ($did(13).state) set %tmp 2
did -a $dname 6 %tmp $+ , $+ $did(1) $+ , $+ $did(2)
set %Style.AutoReplace. [ $+ [ %Style.AutoReplace ] ] %tmp $+ , $+ $did(1) $+ , $+ $did(2)
inc %Style.AutoReplace
}
if ($did == 4) {
set %tmp $calc($did(6).sel + 1)
did -d $dname 6 $did(6).sel
While (%Style.AutoReplace. [ $+ [ %tmp ] ]) {
set %Style.AutoReplace. [ $+ [ $calc(%tmp - 1) ] ] %Style.AutoReplace. [ $+ [ %tmp ] ]
inc %tmp
}
unset %Style.AutoReplace. [ $+ [ $calc(%tmp - 1) ] ]
}
if ($did == 6) {
did -r $dname 1,2
did -a $dname 1 $gettok($did($did,$did(6).sel),2,44)
did -a $dname 2 $gettok($did($did,$did(6).sel),3,44)
if ($gettok($did($did,$did(6).sel),1,44) == 0) { did -c $dname 11 | did -u $dname 12,13 }
elseif ($gettok($did($did,$did(6).sel),1,44) == 1) { did -c $dname 12 | did -u $dname 11,13 }
elseif ($gettok($did($did,$did(6).sel),1,44) == 2) { did -c $dname 13 | did -u $dname 11,12 }
}
if ($did == 9) {
if ($did(9).state == 1) { set %Style6 on }
else { unset %Style6 }
}
}

Добавлено (10.12.2007, 04:17)
---------------------------------------------
cho tak gluha tut ?!?! davaite derzaite=)

ХТО СДЕСЬ @_@ ?!
 
SHaDoWДата: Суббота, 15.12.2007, 15:55 | Сообщение # 3
Рядовой
Группа: Пользователи
Сообщений: 12
Репутация: 1
Статус: Offline
херня твой скрипт)
 
ЦЫГАНДата: Четверг, 27.03.2008, 19:26 | Сообщение # 4
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
кто бы попроще обьяснил
1
 
ApToXaaaaДата: Пятница, 30.05.2008, 16:38 | Сообщение # 5
Рядовой
Группа: Пользователи
Сообщений: 2
Репутация: 0
Статус: Offline
куда скрипт вставлять?
в ремоуте?
g
 
skeepДата: Суббота, 26.07.2008, 19:54 | Сообщение # 6
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
мини авей скриптик, указывается причина и приставка к нику

Code

alias miniaw { dialog -m miniaway miniaway }

dialog miniaway {
   title "Mini Away System"
   size -1 -1 113 56
   option dbu
   box "Приписка к нику:", 1, 4 29 59 23
   box "Причина отсутствия:", 2, 4 3 105 23
   edit "", 3, 7 11 98 10
   edit "`away", 4, 7 38 50 10
   button "Ok", 5, 71 37 37 12, ok
}

on 1:dialog:miniaway:active:*:{
   if ($did == 3) { set %awreason $did(3).text }
   if ($did == 4) { set %awtag $did(4).text }
}

on 1:dialog:miniaway:sclick:*:{
   if ($did == 5) {
     set %awreason $did(3).text
     away %awreason | set %awtime1 $ctime | ame 4,0[1сМыЛсЯ4] в 4(14 $+ $time $+ 4) по причине:4 %awreason 
     set %awtime $time
     set %awtag $did(4).text
     nick $me $+ %awtag
     awmini
   }
}
alias awmini { dialog -m awmini awmini }
dialog awmini {
   title "Вы в Away"
   size -1 -1 103 54
   option dbu
   box "Вас нет по причине:", 1, 2 26 100 26
   button "Вернуться", 2, 5 6 94 13, ok
   box "", 3, 2 -1 100 27
   edit %awreason, 4, 5 36 94 10, read
}

on 1:dialog:awmini:sclick:*:{
   if ($did == 2) {
     nick $remove($me,%awtag) |  
     away | ame 4,0[1вЕрНуЛсЯ4], небыло с 4(14 $+ %awtime $+ 4) отсутствовал:4  $duration($calc($ctime - %awtime1)) 
     unset %awtime1  
     unset %awtime   
   }
}

 
[LongNight]Дата: Воскресенье, 05.07.2009, 19:02 | Сообщение # 7
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
Quote (LuciFer)
Вот скрипт Принятие и отклонения приватов.
on *:OPEN:?:{
.msg $nick Пожалуйста, подождите пока я подтвержу или отклоню приват... ~
if ($nick isprotect) {
.msg $nick Приват разрешен ~ }
else {
ShowMess $nick $1-
}
}
on *:close:?:{
/notice $nick  $me » ~ » закрыл приват с вами
}
alias -l ShowMess {
var %i = 1
var %host = $address($1,2)
var %cnt = 1
var %totalcnt = 1
while (%i <= $dialog(0)) {
if (dlgMess* iswm $dialog(%i)) {
var %num = $right($dialog(%i),-9)
inc %totalcnt
if (%host == %warns. [ $+ [ %num ] ]) inc %cnt
}
inc %i
}
if (%cnt > 3 || %totalcnt > 10) return $false
var %i = 1
while ($dialog(dlgMess $+ %i)) inc %i
set %warns. [ $+ [ %i ] ] %host
set %warns.nick. [ $+ [ %i ] ] $nick
dialog -mo dlgMess $+ %i dlgMess
dialog -t dlgMess $+ %i Приват от $1
did -ra dlgMess $+ %i 1 Приват от $1 ( $+ $right(%host,-4) $+ )
did -ra dlgMess $+ %i 3 $2-
.timer 1 60 .dialog -c dlgMess $+ %i
}
on *:DIALOG:dlgMess*:sclick:2: {
var %i = $right($dname,-7)
msg %warns.nick. [ $+ [ %i ] ] Ваше сообщение принято. Спасибо, что заглянули ко мне. ~
window -a %warns.nick. [ $+ [ %i ] ]
}
on *:DIALOG:dlgMess*:sclick:4: {
var %i = $right($dname,-7)
msg %warns.nick. [ $+ [ %i ] ] Извените, но ваш приват отклонён.. ~
.ignore -pu180 %warns.nick. [ $+ [ %i ] ] 2
window -c %warns.nick. [ $+ [ %i ] ]
}
dialog dlgMess {
title "» ~ » Приват"
size -1 -1 352 120
option pixels
box "Приват", 1, 4 4 344 80
button "Принять", 2, 96 88 75 25, ok
button "Отклонить", 4, 176 88 75 25, cancel
text "", 3, 12 20 326 56
}
Добавлено (14.03.2008, 01:00)
---------------------------------------------
Смотрите внимательней тут мало места и не умещаеться на однйо строчки=)

когда са мной приват открывают пишит---2+2=?
как это исправить?????

Сообщение отредактировал [LongNight] - Воскресенье, 05.07.2009, 22:06
 
PlatinumДата: Среда, 23.12.2009, 12:55 | Сообщение # 8
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
Скрипт для слушания слов в ирк а не читания. Работает только если в папке с миркой лежит приатаченый файл.
Сам скрипт:
on *:TEXT:*:#: { run Govorilka_cp.exe -E0 -I $qt($nick на сказал $1-) }
Типа пользуемся! smile biggrin
 
Форум Narkoman's Script » Главный форум » Scripting » Готовые mIRC скрипты
  • Страница 1 из 1
  • 1
Поиск:


Copyright Narkoman's © 2026