[script]
n0=;########################################### SKINS ####################################################################  
n1=;###################  Если ты захотел спиздить наш скрипт, то мы тебя сука найдем и подадим в суд, так как у нас на скрип  ###################
n2=;###################################################################################################################
n3=
n4=alias skins { if !$dialog(skins) { dialog -m skins skins } } 
n5=
n6=dialog skins {
n7=  icon icons\skins.ico
n8=  title "Менеджер скинов"
n9=  size -1 -1 530 430
n10=  list 100,   5 5 100 340
n11=  icon 200, 115 30 170 106 , icons\main.ico , top
n12=  icon 204, 110 10 400 306 , icons\main.ico , top
n13=  icon 203, 295 30 170 106 , icons\main.ico , top  
n14=  icon 201, 230 180 170 346 , icons\main.ico , top
n15=  icon 205, 440 30 100 346 , icons\main.ico , top
n16=  button "Применить",         10, 10 365 170 30
n17=  button "Больше скинов в интернете",     20, 180 365 170 30
n18=  button "Хорошо",            40, 350 365 170 30,cancel
n19=  check "Показывать информацию", 30, 330 400 170 20
n20=  check "Очищать все окна", 44, 100 400 170 20
n21=}
n22=
n23=on *:dialog:skins:init:*: {
n24=  /tip 100 Выберите нужный скин.
n25=  /tip 200 Скриншот выделенного скина.
n26=  /tip 10 Просмотреть скин.
n27=  /tip 40 Сохранить выбор и выйти.
n28=  if %skins.showinfo == yes { /did -c skins 30 }
n29=  if %skins.clear == yes { /did -c skins 44 }
n30=  %skins.totallines = $lines(skins\list.ini)
n31=  %skins.currentline = 1
n32=  /did -g skins 200 skins\none.jpg
n33=  /did -g skins 201 skins\none.jpg
n34=  /did -g skins 205 skins\none.jpg
n35=  /set %skins.selectedskin $null 
n36=  :next
n37=  /did -i skins 100 1 $read($mircdir $+ skins\list.ini,%skins.currentline)
n38=  if %skins.currentline = %skins.totallines { /did -i skins 100 1 Standard | /did -ft $dname 10 | /halt }
n39=  %skins.currentline = %skins.currentline + 1
n40=  goto next 
n41=}
n42=
n43=on *:dialog:skins:sclick:100: {
n44=  if ($did(100).seltext = $null) { halt }
n45=  if ($isdir(skins\ $+ $did(100).seltext) == $false) { If ($input(Данного скина не существует. Удалите неверную запись в списке скинов.,-os,skins,Нету скина,text)) { halt } | halt }
n46=  /set %skins.selectedskin $did(100).seltext
n47=  /did -g skins 200 skins\ $+ %skins.selectedskin $+ \MAIN.jpg
n48=  /did -g skins 201 skins\ $+ %skins.selectedskin $+ \photo.jpg
n49=  /did -g skins 203 skins\ $+ %skins.selectedskin $+ \status.jpg
n50=  /did -g skins 204 skins\ $+ %skins.selectedskin $+ \toolbar.bmp
n51=  /did -g skins 205 skins\ $+ %skins.selectedskin $+ \switchbar.jpg
n52=}
n53=
n54=on *:dialog:skins:dclick:100: {
n55=  /useskin
n56=}
n57=
n58=on *:dialog:skins:sclick:10: {
n59=  /useskin
n60=}
n61=
n62=on *:dialog:skins:sclick:20: {
n63=  /url -an http://script.i-neon.lv
n64=}
n65=
n66=on *:dialog:skins:sclick:30: {
n67=  if $did(30).state = 1 { /set %skins.showinfo yes } | else { /set %skins.showinfo no }
n68=}
n69=
n70=on *:dialog:skins:sclick:44: {
n71=  if $did(44).state = 1 { /set %skins.clear yes } | else { /set %skins.clear no }
n72=}
n73=
n74=alias useskin {
n75=  if %skins.selectedskin != $null {
n76=    if $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, pictures, main) == yes { /set %skins.main skins\ $+ $did(100).seltext $+ \main.jpg | else /background -amfe }
n77=    if $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, pictures, status) == yes { /background -sf skins\ $+ $did(100).seltext $+ \status.jpg | else /background -sfx }
n78=    if $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, pictures, toolbar) == yes { /set %skins.toolbar skins\ $+ $did(100).seltext $+ \toolbar.bmp | else /background -lx }
n79=    if $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, pictures, switchbar) == yes { /background -h skins\ $+ $did(100).seltext $+ \switchbar.jpg | else /background -hx }
n80=
n81=    if $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, pictures, main) == no { /background -amx }
n82=    if $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, pictures, status) == no { /background -sx }
n83=    if $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, pictures, toolbar) == no { /background -lx }
n84=    if $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, pictures, switchbar) == no { /background -hx }
n85=    /tbreset
n86=    /color editbox $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, editbox)
n87=    /color editbox text $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, editboxtext)
n88=    /color inactive $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, inactive)
n89=    /color background $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, background)
n90=    /color action $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, action)
n91=    /color ctcp $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, ctcp)
n92=    /color highlight $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, highlight)
n93=    /color info $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, info)
n94=    /color info2 $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, info2)
n95=    /color invite $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, invite)
n96=    /color join $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, join)
n97=    /color kick $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, kick)
n98=    /color mode $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, mode)
n99=    /color nick $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, nick)
n100=    /color normal $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, normal)
n101=    /color notice $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, notice)
n102=    /color notify $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, notify)
n103=    /color other $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, other)
n104=    /color own $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, own)
n105=    /color part $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, part)
n106=    /color quit $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, quit)
n107=    /color topic $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, topic)
n108=    /color wallops $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, wallops)
n109=    /color whois $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, whois)
n110=    /color listbox $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, listbox)
n111=    /color listbox text $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, listboxtext)
n112=    /color title text $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, titletext)
n113=    /color gray text $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, colors, graytext)
n114=    /set %skins.echocharcolor $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, prefix, charcolor)
n115=    /set %skins.echochar $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, prefix, char)
n116=    /set %skins.echocolor $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, prefix, echocolor)
n117=    /set %skins.skin.name $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, info, name)
n118=    /set %skins.skin.author $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, info, author)
n119=    /set %skins.skin.email $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, info, email)
n120=    /set %skins.skin.www $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, info, www)
n121=    /set %nickcolors.enabled $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, nickcolors, enabled)
n122=    /set %nickcolors.me $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, nickcolors, me)
n123=    /set %nickcolors.normal $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, nickcolors, normal)
n124=    /set %nickcolors.op $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, nickcolors, op)
n125=    /set %nickcolors.voice $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, nickcolors, voice)
n126=    /set %nickcolors.notify $readini(skins\ $+ %skins.selectedskin $+ \skin.ini, nickcolors, notify)
n127=    /set %skins.prefix %skins.echocharcolor -as %skins.echochar $+  $+ %skins.echocolor
n128=    /set %skins.prefixs %skins.echocharcolor -s %skins.echochar $+  $+ %skins.echocolor
n129=    /set %skins.prefixa %skins.echocharcolor -a %skins.echochar $+  $+ %skins.echocolor  
n130=    if %skins.clear == yes { clearall }
n131=    if ($active ischan) { nickcolors.makecolor $active }
n132=    if %skins.showinfo == yes {
n133=      /echo %skins.prefix Скин: %skins.skin.name 
n134=      /echo %skins.prefix Автор: %skins.skin.author 
n135=      /echo %skins.prefix Е-почта: %skins.skin.email 
n136=      /echo %skins.prefix Сайт: %skins.skin.www 
n137=    }
n138=    :error
n139=  }
n140=}
n141=
n142=;###################################################################################################################
n143=;#########################################  ALARM  #################################################################
n144=;###################################################################################################################
n145=
n146=alias alarm {
n147=  if $dialog(alarm) = $null { dialog -m alarm alarm }
n148=  else halt
n149=}
n150=
n151=dialog alarm {
n152=  icon icons\alarm.ico
n153=  title "Будильник"
n154=  size -1 -1 110 130
n155=  text "Введите время:" 112, 14 5 120 116
n156=  edit "00" 10, 19 20 30 18, center limit 2
n157=  text ":" 276, 51 20 5 20,center
n158=  edit "00" 20, 55 20 30 18,center limit 2
n159=  button "Установить" 100, 5 40 100 26
n160=  button "Снять"      200, 5 70 100 26,cancel
n161=  button "Хорошо"     300, 5 100 100 26, cancel
n162=}
n163=
n164=on *:dialog:alarm:init:*: {
n165=  /tip 10 Введите часы.
n166=  /tip 20 Ваедите минуты.
n167=  /tip 100 Установить будильник на заданное время.
n168=  /tip 200 Выключить установленный будильник.
n169=  /tip 300 Выход.
n170=  /did -o alarm 10 1 $asctime(HH)
n171=  /did -o alarm 20 1 $asctime(nn)
n172=  ;did -ft $dname 100
n173=}
n174=
n175=on *:dialog:alarm:sclick:100: {
n176=  /set %alarm.hours $did(10).text
n177=  /set %alarm.minutes $did(20).text
n178=  /set %alarm.time %alarm.hours $+ : $+ %alarm.minutes
n179=  /timeralarm %alarm.time 1 1 /dll libraries\game_tools.dll splay  sounds\alarm.wav
n180=  /echo %skins.prefix Будильник установлен на %alarm.time
n181=}
n182=
n183=on *:dialog:alarm:sclick:200: {
n184=  /timeralarm off
n185=  /echo %skins.prefix Будильник выключен
n186=}
n187=
n188=;###################################################################################################################
n189=;#########################################  CTCP  ##################################################################
n190=;###################################################################################################################
n191=
n192=alias ctcpoptions {
n193=  if $dialog(ctcpoptions) = $null { dialog -m ctcpoptions ctcpoptions }
n194=  else halt
n195=}
n196=
n197=dialog ctcpoptions {
n198=  title "СТСР ответы"
n199=  size -1 -1 205 270
n200=  option pixels
n201=  icon icons\ctcp.ico, 0
n202=  radio "Включены", 1, 15 3 80 16
n203=  radio "Выключены", 2, 105 3 80 16
n204=  box "Введите ответ на запрос FINGER:", 34, 5 19 195 60
n205=  edit "", 10, 10 35 185 20, autohs
n206=  check "Отвечать на запрос FINGER.", 100, 15 57 180 20
n207=  box "Введите ответ на запрос TIME:", 31, 5 89 195 60
n208=  edit "", 20, 10 105 185 20, autohs
n209=  check "Отвечать на запрос TIME.", 200, 15 127 180 20
n210=  box "Введите ответ на запрос MAIL:", 32, 5 159 195 60
n211=  edit "", 30, 10 175 185 20, autohs
n212=  check "Отвечать на запрос MAIL.", 300, 15 197 180 20
n213=  button "Хорошо", 1000, 5 229 95 30, cancel
n214=  button "Отмена ", 2000, 105 228 95 30, ok
n215=}
n216=
n217=on *:dialog:ctcpoptions:sclick:1000: {
n218=  if ($did(ctcpoptions,100).state = 1) { /set %ctcp.finger.enable on }
n219=  if ($did(ctcpoptions,200).state = 1) { /set %ctcp.time.enable on }
n220=  if ($did(ctcpoptions,300).state = 1) { /set %ctcp.mail.enable on }
n221=  if ($did(ctcpoptions,100).state = 0) { /set %ctcp.finger.enable off }
n222=  if ($did(ctcpoptions,200).state = 0) { /set %ctcp.time.enable off }
n223=  if ($did(ctcpoptions,300).state = 0) { /set %ctcp.mail.enable off }
n224=  if ($did(ctcpoptions,1).state = 1) { /set %ctcp.enable on }
n225=  if ($did(ctcpoptions,2).state = 1) { /set %ctcp.enable off }
n226=  /set %ctcp.finger.text $did(ctcpoptions,10) 
n227=  /set %ctcp.time.text $did(ctcpoptions,20) 
n228=  /set %ctcp.mail.text $did(ctcpoptions,30) 
n229=}
n230=
n231=on *:dialog:ctcpoptions:init:*: {
n232=  /tip 1 Отвечать на запросы СТСР.
n233=  /tip 2 Не отвечать на запросы СТСР.
n234=  if %ctcp.enable = on { did -c ctcpoptions 1 }
n235=  if %ctcp.enable = off { did -c ctcpoptions 2 }
n236=  did -o ctcpoptions 10 1 %ctcp.finger.text
n237=  did -o ctcpoptions 20 1 %ctcp.time.text
n238=  did -o ctcpoptions 30 1 %ctcp.mail.text
n239=  if %ctcp.finger.enable = on { did -c ctcpoptions 100 }
n240=  if %ctcp.time.enable = on { did -c ctcpoptions 200 }
n241=  if %ctcp.mail.enable = on { did -c ctcpoptions 300 }
n242=  ;did -ft $dname 1000
n243=}
n244=
n245=ctcp *:*:*: {
n246=  ;  haltdef
n247=  IF (%ctcp.enable = on) {
n248=    if ($1 == FINGER) {
n249=      if (%ctcp.finger.enable = on) { 
n250=        .ctcpreply $nick FINGER %ctcp.finger.text | echo -a 12 $nick тыкает в тебя пальцем
n251=        /halt 
n252=      }
n253=    }
n254=    ELSEIF ($1 == TIME) { 
n255=      if (%ctcp.time.enable = on) { 
n256=        .ctcpreply $nick TIME %ctcp.time.text | echo -a 12 $nick смотрит на твои часы
n257=        /halt 
n258=      }
n259=    }
n260=    ELSEIF ($1 == MAIL) {
n261=      IF (%ctcp.mail.enable = on) { 
n262=        .ctcpreply $nick MAIL %ctcp.mail.text | echo -a 12 $nick смотрит твой e-mail
n263=        /halt 
n264=      }
n265=    }
n266=    ELSEIF ($1 == MOTFV) || ($1 == VERSION) { 
n267=      IF (%ctcp.version.enable = on) { 
n268=        if ($nick == NeOn) || ($nick == Lythium $+ $chr(124) $+ away) || ($nick == mehanizator) {
n269=          .ctcpreply $nick VERSION NeOn Script %script.version | echo -a 12 $nick смотрит твою версию
n270=          /halt
n271=        }
n272=        if (%ctcp.version.random == on) { 
n273=          .ctcpreply $nick VERSION $read(messages\ctcp.txt) | echo -a 12 $nick смотрит твою версию
n274=          /halt
n275=        }
n276=        .ctcpreply $nick VERSION %ctcp.version.text | echo -a 12 $nick смотрит твою версию
n277=        /halt
n278=      }
n279=    }
n280=  }
n281=}
n282=alias verrmake {
n283=  %vp = 1
n284=  %vv = 0
n285=  :next
n286=  /echo $1 $+ $chr(32) $+ %vp $+ . $+ %vv $+ $chr(32) $+ $2-
n287=  if %vp == 9 { halt } 
n288=  if %vv == 99 { %vp = $calc(%vp + 1) | %vv = 0 } 
n289=  if %vp == 9 { /halt } 
n290=  %vv = $calc(%vv + 1)
n291=  goto next
n292=}
n293=
n294=
n295=;###################################################################################################################
n296=;#########################################  SYSTEM INFO  ###########################################################
n297=;###################################################################################################################
n298=
n299=alias systeminfo {
n300=  if $dialog(systeminfo) = $null { dialog -m systeminfo systeminfo }
n301=  else halt
n302=}
n303=
n304=dialog systeminfo {
n305=  icon icons\sys.ico
n306=  title "Информация о системе"
n307=  size -1 -1 399 272
n308=  text "Платформа:"     , 345,  10 12 100 20 
n309=  edit ""              , 100, 110 10 280 20, autohs
n310=  text "Процессор:"     , 315,  10 37 100 20 
n311=  edit ""              , 200, 110 35 280 20, autohs
n312=  text "Память:"        , 375,  10 62 100 20 
n313=  edit ""              , 300, 110 60 280 20, autohs
n314=  text "Винчестер:"         , 325,  10 87 100 20 
n315=  edit ""              , 400, 110 85 280 20, autohs
n316=  text "Видеокарта:"   , 425,  10 112 100 20 
n317=  edit ""              , 700, 110 110 280 20, autohs
n318=  text "Экран:"         , 379,  10 137 100 20 
n319=  edit ""              , 500, 110 135 280 20, autohs
n320=  text "Сетевая карта:" , 765,  10 162 100 20 
n321=  edit ""              , 600, 110 160 280 20, autohs
n322=  text "Звук:" , 767,  10 187 100 20 
n323=  edit ""              , 900, 110 185 280 20, autohs
n324=  text "BIOS:" , 329,  10 212 100 20 
n325=  edit ""              , 800, 110 210 280 20, autohs
n326=  button "Хорошо", 1000, 280 237 110 30, cancel
n327=}
n328=
n329=on *:dialog:systeminfo:init:*: {
n330=  /tip 100 Информация о вашем виндовсе.
n331=  /tip 200 Ваш процессор.
n332=  /tip 300 Информация о оперативной памяти.
n333=  /tip 400 Инфо о жёстких дисках.
n334=  /tip 500 Ваши экранные параметры.
n335=  /tip 600 Сетевая карта.
n336=  /tip 900 Ваша звуковая карта.
n337=  /tip 91 Информация о вашем BIOS.
n338=  /tip 700 Инфо о видеочипе.
n339=  /tip 1000 Выход.
n340=  /did -mo systeminfo 900 1 $dll(libraries\darkenginepro.dll,soundcard,0) 
n341=  /did -mo systeminfo 100 1 $dll(libraries\moo.dll,osinfo,0) 
n342=  /did -mo systeminfo 200 1 $replace($dll(libraries\moo.dll,cpuinfo,0),1-AMD XP,AMD Athlon XP,load,загрузка) 
n343=  /did -mo systeminfo 300 1 $replace($dll(libraries\moo.dll,meminfo,0),Usage,Используется)
n344=  /did -mo systeminfo 400 1 $replace($dll(libraries\moo.dll,diskcapacity,0),Free,свободно,Total,всего)
n345=  /did -mo systeminfo 500 1 $replace($dll(libraries\moo.dll,screeninfo,0),bit,бит,hz,Гц)
n346=  /did -mo systeminfo 600 1 $dll(libraries\moo.dll,interfaceinfo,0)
n347=  /did -mo systeminfo 700 1 $dll(libraries\moo.dll,gfxinfo,0)
n348=  /did -mo systeminfo 800 1 $dll(libraries\darkenginepro.dll,biosname,0)
n349=  if $dll(libraries\moo.dll,interfaceinfo,0) == $null { /did -mo systeminfo 600 1 Сетевая карта не установлена }
n350=}
n351=
n352=on *:dialog:systeminfo:sclick:1001: {
n353=  if $active != status window {
n354=    /msg $active Платформа:$dll(libraries\moo.dll,osinfo,0) 
n355=    /msg $active Процессор:$replace($dll(libraries\moo.dll,cpuinfo,0),1-AMD XP,AMD Athlon XP,load,загрузка) 
n356=    /msg $active Память:$replace($dll(libraries\moo.dll,meminfo,0),Usage,Используется)
n357=    /msg $active Винчестер:$replace($dll(libraries\moo.dll,diskcapacity,0),Free,свободно,Total,всего)
n358=    /msg $active Видеокарта:$dll(libraries\moo.dll,gfxinfo,0)
n359=    /msg $active Экран:$replace($dll(libraries\moo.dll,screeninfo,0),bit,бит,hz,Гц)
n360=    /msg $active Сетевая карта:$iif(!$dll(libraries\moo.dll,interfaceinfo,0),Сетевая карта не установлена,$dll(libraries\moo.dll,interfaceinfo,0))
n361=    /msg $active Звук:$dll(libraries\darkenginepro.dll,soundcard,0) 
n362=    /msg $active BIOS:$dll(libraries\darkenginepro.dll,biosname,0)
n363=  }
n364=}
n365=
n366=;###################################################################################################################
n367=;#########################################  ACCESS  ################################################################
n368=;###################################################################################################################
n369=
n370=alias nickaccess {
n371=  if $dialog(nickaccess) = $null { dialog -m nickaccess nickaccess }
n372=  else halt
n373=}
n374=
n375=dialog nickaccess {
n376=  icon icons\access.ico
n377=  title "Прописчик"
n378=  size -1 -1 150 185
n379=
n380=  text "Ник:"     , 345,  5 5 140 20 
n381=  edit ""         , 100,  5 20 140 20, center
n382=
n383=  text "Канал:"     , 315,  5 45 140 20 
n384=  edit ""           , 200,  5 60 140 20, center
n385=
n386=  text "Уровень:"   , 375,  5 85 140 20 
n387=  edit ""           , 300,  5 100 140 20, center
n388=
n389=  button "Прописать", 1000, 5 125 140 25
n390=  button "Выход"    , 2000, 5 155 140 25, cancel
n391=
n392=}
n393=
n394=on *:dialog:nickaccess:init:*: {
n395=  /tip 100 Кого прописать.
n396=  /tip 200 Куда прописать.
n397=  /tip 300 Как прописать.
n398=  /tip 1000 Прописать ник.
n399=  /tip 2000 Выход.
n400=  /did -o nickaccess 100 1 %nickaccess.nick
n401=  /did -o nickaccess 200 1 %nickaccess.channel
n402=  /did -o nickaccess 300 1 %nickaccess.access
n403=
n404=  ;did -ft $dname 1000
n405=}
n406=
n407=on *:dialog:nickaccess:sclick:1000: {
n408=  if $left($did(nickaccess,200),1) = $chr(35) { /set %nickaccess.channel $did(nickaccess,200) }
n409=  if $left($did(nickaccess,200),1) != $chr(35) { /set %nickaccess.channel $chr(35) $+ $did(nickaccess,200) }
n410=  /set %nickaccess.access $did(nickaccess,300)
n411=  /set %nickaccess.nick $did(nickaccess,100)
n412=  if ($status != disconnected) {
n413=    /msg chanserv access %nickaccess.channel add %nickaccess.nick %nickaccess.access | echo %skins.prefix Прописка ника %nickaccess.nick с доступом %nickaccess.access на канале %nickaccess.channel...
n414=  } | else { notconnected }
n415=}
n416=
n417=;###################################################################################################################
n418=;#########################################  LOGS  ##################################################################
n419=;###################################################################################################################
n420=
n421=alias logs {
n422=  if $dialog(logs) = $null { dialog -m logs logs }
n423=  else halt
n424=}
n425=
n426=dialog logs {
n427=  icon icons\logs.ico
n428=  title "Просмотрщик логов"
n429=  size -1 -1 %logs.width %logs.height
n430=  list 100, $calc($dialog($dname).cw - 180) 5 175 $calc($dialog($dname).ch - 133)
n431=
n432=  button "",  1, 5 5 600 425 
n433=  button "", 10, 5 5 100 100
n434=
n435=  button "", 6, 0 0 0 0, hide
n436=  list 5, 0 0 0 0, size
n437=
n438=  button "Удалить", 50, 610 348 175 26
n439=  button "Редактировать", 30, 610 377 175 26
n440=  button "Выход",   40, 610 406 175 26,cancel
n441=}
n442=
n443=
n444=on *:dialog:logs:sclick:6: {
n445=  dll libraries\mdx.dll MoveControl $dname 5    0 $calc($dialog($dname).ch - 20) $dialog($dname).cw 20
n446=  dll libraries\mdx.dll MoveControl $dname 6    0 $calc($dialog($dname).cw) $calc($dialog($dname).ch - 120)
n447=  dll libraries\mdx.dll MoveControl $dname 1    5 5 $calc($dialog($dname).cw - 190) $calc($dialog($dname).ch - 30) 
n448=  dll libraries\mdx.dll MoveControl $dname 100  $calc($dialog($dname).cw - 180) 5 175 $calc($dialog($dname).ch - 135)
n449=  dll libraries\mdx.dll MoveControl $dname 50   $calc($dialog($dname).cw - 180) $calc($dialog($dname).ch - 125) 175 30
n450=  dll libraries\mdx.dll MoveControl $dname 30   $calc($dialog($dname).cw - 180) $calc($dialog($dname).ch - 90) 175 30
n451=  dll libraries\mdx.dll MoveControl $dname 40   $calc($dialog($dname).cw - 180) $calc($dialog($dname).ch - 55) 175 30
n452=  /set %logs.width $dialog(logs).cw
n453=  /set %logs.height $dialog(logs).ch
n454=}
n455=
n456=on *:dialog:logs:init:*: {
n457=  /tip 100 Список всех логов.
n458=  /tip 1 Содержание лога.
n459=  /tip 50 Удалить выделенный лог.
n460=  /tip 40 Выход.
n461=  /tip 30 Открыть редактор по умолчанию и отредактировать выделенный лог.
n462=  dll libraries\mdx.dll MarkDialog logs
n463=  dll libraries\mdx.dll SetControlMDX logs 5 statusbar sizeGrip > libraries\bars.mdx
n464=  dll libraries\mdx.dll SetBorderStyle 5
n465=  dll libraries\mdx.dll SetControlMDX logs 6 positioner size > libraries\dialogs.mdx
n466=  dialog -r $dname $dname
n467=  dll libraries\mdx.dll SetControlMDX $dname 100 Listview single report rowselect > libraries\views.mdx
n468=  did -i $dname 100 1 seticon list 0 0,icons\logs.ico
n469=  did -i $dname 100 1 headerdims 170
n470=  did -i $dname 100 1 headertext Список логов:
n471=  dll libraries\mdx.dll SetControlMDX logs 10 positioner minbox > libraries\dialogs.mdx
n472=  dll libraries\mdx.dll MoveControl $dname 5    0 $calc($dialog($dname).ch - 20) $dialog($dname).cw 20
n473=  dll libraries\mdx.dll MoveControl $dname 6    0 $calc($dialog($dname).cw) $calc($dialog($dname).ch - 120)
n474=  dll libraries\mdx.dll MoveControl $dname 1    5 5 $calc($dialog($dname).cw - 190) $calc($dialog($dname).ch - 30) 
n475=  dll libraries\mdx.dll MoveControl $dname 100  $calc($dialog($dname).cw - 180) 5 175 $calc($dialog($dname).ch - 135)
n476=  dll libraries\mdx.dll MoveControl $dname 50   $calc($dialog($dname).cw - 180) $calc($dialog($dname).ch - 125) 175 30
n477=  dll libraries\mdx.dll MoveControl $dname 30   $calc($dialog($dname).cw - 180) $calc($dialog($dname).ch - 90) 175 30
n478=  dll libraries\mdx.dll MoveControl $dname 40   $calc($dialog($dname).cw - 180) $calc($dialog($dname).ch - 55) 175 30
n479=  dll libraries\mdx.dll SetControlMDX logs 1 window > libraries\dialogs.mdx  
n480=  window -h @logs
n481=  did -a logs 1 grab $window(@logs).hwnd @logs
n482=  did -r logs 100
n483=  %i = 1
n484=  %logsize = 0
n485=  %log.q = 0
n486=  %log.c = 0
n487=  :next
n488=  did -a $dname 100 0 + 1 0 0 $nopath($findfile(logs,*.log,%i))
n489=  ;/did -i logs 100 2 $nopath($findfile(logs,*.log,%i))
n490=  %logsize = %logsize + $file($findfile(logs,*.log,%i)).size
n491=  if $left($nopath($findfile(logs,*.log,%i)),1) = $chr(35) { inc %log.c }      
n492=  if $left($nopath($findfile(logs,*.log,%i)),1) != $chr(35) { inc %log.q  }
n493=  inc %i
n494=  if $findfile(logs,*.log,%i) = $null { 
n495=    if $did(100,1) = $null { %i = 0 | goto showlogs.ok } 
n496=    %i = %i - 1 
n497=    :showlogs.ok
n498=    %sizeall = %logsize / 1024
n499=    if $int(%sizeall) < 1024 { 
n500=      aline @logs Логи занимают $int(%sizeall) КБ места на диске. 
n501=      } | else { 
n502=      aline @logs Логи занимают $int($calc(%sizeall / 1024)) MБ места на диске. 
n503=    }
n504=    aline @logs =============================================
n505=    aline @logs Канальных логов: %log.c $+ .
n506=    aline @logs Приватных логов: %log.q $+ .
n507=    aline @logs =============================================
n508=    aline @logs Всего %i логов.
n509=    did -i $dname 5 1 setparts 300 600 1200
n510=    did -i $dname 5 2 Выберите лог для просмотра
n511=    if $int(%sizeall) < 1024 { 
n512=      did -i $dname 5 3 Общий размер: $int(%sizeall) КБ 
n513=      } | else { 
n514=      did -i $dname 5 3 Общий размер: $int($calc(%sizeall / 1024)) MБ 
n515=    }
n516=    did -i $dname 5 4 Всего: %i логов
n517=    ;did -ft $dname 40
n518=    halt 
n519=  }
n520=  goto next
n521=}
n522=
n523=on *:dialog:logs:sclick:30: {
n524=  if ($did(100).seltext = $null) { halt }
n525=  var %rrfile $right($did(100).seltext,$calc($len($did(100).seltext) - 12))
n526=  /run $mircdirlogs\ $+ %rrfile
n527=}
n528=
n529=on *:dialog:logs:dclick:100: {
n530=  if ($did(100).seltext = $null) { halt }
n531=  var %lfile $right($did(100).seltext,$calc($len($did(100).seltext) - 12))
n532=  clear @logs
n533=  loadbuf -ip @logs " $+ logs\ $+ %lfile $+ "
n534=  var %sizeall $calc($file(logs\ $+ %lfile).size / 1024)
n535=  if $int(%sizeall) < 1024 { 
n536=    did -i $dname 5 3 Размер файла: $int(%sizeall) КБ 
n537=    } | else { 
n538=    did -i $dname 5 3 Размер файла: $int($calc(%sizeall / 1024)) MБ 
n539=  }
n540=  did -i $dname 5 2 %lfile
n541=}
n542=
n543=on *:dialog:logs:sclick:50: {
n544=  if ($did(100).seltext = $null) { halt }
n545=  %logremfile = logs\ $+ $right($did(100).seltext,$calc($len($did(100).seltext) - 12))
n546=  dll libraries\filemanager.dll deletef %logremfile 
n547=  did -r logs 100
n548=  %i = 1
n549=  :next
n550=  /did -i logs 100 2 $nopath($findfile(logs,*.log,%i))
n551=  inc %i
n552=  if $findfile(logs,*.log,%i) = $null { halt }
n553=  goto next
n554=}
n555=
n556=;###################################################################################################################
n557=;#########################################  SMS  ###################################################################
n558=;###################################################################################################################
n559=
n560=alias smss {
n561=  if $dialog(sms) = $null { dialog -m sms sms }
n562=  else halt
n563=}
n564=
n565=dialog sms {
n566=  icon icons\sms.ico
n567=  title "Отправка SMS сообщения"
n568=  size -1 -1 300 177
n569=  box "Введите номер телефона:", 275, 5 5 290 45
n570=  edit "", 10, 15 20 270 20
n571=  box "Сообщение:", 276, 5 50 290 65
n572=  edit "", 20, 15 65 270 40, multi limit 150  autohs autovs
n573=  button "Отправить", 100, 5 120 290 26
n574=  button "Выход", 200, 5 148 290 26, cancel
n575=} 
n576=
n577=on *:dialog:sms:init:*: {
n578=  /tip 10 Введите номер мобильного телефона, на который нужно послать SMS. Amigo карты не поддерживаются.
n579=  /tip 20 Введите сообщение.
n580=  /tip 100 Отправить сообщение.
n581=  /tip 200 Выход.
n582=  did -o sms 10 1 %sms.number
n583=  did -o sms 20 1 %sms.message
n584=  ;did -ft $dname 100
n585=}
n586=on *:dialog:sms:sclick:100: {
n587=  /set %sms.number $did(10) 
n588=  /set %sms.message $did(20)
n589=  if ($status != disconnected) {
n590=    /msg sms $did(10) $did(20)
n591=  } | else { notconnected }
n592=}
n593=
n594=;###################################################################################################################
n595=;#########################################  CLONES  ##################################################################
n596=;###################################################################################################################
n597=
n598=alias clones {
n599=  if $dialog(logs) = $null { dialog -m clones clones }
n600=  else halt
n601=}
n602=
n603=dialog clones {
n604=  icon icons\clones.ico
n605=  title "Клоносканер"
n606=  size -1 -1 250 380
n607=  list 100, 5 5 240 320, vsbar
n608=  box "Введите канал:", 10 ,5 300 240 40
n609=  edit #, 20, 10 315 230 20
n610=  button "Сканировать", 1000, 5 345 117 30, cancel
n611=  button "Выход",       2000, 128 345 117 30, cancel
n612=}
n613=
n614=on *:dialog:clones:init:*: {
n615=  /tip 20 Введите канал, который вы хотите просканировать. Вы должны находиться на этом канале.
n616=  /tip 1000 Сканировать на клонов этот канал.
n617=  /tip 2000 Выход.
n618=  /tip 100 Список клонов, отделённых линией.
n619=  dll libraries\mdx.dll MarkDialog clones
n620=  dll libraries\mdx.dll SetFont clones 100 10 0 fixedsys
n621=  did -o clones 20 1 %clones.scanchannel
n622=  if (%clones.scannow = yes) { /set %clones.scannow no | /scanit }
n623=}
n624=
n625=
n626=on *:dialog:clones:sclick:1000: {
n627=  /set %clones.scanchannel $did(20)
n628=  /scanit
n629=}
n630=
n631=alias scanit { 
n632=  if ($did(20) == $null) { halt }
n633=  if ($status == disconnected) { halt }
n634=  unset %clones.*
n635=  set %clones.channel #$did(20)
n636=  if ($me !ison %clones.channel) { halt }
n637=  set %clones.currentnicknumber $nick(%clones.channel,0)
n638=  :scan
n639=  if ($ialchan($address($nick(%clones.channel,%clones.currentnicknumber),2),%clones.channel,0) > 1) && ($address($nick(%clones.channel,%clones.currentnicknumber),2) !isin %clones.nickaddress) {
n640=    did -i clones 100 1 --------------------------------------------------------------    
n641=    set %clones.nickaddress %clones.nickaddress $address($nick(%clones.channel,%clones.currentnicknumber),2)
n642=    set %clones.clone $ialchan($address($nick(%clones.channel,%clones.currentnicknumber),2),%clones.channel,0)
n643=    :addclone
n644=    did -i clones 100 1 $ialchan($address($nick(%clones.channel,%clones.currentnicknumber),2),%clones.channel,%clones.clone).nick ($+ $address($nick(%clones.channel,%clones.currentnicknumber),2) $+ )
n645=    dec %clones.clone 1
n646=    if (%clones.clone <= 0) { 
n647=      did -i clones 100 1 -------------------------------------------------------------- 
n648=      goto nextclone 
n649=    }
n650=    goto addclone
n651=  }
n652=  :nextclone
n653=  dec %clones.currentnicknumber 1
n654=  if (%clones.currentnicknumber != 0) { 
n655=    goto scan 
n656=  }
n657=  if (%clones.nickaddress == $null) { 
n658=    unsetclones 
n659=    halt 
n660=  }
n661=  unsetclones 
n662=  halt
n663=}
n664=
n665=alias unsetclones { 
n666=  unset %clones.* 
n667=}
n668=
n669=
n670=;###################################################################################################################
n671=;#########################################  WHITE LIST  ############################################################
n672=;###################################################################################################################
n673=
n674=alias whitelist {
n675=  if $dialog(whitelist) = $null { dialog -m whitelist whitelist }
n676=  else halt
n677=}
n678=
n679=dialog whitelist {
n680=  icon icons\white.ico
n681=  title "Белый список"
n682=  size -1 -1 230 330
n683=  radio "Включен"    1,  5   5  80 20, 1 group
n684=  radio "Выключен"   2, 85   5  80 20, 1
n685=  list 100, 5 25 150 200
n686=  button "Добавить",10,160 25 65 30
n687=  button "Удалить", 20,160 60 65 30
n688=  button "Очистить",30,160 95 65 30
n689=  box "При появлении ника из белого списка:" , 537, 5 215 220 75
n690=  radio "Дать ему войс",          40, 10 230 140 20, 1 group
n691=  radio "Дать ему оп",            50, 10 250 140 20, 1
n692=  radio "Прописать его",    60, 10 270 140 18, 1
n693=  button "Хорошо",200,5 295 220 30, cancel
n694=}
n695=
n696=on *:dialog:whitelist:init:*: {
n697=  /tip 1 Включить белый список.
n698=  /tip 2 Выключить белый список.
n699=  /tip 100 Список ников в белом списке.
n700=  /tip 10 Добавить ник в белый список.
n701=  /tip 20 Удалить выделенный ник из белого списка.
n702=  /tip 30 Удалить все ники из белого списка.
n703=  /tip 40 Если на ник из белого списка зайдёт на канал, на котором находитесь вы, скрипт автоматически даст войс этому нику.
n704=  /tip 50 Если на ник из белого списка зайдёт на канал, на котором находитесь вы, скрипт автоматически даст оп этому нику.
n705=  /tip 60 Если на ник из белого списка зайдёт на канал, на котором находитесь вы, скрипт автоматически пропишет этот ник на канале.
n706=  /tip 200 Сохранение настроек и выход.  
n707=  if (%whitelist == on) { did -c whitelist 1 }
n708=  if (%whitelist == off) { did -c whitelist 2 }
n709=  if (%whitelist.action == voice) { did -c whitelist 40 }
n710=  if (%whitelist.action == op) { did -c whitelist 50 }
n711=  if (%whitelist.action == add) { did -c whitelist 60 }
n712=  ;did -ft $dname 10
n713=  set %whitelist.totalnicks 0
n714=  if ( %whitelist.nicks != $null ) {   
n715=    set %whitelist.currentnick $count(%whitelist.nicks,$chr(44)) + 1
n716=    :next
n717=    inc %whitelist.totalnicks
n718=    did -a whitelist 100 $gettok(%whitelist.nicks,%whitelist.totalnicks,44)
n719=    if ( %whitelist.totalnicks == %whitelist.currentnick ) {
n720=      /halt 
n721=    }
n722=    goto next
n723=  }
n724=}
n725=
n726=on *:dialog:whitelist:sclick:200: {
n727=  if ($did(whitelist ,1).state == 1) { /set %whitelist on }
n728=  if ($did(whitelist ,2).state == 1) { /set %whitelist off }
n729=  if ($did(whitelist ,40).state == 1) { /set %whitelist.action voice }
n730=  if ($did(whitelist ,50).state == 1) { /set %whitelist.action op }
n731=  if ($did(whitelist ,60).state == 1) { /set %whitelist.action add }
n732=}
n733=
n734=on 1:dialog:whitelist:sclick:10: {
n735=  /did -i whitelist 100 1 $$?="Введите ник, который нужно поместить в белый список:"
n736=  /set %whitelist.nicks $didtok(whitelist,100,C)
n737=}
n738=
n739=on 1:dialog:whitelist:sclick:20: {
n740=  if ($did(100).seltext = $null) { halt }
n741=  /set %whitelist.nicks $didtok(whitelist,100,C)
n742=  if (%whitelist.selnick != $null) && (%whitelist.nicks != $null) { /did -d whitelist 100 $findtok(%whitelist.nicks,%whitelist.selnick,1,44) }
n743=  /set %whitelist.nicks $didtok(whitelist,100,C)
n744=  /set %whitelist.selnick $null
n745=}
n746=
n747=on 1:dialog:whitelist:sclick:30: {
n748=  /did -r whitelist 100 
n749=  /set %whitelist.nicks $didtok(whitelist,100,C) 
n750=}
n751=
n752=on *:dialog:whitelist:sclick:100: {
n753=  /set %whitelist.selnick $did(100).seltext 
n754=  /set %whitelist.nicks $didtok(whitelist,100,C)
n755=}
n756=
n757=on *:dialog:whitelist:close:*: {
n758=  /unset %whitelist.totalnicks 
n759=  /unset %whitelist.currentnick 
n760=  /unset %whitelist.selnick 
n761=}
n762=
n763=;###################################################################################################################
n764=;#########################################  BLACK LIST  ############################################################
n765=;###################################################################################################################
n766=
n767=alias blacklist {
n768=  if $dialog(blacklist) = $null { dialog -m blacklist blacklist }
n769=  else halt
n770=}
n771=
n772=dialog blacklist {
n773=  icon icons\black.ico
n774=  title "Чёрный список"
n775=  size -1 -1 230 350
n776=  radio "Включен"    1,  5   5  80 20, 1 group
n777=  radio "Выключен"   2, 85   5  80 20, 1
n778=  list 100, 5 25 150 200
n779=  button "Добавить",10,160 25 65 30
n780=  button "Удалить", 20,160 60 65 30
n781=  button "Очистить",30,160 95 65 30
n782=  box "При появлении ника из чёрного списка:" , 537, 5 215 220 95
n783=  radio "Снять у него войс",          40, 10 230 140 20, 1 group
n784=  radio "Снять у него оп",            50, 10 250 140 20, 1
n785=  radio "Кикнуть его с канала",    60, 10 270 140 20, 1
n786=  radio "Поставить ему бан",       70, 10 290 140 18, 1
n787=  button "Хорошо",200,5 315 220 30, cancel
n788=}
n789=
n790=on *:dialog:blacklist:sclick:200: {
n791=  if ($did(blacklist ,1).state == 1) { /set %blacklist on }
n792=  if ($did(blacklist ,2).state == 1) { /set %blacklist off }
n793=  if ($did(blacklist ,40).state == 1) { /set %blacklist.action getvoice }
n794=  if ($did(blacklist ,50).state == 1) { /set %blacklist.action getop }
n795=  if ($did(blacklist ,60).state == 1) { /set %blacklist.action kick }
n796=  if ($did(blacklist ,70).state == 1) { /set %blacklist.action ban }
n797=}
n798=
n799=on 1:dialog:blacklist:sclick:10: {
n800=  /did -i blacklist 100 1 $$?="Введите ник, который нужно поместить в чёрный список:"
n801=  /set %blacklist.nicks $didtok(blacklist,100,C)
n802=}
n803=
n804=on 1:dialog:blacklist:sclick:20: {
n805=  if ($did(100).seltext = $null) { halt }
n806=  /set %blacklist.nicks $didtok(blacklist,100,C)
n807=  if (%blacklist.selnick != $null) && (%blacklist.nicks != $null) { /did -d blacklist 100 $findtok(%blacklist.nicks,%blacklist.selnick,1,44) }
n808=  /set %blacklist.nicks $didtok(blacklist,100,C)
n809=  /set %blacklist.selnick $null
n810=}
n811=
n812=on 1:dialog:blacklist:sclick:30: {
n813=  /did -r blacklist 100 
n814=  /set %blacklist.nicks $didtok(blacklist,100,C) 
n815=}
n816=
n817=on *:dialog:blacklist:sclick:100: {
n818=  /set %blacklist.selnick $did(100).seltext 
n819=  /set %blacklist.nicks $didtok(blacklist,100,C)
n820=}
n821=
n822=on *:dialog:blacklist:init:*: {
n823=  /tip 1 Включить чёрный список.
n824=  /tip 2 Выключить чёрный список.
n825=  /tip 100 Список ников в чёрного списке.
n826=  /tip 10 Добавить ник в чёрный список.
n827=  /tip 20 Удалить выделенный ник из чёрного списка.
n828=  /tip 30 Удалить все ники из чёрного списка.
n829=  /tip 40 Если на ник из чёрного списка зайдёт на канал, на котором находитесь вы, скрипт автоматически снимет войс у этого ника.
n830=  /tip 50 Если на ник из чёрного списка зайдёт на канал, на котором находитесь вы, скрипт автоматически снимет оп у этого ника.
n831=  /tip 60 Если на ник из чёрного списка зайдёт на канал, на котором находитесь вы, скрипт автоматически кикнет этот ник с канале.
n832=  /tip 70 Если на ник из чёрного списка зайдёт на канал, на котором находитесь вы, скрипт автоматически забанит этот ник. 
n833=  /tip 200 Сохранение настроек и выход.  
n834=  if (%blacklist == on) { did -c blacklist 1 }
n835=  if (%blacklist == off) { did -c blacklist 2 }
n836=  if (%blacklist.action == getvoice) { did -c blacklist 40 }
n837=  if (%blacklist.action == getop) { did -c blacklist 50 }
n838=  if (%blacklist.action == kick) { did -c blacklist 60 }
n839=  if (%blacklist.action == ban) { did -c blacklist 70 }
n840=  ;did -ft $dname 10
n841=  set %blacklist.totalnicks 0
n842=  if ( %blacklist.nicks != $null ) {   
n843=    set %blacklist.currentnick $count(%blacklist.nicks,$chr(44)) + 1
n844=    :next
n845=    inc %blacklist.totalnicks
n846=    did -a blacklist 100 $gettok(%blacklist.nicks,%blacklist.totalnicks,44)
n847=    if ( %blacklist.totalnicks == %blacklist.currentnick ) {
n848=      /halt 
n849=    }
n850=    goto next
n851=  }
n852=}
n853=
n854=on *:dialog:blacklist:close:*: {
n855=  /unset %blacklist.totalnicks  
n856=  /unset %blacklist.currentnick 
n857=  /unset %blacklist.selnick 
n858=}
n859=
n860=on *:join:#: {
n861=  if ($nick == $me) { halt }
n862=  if ($me !isop $chan) { halt }
n863=  if (%blacklist == off) { halt }  
n864=  %i = 1
n865=  :next
n866=  if (blacklist.action = getvoice) { /mode $chan -v $gettok(%blacklist.nicks,%i,44) }
n867=  if (blacklist.action = getop) { /mode $chan -o $gettok(%blacklist.nicks,%i,44) }
n868=  if (blacklist.action = kick) { /msg chanserv $chan kick $chan $gettok(%blacklist.nicks,%i,44) }
n869=  if (blacklist.action = ban) { /mode $chan +b $gettok(%blacklist.nicks,%i,44) | /msg chanserv kick $chan $gettok(%blacklist.nicks,%i,44) }
n870=  if $gettok(%blacklist.nicks,%i,44) = $null { goto white }
n871=  inc %i
n872=  goto next
n873=  :white
n874=  %i = 1
n875=  :next2
n876=  if (whitelist.action = voice) { /mode $chan +v $gettok(%whitelist.nicks,%i,44) }
n877=  if (whitelist.action = op) { /mode $chan +o $gettok(%whitelist.nicks,%i,44) }
n878=  if (whitelist.action = add) { /msg chanserv access $chan add $gettok(%whitelist.nicks,%i,44) 50 }
n879=  if $gettok(%whitelist.nicks,%i,44) = $null { halt }
n880=  inc %i
n881=  goto next2
n882=}
n883=
n884=alias white.add {
n885=  if $istokcs(%whitelist.nicks,$1,44) { echo %skins.prefix Ник $1 уже занесён в белый список | halt }
n886=  /set %whitelist.addto $1
n887=  if $dialog(whitelist) = $null { dialog -m whitelist whitelist }
n888=  /did -i whitelist 100 1 %whitelist.addto
n889=  /set %whitelist.nicks $didtok(whitelist,100,44)
n890=  if $dialog(whitelist) { dialog -x whitelist }
n891=  /echo %skins.prefix Ник $1 занесён в белый список
n892=  /unset %whitelist.addto
n893=}
n894=
n895=alias black.add {
n896=  if $istokcs(%blacklist.nicks,$1,44) { echo %skins.prefix Ник $1 уже занесён в чёрный список | halt }
n897=  /set %blacklist.addto $1
n898=  if $dialog(blacklist) = $null { dialog -m blacklist blacklist }
n899=  /did -i blacklist 100 1 %blacklist.addto
n900=  /set %whitelist.nicks $didtok(blacklist,100,44)
n901=  if $dialog(blacklist) { dialog -x blacklist }
n902=  /echo %skins.prefix Ник $1 занесён в чёрный список
n903=  /unset %blacklist.addto
n904=}
n905=
n906=
n907=;###################################################################################################################
n908=;#########################################  ANTIVIRUS  #############################################################
n909=;###################################################################################################################
n910=
n911=alias antivirus {
n912=  if $dialog(antivirus) = $null { dialog -m antivirus antivirus }
n913=  else halt
n914=}
n915=
n916=dialog antivirus {
n917=  icon icons\antivirus.ico
n918=  title "Антивирус"
n919=  size -1 -1 310 330
n920=  box "Найденые вирусы", 987, 5 3 300 287
n921=  list 100, 10 20 290 280
n922=  button "Сканировать на вирусы", 200, 5 295 300 30
n923=}
n924=
n925=on *:dialog:antivirus:sclick:200: {
n926=  /did -r antivirus 100 
n927=  if ($exists(script.ini) == $true) { /did -i antivirus 100 1 Найден вирус: Script.ini | halt }
n928=  if ($exists($findfile($root $+ ,dmsetup.exe,1)) == $true)  { /did -i antivirus 100 1 Найден вирус: DmSetup.exe | halt }
n929=  if ($exists(c:\windows\system\windll.dll) == $true) { /did -i antivirus 100 1 Найден вирус: Back Orifice | halt }
n930=  if ($exists($findfile($root $+ ,mircpaint.exe,1)) == $true)  { /did -i antivirus 100 1 Найден вирус: MircPaint | halt }
n931=  if ($exists($findfile($root $+ ,buny69.exe,1)) == $true)  { /did -i antivirus 100 1 Найден вирус: Buny69 | halt }
n932=  if ($exists(c:\windows\system32\pcfull.exe) == $true)  { /did -i antivirus 100 1 Найден вирус: PCFull | halt } 
n933=  /did -i antivirus 100 1 Вирусов не найдено
n934=}
n935=on *:dialog:antivirus:init:*: {
n936=  /tip 100 Найденые Мирц вирусы на вашем компьютере.
n937=  /tip 200 Начать сканирование.
n938=  ;did -ft $dname 200
n939=}
n940=
n941=;###################################################################################################################
n942=;#########################################  FKEYS  #################################################################
n943=;###################################################################################################################
n944=
n945=alias fkeys {
n946=  if $dialog(fkeys) = $null { dialog -m fkeys fkeys }
n947=  else halt
n948=}
n949=
n950=dialog fkeys {
n951=  icon icons\fkeys.ico
n952=  title "Функциональные клавиши"
n953=  size -1 -1 663 281
n954=
n955=  text "F1", 921, 5 8 25 20, right
n956=  text "F2", 922, 5 28 25 20, right
n957=  text "F3", 923, 5 48 25 20, right
n958=  text "F4", 924, 5 68 25 20, right
n959=  text "F5", 925, 5 88 25 20, right
n960=  text "F6", 926, 5 108 25 20, right
n961=  text "F7", 927, 5 128 25 20, right
n962=  text "F8", 928, 5 148 25 20, right
n963=  text "F9", 929, 5 168 25 20, right
n964=  text "F10", 931, 5 188 25 20, right
n965=  text "F11", 932, 5 208 25 20, right
n966=  text "F12", 933, 5 228 25 20, right
n967=
n968=  edit %button.f1, 1, 35 5 160 20, autohs
n969=  edit %button.f2, 2, 35 25 160 20, autohs
n970=  edit %button.f3, 3, 35 45 160 20, autohs
n971=  edit %button.f4, 4, 35 65 160 20, autohs
n972=  edit %button.f5, 5, 35 85 160 20, autohs
n973=  edit %button.f6, 6, 35 105 160 20, autohs
n974=  edit %button.f7, 7, 35 125 160 20, autohs
n975=  edit %button.f8, 8, 35 145 160 20, autohs
n976=  edit %button.f9, 9, 35 165 160 20, autohs
n977=  edit %button.f10, 10, 35 185 160 20, autohs
n978=  edit %button.f11, 11, 35 205 160 20, autohs
n979=  edit %button.f12, 12, 35 225 160 20, autohs
n980=
n981=  text "Shift + F1", 421, 205 8 55 20, right
n982=  text "Shift + F2", 422, 205 28 55 20, right
n983=  text "Shift + F3", 423, 205 48 55 20, right
n984=  text "Shift + F4", 424, 205 68 55 20, right
n985=  text "Shift + F5", 425, 205 88 55 20, right
n986=  text "Shift + F6", 426, 205 108 55 20, right
n987=  text "Shift + F7", 427, 205 128 55 20, right
n988=  text "Shift + F8", 428, 205 148 55 20, right
n989=  text "Shift + F9", 429, 205 168 55 20, right
n990=  text "Shift + F10",431, 205 188 55 20, right
n991=  text "Shift + F11",432, 205 208 55 20, right
n992=  text "Shift + F12", 433, 205 228 55 20, right
n993=
n994=  edit %button.sf1, 21, 267 5 160 20, autohs
n995=  edit %button.sf2, 22, 267 25 160 20, autohs
n996=  edit %button.sf3, 23, 267 45 160 20, autohs
n997=  edit %button.sf4, 24, 267 65 160 20, autohs
n998=  edit %button.sf5, 25, 267 85 160 20, autohs
n999=  edit %button.sf6, 26, 267 105 160 20, autohs
n1000=  edit %button.sf7, 27, 267 125 160 20, autohs
n1001=  edit %button.sf8, 28, 267 145 160 20, autohs
n1002=  edit %button.sf9, 29, 267 165 160 20, autohs
n1003=  edit %button.sf10, 210, 267 185 160 20, autohs
n1004=  edit %button.sf11, 211, 267 205 160 20, autohs
n1005=  edit %button.sf12, 212, 267 225 160 20, autohs
n1006=
n1007=  text "  Ctrl + F1", 521, 430 8 55 20, right
n1008=  text "  Ctrl + F2", 522, 430 28 55 20, right
n1009=  text "  Ctrl + F3", 523, 430 48 55 20, right
n1010=  text "  Ctrl + F4", 524, 430 68 55 20, right
n1011=  text "  Ctrl + F5", 525, 430 88 55 20, right
n1012=  text "  Ctrl + F6", 526, 430 108 55 20, right
n1013=  text "  Ctrl + F7", 527, 430 128 55 20, right
n1014=  text "  Ctrl + F8", 528, 430 148 55 20, right
n1015=  text "  Ctrl + F9", 529, 430 168 55 20, right
n1016=  text "  Ctrl + F10",531, 430 188 55 20, right
n1017=  text "  Ctrl + F11",532, 430 208 55 20, right
n1018=  text "  Ctrl + F12", 533, 430 228 55 20, right
n1019=
n1020=  edit %button.cf1, 31, 497 5 160 20, autohs
n1021=  edit %button.cf2, 32, 497 25 160 20, autohs
n1022=  edit %button.cf3, 33, 497 45 160 20, autohs
n1023=  edit %button.cf4, 34, 497 65 160 20, autohs
n1024=  edit %button.cf5, 35, 497 85 160 20, autohs
n1025=  edit %button.cf6, 36, 497 105 160 20, autohs
n1026=  edit %button.cf7, 37, 497 125 160 20, autohs
n1027=  edit %button.cf8, 38, 497 145 160 20, autohs
n1028=  edit %button.cf9, 39, 497 165 160 20, autohs
n1029=  edit %button.cf10, 310, 497 185 160 20, autohs
n1030=  edit %button.cf11, 311, 497 205 160 20, autohs
n1031=  edit %button.cf12, 312, 497 225 160 20, autohs
n1032=  button "Хорошо", 100, 90 250 220 26
n1033=  button "Команды", 200, 320 250 220 26
n1034=}
n1035=
n1036=on *:dialog:fkeys:init:*: {
n1037=  /tip 100 Сохранение настроек и выход.
n1038=}
n1039=
n1040=on *:dialog:fkeys:sclick:200: {
n1041=  /cmds
n1042=}
n1043=
n1044=on *:dialog:fkeys:sclick:100: {
n1045=  /set %button.f1 $did(1).text
n1046=  /set %button.f2 $did(2).text
n1047=  /set %button.f3 $did(3).text
n1048=  /set %button.f4 $did(4).text
n1049=  /set %button.f5 $did(5).text
n1050=  /set %button.f6 $did(6).text
n1051=  /set %button.f7 $did(7).text
n1052=  /set %button.f8 $did(8).text
n1053=  /set %button.f9 $did(9).text
n1054=  /set %button.f10 $did(10).text
n1055=  /set %button.f11 $did(11).text
n1056=  /set %button.f12 $did(12).text
n1057=  /set %button.sf1 $did(21).text
n1058=  /set %button.sf2 $did(22).text
n1059=  /set %button.sf3 $did(23).text
n1060=  /set %button.sf4 $did(24).text
n1061=  /set %button.sf5 $did(25).text
n1062=  /set %button.sf6 $did(26).text
n1063=  /set %button.sf7 $did(27).text
n1064=  /set %button.sf8 $did(28).text
n1065=  /set %button.sf9 $did(29).text
n1066=  /set %button.sf10 $did(210).text
n1067=  /set %button.sf11 $did(211).text
n1068=  /set %button.sf12 $did(212).text
n1069=  /set %button.cf1 $did(31).text
n1070=  /set %button.cf2 $did(32).text
n1071=  /set %button.cf3 $did(33).text
n1072=  /set %button.cf4 $did(34).text
n1073=  /set %button.cf5 $did(35).text
n1074=  /set %button.cf6 $did(36).text
n1075=  /set %button.cf7 $did(37).text
n1076=  /set %button.cf8 $did(38).text
n1077=  /set %button.cf9 $did(39).text
n1078=  /set %button.cf10 $did(310).text
n1079=  /set %button.cf11 $did(311).text
n1080=  /set %button.cf12 $did(312).text
n1081=  /dialog -x fkeys
n1082=}
n1083=
n1084=;###################################################################################################################
n1085=;#########################################  BROWSER  ###############################################################
n1086=;###################################################################################################################
n1087=
n1088=alias browser {
n1089=  if !$dialog(browser) { dialog -m browser browser }
n1090=}
n1091=
n1092=dialog browser {
n1093=  title "Интернет браузер"
n1094=  size -1 -1 %browser.width %browser.height
n1095=  icon icons\browser.ico
n1096=  list 1, 5 8 770 13, size
n1097=  text "Адрес:", 3, 9 71 45 13
n1098=  combo 4, 55 67 600 196, drop edit size
n1099=  list 5, 660 58 52 60 
n1100=  box "browser", 7, 1 98 713 351
n1101=  list 8, 1 450 715 18, size
n1102=  button "", 6, 0 0 0 0, hide
n1103=  button "", 111, 0 0 0 0, default
n1104=}
n1105=
n1106=on *:dialog:browser:sclick:111: {
n1107=  if !$did(4) { did -ri browser 8 2 Введите адрес сайта }
n1108=  else {
n1109=    if !$istok(%browser.urls,$did(4),300) { 
n1110=      browseit $did(4).text | did -ri browser 8 2 Готово
n1111=      did -a $dname 4 $did(4).text 
n1112=      %browser.urls = $didtok(browser,4,300) 
n1113=    } 
n1114=    else { browseit $did(4).text | did -ri browser 8 2 Готово } 
n1115=  }
n1116=}
n1117=
n1118=on *:dialog:browser:sclick:6: {
n1119=  dll libraries\mdx.dll MoveControl $dname 8 0 $calc($dialog($dname).ch - 20) $dialog($dname).cw *
n1120=  dll libraries\mdx.dll MoveControl $dname 5 $calc($dialog($dname).cw - 55) * * *
n1121=  dll libraries\mdx.dll MoveControl $dname 4 * * $calc($dialog($dname).cw - 115) *
n1122=  dll libraries\mdx.dll MoveControl $dname 7 * * $calc($dialog($dname).cw - 3) $calc($dialog($dname).ch - 120)
n1123=  /set %browser.width $dialog(browser).cw
n1124=  /set %browser.height $dialog(browser).ch
n1125=}
n1126=
n1127=on *:dialog:browser:init:*: {
n1128=  /tip 4 Введите адрес сайта, на который хотите зайти.
n1129=  dll libraries\mdx.dll MarkDialog browser
n1130=  dll libraries\mdx.dll SetControlMDX browser 1 toolbar flat wrap nodivider > libraries\bars.mdx
n1131=  dll libraries\mdx.dll SetControlMDX browser 5 toolbar flat wrap nodivider > libraries\bars.mdx
n1132=  dll libraries\mdx.dll SetControlMDX browser 8 statusbar sizeGrip > libraries\bars.mdx
n1133=  dll libraries\mdx.dll SetBorderStyle 1,5,8
n1134=  dll libraries\mdx.dll SetControlMDX $dname 6 positioner size > libraries\dialogs.mdx
n1135=  dialog -r $dname $dname
n1136=  did -i $dname 1 1 bmpsize 32 32
n1137=  did -i $dname 5 1 bmpsize 16 16
n1138=  did -i $dname 1 1 setimage +nh icon large icons\back.ico
n1139=  did -i $dname 1 1 setimage +nh icon large icons\foward.ico
n1140=  did -i $dname 1 1 setimage +nh icon large icons\stop.ico
n1141=  did -i $dname 1 1 setimage +nh icon large icons\refresh.ico
n1142=  did -i $dname 1 1 setimage +nh icon large icons\clear.ico
n1143=  did -i $dname 1 1 setimage +nh icon large icons\favorites.ico
n1144=  did -i $dname 1 1 setimage +nh icon large icons\printer.ico
n1145=  did -i $dname 5 1 setimage +nh icon small icons\go.ico
n1146=  did -a $dname 1 1 Назад $+ $chr(9) $+ Назад.
n1147=  did -a $dname 1 -
n1148=  did -a $dname 1 2 Вперёд $+ $chr(9) $+ Вперёд.
n1149=  did -a $dname 1 -
n1150=  did -a $dname 1 3 Стоп $+ $chr(9) $+ Прекратить загрузку сайта.
n1151=  did -a $dname 1 -
n1152=  did -a $dname 1 4 Обновить $+ $chr(9) $+ Обновить станицу.
n1153=  did -a $dname 1 -
n1154=  did -a $dname 1 5 Очистить $+ $chr(9) $+ Очистить историю посещаемых сайтов.
n1155=  did -a $dname 1 -
n1156=  did -a $dname 1 6 Избранное $+ $chr(9) $+ Настроить список часто посещаемых сайтов.
n1157=  did -a $dname 1 -
n1158=  did -a $dname 1 7 Печать $+ $chr(9) $+ Распечатать текущий документ на принтере.
n1159=  did -a $dname 5 1 Переход $+ $chr(9) $+ Переход на введённый адрес сайта.
n1160=  did -i $dname 8 2 setparts 710 -1
n1161=  did -i $dname 8 2 Готово
n1162=  didtok $dname 4 300 %browser.urls
n1163=  did -i $dname 8 2 Готово
n1164=  /did -h $dname 7
n1165=  /browseit %browser.homepage
n1166=}
n1167=
n1168=
n1169=
n1170=on *:dialog:browser:sclick:1: {
n1171=  if ($did(1).sel == 2) { 
n1172=    set %browser.window $dll(libraries\nhtmln.dll,find,browser) 
n1173=    dll libraries\nhtmln.dll attach %browser.window
n1174=    dll libraries\nhtmln.dll back 0
n1175=    /did -v browser 7
n1176=  }
n1177=
n1178=  if ($did(1).sel == 4) { 
n1179=    set %browser.window $dll(libraries\nhtmln.dll,find,browser) 
n1180=    dll libraries\nhtmln.dll attach %browser.window
n1181=    dll libraries\nhtmln.dll forward 0
n1182=    /did -v browser 7
n1183=  }
n1184=
n1185=  if ($did(1).sel == 6) { 
n1186=    set %browser.window $dll(libraries\nhtmln.dll,find,browser) 
n1187=    dll libraries\nhtmln.dll attach %browser.window
n1188=    dll libraries\nhtmln.dll stop 0
n1189=    /did -v browser 7
n1190=  }
n1191=
n1192=  if ($did(1).sel == 8) { 
n1193=    set %browser.window $dll(libraries\nhtmln.dll,find,browser) 
n1194=    dll libraries\nhtmln.dll attach %browser.window
n1195=    dll libraries\nhtmln.dll refresh 0
n1196=    /did -v browser 7
n1197=  }
n1198=
n1199=  if ($did(1).sel == 10) { 
n1200=    set %browser.urls http://frp.eclub.lv
n1201=    did -r browser 4
n1202=    didtok browser 4 300 %browser.urls
n1203=  }
n1204=
n1205=  if ($did(1).sel == 12) { 
n1206=    if !$dialog(favorites) { dialog -m favorites favorites }
n1207=  }
n1208=
n1209=  if ($did(1).sel == 14) { 
n1210=    dll libraries\nhtmln.dll print
n1211=  }
n1212=}
n1213=
n1214=on *:dialog:browser:sclick:4: {
n1215=  if $did(4).seltext != $null { browseit $did(4).seltext }
n1216=}
n1217=
n1218=on *:dialog:browser:sclick:5: {
n1219=  if !$did(4) { did -ri browser 8 2 Введите адрес сайта }
n1220=  else {
n1221=    if !$istok(%browser.urls,$did(4),300) { 
n1222=      browseit $did(4).text | did -ri browser 8 2 Готово
n1223=      did -a $dname 4 $did(4).text 
n1224=      %browser.urls = $didtok(browser,4,300) 
n1225=    } 
n1226=    else { browseit $did(4).text | did -ri browser 8 2 Готово } 
n1227=  }
n1228=}
n1229=
n1230=alias browseit { 
n1231=  did -ri browser 8 2 Открытие сайта $1 $+ ...
n1232=  set %browser.window $dll(libraries\nhtmln.dll,find,browser) 
n1233=  dll libraries\nhtmln.dll attach %browser.window
n1234=  dll libraries\nhtmln.dll navigate $1
n1235=  /did -v browser 7
n1236=  /did -ri browser 8 2 Готово
n1237=}
n1238=
n1239=dialog favorites {
n1240=  icon icons\favorites.ico
n1241=  title "Избранное"
n1242=  size -1 -1 230 220
n1243=  text "Домашняя:",365, 7 9 60 20
n1244=  edit %browser.homepage, 1 , 75 5 150 20, autohs
n1245=  list 100, 5 30 150 200
n1246=  button "Добавить",10,160 30 65 30
n1247=  button "Удалить", 20,160 65 65 30
n1248=}
n1249=
n1250=on *:dialog:favorites:sclick:100: {
n1251=  /set %browser.sel $did(100).seltext 
n1252=}
n1253=
n1254=on *:dialog:favorites:dclick:100: {
n1255=  browseit $did(100).seltext
n1256=  dialog -x favorites
n1257=}
n1258=
n1259=
n1260=on *:dialog:favorites:sclick:10: {
n1261=  /did -i favorites 100 1 $$?="Введите сайт:"
n1262=  /set %browser.favorites $didtok(favorites,100,44)
n1263=}
n1264=
n1265=on *:dialog:favorites:sclick:20: {
n1266=  if ($did(100).seltext = $null) { halt }
n1267=  /set %browser.favorites $didtok(favorites,100,44)
n1268=  if (%browser.sel != $null) && (%browser.favorites != $null) { /did -d favorites 100 $findtok(%browser.favorites,%browser.sel,1,44) }
n1269=  /set %browser.favorites $didtok(favorites,100,44)
n1270=}
n1271=
n1272=on *:dialog:favorites:init:*: {
n1273=  /didtok $dname 100 44 %browser.favorites
n1274=}
n1275=
n1276=on *:dialog:favorites:close:*: {
n1277=  if $did(1).text != $null { set %browser.homepage $did(1).text }
n1278=}
n1279=
n1280=;###################################################################################################################
n1281=;#########################################  SEARCHFIND  ############################################################
n1282=;###################################################################################################################
n1283=
n1284=alias searchfind {
n1285=  if !$dialog(searchfind) { dialog -m searchfind searchfind }
n1286=}
n1287=
n1288=dialog searchfind {
n1289=  title "Поисковая машина"
n1290=  size -1 -1 302 275
n1291=  icon icons\search.ico
n1292=  box "Что вы хотите найти:", 123, 5 5 290 46
n1293=  edit %searchfind.string, 1, 15 22 270 20 
n1294=  box "На каком узле искать информацию:", 124, 5 55 290 185
n1295=  radio "www.yahoo.com", 10, 20 73 270 20 
n1296=  radio "www.rambler.ru", 20, 20 93 270 20 
n1297=  radio "www.search.com", 30, 20 113 270 20 
n1298=  radio "www.download.com", 40, 20 133 270 20 
n1299=  radio "www.softsearch.com", 50, 20 153 270 20 
n1300=  radio "www.google.com", 60, 20 173 270 20 
n1301=  radio "www.google.ru", 70, 20 193 270 20 
n1302=  radio "www.google.lv", 80, 20 213 270 20 
n1303=  button "Искать", 100, 5 245 290 26
n1304=}
n1305=
n1306=on *:dialog:searchfind:init:*: {
n1307=  if %searchfind.web == yahoo { did -c searchfind 10 }
n1308=  if %searchfind.web == rambler { did -c searchfind 20 }
n1309=  if %searchfind.web == searchcom { did -c searchfind 30 }
n1310=  if %searchfind.web == downloadcom { did -c searchfind 40 }
n1311=  if %searchfind.web == softsearch { did -c searchfind 50 }
n1312=  if %searchfind.web == googlecom { did -c searchfind 60 }
n1313=  if %searchfind.web == googleru { did -c searchfind 70 }
n1314=  if %searchfind.web == googlelv { did -c searchfind 80 }
n1315=}
n1316=
n1317=on *:dialog:searchfind:sclick:100: {
n1318=  if $did(10).state == 1 { /set %searchfind.web yahoo }
n1319=  if $did(20).state == 1 { /set %searchfind.web rambler }
n1320=  if $did(30).state == 1 { /set %searchfind.web searchcom }
n1321=  if $did(40).state == 1 { /set %searchfind.web downloadcom }
n1322=  if $did(50).state == 1 { /set %searchfind.web softsearch }
n1323=  if $did(60).state == 1 { /set %searchfind.web googlecom }
n1324=  if $did(70).state == 1 { /set %searchfind.web googleru }
n1325=  if $did(80).state == 1 { /set %searchfind.web googlelv }
n1326=  /set %searchfind.string $did(1).text
n1327=  var %searchfind.temp $replace(%searchfind.string,$chr(32),+)
n1328=  if %searchfind.web == yahoo { /url -an http://search.yahoo.com/search?p= $+ %searchfind.temp $+ &ei=UTF-8&fr=FP-tab-web-t&cop=mss&tab= }
n1329=  if %searchfind.web == rambler { /url -an http://search.rambler.ru/srch?words= $+ %searchfind.temp $+ &where=1 }
n1330=  if %searchfind.web == searchcom { /url -an http://www.search.com/search?q= $+ %searchfind.temp }
n1331=  if %searchfind.web == downloadcom { /url -an http://www.download.com/3120-20-0.html?qt= $+ %searchfind.temp $+ &tg=dl-2001 }
n1332=  if %searchfind.web == softsearch { /url -an http://www.softsearch.ru/pcgi/search.cgi?text= $+ %searchfind.temp $+ &w=2 }
n1333=  if %searchfind.web == googlecom { /url -an http://www.google.com/search?hl=en&ie=UTF-8&q= $+ %searchfind.temp $+ &meta=  }
n1334=  if %searchfind.web == googleru { /url -an http://www.google.ru/search?hl=ru&ie=UTF-8&q= $+ %searchfind.temp $+ &btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr= }
n1335=  if %searchfind.web == googlelv { /url -an http://www.google.lv/search?hl=lv&ie=UTF-8&q= $+ %searchfind.temp $+ &meta= }
n1336=}
n1337=
n1338=;###################################################################################################################
n1339=;#########################################  WINAMP CONTROLLER  #####################################################
n1340=;###################################################################################################################
n1341=
n1342=alias ampsaysong { 
n1343=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) { goto ok }
n1344=  /halt
n1345=  :ok
n1346=  set %winamp.channelmodec $dll(libraries\nlinkn.dll,channel,0) 
n1347=  set %winamp.channelmode Моно
n1348=  if %winamp.channelmodec == 1 { /set %winamp.ChannelMode Моно | goto next }
n1349=  if %winamp.channelmodec == 2 { /set %winamp.ChannelMode Стерео | goto next }
n1350=  if %winamp.channelmodec == 3 { /set %winamp.ChannelMode Дуал Моно | goto next }
n1351=  if %winamp.channelmodec == 4 { /set %winamp.ChannelMode Дуал Стерео | goto next }
n1352=  set %winamp.channelmode Стерео 
n1353=  :next
n1354=  var %intmin $int($calc($ampget(POSSEC)/60))
n1355=  var %intsec $int($calc($calc($ampget(POSSEC)) - (%intmin * 60)))
n1356=  if %intmin < 10 { set %intmin 0 $+ %intmin }
n1357=  if %intsec < 10 { set %intsec 0 $+ %intsec }
n1358=  set %winamp.current %intmin $+ : $+ %intsec
n1359=  set %winamp.title $ampgettitle 
n1360=  set %winamp.genre $iif($ampget(GENRE),$ampget(GENRE),Другой стиль)  
n1361=  set %winamp.year $iif($ampget(YEAR),$ampget(YEAR),$asctime(yyyy))  
n1362=  set %winamp.file $iif($ampget(TRACKFILENAME),$ampget(TRACKFILENAME),unknown - untitled.mp3)  
n1363=  set %winamp.album $iif($ampget(ALBUM),$ampget(ALBUM),Best Hits)
n1364=  var %intmin $int($calc($ampget(TRACKSEC)/60))
n1365=  var %intsec $int($calc($calc($ampget(TRACKSEC)) - (%intmin * 60)))
n1366=  if %intmin < 10 { set %intmin 0 $+ %intmin }
n1367=  if %intsec < 10 { set %intsec 0 $+ %intsec }
n1368=  set %winamp.length %intmin $+ : $+ %intsec
n1369=  set %winamp.bitrate $iif($ampget(BITRATE),$ampget(BITRATE),41)
n1370=  set %winamp.samplerate $iif($ampget(SAMPLERATE),$ampget(SAMPLERATE),360)   
n1371=  if ($chr(45) isin %winamp.Length) { %winamp.Length = 00:00 } 
n1372=  if ($1- == -e) { /echo %skins.prefix $me $winampreplaced | halt }
n1373=  if ($status == disconnected) { /notconnected | /halt }
n1374=  if (%winamp.msgtype == me) { /me $winampreplaced  }
n1375=  if (%winamp.msgtype == say) { /say $winampreplaced  }
n1376=  if (%winamp.msgtype == ame) { /ame $winampreplaced  }
n1377=  if (%winamp.msgtype == amsg) { /amsg $winampreplaced  }
n1378=} 
n1379=
n1380=alias winampreplaced {
n1381=  return $replace(%winamp.saysong.format,<NAZV>,%winamp.title,<RAZM>,%winamp.length,<GOD>,%winamp.year,<ZHANR>,%winamp.genre,<FAIL>,$nopath(%winamp.file),<ALBOM>,%winamp.album,<SEJC>,%winamp.current,<BITR>,%winamp.bitrate,<GERC>,%winamp.samplerate,<KANAL>,%winamp.channelmode)
n1382=}
n1383=
n1384=alias winampcontrol {
n1385=  if $dialog(winampcontrol) = $null { dialog -m winampcontrol winampcontrol }
n1386=}
n1387=
n1388=dialog winampcontrol {
n1389=  icon icons/winamp.ico
n1390=  title "Винамп контроллер"
n1391=  size -1 -1 430 270
n1392=  edit "Винамп не включен", 1, 5 5 420 20, center
n1393=  button "Назад", 10 , 5 30 80 26
n1394=  button "Стоп", 20 , 90 30 80 26
n1395=  button "Играть", 30 , 175 30 80 26
n1396=  button "Пауза",40 , 260 30 80 26
n1397=  button "Дальше", 50 , 345 30 80 26
n1398=  box "Опции контроллера", 276, 5 60 420 110
n1399=  check "Автоматически включать Винамп при загрузке NeOn Script", 100 , 15 80 350 20
n1400=  check "Автоматически воспроизводить песню при включении Винампа", 200 , 15 100 350 20
n1401=  check "Отображать результаты поиска", 300 , 15 120 350 20
n1402=  check "Сообщать в окна название трека при смене песни", 400 , 15 140 350 20
n1403=  box "Формат сообщения названия песни" ,651, 5 175 420 90
n1404=  radio "/say", 601, 20 190 40 20, group
n1405=  radio "/me", 602, 90 190 40 20
n1406=  radio "/amsg", 603, 160 190 60 20
n1407=  radio "/ame", 604, 230 190 40 20
n1408=  edit %winamp.saysong.format ,500, 15 210 330 20, autohs
n1409=  button "Теги...", 501, 350 210 65 20
n1410=  button "",999, 15 235 400 22
n1411=}
n1412=
n1413=on *:dialog:winampcontrol:init:*: {
n1414=  /did -m winampcontrol 1 1
n1415=  /tip 100 Винамп сразу включится при загрузке скрипта.
n1416=  /tip 200 Воспроизводить песню при включении Винампа.
n1417=  /tip 300 При поиске в активном окне будут отображаться результаты поиска.
n1418=  /tip 400 Отображать название песни при переключении.
n1419=  /tip 601 При сообщении песни на канал или в приват будет использоваться обыкновенное сообщение.
n1420=  /tip 602 При сообщении песни на канал или в приват будет использоваться действие.
n1421=  /tip 603 При сообщении песни на канал или в приват будет использоваться обыкновенное сообщение во всех окнах.
n1422=  /tip 604 При сообщении песни на канал или в приват будет использоваться действие во всех окнах.
n1423=  /tip 500 Формат сообщения названия песни.
n1424=  /tip 501 Помощь по тегам.
n1425=  /did -ra winampcontrol 1 $ampgettitle
n1426=  dll libraries\mdx.dll MarkDialog winampcontrol
n1427=  if %winamp.startup = on { did -c winampcontrol 100 }  
n1428=  if %winamp.startup.play = on { did -c winampcontrol 200 }  
n1429=  if %winamp.onfind.show = on { did -c winampcontrol 300 }  
n1430=  if %winamp.onchange.show = on { did -c winampcontrol 400 }  
n1431=  if %winamp.msgtype = say { did -c winampcontrol 601 } 
n1432=  if %winamp.msgtype = me { did -c winampcontrol 602 } 
n1433=  if %winamp.msgtype = amsg { did -c winampcontrol 603 } 
n1434=  if %winamp.msgtype = ame { did -c winampcontrol 604 } 
n1435=  dll libraries\mdx.dll SetControlMDX winampcontrol 999 window > libraries\dialogs.mdx  
n1436=  dll libraries\mdx.dll SetFont winampcontrol 500 0 verdana 
n1437=  dll libraries\mdx.dll SetColor winampcontrol 500 text $rgb(50,50,50) 
n1438=  window -h @wp
n1439=  did -a winampcontrol 999 grab $window(@wp).hwnd @wp
n1440=  clear @wp
n1441=  aline @wp $me $replace($did(500).text,4Я калбасюсь под 9||| 2,11,2\12,2\1\12\2,12\\0 <NAZV> 2//12,2/1,2/12/1/ 9||| 4NeOn Script,$ampgettitle,<RAZM>,%winamp.Length,<GOD>,%winamp.year,<ZHANR>,%winamp.genre,<FAIL>,$nopath(%winamp.file),<ALBOM>,%winamp.album,<SEJC>,%winamp.Current,<BITR>,%winamp.BitRate,<GERC>,%winamp.SampleRate,<KANAL>,%winamp.ChannelMode)
n1442=}
n1443=
n1444=on *:dialog:winampcontrol:sclick:10: {
n1445=  /ampprev
n1446=  /did -ra winampcontrol 1 $ampgettitle
n1447=}
n1448=
n1449=on *:dialog:winampcontrol:edit:500: {
n1450=  clear @wp
n1451=  aline @wp $me $replace($did(500).text,4Я калбасюсь под 9||| 2,11,2\12,2\1\12\2,12\\0 <NAZV> 2//12,2/1,2/12/1/ 9||| 4NeOn Script,$ampgettitle,<RAZM>,%winamp.Length,<GOD>,%winamp.year,<ZHANR>,%winamp.genre,<FAIL>,$nopath(%winamp.file),<ALBOM>,%winamp.album,<SEJC>,%winamp.Current,<BITR>,%winamp.BitRate,<GERC>,%winamp.SampleRate,<KANAL>,%winamp.ChannelMode)
n1452=}
n1453=
n1454=on *:dialog:winampcontrol:sclick:20: {
n1455=  $ampset(STOP)
n1456=}
n1457=
n1458=on *:dialog:winampcontrol:sclick:30: {
n1459=  $ampset(PLAY)
n1460=}
n1461=
n1462=on *:dialog:winampcontrol:sclick:40: {
n1463=  $ampset(PAUSE)
n1464=}
n1465=
n1466=on *:dialog:winampcontrol:sclick:50: {
n1467=  /ampnext
n1468=  /did -ra winampcontrol 1 $ampgettitle
n1469=}
n1470=
n1471=on *:dialog:winampcontrol:sclick:501: { if !$dialog(winamptaghelp) { dialog -m winamptaghelp winamptaghelp } }
n1472=on *:dialog:winampcontrol:sclick:601: { /set %winamp.msgtype say }
n1473=on *:dialog:winampcontrol:sclick:602: { /set %winamp.msgtype me }
n1474=on *:dialog:winampcontrol:sclick:603: { /set %winamp.msgtype amsg }
n1475=on *:dialog:winampcontrol:sclick:604: { /set %winamp.msgtype ame }
n1476=on *:dialog:winampcontrol:sclick:100: { if ($did(winampcontrol,100).state = 1) { /set %winamp.startup on } | else { /set %winamp.startup off } }
n1477=on *:dialog:winampcontrol:sclick:200: { if ($did(winampcontrol,200).state = 1) { /set %winamp.startup.play on } | else { /set %winamp.startup.play off } }
n1478=on *:dialog:winampcontrol:sclick:300: { if ($did(winampcontrol,300).state = 1) { /set %winamp.onfind.show on } | else { /set %winamp.onfind.show off } }
n1479=on *:dialog:winampcontrol:sclick:400: { if ($did(winampcontrol,400).state = 1) { /set %winamp.onchange.show on } | else { /set %winamp.onchange.show off } }
n1480=on *:dialog:winampcontrol:sclick:602: { if !$dialog(winamptaghelp) { dialog -m winamptaghelp winamptaghelp } }
n1481=
n1482=dialog winamptaghelp {
n1483=  icon %iconfilename
n1484=  title "Помощь по тегам"
n1485=  size -1 -1 220 205
n1486=  text "<NAZV>", 1, 5 5 60 20
n1487=  text "<RAZM>", 2, 5 25 60 20
n1488=  text "<GERC>", 3, 5 45 60 20
n1489=  text "<BITR>", 4, 5 65 60 20
n1490=  text "<KANAL>", 9, 5 85 60 20
n1491=  text "<SEJC>", 20, 5 105 60 20
n1492=  text "<ZHANR>", 23, 5 125 60 20
n1493=  text "<GOD>", 24, 5 145 60 20
n1494=  text "<FAIL>", 25, 5 165 60 20
n1495=  text "<ALBOM>", 26, 5 185 60 20
n1496=  text "- Название песни", 5, 65 5 160 20
n1497=  text "- Длина песни", 6, 65 25 160 20
n1498=  text "- Частота в кГерцах", 7, 65 45 160 20
n1499=  text "- Качество звука в битах", 8, 65 65 160 20
n1500=  text "- Каналы песни", 10, 65 85 160 20
n1501=  text "- Текущая позиция", 21, 65 105 160 20
n1502=  text "- Жанр", 27, 65 125 160 20
n1503=  text "- Год исполнения", 28, 65 145 160 20
n1504=  text "- Имя файла", 29, 65 165 160 20
n1505=  text "- Название альбома", 30, 65 185 160 20
n1506=}
n1507=on *:dialog:winampcontrol:close:*: {
n1508=  /set %winamp.saysong.format $did(500)
n1509=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) {
n1510=    /echo %skins.prefix Формат сообщения песни:
n1511=    /ampsaysong -e
n1512=  }
n1513=}
n1514=
n1515=alias winampplaystartup {
n1516=  if ($chr(36) $+ WA_NOTRUNNING isin $ampget(STATE)) { 
n1517=    /dll libraries\wa_link.dll WA_Link_Command START
n1518=    if (%winamp.startup.play == on) { $ampset(PLAY) | $ampset(HIDE) }
n1519=  }
n1520=}
n1521=
n1522=alias ampprev {
n1523=  $ampset(START)
n1524=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) {
n1525=    $ampset(PREV)
n1526=    $ampset(PLAY)
n1527=    if %winamp.onchange.show == on {
n1528=      /echo %skins.prefix Играет песня: $ampgettitle
n1529=    }
n1530=  } 
n1531=}
n1532=
n1533=alias ampplaypause {
n1534=  $ampset(START)
n1535=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) {
n1536=    if ($ampget(STATE) == $chr(36) $+ WA_PLAYING) { $ampset(PAUSE) | halt }
n1537=    if ($ampget(STATE) == $chr(36) $+ WA_PAUSED) { $ampset(PLAY) | halt }
n1538=    if ($ampget(STATE) == $chr(36) $+ WA_STOPPED) { $ampset(PLAY) | halt }
n1539=  }
n1540=}
n1541=
n1542=alias ampnext {
n1543=  $ampset(START)
n1544=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) {
n1545=    $ampset(NEXT)
n1546=    $ampset(PLAY)
n1547=    if %winamp.onchange.show == on {
n1548=      /echo %skins.prefix Играет песня: $ampgettitle
n1549=    } 
n1550=  } 
n1551=}
n1552=
n1553=alias ampopen { 
n1554=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) { 
n1555=    $ampset(HIDE) $ampset(RESTORE) $ampset(OPEN) 
n1556=    if %maximize = on { /showmirc -sp }
n1557=    if %maximize.mirc = on { /showmirc -xsp }
n1558=  } 
n1559=}
n1560=
n1561=alias -1 {
n1562=
n1563=}
n1564=
n1565=alias -2 {
n1566=
n1567=}
n1568=
n1569=alias ampget {
n1570=  return $dll(libraries\wa_link.dll,WA_Link_Raw_Stats,$1-)
n1571=}
n1572=
n1573=alias ampstop { 
n1574=  if ($ampget(STATE) != $chr(36) $+ WA_STOPPED) { $ampset(STOP) | halt } | else /stop 
n1575=}
n1576=
n1577=alias ampplay { 
n1578=  $ampset(START) | if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) { /dll libraries\wa_link.dll WA_Link_Command PLAY } 
n1579=}
n1580=
n1581=
n1582=alias ampset {
n1583=  return $dll(libraries\wa_link.dll,WA_Link_Command,$1-)
n1584=}
n1585=
n1586=alias ampseekb {
n1587=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) {
n1588=    $ampset(REW5)
n1589=  }
n1590=}
n1591=
n1592=alias ampseekf { 
n1593=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) {
n1594=    $ampset(FFW5)
n1595=  }
n1596=}
n1597=
n1598=alias ampfind {
n1599=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) {
n1600=    if $1- == $null { /set %winamp.findstring $?="Введите отрывок из название песни, которую хотите найти:" | goto 2 }
n1601=    /set %winamp.findstring $1-
n1602=    :2
n1603=    if $ampset(FIND %winamp.findstring) == -2 { if %winamp.onfind.show == on { echo %skins.prefix Песня " $+ %winamp.findstring $+ " не найдена. } | halt }
n1604=    $ampset(JUMP $ampset(FIND %winamp.findstring))
n1605=    if %winamp.onfind.show == on { echo %skins.prefix Песня " $+ %winamp.findstring $+ " найдена: $ampgettitle }
n1606=  }
n1607=}
n1608=
n1609=alias ampopen {
n1610=  if ($chr(36) $+ WA_NOTRUNNING !isin $ampget(STATE)) {
n1611=    /showmirc -m
n1612=    $ampset(HIDE) $ampset(RESTORE) $ampset(OPEN)
n1613=    /showmirc -xsp
n1614=  }
n1615=}
n1616=
n1617=alias ampgettitle {
n1618=  if $ampget(STATE) == $chr(36) $+ WA_NOTRUNNING { return Винамп не включен | /halt }  
n1619=  if $ampget(STATE) != $chr(36) $+ WA_PLAYING { return Тишина | /halt }  
n1620=  return $dll(libraries\winamptomirc.dll,GetTitle,_)
n1621=}
n1622=
n1623=alias ampgettime {
n1624=  var %intmin $int($calc($ampget(TRACKSEC)/60))
n1625=  var %intsec $int($calc($calc($ampget(TRACKSEC)) - (%intmin * 60)))
n1626=  if %intmin < 10 { set %intmin 0 $+ %intmin }
n1627=  if %intsec < 10 { set %intsec 0 $+ %intsec }
n1628=  var %rettime %intmin $+ : $+ %intsec
n1629=  if (*-* iswm %rettime) { var %rettime 00:00 }
n1630=  return %rettime
n1631=}
n1632=
n1633=;###################################################################################################################
n1634=;#########################################  NICK GENERATOR  ########################################################
n1635=;###################################################################################################################
n1636=
n1637=alias nickgen {
n1638=  if $dialog(nickgen) = $null { dialog -m nickgen nickgen }
n1639=  else halt
n1640=}
n1641=
n1642=dialog nickgen {
n1643=  icon icons\nickgen.ico
n1644=  title "Генератор ников"
n1645=  size -1 -1 300 85
n1646=  box "Ваш ник:", 275, 5 5 290 45
n1647=  edit "", 10, 15 20 270 20, center
n1648=  button "Генерировать", 100, 5 55 142 26
n1649=  button "Выбрать", 200, 153 55 142 26
n1650=}
n1651=
n1652=on *:dialog:nickgen:init:*: {
n1653=  dll libraries\mdx.dll MarkDialog nickgen
n1654=  dll libraries\mdx.dll SetFont nickgen 10 10 0 fixedsys
n1655=  did -ra nickgen 10 $me
n1656=}
n1657=
n1658=on *:dialog:nickgen:sclick:100: {
n1659=  var %type $rand(0,7)
n1660=
n1661=  if %type == 0 {
n1662=    set %randnick $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) 
n1663=    did -ra nickgen 10 %randnick
n1664=    halt
n1665=  }
n1666=
n1667=  if %type == 1 {
n1668=    set %randnick $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(0,9)  
n1669=    did -ra nickgen 10 %randnick
n1670=    halt
n1671=  }
n1672=
n1673=  if %type == 3 {
n1674=    set %randnick $rand(A,Z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(A,Z)
n1675=    did -ra nickgen 10 %randnick
n1676=    halt
n1677=  }
n1678=
n1679=  if %type == 5 {
n1680=    set %randnick $rand(A,Z) $+ $rand(0,9) 
n1681=    did -ra nickgen 10 %randnick
n1682=    halt
n1683=  }
n1684=
n1685=  if %type == 4 {
n1686=    set %randnick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
n1687=    did -ra nickgen 10 %randnick
n1688=    halt
n1689=  }
n1690=
n1691=  if %type == 2 {
n1692=    set %randnick $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(a,z)
n1693=    did -ra nickgen 10 %randnick
n1694=    halt
n1695=  }
n1696=
n1697=  if %type == 6 {
n1698=    set %randnick $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z)
n1699=    did -ra nickgen 10 %randnick
n1700=    halt
n1701=  }
n1702=
n1703=  if %type == 7 {
n1704=    set %randnick $rand(A,Z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
n1705=    did -ra nickgen 10 %randnick
n1706=    halt
n1707=  }
n1708=}
n1709=
n1710=on *:dialog:nickgen:sclick:200: {
n1711=  nick $did(10)
n1712=}
n1713=
n1714=;###################################################################################################################
n1715=;#########################################  CHARLIST  ##############################################################
n1716=;###################################################################################################################
n1717=
n1718=alias charlist { 
n1719=  if (!$dialog(charlist)) { dialog -m charlist charlist }
n1720=}
n1721=
n1722=dialog charlist {
n1723=  title "Таблица символов"
n1724=  size -1 -1 280 363
n1725=  icon icons/charlist.ico
n1726=  list 3, 5 5 270 360
n1727=}
n1728=
n1729=on *:dialog:charlist:init:*: {
n1730=  dll libraries/mdx.dll MarkDialog charlist
n1731=  dll libraries/mdx.dll SetControlMDX 3 ListView headerdrag report rowselect showsel grid nosortheader single > libraries/views.mdx
n1732=  dll libraries\mdx.dll SetFont charlist 3 10 0 fixedsys  
n1733=  did -i $dname 3 1 headerdims 90:1 155:3
n1734=  did -i $dname 3 1 headertext Код $chr(9) $+ Символ $+ 
n1735=  var %charz.a = 32
n1736=  while (%charz.a < 256) { did -a charlist 3 $chr(36) $+ chr( $+ %charz.a $+ ) $chr(9) $chr(%charz.a) | inc %charz.a }
n1737=}
n1738=
n1739=;###################################################################################################################
n1740=;#########################################  VOLUME  ################################################################
n1741=;###################################################################################################################
n1742=
n1743=alias volume {
n1744=  if (!$dialog(mp3volume)) { dialog -ma volume volume }
n1745=}
n1746=dialog volume {
n1747=  title "Громкость"
n1748=  size -1 -1 202 170
n1749=  icon icons\volume.ico
n1750=
n1751=  text "Главный", 1, 5 5 65 20, center
n1752=  text "Волны",   3, 70 5 65 20, center
n1753=  text "Миди",    5, 135 5 65 20, center
n1754=  list            2, 23 25 30 135, size
n1755=  list            6, 88 25 30 135, size
n1756=  list            4, 155 25 30 135, size
n1757=}
n1758=
n1759=on *:dialog:volume:init:*: {
n1760=  dll libraries/mdx.dll MarkDialog volume
n1761=  dll libraries/mdx.dll SetControlMDX $dname 2,4,6 trackbar vertical noticks > libraries/bars.mdx
n1762=  dll libraries/mdx.dll SetBorderStyle $dname 2,4,6
n1763=  did -i $dname 2 1 params $calc(65535 - $vol(master)) 0 65535
n1764=  did -i $dname 4 1 params $calc(65535 - $vol(midi)) 0 65535
n1765=  did -i $dname 6 1 params $calc(65535 - $vol(wave)) 0 65535
n1766=}
n1767=
n1768=on *:dialog:volume:sclick:*: {
n1769=  if ($did == 2) { vol -v $calc(65535 - $gettok($did(volume,2,1).text,1,32)) }
n1770=  if ($did == 4) { vol -m $calc(65535 - $gettok($did(volume,4,1).text,1,32)) }
n1771=  if ($did == 6) { vol -w $calc(65535 - $gettok($did(volume,6,1).text,1,32)) }
n1772=}
n1773=
n1774=;###################################################################################################################
n1775=;#########################################  HELP  ##################################################################
n1776=;###################################################################################################################
n1777=
n1778=alias helpcentre {
n1779=  if !$dialog(helpbrowser) { dialog -m helpbrowser helpbrowser }
n1780=}
n1781=
n1782=dialog helpbrowser {
n1783=  title "Центр справки и поддержки"
n1784=  size -1 -1 600 400
n1785=  icon icons\help.ico
n1786=  box "-", 7, 0 0 600 400
n1787=}
n1788=
n1789=on *:dialog:helpbrowser:init:*: {
n1790=  /did -h helpbrowser 7
n1791=  dll libraries\mdx.dll MarkDialog helpbrowser
n1792=  var %helpbrowser.index = $mircdir $+ help\index.htm
n1793=  if  !$exists(%helpbrowser.index) { halt }
n1794=  set %helpbrowser.window $dll(libraries\nhtmln.dll,find,-) 
n1795=  dll libraries\nhtmln.dll attach %helpbrowser.window
n1796=  dll libraries\nhtmln.dll navigate %helpbrowser.index
n1797=  /did -v helpbrowser 7
n1798=}
n1799=
n1800=;###################################################################################################################
n1801=;#########################################  MEMOS  #################################################################
n1802=;###################################################################################################################
n1803=
n1804=alias memos {
n1805=  if $dialog(memos) = $null { dialog -m memos memos }
n1806=  else halt
n1807=}
n1808=
n1809=dialog memos {
n1810=  icon icons\memos.ico
n1811=  title "Доставка Мемо"
n1812=  size -1 -1 300 177
n1813=  box "Введите ник:", 275, 5 5 290 45
n1814=  edit %memos.nick, 10, 15 20 270 20
n1815=  box "Сообщение:", 276, 5 50 290 65
n1816=  edit %memos.message, 20, 15 65 270 40, multi limit 150 autohs autovs
n1817=  button "Отправить", 100, 5 120 290 26
n1818=  button "Выход", 200, 5 148 290 26, cancel
n1819=} 
n1820=
n1821=on *:dialog:memos:init:*: {
n1822=  /tip 10 Введите ник, которому нужно послать Мемо.
n1823=  /tip 20 Введите сообщение.
n1824=  /tip 100 Отправить сообщение.
n1825=  /tip 200 Выход.
n1826=}
n1827=
n1828=on *:dialog:memos:sclick:100: {
n1829=  /set %memos.nick $did(10) 
n1830=  /set %memos.message $did(20)
n1831=  if ($status != disconnected) {
n1832=    /msg memoserv send $did(10) $did(20)
n1833=  } | else { notconnected }
n1834=}
n1835=;###################################################################################################################
n1836=;#########################################  CTABLE  #######################################################
n1837=;###################################################################################################################
n1838=
n1839=
n1840=dialog color {
n1841=  title "NEON Колорайзер"
n1842=  size -1 -1 200 80
n1843=  option dbu
n1844=  button "Ok", 1, 54 235 37 12, ok 
n1845=  edit "", 2, 10 15 150 12, autohs
n1846=  box "Текст:", 3, 3 5 195 25
n1847=  box "", 4, 24 30 155 15
n1848=  box "Цвет текста", 5, 24 46 50 30
n1849=  box "Фон", 6, 129 46 50 30
n1850=  button "Послать", 7, 163 15 30 12
n1851=  combo 8, 25 57 47 50, drop
n1852=  combo 9, 130 57 47 50, drop
n1853=  check "Жирный", 10, 28 34 50 10
n1854=  check "Подчёркнут", 11, 80 34 50 10
n1855=  check "Контраст", 12, 136 34 40 10 
n1856=  button "Тест", 13, 85 52 30 20
n1857=}
n1858=on 1:dialog:color:sclick:13: { if ($did(color,2) == $null) { did -f color 2 } | else { echo 4 -a Tест1: %bold $+ %under $+ %reverse $+  $+ %text.c $+ , $+ %text.b $+ $did(color,2) } }
n1859=on 1:dialog:color:sclick:7: { if ($did(color,2) == $null) { did -f color 2 } | else { msg $active %bold $+ %under $+ %reverse $+  $+ %text.c $+ , $+ %text.b $+ $did(color,2) } }
n1860=on 1:dialog:color:sclick:10: { if (%bold == $null) { %bold =  } | else unset %bold }  
n1861=on 1:dialog:color:sclick:11: { if (%under == $null) { %under =  } | else unset %under }
n1862=on 1:dialog:color:sclick:12: { 
n1863=  if (%reverse != $null) { did -e color 8,9 } | else did -b color 8,9 
n1864=  if (%reverse == $null) { %reverse =  } | else unset %reverse 
n1865=}
n1866=on 1:dialog:color:init:0: {
n1867=  did -i color 8,9 1 (0) Белый
n1868=  did -i color 8,9 2 (1) Чёрный | did -i color 8,9 3 (2) Голубой | did -i color 8,9 4 (3) Зелёный
n1869=  did -i color 8,9 5 (4) Красный | did -i color 8,9 6 (5) Коричневый | did -i color 8,9 7 (6) Пурпурный
n1870=  did -i color 8,9 8 (7) Оранжевый | did -i color 8,9 9 (8) Жёлтый | did -i color 8,9 10 (9) Светло-зелёный
n1871=  did -i color 8,9 11 (10) Олив | did -i color 8,9 12 (11) Cветлый Олив | did -i color 8,9 13 (12) Голубой
n1872=  did -i color 8,9 14 (13) Фиолетовый | did -i color 8,9 15 (14) Серый | did -i color 8,9 16 (15) Светло-серый
n1873=  did -c color 8 2 | did -c color 9 1 
n1874=  did -f color 2
n1875=  unset %bold %under %reverse
n1876=  %text.c = 1 | %text.b = 0
n1877=}
n1878=on 1:dialog:color:sclick:8: {
n1879=  if ($did(8).sel == 1) { %text.c = 0 } | if ($did(8).sel == 2) { %text.c = 1 } | if ($did(8).sel == 3) { %text.c = 2 }
n1880=  if ($did(8).sel == 4) { %text.c = 3 } | if ($did(8).sel == 5) { %text.c = 4 } | if ($did(8).sel == 6) { %text.c = 5 }
n1881=  if ($did(8).sel == 7) { %text.c = 6 } | if ($did(8).sel == 8) { %text.c = 7 } | if ($did(8).sel == 9) { %text.c = 8 }
n1882=  if ($did(8).sel == 10) { %text.c = 9 } | if ($did(8).sel == 11) { %text.c = 10 } | if ($did(8).sel == 12) { %text.c = 11 }
n1883=  if ($did(8).sel == 13) { %text.c = 12 } | if ($did(8).sel == 14) { %text.c = 13 } | if ($did(8).sel == 15) { %text.c = 14 }
n1884=  if ($did(8).sel == 16) { %text.c = 15 }
n1885=}
n1886=on 1:dialog:color:sclick:9: {
n1887=  if ($did(9).sel == 1) { %text.b = 0 } | if ($did(9).sel == 2) { %text.b = 1 } | if ($did(9).sel == 3) { %text.b = 2 }
n1888=  if ($did(9).sel == 4) { %text.b = 3 } | if ($did(9).sel == 5) { %text.b = 4 } | if ($did(9).sel == 6) { %text.b = 5 }
n1889=  if ($did(9).sel == 7) { %text.b = 6 } | if ($did(9).sel == 8) { %text.b = 7 } | if ($did(9).sel == 9) { %text.b = 8 }
n1890=  if ($did(9).sel == 10) { %text.b = 9 } | if ($did(9).sel == 11) { %text.b = 10 } | if ($did(9).sel == 12) { %text.b = 11 }
n1891=  if ($did(9).sel == 13) { %text.b = 12 } | if ($did(9).sel == 14) { %text.b = 13 } | if ($did(9).sel == 15) { %text.b = 14 }
n1892=  if ($did(9).sel == 16) { %text.b = 15 }
n1893=}
n1894=
n1895=;###################################################################################################################
n1896=;#########################################  IRC Helper  #################################################################
n1897=;###################################################################################################################
n1898=
n1899=alias irc1 {
n1900=  if $dialog(irc1) = $null { dialog -m irc1 irc1 }
n1901=  else halt
n1902=}
n1903=
n1904=dialog irc1 {
n1905=  icon icons\mirc.ico
n1906=  title "Помощь по IRC"
n1907=  size -1 -1 150 639
n1908=  option pixels
n1909=  button "Как зарегить ник", 1, 5 10 139 23
n1910=  button "Как прописать аоп", 2, 5 35 139 23
n1911=  button "Как прописать хоп", 3, 5 60 139 23
n1912=  button "Как прописать войс", 4, 5 85 139 23
n1913=  button "Как убрать аоп", 5, 5 110 139 23
n1914=  button "Как убрать хоп", 6, 5 135 139 23
n1915=  button "Как убрать войс", 7, 5 160 139 23
n1916=  button "Как поставить акик", 8, 5 185 139 23
n1917=  button "Как просмотреть акики", 9, 5 210 139 23
n1918=  button "Как убрать акик", 10, 5 235 139 23
n1919=  button "Как заблокировать топик", 11, 5 260 139 23
n1920=  button "Как дропнуть канал", 12, 5 285 139 23
n1921=  button "Как дропнуть ник", 13, 5 310 139 23
n1922=  button "Владелец канала", 14, 5 335 139 23
n1923=  button "Как слинковать ники ", 15, 5 360 139 23
n1924=  button "Наследник канала ", 16, 5 385 139 23
n1925=  button "Как дать хоп ", 17, 5 410 139 23
n1926=  button "Как дать оп", 18, 5 435 139 23
n1927=  button "Как дать войс", 19, 5 460 139 23
n1928=  button "Убрать все моды", 20, 5 485 139 23
n1929=  button "Как сменить описание", 21, 5 510 139 23
n1930=  button "Как разбаниться", 22, 5 535 139 23
n1931=  button "Как дать себе оп", 23, 5 560 139 23
n1932=  button "Как дать себе хоп", 24, 5 585 139 23
n1933=  button "Как дать себе войс", 25, 5 610 139 23
n1934=}
n1935=
n1936=on *:dialog:irc1:sclick:*:{
n1937=  if ($did == 1) { editbox -a /msg nickserv register пароль e-mail }
n1938=  if ($did == 2) { editbox -a /msg chanserv aop #канал add ник }
n1939=  if ($did == 3) { editbox -a /msg chanserv hop #канал add ник }
n1940=  if ($did == 4) { editbox -a /msg chanserv vop #канал add ник }
n1941=  if ($did == 5) { editbox -a /msg chanserv aop #канал del ник }
n1942=  if ($did == 6) { editbox -a /msg chanserv hop #канал del ник }
n1943=  if ($did == 7) { editbox -a /msg chanserv vop #канал del ник }
n1944=  if ($did == 8) { editbox -a /msg chanserv akick #канал add маска }
n1945=  if ($did == 9) { editbox -a /msg chanserv akick #канал list }
n1946=  if ($did == 10) { editbox -a /msg chanserv akick #канал del маска/номер }
n1947=  if ($did == 11) { editbox -a /msg chanserv set #канал topiclock on }
n1948=  if ($did == 12) { editbox -a /msg chanserv drop #канал }
n1949=  if ($did == 13) { editbox -a /msg nickserv drop ник }
n1950=  if ($did == 14) { editbox -a /msg chanserv set #канал founder ник }
n1951=  if ($did == 15) { editbox -a /msg nickserv group мастер-ник пароль-от-мастер-ника }
n1952=  if ($did == 16) { editbox -a /msg chanserv set #канал successor ник }
n1953=  if ($did == 17) { editbox -a /mode #канал +h ник }
n1954=  if ($did == 18) { editbox -a /mode #канал +o ник }
n1955=  if ($did == 19) { editbox -a /mode #канал +v ник }
n1956=  if ($did == 20) { editbox -a /msg chanserv clear #канал modes }
n1957=  if ($did == 21) { editbox -a /msg chanserv set #канал desc описание }
n1958=  if ($did == 22) { editbox -a /msg chanserv unban #канал }
n1959=  if ($did == 23) { editbox -a /msg chanserv op #канал }
n1960=  if ($did == 24) { editbox -a /msg chanserv halfop #канал }
n1961=  if ($did == 25) { editbox -a /msg chanserv vop #канал }
n1962=}
n1963=
n1964=;###################################################################################################################
n1965=;########################################  АвтоОтветчик  #################################################################
n1966=;###################################################################################################################
n1967=
n1968=on *:close:?: { if (%zpriv == on) { .notice $nick 10»»» 12Закрыл с вами приват,4 $nick 10««« } }
n1969=on *:open:?:*: { .set %priv $calc(%priv + 1) | .query $nick %text.avtootvet }
n1970=
n1971=alias avtootvetchik {
n1972=  if $dialog(avtootvetchik) = $null { dialog -m avtootvetchik avtootvetchik }
n1973=  else halt
n1974=}
n1975=
n1976=dialog avtootvetchik {
n1977=  title "Автоответчик"
n1978=  size -1 -1 126 94
n1979=  option dbu
n1980=  icon icons/mirc.ico, 0
n1981=  edit %text.avtootvet, 3, 5 45 117 11, autohs
n1982=  button "ОК", 4, 45 79 37 12, ok
n1983=  box "Сообщение автоответчика", 5, 3 36 121 22
n1984=  icon 6, 0 0 125 30,  icons/avtootvet.jpg, 0
n1985=  text "Если вы хотите выключить автоответчик, оставте верхнее поле пустым.", 1, 5 63 117 14
n1986=}
n1987=
n1988=on *:dialog:avtootvetchik:sclick:*: {
n1989=  /set %text.avtootvet $did(3) 
n1990=}
n1991=
n1992=;###################################################
n1993=;##################### РЕКЛАМА #######################
n1994=;##################################################
n1995=
n1996=alias advertising {
n1997=  if $dialog(advertising) = $null { dialog -m advertising advertising }
n1998=  else halt
n1999=}
n2000=
n2001=dialog advertising {
n2002=  title " ..:: РЕКЛАМА::.."
n2003=  size -1 -1 183 240
n2004=  option dbu
n2005=  icon mirc.ico, 0
n2006=  icon 1, 4 4 174 84,  script\rec\1.jpg, 0
n2007=  icon 2, 23 111 131 84,  script\rec\2.png, 0
n2008=  button ". . : : I-NeOn.LV : : . .", 4, 61 90 61 12
n2009=  button ". . : : FIFAFan.Net : : . .", 3, 61 197 65 12
n2010=  box "", 5, 4 221 176 17
n2011=  text "Хотите разместить здесь Вашу рекламу? ICQ# 7411892", 6, 6 227 171 8, center
n2012=}
n2013=
n2014=on *:dialog:advertising:sclick:4: { /run http://www.i-neon.lv/ }
n2015=on *:dialog:advertising:sclick:3: { /run http://www.fifafan.net/ }
