[script]
n0=; Jenac Script (c) 1998-2005.
n1=;ВНИМАНИЕ!!!
n2=;ЕСЛИ ВЫ ИЗМЕНИТЕ ОРИГИНАЛЬНЫЙ КОД ЭТОГО СКРИПТА,
n3=;ТО РИСКУЕТЕ ОСТАТЬСЯ БЕЗ ЮЗАБЕЛЬНОЙ МИРКИ!
n4=
n5=;[***Aliases***];
n6=alias adrer dialog -m adr_err adr_err
n7=alias setskins dialog -m skins skins
n8=alias mathsd dialog -m maths maths
n9=alias phoned dialog -m phone phone
n10=alias awst dialog -m awsyst awsyst
n11=alias nickc dialog -m nickc nickc
n12=alias logsd dialog -m logsd logsd
n13=alias listcold dialog -m listcol listcol
n14=alias servs dialog -m servs servs
n15=alias crypt dialog -m crypt crypt
n16=alias soundsp dialog -m sound sound
n17=alias setup dialog -m setup setup
n18=alias fkeys dialog -m fkeys fkeys
n19=alias srch dialog -m srch srch
n20=alias dhtml dialog -m dhtml dhtml
n21=alias game dialog -m game game
n22=alias memo dialog -m memo memo
n23=alias comskin dialog -m comsk comsk
n24=alias nicks dialog -m nicks nicks
n25=alias alarmc dialog -m remal remal
n26=alias accd {
n27=  if ( # != $null ) { set %accd # }
n28=  dialog -m accd accd
n29=}
n30=alias comfill {
n31=  did -o comsk 15 1 $findfile($mircdirsystem\skin\,*.jpg,0,2, comf2 10 $1- )
n32=  did -o comsk 15 1 $findfile($mircdirsystem\skin\,*.jpg,0,2,comf2 11 $1- )
n33=  did -o comsk 15 1 $findfile($mircdirsystem\skin\,*.jpg,0,2,comf2 12 $1- )
n34=  did -o comsk 15 1 $findfile($mircdirsystem\skin\,*.jpg,0,2,comf2 13 $1- )
n35=  did -o comsk 15 1 $findfile($mircdirsystem\skin\,*.jpg,0,2,comf2 14 $1- )
n36=  did -a comsk 7 dark
n37=  did -a comsk 7 light
n38=  did -a comsk 7 grey
n39=}
n40=alias comf2 {
n41=  if ( $1 == 10 ) && ( status isin $2 ) { did -a comsk 10 $remove($2-,$mircdirsystem\skin\) }
n42=  if ( $1 == 11 ) && ( toolbar isin $2 ) { did -a comsk 11 $remove($2-,$mircdirsystem\skin\) }
n43=  if ( $1 == 12 ) && ( chan isin $2 ) { did -a comsk 12 $remove($2-,$mircdirsystem\skin\) }
n44=  if ( $1 == 13 ) && ( switchbar isin $2 ) { did -a comsk 13 $remove($2-,$mircdirsystem\skin\) }
n45=  if ( $1 == 14 ) && ( query isin $2 ) { did -a comsk 14 $remove($2-,$mircdirsystem\skin\) }
n46=}
n47=alias loadcom {
n48=  if ( $did(comsk,7).seltext == $null ) || ( $did(comsk,10).seltext == $null ) || ( $did(comsk,11).seltext == $null ) || ( $did(comsk,12).seltext == $null ) || ( $did(comsk,13).seltext == $null ) || ( $did(comsk,14).seltext == $null ) { dll %dll avs Введены не все параметры! }
n49=  else { set %skin Combined Skin | .play -sc $mircdir $+ %skins.txt.dir $+ \loadcom.spt 0 }
n50=}
n51=alias chan {
n52=  if ( # != $null ) { set %accd # }
n53=  dialog -m chan chan
n54=}
n55=alias addnd {
n56=  if ( %addnd == 1 ) { dialog -m addnd-addr addnd-addr }
n57=  if ( %addnd == 2 ) { dialog -m addnd-reas addnd-reas }
n58=  unset %addnd
n59=}
n60=alias loadgame {
n61=  .play -sc $read($mircdirsystem\game\ $+ $1 ,2) $+ load.ini 0
n62=}
n63=alias sws {
n64=  did -a skins 15 Horizontal Top
n65=  did -a skins 15 Vertical
n66=  did -a skins 15 Horizontal Bottom
n67=  did -c skins 15 %switchbar
n68=}
n69=alias readrules {
n70=  window -Cdak @Rules 400 300
n71=  loadbuf $lines($read($mircdirsystem\game\ $+ $1,2 ) $+ rules.txt ) -pi @Rules $read($mircdirsystem\game\ $+ $1 ,2) $+ rules.txt
n72=}
n73=alias play.game {
n74=  .signal $1 Start!
n75=}
n76=alias gamefil {
n77=  did -r game 2
n78=  did -o game 6 1 $findfile($mircdirsystem\game\,*.ini,0,1,did -a game 2 $remove($1-,$mircdirsystem\game\))
n79=  did -c game 2 1
n80=  did -o game 4 1 $read($mircdirsystem\game\ $+ $did(game,2).seltext $+ ,1)
n81=}
n82=alias htmlfil {
n83=  var %hti 1
n84=  while ( %hti <= $lines($mircdirsystem\syst\html.txt) ) {
n85=    did -a dhtml 2 $read($mircdirsystem\syst\html.txt,%hti)
n86=    inc %hti
n87=  }
n88=  did -c dhtml 2 1
n89=}
n90=alias genfil {
n91=  did -r setup 66
n92=  did -a setup 66 Male
n93=  did -a setup 66 Female
n94=  did -c setup 66 %gender
n95=}
n96=alias autofil {
n97=  did -r setup 87
n98=  var %i.satl 1
n99=  while ( %i.satl <= $lines($mircdirsystem\syst\auto.txt ) ) {
n100=    did -a setup 87 $gettok($read($mircdirsystem\syst\auto.txt,%i.satl),1,59)
n101=    inc %i.satl
n102=  }
n103=  did -c setup 87 1
n104=  set %auto.set $gettok($read($mircdirsystem\syst\auto\arep.txt,$did(setup,87).sel),2,59)
n105=  set %setup.help 1
n106=}
n107=alias stylefil {
n108=  did -r setup 63
n109=  did -r setup 64
n110=  did -i setup 63 1 (none)
n111=  did -i setup 64 1 (none)
n112=  var %i.sstl 1
n113=  while ( %i.sstl <= $lines($mircdirsystem\syst\stylet.txt ) ) {
n114=    did -a setup 63 $gettok($read($mircdirsystem\syst\stylet.txt,%i.sstl),1,59)
n115=    inc %i.sstl
n116=  }
n117=  var %i.sstl 1
n118=  while ( %i.sstl <= $lines($mircdirsystem\syst\stylec.txt) ) {
n119=    did -a setup 64 $gettok($read($mircdirsystem\syst\stylec.txt,%i.sstl),1,59)
n120=    inc %i.sstl
n121=  }
n122=  did -o setup 71 1 $lines($mircdirsystem\syst\stylet.txt)
n123=  did -o setup 72 1 $lines($mircdirsystem\syst\stylec.txt)
n124=  if ( %style.text == $null ) { did -c setup 63 1 }
n125=  else { did -c setup 63 $didwm(setup,63,%style.text) }
n126=  if ( %style.col == $null ) { did -c setup 64 1 }
n127=  else { did -c setup 64 $didwm(setup,64,%style.col) }
n128=}
n129=
n130=alias dlll { if ( %ndll == $me ) { return $true } | unset %ndll }
n131=alias check {
n132=  set %check % $+ $1
n133=  if ( [ [ %check ] ] != $null ) { unset % $+ $1 }
n134=  else { set % $+ $1 On }
n135=  unset %check
n136=}
n137=alias alarmsfil {
n138=  did -r remal 8
n139=  did -o remal 14 1 $findfile($mircdirsystem\music\ ,*.mp3,0,didtok remal 8 0 $remove($1-,$mircdirsystem\music\,$null))
n140=  did -c remal 8 1
n141=}
n142=alias alarmoff {
n143=  .timer.alarm. $+ $1 off
n144=  .timer.alarm2. $+ $1 off
n145=  .timer.alarm. $+ $1 off
n146=  alarmtfil
n147=}
n148=alias alarmtfil {
n149=  did -r remal 11
n150=  var %al.col 1
n151=  while ( %al.col <= $timer(0) ) {
n152=    if ( alarm isin $timer(%al.col) ) && ( alarm2 !isin $timer(%al.col) ) { did -a remal 11 $remove($timer(%al.col),.alarm.) }
n153=    inc %al.col
n154=  }
n155=}
n156=alias alarmncheck {
n157=  var %al.col2 1
n158=  while ( %al.col2 <= $timer(0) ) {
n159=    if ( alarm isin $timer(%al.col2) ) && ( alarm2 !isin $timer(%al.col2) ) && ( $ruslower($remove($timer(%al.col2),.alarm.)) == $ruslower($1) ) { return 1 | halt }
n160=    inc %al.col2
n161=  }
n162=  return 0
n163=}
n164=alias filsound {
n165=  did -r sound 3
n166=  did -r sound 5
n167=  did -o sound 5 1 (none)
n168=  did -o sound 16 1 $findfile($mircdirsystem\ $+ %sdir $+ \ ,*.wav,0,didtok sound 5 0 $remove($1-,$mircdirsystem\ $+ %sdir $+ \,$null))
n169=  did -o sound 18 1 $findfile($mircdirsystem\music\ ,*.mp3,0,didtok sound 7 0 $remove($1-,$mircdirsystem\music\,$null))
n170=  var %iss 1
n171=  while ( %iss <= $lines($mircdirsystem\syst\sounde.txt) ) {
n172=    did -o sound 3 %iss $gettok($read($mircdirsystem\syst\sounde.txt,%iss),1,58)
n173=    inc %iss
n174=  }
n175=  var %iss 1
n176=  while ( %iss <= $did(sound,7).lines ) {
n177=    if ( %sound.play == $did(sound,7,%iss) ) { did -c sound 7 %iss }
n178=    inc %iss
n179=  }
n180=}
n181=alias rejoin { .timer 1 1 join $servchan }
n182=alias chsound {
n183=  set %iss2 $did(sound,3).sel
n184=  if ( [ [ $gettok($read($mircdirsystem\syst\sounde.txt,%iss2),2,58) ] ] == $null ) { did -c sound 5 1 | goto end }
n185=  var %iss 1
n186=  while ( %iss <= $did(sound,5).lines ) {
n187=    if ( [ [ $gettok($read($mircdirsystem\syst\sounde.txt,%iss2),2,58) ] ] == $did(sound,5,%iss) ) { did -c sound 5 %iss }
n188=    inc %iss
n189=  }
n190=  :end
n191=}
n192=;[COMBINE SKIN]
n193=dialog comsk {
n194=  title "Combine Your Own Skin"
n195=  size -1 -1 317 231
n196=  option pixels, notheme
n197=  box "Colour Scheme", 16, 160 135 150 50,
n198=  box "Toolbar", 3, 160 25 150 50,
n199=  box "Query", 6, 5 135 150 50,
n200=  combo 12, 10 100 139 86,  drop size
n201=  box "Switchbar", 5, 160 80 150 50,
n202=  combo 11, 165 44 139 86,  drop size
n203=  combo 14, 10 155 139 86,  drop size
n204=  combo 13, 165 100 139 86,  drop size
n205=  text "JPG files in the Jenac_mIRC\system\skin dir:", 1, 12 7 215 14,
n206=  box "Status", 2, 5 25 150 50,
n207=  box "Channel", 4, 5 80 150 50,
n208=  button "Load Combined Skin", 8, 5 190 149 32,
n209=  button "Close", 9, 160 190 149 32,
n210=  combo 10, 10 44 139 86,  drop size
n211=  text "Number", 15, 248 7 55 14,  center
n212=  combo 7, 165 155 139 86,  drop size
n213=}
n214=on 1:dialog:comsk:init:*:{
n215=  comfill
n216=}
n217=on 1:dialog:comsk:sclick:*:{
n218=  if ($did == 12) {
n219=    set %com.chan $did(comsk,12).seltext
n220=  }
n221=  if ($did == 11) {
n222=    set %com.toolbar $did(comsk,11).seltext
n223=  }
n224=  if ($did == 14) {
n225=    set %com.query $did(comsk,14).seltext
n226=  }
n227=  if ($did == 13) {
n228=    set %com.switchbar $did(comsk,13).seltext
n229=  }
n230=  if ($did == 8) {
n231=    loadcom
n232=  }
n233=  if ($did == 9) {
n234=    dialog -x comsk
n235=  }
n236=  if ($did == 10) {
n237=    set %com.status $did(comsk,10).seltext
n238=  }
n239=  if ($did == 7) {
n240=    if ( $did(comsk,7).sel == 1 ) { set %skin.color dark }
n241=    if ( $did(comsk,7).sel == 2 ) { set %skin.color light }
n242=    if ( $did(comsk,7).sel == 3 ) { set %skin.color grey }
n243=  }
n244=}
n245=alias skinfil {
n246=  did -r skins 3
n247=  did -o skins 7 1 $findfile($mircdirsystem\syst\skin\,*.ini,0,didtok skins 3 1 $remove($1-,$mircdirsystem\syst\skin\,$null))
n248=  skinnow
n249=  did -o skins 11 1 %skinnow
n250=  write -c $mircdirsystem/syst/skin/list.txt
n251=  var %i.skin 1
n252=  while ( $did(skins,3,%i.skin).text != $null ) { write $mircdirsystem/syst/skin/list.txt loadskin $remove($did(skins,3,%i.skin).text,.ini,$null)
n253=    inc %i.skin 
n254=  }
n255=}
n256=alias servchan { return %jch }
n257=alias listcol {
n258=  if ( %listcol != $null ) {
n259=    var %nick.c 1
n260=    while ( $nick(%chan.c,%nick.c) != $null ) {
n261=      set %nick.cc $nick(%chan.c,%nick.c)
n262=      if ( %nick.cc isop %chan.c ) && ( %chan.c == %jch ) { cline %ncj %jch %nick.c | goto next }
n263=      if ( %nick.cc isop %chan.c ) && ( %chan.c != %jch ) { cline %nco %chan.c %nick.c | goto next }
n264=      if ( %nick.cc ishop %chan.c ) { cline %nch %chan.c %nick.c | goto next }
n265=      if ( %nick.cc isvoice %chan.c ) { cline %ncv %chan.c %nick.c | goto next }
n266=      cline -r %chan.c %nick.c
n267=      :next
n268=      inc %nick.c
n269=    }
n270=    unset %nick.c %chan.c %nick.cc
n271=  }
n272=}
n273=
n274=alias delogs {
n275=  var %id.l 1
n276=  while ( %id.l <= $lines($mircdirsystem/syst/logs.txt) ) {
n277=    .remove $read($mircdirsystem/syst/logs.txt,%id.l)
n278=    inc %id.l
n279=  }
n280=  dologs
n281=}
n282=alias dologs {
n283=  did -r logsd 1
n284=  did -f logsd 2
n285=  did -o logsd 8 1 $findfile($logdir,*.log,0,didtok logsd 1 1 $remove($1-,$logdir,$null,.log,$null))
n286=  write -c $mircdirsystem/syst/logs.txt
n287=  var %i.logs 1
n288=  while ( $findfile($logdir,*.log,%i.logs) != $null ) {
n289=    write $mircdirsystem/syst/logs.txt $findfile($logdir,*.log,%i.logs)
n290=    inc %i.logs
n291=  }
n292=}
n293=alias nickcfill {
n294=  did -r nickc 1
n295=  set %i.nc 1
n296=  while ( $read($mircdirsystem/syst/nickc.txt,%i.nc) != $null ) {
n297=    did -a nickc 1 $read($mircdirsystem/syst/nickc.txt,%i.nc)
n298=    inc %i.nc
n299=  }
n300=  did -c nickc 1 $calc( %nickc.col + 1 )
n301=}
n302=alias idaw {
n303=  did -o awsyst 15 1 $iif($away == $true,Отсутствую,Присутствую)
n304=  did -o awsyst 20 1 $iif(%awayn.block == $null,Включено,Выключено)
n305=  did -o awsyst 25 1 $iif(%autoaway != $null,Включено,Выключено)
n306=  did -o awsyst 18 1 $read($mircdirsystem/syst/awpr.txt,4)
n307=  did -o awsyst 22 1 $calc( %auwcheck / 60 )
n308=  did -o awsyst 27 1 $read($mircdirsystem/syst/auawayrsn.txt,1)
n309=  did -o awsyst 34 1 $len($did(awsyst,27))
n310=  awresn
n311=}
n312=
n313=alias awresn {
n314=  if ( $dialog(awsyst).title != $null ) {
n315=    did -r awsyst 40
n316=    did -o awsyst 40 0 %awayreason
n317=    did -o awsyst 32 1 $len($did(awsyst,40,0))
n318=    var %i.awsn 1
n319=    while ( $read($mircdirsystem/syst/awayrsn.txt,%i.awsn) != $null ) {
n320=      did -o awsyst 40 %i.awsn $read($mircdirsystem/syst/awayrsn.txt,%i.awsn)
n321=      inc %i.awsn
n322=    }
n323=  }
n324=}
n325=alias filcon {
n326=  var %i.filcon 1
n327=  while ( %i.filcon <= $lines($mircdirsystem/syst/convers.txt) ) {
n328=    did -o maths 81 %i.filcon $gettok($read($mircdirsystem/syst/convers.txt,%i.filcon),1,58)
n329=    did -o maths 82 %i.filcon $gettok($read($mircdirsystem/syst/convers.txt,%i.filcon),1,58)
n330=    inc %i.filcon 1
n331=  }
n332=  var %i.filcon2 1
n333=  while ( %i.filcon2 <= $lines($mircdirsystem/syst/convers2.txt) ) {
n334=    did -o maths 95 %i.filcon2 $gettok($read($mircdirsystem/syst/convers2.txt,%i.filcon2),1,58)
n335=    did -o maths 97 %i.filcon2 $gettok($read($mircdirsystem/syst/convers2.txt,%i.filcon2),1,58)
n336=    inc %i.filcon2 1
n337=  }
n338=}
n339=
n340=alias fxm {
n341=  did -o maths 28 1 Searching for X...
n342=  set %x1 $did(maths,25,1)
n343=  set %x2 $did(maths,26,1)
n344=  set %formx $replace($did(maths,20,1),x,% $+ x1 )
n345=  while ( %x1 <= %x2 ) {
n346=    if ( $calc( %formx ) = 0 ) { set %xs %xs %x1 $+ ; | did -o maths 28 1 X found, searching... | inc %foundx }
n347=    set %x1 $calc( %x1 + 0.001 )
n348=  }
n349=  if  ( %foundx != $null ) { did -o maths 28 1 %xs }
n350=  if  ( %foundx == $null ) { did -o maths 28 1 No X found }
n351=  unset %x1 %x2 %formx %xs %foundx
n352=}
n353=alias fxm2 {
n354=  set %formx2 $replace($did(maths,88,1),x,$did(maths,90,1))
n355=  did -o maths 93 1 $calc( %formx2 )
n356=  if ( $calc( %formx2 ) == $null ) {
n357=    did -o maths 93 1 Error!
n358=  }
n359=}
n360=
n361=alias phonedx {
n362=  if ( $dialog(phone).title != $null ) {
n363=    did -o phone 6 1 $lines($mircdirsystem/syst/phone.txt)
n364=    if ( $read($mircdirsystem/syst/phone.txt,1) == $null ) { did -o phone 6 1 0 }
n365=    did -r phone 7
n366=    set %phi 1
n367=    while ( $read($mircdirsystem/syst/phone.txt,%phi) != $null ) {
n368=      did -o phone 7 %phi $gettok($read($mircdirsystem/syst/phone.txt,%phi),1,134)
n369=      inc %phi
n370=    }
n371=    if ( %phnum != $null ) { did -c phone 7 %phnum }
n372=  }
n373=}
n374=
n375=;[***DIALOGS***];
n376=
n377=;ADDRESS ERROR
n378=
n379=dialog adr_err {
n380=  title "Ошибка Адреса"
n381=  size -1 -1 171 99
n382=  option pixels, notheme
n383=  button "Закрыть mIRC", 1, 42 63 85 27,
n384=  text "Внимание! Размещение mIRC неправильно, путь к папке mIRC не должен содержать пробелов!", 2, 2 5 165 54,  center
n385=}
n386=on 1:dialog:adr_err:close:*:{
n387=  if ($did == 0) {
n388=    .dialog -x adr_err
n389=    adrer
n390=  }
n391=}
n392=on 1:dialog:adr_err:active:*:{
n393=  if ($did == 0) {
n394=    .dialog -v adr_err adr_err
n395=  }
n396=}
n397=alias offons {
n398=  check sound
n399=  if ( $dialog(sound).title != $null ) && ( $1 != 1 ) {
n400=    if ( $did(sound,1).state == 0 ) { did -c sound 1 }
n401=    elseif ( $did(sound,1).state == 1 ) { did -u sound 1 }
n402=  }
n403=  if ( $dialog(remal).title != $null ) && ( $1 != 3 ) {
n404=    if ( $did(remal,17).state == 0 ) { did -c remal 17 }
n405=    elseif ( $did(remal,17).state == 1 ) { did -u remal 17 }
n406=  }
n407=  if ( $dialog(setup).title != $null ) && ( $1 != 2 ) {
n408=    if ( $did(setup,104).state == 0 ) { did -c setup 104 }
n409=    elseif ( $did(setup,104).state == 1 ) { did -u setup 104 }
n410=  }
n411=}
n412=on 1:dialog:adr_err:sclick:*:{
n413=  if ($did == 1) {
n414=    .dialog -x adr_err
n415=    close -icfgms@ | .exit
n416=  }
n417=}
n418=
n419=;PHONE BOOK
n420=dialog phone {
n421=  title "Phone Book"
n422=  icon $mircdirSystem\icons\phone.ico, 0
n423=  size -1 -1 320 322
n424=  option pixels, notheme
n425=  box "Name", 1, 10 8 120 205,
n426=  box "Phone1", 2, 140 8 170 40,
n427=  box "E-mail", 3, 140 91 170 40,
n428=  box "Amount of Numbers", 4, 140 215 170 30,
n429=  button "Close", 5, 244 284 65 27,
n430=  text "50", 6, 147 229 155 14,  center
n431=  combo 7, 17 25 105 181,  size
n432=  edit "Telephone Number", 8, 147 24 155 20,  autohs
n433=  edit "Email address", 9, 147 105 155 20,  autohs
n434=  box "Number", 10, 10 251 120 30,
n435=  text "37", 11, 11 264 115 14,  center
n436=  button "Add Phone", 12, 10 284 85 27,
n437=  button "Delete Phone", 13, 104 284 95 27,
n438=  box "ICQ Uin", 14, 140 134 170 40,
n439=  edit "ICQ Unique Number", 15, 147 148 155 20,  autohs
n440=  button "Save Changes", 16, 13 217 115 27,
n441=  box "Birthday", 17, 140 174 170 40,
n442=  edit "dd/mm", 18, 148 188 55 20,  limit 5 autohs
n443=  check "Reminder On", 19, 215 191 85 14,
n444=  box "Phone2", 20, 140 49 170 40,
n445=  edit "Telephone Number", 21, 147 63 155 20,  autohs
n446=  check "Remember last selected name", 22, 144 260 165 14,
n447=}
n448=on 1:dialog:phone:init:*:{
n449=  if ( %rem.name != $null ) { did -c phone 22 }
n450=  if ( %checkb != $null ) { did -c phone 19 1 }
n451=  phonedx
n452=}
n453=on 1:dialog:phone:sclick:*:{
n454=  if ($did == 5) {
n455=    dialog -x phone
n456=    if ( %rem.name == $null ) { unset %phnum }
n457=  }
n458=  if ($did == 7) {
n459=    did -o phone 8 1 $gettok($read($mircdirsystem/syst/phone.txt,$did(phone,7).sel),2,134)
n460=    did -o phone 21 1 $gettok($read($mircdirsystem/syst/phone.txt,$did(phone,7).sel),3,134)
n461=    did -o phone 9 1 $gettok($read($mircdirsystem/syst/phone.txt,$did(phone,7).sel),4,134)
n462=    did -o phone 15 1 $gettok($read($mircdirsystem/syst/phone.txt,$did(phone,7).sel),5,134)
n463=    did -o phone 18 1 $gettok($read($mircdirsystem/syst/phone.txt,$did(phone,7).sel),6,134)
n464=    did -o phone 11 1 $did(phone,7).sel
n465=    set %phnum $did(phone,7).sel
n466=  }
n467=  if ($did == 12) {
n468=    set %addnd 1
n469=    addnd
n470=  }
n471=  if ($did == 13) {
n472=    write -dl $+ %phnum $mircdirsystem/syst/phone.txt
n473=    phonedx
n474=  }
n475=  if ($did == 16) {
n476=    if ( $did(phone,7).sel != $null ) {
n477=      write -l $+ %phnum $mircdirsystem/syst/phone.txt $puttok($read($mircdirsystem/syst/phone.txt,%phnum),$did(phone,7,0),1,134)
n478=      write -l $+ %phnum $mircdirsystem/syst/phone.txt $puttok($read($mircdirsystem/syst/phone.txt,%phnum),$did(phone,8,0),2,134)
n479=      write -l $+ %phnum $mircdirsystem/syst/phone.txt $puttok($read($mircdirsystem/syst/phone.txt,%phnum),$did(phone,21,0),3,134)
n480=      write -l $+ %phnum $mircdirsystem/syst/phone.txt $puttok($read($mircdirsystem/syst/phone.txt,%phnum),$did(phone,9,0),4,134)
n481=      write -l $+ %phnum $mircdirsystem/syst/phone.txt $puttok($read($mircdirsystem/syst/phone.txt,%phnum),$did(phone,15,0),5,134)
n482=      write -l $+ %phnum $mircdirsystem/syst/phone.txt $puttok($read($mircdirsystem/syst/phone.txt,%phnum),$did(phone,18,0),6,134)
n483=    }
n484=  }
n485=  if ($did == 19) {
n486=    if ( %checkb == $null ) { set %checkb Ckeck.Birth.On }
n487=    else { unset %checkb }
n488=  }
n489=  if ($did == 22) {
n490=    check rem.name
n491=  }
n492=}
n493=
n494=;AWAY SYSTEM
n495=dialog awsyst {
n496=  title "Away System"
n497=  size -1 -1 378 354
n498=  option pixels, notheme
n499=  tab "Away System", 13, 10 11 360 300
n500=  button "Close", 8, 305 318 65 27,
n501=  box "Состояние", 14, 20 40 100 50,  tab 13
n502=  button "Button", 15, 27 55 85 27,  tab 13
n503=  box "Auto Away", 16, 20 160 340 140,  tab 13
n504=  box "Away-Приписка", 17, 241 40 120 50,  tab 13
n505=  edit "TextEdit", 18, 248 60 105 20,  limit 14 tab 13
n506=  box "Напоминание об Away", 19, 11 311 255 38,  tab 13
n507=  button "Button", 20, 18 327 65 16,  tab 13
n508=  text "мин", 23, 226 206 25 14,  tab 13
n509=  box "Состояние", 24, 29 181 100 50,  tab 13
n510=  button "Button", 25, 36 197 85 27,  tab 13
n511=  box "Причина автоухода", 26, 29 236 320 40,  tab 13
n512=  edit "TextEdit", 27, 37 250 305 20,  limit 300 autohs tab 13
n513=  box "Причина ухода", 29, 20 95 340 60,  tab 13
n514=  text "Лимит: 300   Использовано символов:", 33, 42 280 205 14,  tab 13
n515=  text "300", 34, 247 280 25 14,  tab 13
n516=  box "Задержка Autoaway", 21, 137 181 120 50,  tab 13
n517=  combo 40, 27 110 325 112,  result drop edit size vsbar tab 13
n518=  text "Лимит: 350   Уже символов:", 31, 27 135 205 14,  tab 13
n519=  button "Add Reason", 39, 286 134 65 17,  tab 13
n520=  text "350", 32, 176 136 25 14,  tab 13
n521=  button "Save", 41, 248 134 35 17,  tab 13
n522=  button "Delete", 30, 200 134 45 17,  tab 13
n523=  edit "TextEdit", 22, 147 203 75 20,  tab 13
n524=  edit "TextEdit", 1, 141 325 88 18,  tab 13
n525=  text "Каждые", 2, 88 327 45 14,  tab 13
n526=  text "мин", 3, 237 327 25 14,  tab 13
n527=  icon 4, 261 177 90 60, $mircdirSystem\syspct\awsyst.jpg, 0,  tab 13
n528=  box "Длительность", 5, 125 40 110 50,  tab 13
n529=  edit "TextEdit", 6, 132 60 95 20, autohs  tab 13
n530=}
n531=on 1:dialog:awsyst:init:*:{
n532=  did -o awsyst 15 1 $iif($away == $true,Отсутствую,Присутствую)
n533=  did -o awsyst 20 1 $iif(%awayn.block == $null,Включено,Выключено)
n534=  did -o awsyst 25 1 $iif(%autoaway != $null,Включено,Выключено)
n535=  did -o awsyst 18 1 $read($mircdirsystem/syst/awpr.txt,4)
n536=  did -o awsyst 22 1 $calc( %auwcheck / 60 )
n537=  did -o awsyst 27 1 $read($mircdirsystem/syst/auawayrsn.txt,1)
n538=  did -o awsyst 34 1 $len($did(awsyst,27))
n539=  did -o awsyst 1 1 $calc( %imaw / 60 )
n540=  did -g awsyst 4 1 $mircdirSystem\syspct\awsyst.jpg
n541=  did -o awsyst 6 1 %away.time
n542=  awresn
n543=}
n544=on 1:dialog:awsyst:close:*:{
n545=  if ($did == 0) {
n546=    write -c $mircdirsystem/syst/skin/list.txt
n547=  }
n548=}
n549=on 1:dialog:awsyst:sclick:*:{
n550=  if ($did == 8) {
n551=    write -c $mircdirsystem/syst/skin/list.txt
n552=    dialog -x awsyst
n553=  }
n554=  if ($did == 15) {
n555=    awask
n556=  }
n557=  if ($did == 20) {
n558=    awaynblock
n559=  }
n560=  if ($did == 25) {
n561=    auwask2
n562=  }
n563=  if ($did == 40) {
n564=    set %rsn.l $did(awsyst,40).sel
n565=    set %awayreason $did(awsyst,40,0)
n566=    did -o awsyst 32 1 $len($did(awsyst,40,0))
n567=  }
n568=  if ($did == 39) {
n569=    set %addnd 2
n570=    addnd
n571=  }
n572=  if ($did == 41) {
n573=    if ( %rsn.l != $null ) { write -l $+ %rsn.l $mircdirsystem/syst/awayrsn.txt $did(awsyst,40,0) }
n574=    awresn
n575=  }
n576=  if ($did == 30) {
n577=    write -dl $+ %rsn.l $mircdirsystem/syst/awayrsn.txt
n578=    awresn
n579=  }
n580=}
n581=on 1:dialog:awsyst:edit:*:{
n582=  if ($did == 18) {
n583=    write -l4 $mircdirsystem/syst/awpr.txt $did(awsyst,18)
n584=  }
n585=  if ($did == 27) {
n586=    write -c $mircdirsystem/syst/auawayrsn.txt $did(awsyst,27)
n587=    did -o awsyst 34 1 $len($did(awsyst,27))
n588=  }
n589=  if ($did == 40) {
n590=    did -o awsyst 32 1 $len($did(awsyst,40,0))
n591=  }
n592=  if ($did == 22) {
n593=    set %auwcheck $calc( $did(awsyst,22) * 60 )
n594=  }
n595=  if ($did == 1) {
n596=    set %imaw $calc( $did(awsyst,1,1) * 60 )
n597=  }
n598=  if ($did == 6) {
n599=    set %away.time $did(awsyst,6,1)
n600=  }
n601=}
n602=
n603=;ADD THE NICK
n604=dialog nickc {
n605=  title "Add the Nick"
n606=  size -1 -1 244 315
n607=  option pixels, notheme
n608=  text "Выберите один из предложенных цветов, и, при нажатии на кнопку 'ник в строку набора' в меню никлиста, выбранный ник будет, при отправленном сообщении в канал, окрашен в выбранный вами здесь цвет.", 2, 14 39 125 154,  center
n609=  combo 1, 10 10 135 151,  drop size
n610=  box "Addon After Nick", 5, 10 246 220 60,
n611=  text "Текст после добавленного ника:", 4, 17 260 175 24,
n612=  edit "", 3, 17 277 205 20,
n613=  button "OK", 6, 158 10 75 27,
n614=  icon 8, 160 46 70 100, $mircdirSystem\syspct\nickc.jpg, 0,
n615=  box "Addon Before Nick", 9, 10 185 220 60,
n616=  text "Текст перед добавленным ником:", 10, 17 200 175 24,
n617=  edit "", 11, 17 217 205 20,
n618=  text "Jenac Team", 7, 164 164 65 14,
n619=}
n620=on 1:dialog:nickc:init:*:{
n621=  nickcfill
n622=  did -g nickc 8 1 $mircdirsystem\syspct\nickc.jpg
n623=  did -o nickc 11 1 %nickc.beg
n624=  did -o nickc 3 1 %nickc.end
n625=}
n626=on 1:dialog:nickc:sclick:*:{
n627=  if ($did == 1) {
n628=    if ( $did(nickc,1).seltext != Без Выделения ) {
n629=      set %nickc.col $calc( $did(nickc,1).sel - 1 )
n630=    }
n631=else { set %nickc.col none }
n632=  }
n633=  if ($did == 6) {
n634=    dialog -x nickc
n635=  }
n636=}
n637=on 1:dialog:nickc:edit:*:{
n638=  if ($did == 3) {
n639=    set %nickc.end $did(nickc,3,1)
n640=  }
n641=  if ($did == 11) {
n642=    set %nickc.beg $did(nickc,11,1)
n643=  }
n644=}
n645=
n646=;[MATHS]
n647=dialog maths {
n648=  title "Mathematics"
n649=  icon $mircdirSystem\icons\maths.ico, 0
n650=  size -1 -1 391 309
n651=  option pixels, notheme
n652=  tab "Calc Trig Prop", 2, 10 10 370 260
n653=  tab "Roots Powers", 29
n654=  tab "Conversion", 79
n655=  tab "F(x) / Formula", 18
n656=  button "Close", 7, 305 275 75 27,
n657=  box "Calculator", 8, 20 35 350 90,  tab 2
n658=  button "Count", 4, 28 82 55 27,  tab 2
n659=  edit "", 3, 26 52 335 20,  return autohs tab 2
n660=  box "=", 5, 90 74 270 40,  tab 2
n661=  box "Proportion", 9, 20 126 180 130,  tab 2
n662=  edit "A", 10, 28 141 75 20,  center autohs tab 2
n663=  edit "B", 11, 28 165 75 20,  center autohs tab 2
n664=  text "=", 14, 106 156 15 14,  tab 2
n665=  edit "C", 12, 116 141 75 20,  center autohs tab 2
n666=  edit "D", 13, 116 165 75 20,  center autohs tab 2
n667=  button "Count", 15, 30 223 45 27,  tab 2
n668=  text "For variable use any letter", 16, 29 196 165 14,  center tab 2
n669=  box "x = ", 17, 83 211 110 40,  tab 2
n670=  text "Function Result: x=", 27, 25 155 105 14,  tab 18
n671=  box "Roots", 30, 20 152 350 110,  tab 29
n672=  box "Powers", 31, 20 40 350 100,  tab 29
n673=  text "^2 =", 33, 181 59 25 14,  tab 29
n674=  text "^3 =", 32, 181 83 25 14,  tab 29
n675=  text "^", 34, 115 112 15 14,  tab 29
n676=  text "=", 35, 197 112 15 14,  tab 29
n677=  edit "", 36, 26 55 155 20,  autohs tab 29
n678=  edit "", 37, 207 55 105 20,  autohs tab 29
n679=  edit "", 38, 26 82 155 20,  autohs tab 29
n680=  edit "", 39, 207 82 105 20,  autohs tab 29
n681=  edit "", 40, 26 110 85 20,  autohs tab 29
n682=  edit "", 41, 126 110 65 20,  autohs tab 29
n683=  edit "", 42, 207 110 105 20,  autohs tab 29
n684=  button "Count", 43, 316 56 45 17,  tab 29
n685=  button "Count", 44, 316 83 45 17,  tab 29
n686=  button "Count", 45, 316 111 45 17,  tab 29
n687=  edit "", 46, 26 172 145 20,  autohs tab 29
n688=  edit "", 47, 26 202 145 20,  autohs tab 29
n689=  text "^1/2 =", 49, 170 176 25 14,  tab 29
n690=  edit "", 48, 26 233 75 20,  autohs tab 29
n691=  text "^1/3 =", 50, 170 205 25 14,  tab 29
n692=  text "^1/", 51, 104 237 25 14,  tab 29
n693=  edit "", 52, 124 233 65 20,  autohs tab 29
n694=  text "=", 53, 195 237 15 14,  tab 29
n695=  edit "", 56, 207 233 105 20,  autohs tab 29
n696=  button "Count", 57, 316 175 45 17,  tab 29
n697=  button "Count", 58, 316 205 45 17,  tab 29
n698=  button "Count", 59, 316 234 45 17,  tab 29
n699=  box "Trigonometry", 60, 209 126 160 130,  tab 2
n700=  text "=", 61, 296 162 15 14,  tab 2
n701=  edit "", 62, 250 159 45 20,  autohs tab 2
n702=  edit "", 63, 305 159 55 20,  autohs tab 2
n703=  button "cos", 65, 223 159 25 17,  tab 2
n704=  text "=", 64, 296 185 15 14,  tab 2
n705=  edit "", 66, 250 182 45 20,  autohs tab 2
n706=  edit "", 67, 305 182 55 20,  autohs tab 2
n707=  button "sin", 68, 223 183 25 17,  tab 2
n708=  edit "", 69, 250 204 45 20,  autohs tab 2
n709=  button "tg", 71, 223 205 25 17,  tab 2
n710=  text "=", 72, 296 209 15 14,  tab 2
n711=  edit "", 70, 305 204 55 20,  autohs tab 2
n712=  edit "", 73, 250 227 45 20,  autohs tab 2
n713=  button "ctg", 75, 223 228 25 17,  tab 2
n714=  text "=", 76, 296 230 15 14,  tab 2
n715=  edit "", 74, 305 227 55 20,  autohs tab 2
n716=  text "Enter degrees only.", 77, 212 140 145 14,  center tab 2
n717=  box "Conversion", 80, 19 36 160 220,  tab 79
n718=  combo 81, 25 55 65 129,  size tab 79
n719=  edit "", 83, 25 193 65 20,  autohs tab 79
n720=  edit "", 84, 106 193 65 20,  autohs tab 79
n721=  text "to", 85, 93 61 15 14,  tab 79
n722=  button "Converse", 86, 26 220 145 27,  tab 79
n723=  edit "Here your answer will appear after you press 'Count'", 87, 93 88 265 20,  autohs tab 2
n724=  edit "Prop Result (Count)", 6, 85 225 105 20,  autohs tab 2
n725=  edit "No result", 28, 119 153 255 20,  autohs tab 18
n726=  box "Find f(x)", 24, 194 38 180 110,  tab 18
n727=  edit "Function", 88, 200 54 165 20,  autohs tab 18
n728=  text "X =", 89, 200 84 25 14,  tab 18
n729=  edit "", 90, 220 82 145 20,  return tab 18
n730=  button "Count f(x)", 91, 201 110 165 27,  tab 18
n731=  text "f(x) =", 92, 24 186 25 14,  tab 18
n732=  edit "", 93, 50 183 325 20,  autohs tab 18
n733=  text "=", 78, 197 206 15 14,  tab 29
n734=  text "=", 94, 197 176 15 14,  tab 29
n735=  edit "", 54, 207 172 105 20,  autohs tab 29
n736=  edit "", 55, 207 203 105 20,  autohs tab 29
n737=  box "Conversion", 96, 183 36 190 220,  tab 79
n738=  combo 97, 280 55 85 129,  size tab 79
n739=  combo 95, 191 55 85 129,  size tab 79
n740=  edit "", 99, 191 193 85 20,  autohs tab 79
n741=  edit "", 100, 280 193 85 20,  autohs tab 79
n742=  button "Converse", 101, 191 220 175 27,  tab 79
n743=  combo 82, 106 55 65 129,  size tab 79
n744=  box "Find X", 19, 18 38 170 110,  tab 18
n745=  edit "Function", 20, 26 54 125 20,  autohs tab 18
n746=  text "= 0", 21, 161 57 25 14,  tab 18
n747=  edit "X1", 25, 26 82 55 20,  autohs tab 18
n748=  edit "X2", 26, 85 82 55 20,  autohs tab 18
n749=  text "X1;X2", 23, 148 85 35 14,  tab 18
n750=  button "Find X on X1 to X2", 22, 26 110 155 27,  tab 18
n751=  icon 98, 24 210 350 50, $mircdirSystem\syspct\func.bmp, 0,  tab 18
n752=  icon 102, 10 274 290 30, $mircdirSystem\syspct\maths.bmp, 0,
n753=}
n754=on 1:dialog:maths:init:*:{
n755=  did -g maths 102 0 $mircdirsystem/syspct/maths.jpg
n756=  did -g maths 98 0 $mircdirsystem/syspct/func.jpg
n757=  filcon
n758=  did -f maths 3
n759=}
n760=on 1:dialog:maths:sclick:*:{
n761=  if ($did == 7) {
n762=    dialog -x maths
n763=  }
n764=  if ($did == 4) {
n765=    did -o maths 87 1 $calc( $did(maths,3).text )
n766=    if ($did(maths,3).text == $null) { did -o maths 87 1 No data! }
n767=  }
n768=  if ($did == 15) {
n769=    set %a $did(maths,10)
n770=    set %b $did(maths,11)
n771=    set %c $did(maths,12)
n772=    set %d $did(maths,13)
n773=    if ( %a isnum ) && ( %b isnum ) && ( %c isnum ) && ( %d isnum ) { did -o maths 6 1 Enter a variable! | set %error 1 }
n774=    if ( %a !isnum ) && ( %b !isnum ) && ( %c !isnum ) && ( %d !isnum ) { did -o maths 6 1 Enter more data! | set %error 1 }
n775=    if ( %a !isnum ) && ( %error == $null ) { did -o maths 6 1 $calc( %b * %c / %d) }
n776=    if ( %b !isnum ) && ( %error == $null ) { did -o maths 6 1 $calc( %a * %d / %c) }
n777=    if ( %c !isnum ) && ( %error == $null ) { did -o maths 6 1 $calc( %a * %d / %b) }
n778=    if ( %d !isnum ) && ( %error == $null ) { did -o maths 6 1 $calc( %b * %c / %a) }
n779=    unset %a %b %c %d %error
n780=  }
n781=  if ($did == 43) {
n782=    did -o maths 37 1 $calc( $did(maths,36,1) ^2 )
n783=  }
n784=  if ($did == 44) {
n785=    did -o maths 39 1 $calc( $did(maths,38,1) ^3 )
n786=  }
n787=  if ($did == 45) {
n788=    did -o maths 42 1 $calc( $did(maths,40,1) ^( $did(maths,41,1) ) )
n789=    if ( $calc( $did(maths,40,1) ^( $did(maths,41,1) ) ) == $null ) { did -o maths 42 1 Error! }
n790=  }
n791=  if ($did == 57) {
n792=    did -o maths 54 1 $calc( $did(maths,46,1) ^(1/2) )
n793=  }
n794=  if ($did == 58) {
n795=    did -o maths 55 1 $calc( $did(maths,47,1) ^(1/3) )
n796=  }
n797=  if ($did == 59) {
n798=    did -o maths 56 1 $calc( $did(maths,48,1) ^( 1 / $did(maths,52,1)) )
n799=  }
n800=  if ($did == 65) {
n801=    did -o maths 63 1 $cos($did(maths,62,1)).deg
n802=  }
n803=  if ($did == 68) {
n804=    did -o maths 67 1 $sin($did(maths,66,1)).deg
n805=  }
n806=  if ($did == 71) {
n807=    did -o maths 70 1 $tan($did(maths,69,1)).deg
n808=  }
n809=  if ($did == 75) {
n810=    did -o maths 74 1 $calc($cos($did(maths,73,1)).deg / $sin($did(maths,73,1)).deg )
n811=  }
n812=  if ($did == 86) {
n813=    did -o maths 84 1 $calc( $did(maths,83,1) * $gettok($read($mircdirsystem/syst/convers.txt,$did(maths,81).sel),2,58) / $gettok($read($mircdirsystem/syst/convers.txt,$did(maths,82).sel),2,58) )
n814=  }
n815=  if ($did == 91) {
n816=    fxm2
n817=  }
n818=  if ($did == 101) {
n819=    if ( $gettok($read($mircdirsystem/syst/convers2.txt,$did(maths,95).sel),2,58) != $gettok($read($mircdirsystem/syst/convers2.txt,$did(maths,97).sel),2,58) ) { did -o maths 100 1 Error! }
n820=    else {
n821=      did -o maths 100 1 $calc( $did(maths,99,1) * $gettok($read($mircdirsystem/syst/convers2.txt,$did(maths,95).sel),3,58) / $gettok($read($mircdirsystem/syst/convers2.txt,$did(maths,97).sel),3,58) )
n822=    }
n823=  }
n824=  if ($did == 22) {
n825=    fxm
n826=  }
n827=}
n828=;[INVITE]
n829=dialog invite {
n830=  title "Invite"
n831=  size -1 -1 295 35
n832=  option pixels, notheme
n833=  edit "Nick", 1, 6 7 75 20,
n834=  combo 2, 89 7 87 112,  drop size
n835=  button "Invite", 3, 185 7 48 20,
n836=  button "Close", 4, 239 7 48 20,
n837=}
n838=on 1:dialog:invite:init:*:{
n839=  did -o invite 1 1 %chan.inv
n840=  var %i.chan.inv 1
n841=  while ( %i.chan.inv <= $chan(0) ) { set %chan.inv $chan(%i.chan.inv) | did -a invite 2 %chan.inv | inc %i.chan.inv }
n842=  unset %chan.inv
n843=  did -c invite 2 1
n844=}
n845=on 1:dialog:invite:sclick:*:{
n846=  if ($did == 3) {
n847=    if ( $did(invite,1) != $null ) && ( $did(invite,2) != $null ) { invite $did(invite,1) $did(invite,2).seltext }
n848=    else { dll %dll avs Incufficient Data! Недостаточно Данных! }
n849=  }
n850=  if ($did == 4) {
n851=    dialog -x invite
n852=  }
n853=}
n854=;[GLOBAL SETUP]
n855=dialog setup {
n856=  title "Global Setup"
n857=  size -1 -1 458 317
n858=  option pixels, notheme
n859=  tab "On/Off", 2, 3 6 450 310
n860=  tab "Dialogs", 3
n861=  tab "Other", 22
n862=  tab "Other2", 103
n863=  button "Skin Setup", 5, 94 71 75 27,  tab 3
n864=  button "Away System", 6, 14 71 75 27,  tab 3
n865=  button "Ник в строку набора", 7, 14 36 155 27,  tab 3
n866=  button "Logs", 8, 14 211 75 27,  tab 3
n867=  button "Mathematics", 9, 94 105 75 27,  tab 3
n868=  button "Phone Book", 10, 14 142 75 27,  tab 3
n869=  button "Color Nicks", 11, 94 142 75 27,  tab 3
n870=  button "Server", 12, 14 176 75 27,  tab 3
n871=  button "Шифратор", 13, 13 281 75 27,  tab 3
n872=  button "Sound Setup", 14, 14 105 75 27,  tab 3
n873=  text "Мой номер ICQ", 23, 16 40 85 14,  tab 22
n874=  text "Мой e-mail", 24, 16 70 65 14,  tab 22
n875=  button "HTML", 25, 94 211 75 27,  tab 3
n876=  edit "", 30, 100 37 95 20,  autohs tab 22
n877=  edit "", 31, 80 67 115 20,  autohs tab 22
n878=  text "Your Jenac Branch", 32, 16 290 95 14,  tab 22
n879=  edit "", 33, 110 286 234 20,  autohs tab 22
n880=  text "Ctcp Finger ответ", 36, 207 40 95 14,  tab 22
n881=  edit "", 37, 307 37 135 20,  autohs tab 22
n882=  text "Ctcp Ping ответ", 38, 207 70 95 14,  tab 22
n883=  edit "", 39, 307 67 135 20,  autohs tab 22
n884=  box "Включить/Выполнять", 40, 222 32 226 240,  tab 2
n885=  box "Автоматика: включить", 41, 7 32 210 195,  tab 2
n886=  check "Антимат", 16, 12 205 115 14,  disable tab 2
n887=  check "Двойной клик - ник в строку набора", 18, 232 79 205 14,  tab 2
n888=  check "Вместе с приватом открывается лог", 19, 232 63 212 14,  tab 2
n889=  check "Следить за состоянием собеседника", 20, 232 47 212 14,  tab 2
n890=  check "Звук при приватом сообщении", 21, 232 157 185 14,  tab 2
n891=  check "CTCP Finger ответ", 34, 232 207 115 14,  tab 2
n892=  check "CTCP Ping ответ", 35, 232 224 105 14,  tab 2
n893=  check "Автоприветствие", 43, 12 144 185 14,  tab 2
n894=  check "Автоидентификация", 44, 12 48 185 16,  tab 2
n895=  check "Защита Jenac mIRC", 45, 12 63 185 16,  tab 2
n896=  check "Авто-эвэй", 47, 12 79 185 14,  tab 2
n897=  check "Автопривет", 42, 12 173 185 14,  tab 2
n898=  check "Авто-спасибо", 46, 12 158 185 14,  tab 2
n899=  check "Автовойс", 48, 12 190 185 14,  tab 2
n900=  text "Сообщение выхода", 27, 16 126 105 14,  tab 22
n901=  edit "", 28, 117 124 325 20,  autohs tab 22
n902=  box "Быстрая смена ника (пароль)", 29, 16 150 200 100,  tab 22
n903=  text "Основной ник", 49, 74 167 75 14,  tab 22
n904=  text "Альтернативный", 50, 69 207 95 14,  tab 22
n905=  edit "", 51, 23 185 185 20,  pass tab 22
n906=  edit "", 52, 23 224 185 20,  pass tab 22
n907=  edit "", 53, 117 96 325 20,  autohs tab 22
n908=  text "Автоприветствие", 54, 16 100 95 14,  tab 22
n909=  check "Автозапросы (на оп)", 56, 12 128 185 14,  tab 2
n910=  check "Автозапросы (на войс)", 57, 12 112 185 14,  tab 2
n911=  check "Whois в активе", 58, 232 240 115 14,  tab 2
n912=  text "Сообщение при входе в канал", 59, 16 260 165 14,  tab 22
n913=  edit "", 60, 179 258 265 20,  autohs tab 22
n914=  check "Сообщение при входе в канал", 61, 12 95 175 14,  tab 2
n915=  box "Стилизатор", 62, 10 184 270 81,  tab 103
n916=  combo 63, 16 212 125 125,  drop size tab 103
n917=  combo 64, 145 212 125 125,  drop size tab 103
n918=  button "Полный просмотр", 67, 16 236 125 22,  tab 103
n919=  check "Стилизаторы", 68, 232 254 95 14,  tab 2
n920=  button "Настроить цветовой", 4, 146 236 125 22,  tab 103
n921=  text "Текстовых:", 69, 16 198 65 14,  tab 103
n922=  text "Цветовых:", 70, 148 198 55 14,  tab 103
n923=  text "45", 71, 77 198 65 14,  tab 103
n924=  text "45", 72, 204 198 65 14,  tab 103
n925=  button "F-keys", 73, 14 247 75 27,  tab 3
n926=  box "F-Keys", 74, 223 150 220 100,  tab 22
n927=  edit "", 75, 257 190 175 20,  autohs tab 22
n928=  text "В какие каналы заходить при нажатии", 76, 230 170 205 14,  tab 22
n929=  text "F2", 77, 230 193 25 14,  tab 22
n930=  text "F3", 78, 230 222 25 14,  tab 22
n931=  edit "", 79, 257 220 175 20,  autohs tab 22
n932=  button "Игры", 81, 94 247 75 27,  tab 3
n933=  button "Поиск", 82, 94 176 75 27,  tab 3
n934=  button "Адресная Книга", 83, 255 281 92 27,  tab 3
n935=  check "Блокировать канальные нотисы", 84, 232 140 195 17,  tab 2
n936=  box "Автоматика", 86, 283 184 166 81,  tab 103
n937=  combo 87, 288 203 156 112,  drop size tab 103
n938=  icon 89, 180 36 260 133, $mircdirSystem\syspct\setup.bmp, 0,  tab 3
n939=  button "Настроить", 80, 376 230 65 22,  tab 103
n940=  button "MemoServ", 85, 94 281 75 27,  tab 3
n941=  button "Access Lvls", 88, 175 281 75 27,  tab 3
n942=  check "Окно Welcome при запуске", 90, 232 173 185 14,  tab 2
n943=  check "Писать 'Jenac_Script'", 91, 232 190 135 14,  tab 2
n944=  box "Сообщения для Автопривета", 93, 10 30 215 153,  tab 103
n945=  box "После ника", 96, 16 112 203 66,  tab 103
n946=  box "До ника", 95, 16 43 203 67,  tab 103
n947=  edit "Привет,", 94, 23 60 191 20,  limit 150 autohs tab 103
n948=  edit "Пока,", 97, 23 84 191 20,  limit 150 autohs tab 103
n949=  edit "!", 98, 23 128 191 20,  limit 150 autohs tab 103
n950=  edit "!", 99, 23 152 191 20,  limit 150 autohs tab 103
n951=  check "Список юзеров канала в статусе", 15, 232 126 205 14,  tab 2
n952=  check "Показывать чужие эвэи в статусе", 17, 232 93 195 17,  tab 2
n953=  check "Внутремирковский звук", 104, 232 111 205 14,  tab 2
n954=  button "Будильник", 105, 175 247 75 27,  tab 3
n955=  button "Lag Meter", 106, 175 211 75 27,  tab 3
n956=  button "Mat Controller", 107, 175 176 75 27,  tab 3
n957=  box "Включить/Выполнять", 108, 7 232 210 76,  tab 2
n958=  check "Лагометр при запуске", 109, 12 248 193 14,  tab 2
n959=  text "Jenac Team 1998-2005", 110, 226 288 122 14,  tab 2
n960=  box "Сообщения для Автоспасибо", 100, 232 30 215 153,  tab 103
n961=  box "За оп / войс перед ником", 101, 238 43 203 66,  tab 103
n962=  box "За оп / войс после ника", 102, 238 112 202 66,  tab 103
n963=  edit "", 111, 243 60 192 20,  limit 100 autohs tab 103
n964=  edit "", 112, 243 84 192 20,  limit 100 autohs tab 103
n965=  edit "", 115, 243 128 192 20,  limit 100 autohs tab 103
n966=  edit "", 116, 243 152 192 20,  limit 100 autohs tab 103
n967=  check "Показывать моды канала в статусе", 117, 12 263 200 14,  tab 2
n968=  check "Перезаход после бана", 118, 12 278 200 14,  tab 2
n969=  button "Help!", 26, 352 281 45 27,
n970=  button "Close", 55, 400 281 45 27,
n971=  box "Пол Пользователя", 65, 10 268 166 42,  tab 103
n972=  combo 66, 16 283 153 99,  drop size tab 103
n973=  icon 92, 255 176 185 98, $mircdirSystem\syspct\setup.bmp, 0,  tab 3
n974=  check "Автозамена", 113, 119 205 92 14,  tab 2
n975=}
n976=on 1:dialog:setup:init:*:{
n977=  stylefil
n978=  autofil
n979=  genfil
n980=  set %auto.set idlist.txt
n981=  did -o setup 30 1 %uin
n982=  did -o setup 31 1 %mail
n983=  did -o setup 33 1 %mlink
n984=  did -o setup 37 1 %fingans
n985=  did -o setup 39 1 %pingans
n986=  did -o setup 28 1 %quitmess
n987=  did -o setup 51 1 %passmain
n988=  did -o setup 52 1 %passalt
n989=  did -o setup 53 1 %ah
n990=  did -o setup 60 1 %auto.jm
n991=  did -o setup 75 1 %join.chan1
n992=  did -o setup 79 1 %join.chan2
n993=  did -g setup 89 $mircdirsystem\syspct\globalsetup.jpg
n994=  did -g setup 92 $mircdirsystem\syspct\dialogs.jpg
n995=  did -o setup 110 1 Jenac Team 1998- $+ $date(yyyy)
n996=  did -o setup 111 1 %auto.op1.thnx
n997=  did -o setup 112 1 %auto.voice1.thnx
n998=  did -o setup 115 1 %auto.op2.thnx
n999=  did -o setup 116 1 %auto.voice2.thnx
n1000=  if ( %are != $null ) { did -c setup 113 }
n1001=  if ( %banrejoin != $null ) { did -c setup 118 }
n1002=  if ( %lagm != $null ) { did -c setup 109 }
n1003=  if ( %show.chan.modes != $null ) { did -c setup 117 }
n1004=  if ( %sound != $null ) { did -c setup 104 }
n1005=  if ( %show.chan.us != $null ) { did -c setup 15 }
n1006=  if ( %show.away != $null ) { did -c setup 17 }
n1007=  if ( %antimat != $null ) { did -c setup 16 }
n1008=  if ( %doublen != $null ) { did -c setup 18 }
n1009=  if ( %qview != $null ) { did -c setup 19 }
n1010=  if ( %watchus != $null ) { did -c setup 20 }
n1011=  if ( %sound.query != $null ) { did -c setup 21 }
n1012=  if ( %fingans != $null ) { did -c setup 34 }
n1013=  if ( %pingans != $null ) { did -c setup 35 }
n1014=  if ( %aid != $null ) { did -c setup 44 }
n1015=  if ( %defence != $null ) { did -c setup 45 }
n1016=  if ( %autoaway != $null ) { did -c setup 47 }
n1017=  if ( %auto.hello != $null ) { did -c setup 43 }
n1018=  if ( %auto.thnx != $null ) { did -c setup 46 }
n1019=  if ( %auto.greet != $null ) { did -c setup 42 }
n1020=  if ( %auto.voice != $null ) { did -c setup 48 }
n1021=  if ( %voicemej != $null ) { did -c setup 57 }
n1022=  if ( %opmej != $null ) { did -c setup 56 }
n1023=  if ( %whois != $null ) { did -c setup 58 }
n1024=  if ( %auto.jmc != $null ) { did -c setup 61 }
n1025=  if ( %text.stl != $null ) { did -c setup 68 }
n1026=  if ( %b.c.n != $null ) { did -c setup 84 }
n1027=  if ( %welwin != $null ) { did -c setup 90 }
n1028=  if ( %wrjenac != $null ) { did -c setup 91 }
n1029=
n1030=}
n1031=on 1:dialog:setup:close:*:{
n1032=  if ($did == 0) {
n1033=    unset %setup.help %auto.set
n1034=  }
n1035=}
n1036=on 1:dialog:setup:sclick:*:{
n1037=  if ($did == 2) {
n1038=    set %setup.help 1
n1039=  }
n1040=  if ($did == 3) {
n1041=    set %setup.help 2
n1042=  }
n1043=  if ($did == 22) {
n1044=    set %setup.help 3
n1045=  }
n1046=  if ($did == 103) {
n1047=    set %setup.help 4
n1048=  }
n1049=  if ($did == 5) {
n1050=    setskins
n1051=  }
n1052=  if ($did == 6) {
n1053=    awst
n1054=  }
n1055=  if ($did == 7) {
n1056=    nickc
n1057=  }
n1058=  if ($did == 8) {
n1059=    logsd
n1060=  }
n1061=  if ($did == 9) {
n1062=    mathsd
n1063=  }
n1064=  if ($did == 10) {
n1065=    phoned
n1066=  }
n1067=  if ($did == 11) {
n1068=    listcold
n1069=  }
n1070=  if ($did == 12) {
n1071=    servs
n1072=  }
n1073=  if ($did == 13) {
n1074=    crypt
n1075=  }
n1076=  if ($did == 14) {
n1077=    soundsp
n1078=  }
n1079=  if ($did == 25) {
n1080=    dhtml
n1081=  }
n1082=  if ($did == 16) {
n1083=    check antimat
n1084=  }
n1085=  if ($did == 18) {
n1086=    check doublen
n1087=  }
n1088=  if ($did == 19) {
n1089=    check qview
n1090=  }
n1091=  if ($did == 20) {
n1092=    check watchus
n1093=  }
n1094=  if ($did == 21) {
n1095=    check sound.query
n1096=  }
n1097=  if ($did == 34) {
n1098=    check fingans
n1099=  }
n1100=  if ($did == 35) {
n1101=    check pingans
n1102=  }
n1103=  if ($did == 43) {
n1104=    check auto.hello
n1105=  }
n1106=  if ($did == 44) {
n1107=    check aid
n1108=  }
n1109=  if ($did == 45) {
n1110=    check defence
n1111=  }
n1112=  if ($did == 47) {
n1113=    check autoaway
n1114=  }
n1115=  if ($did == 42) {
n1116=    check auto.greet
n1117=  }
n1118=  if ($did == 46) {
n1119=    check auto.thnx
n1120=  }
n1121=  if ($did == 113) {
n1122=    check are
n1123=  }
n1124=  if ($did == 48) {
n1125=    check auto.voice
n1126=  }
n1127=  if ($did == 56) {
n1128=    check opmej
n1129=  }
n1130=  if ($did == 57) {
n1131=    check voicemej
n1132=  }
n1133=  if ($did == 58) {
n1134=    check whois
n1135=  }
n1136=  if ($did == 61) {
n1137=    check auto.jmc
n1138=  }
n1139=  if ($did == 63) {
n1140=    if ( $did(setup,63).seltext != (none) ) {
n1141=      set %style.text $did(setup,63).seltext
n1142=      set %idt $gettok($read($mircdirsystem\syst\stylet.txt,w,%style.text $+ * ),2,59)
n1143=    }
n1144=    else { unset %style.text %idt }
n1145=  }
n1146=  if ($did == 64) {
n1147=    if ( $did(setup,64).seltext != (none) ) {
n1148=      set %style.col $did(setup,64).seltext
n1149=      set %idc $gettok($read($mircdirsystem\syst\stylec.txt,w,%style.col $+ * ),2,59)
n1150=    }
n1151=    else { unset %style.col %idc }
n1152=  }
n1153=  if ($did == 67) {
n1154=    exstyle
n1155=  }
n1156=  if ($did == 68) {
n1157=    check text.stl
n1158=  }
n1159=  if ($did == 4) {
n1160=    if ( $gettok($read($mircdirsystem\syst\stylec.txt,w,%style.col $+ *),3,59) == setup ) {
n1161=      if ( $remove(%idc,idc) == 1 ) { set %st.col1.1 $$?="Введите код для первого слова строки" | set %st.col2.1 $$?="Введите код для всей строки (ввод кода bold или underline отменит их действие, если эти коды были введены для первого слова)" }
n1162=      if ( $remove(%idc,idc) == 2 ) { set %st.col1.2 $$?="Введите первый код цвета" | set %st.col2.2 $$?="Введите второй код цвета" }
n1163=      if ( $remove(%idc,idc) == 3 ) { set %st.custom $$?="Введите код" }
n1164=    }
n1165=  }
n1166=  if ($did == 73) {
n1167=    fkeys
n1168=  }
n1169=  if ($did == 81) {
n1170=    game
n1171=  }
n1172=  if ($did == 82) {
n1173=    srch
n1174=  }
n1175=  if ($did == 83) {
n1176=    abook
n1177=  }
n1178=  if ($did == 84) {
n1179=    check b.c.n
n1180=  }
n1181=  if ($did == 87) {
n1182=    set %auto.set $gettok($read($mircdirsystem\syst\auto.txt,$did(setup,87).sel),2,59)
n1183=  }
n1184=  if ($did == 80) {
n1185=    run $mircdirsystem\syst\auto\ $+ %auto.set
n1186=  }
n1187=  if ($did == 85) {
n1188=    memo
n1189=  }
n1190=  if ($did == 88) {
n1191=    accd
n1192=  }
n1193=  if ($did == 90) {
n1194=    check welwin
n1195=  }
n1196=  if ($did == 91) {
n1197=    check wrjenac
n1198=  }
n1199=  if ($did == 15) {
n1200=    check show.chan.us
n1201=  }
n1202=  if ($did == 17) {
n1203=    check show.away
n1204=  }
n1205=  if ($did == 104) {
n1206=    offons 2
n1207=  }
n1208=  if ($did == 105) {
n1209=    dialog -m remal remal
n1210=  }
n1211=  if ($did == 106) {
n1212=    dialog -m lag lag
n1213=  }
n1214=  if ($did == 107) {
n1215=    dialog -m mat mat
n1216=  }
n1217=  if ($did == 109) {
n1218=    check lagm
n1219=  }
n1220=  if ($did == 117) {
n1221=    check show.chan.modes
n1222=  }
n1223=  if ($did == 118) {
n1224=    check banrejoin
n1225=  }
n1226=  if ($did == 26) {
n1227=    setuphelp %setup.help
n1228=  }
n1229=  if ($did == 55) {
n1230=    dialog -x setup
n1231=  }
n1232=  if ($did == 66) {
n1233=    set %gender $did(setup,66).sel
n1234=  }
n1235=}
n1236=on 1:dialog:setup:edit:*:{
n1237=  if ($did == 30) {
n1238=    set %uin $did(setup,30,1)
n1239=  }
n1240=  if ($did == 31) {
n1241=    set %mail $did(setup,31,1)
n1242=  }
n1243=  if ($did == 33) {
n1244=    set %mlink $did(setup,33,1)
n1245=  }
n1246=  if ($did == 37) {
n1247=    set %fingans $did(setup,37,1)
n1248=  }
n1249=  if ($did == 39) {
n1250=    set %pingans $did(setup,39,1)
n1251=  }
n1252=  if ($did == 28) {
n1253=    set %quitmess $did(setup,28,1)
n1254=  }
n1255=  if ($did == 51) {
n1256=    set %passmain $did(setup,51,1)
n1257=  }
n1258=  if ($did == 52) {
n1259=    set %passmain $did(setup,52,1)
n1260=  }
n1261=  if ($did == 53) {
n1262=    set %ah $did(setup,53,1)
n1263=  }
n1264=  if ($did == 60) {
n1265=    set %auto.jm $did(setup,60,1)
n1266=  }
n1267=  if ($did == 75) {
n1268=    set %join.chan1 $did(setup,75,1)
n1269=  }
n1270=  if ($did == 79) {
n1271=    set %join.chan2 $did(setup,79,1)
n1272=  }
n1273=  if ($did == 94) {
n1274=    set %autohelloh1 $did(setup,94,1)
n1275=  }
n1276=  if ($did == 97) {
n1277=    set %autohellob1 $did(setup,97,1)
n1278=  }
n1279=  if ($did == 98) {
n1280=    set %autohelloh2 $did(setup,98,1)
n1281=  }
n1282=  if ($did == 99) {
n1283=    set %autohellob2 $did(setup,94,1)
n1284=  }
n1285=  if ($did == 111) {
n1286=    set %auto.op1.thnx $did(setup,111,1)
n1287=  }
n1288=  if ($did == 112) {
n1289=    set %auto.voice1.thnx $did(setup,112,1)
n1290=  }
n1291=  if ($did == 115) {
n1292=    set %auto.op2.thnx $did(setup,115,1)
n1293=  }
n1294=  if ($did == 116) {
n1295=    set %auto.voice2.thnx $did(setup,116,1)
n1296=  }
n1297=}
n1298=;[LOGS]
n1299=dialog logsd {
n1300=  title "Logs"
n1301=  size -1 -1 254 186
n1302=  option pixels, notheme
n1303=  combo 1, 10 10 155 155,  size vsbar
n1304=  button "Просмотреть", 2, 170 10 75 27,
n1305=  button "Открыть", 4, 170 40 75 27,
n1306=  button "Удалить", 5, 170 70 75 27,
n1307=  button "Удалить Все", 6, 170 110 75 27,
n1308=  button "Закрыть", 7, 170 150 75 27,
n1309=  text "Всего логов:", 3, 10 167 75 14,
n1310=  text "999", 8, 85 168 55 14,
n1311=}
n1312=on 1:dialog:logsd:init:*:{
n1313=  dologs
n1314=}
n1315=on 1:dialog:logsd:close:*:{
n1316=  if ($did == 0) {
n1317=    write -c $mircdirsystem/syst/logs.txt
n1318=  }
n1319=}
n1320=alias gotoend { if ( $dlll(%ndll) == $true ) && ( $dlll(%dll,rgm,mirc.key) == no ) { .timer -m 1 1 dll $mircdirsystem\jenac.dll chansv %chdll } | unset %chdll %ndll }
n1321=on 1:dialog:logsd:sclick:*:{
n1322=  if ($did == 2) {
n1323=    viewlog $did(logsd,1,$did(logsd,1).sel) $+ .log
n1324=  }
n1325=  if ($did == 4) {
n1326=    run $logdir $+ $did(logsd,1,$did(logsd,1).sel) $+ .log
n1327=  }
n1328=  if ($did == 5) {
n1329=    .remove $logdir $+ $did(logsd,1,$did(logsd,1).sel) $+ .log
n1330=    dologs
n1331=  }
n1332=  if ($did == 6) {
n1333=    delogs
n1334=  }
n1335=  if ($did == 7) {
n1336=    write -c $mircdirsystem/syst/logs.txt
n1337=    dialog -x logsd
n1338=  }
n1339=}
n1340=on 1:dialog:logsd:dclick:*:{
n1341=  if ($did == 1) {
n1342=    viewlog $did(logsd,1,$did(logsd,1).sel) $+ .log
n1343=  }
n1344=}
n1345=
n1346=;[NICKLIST COLOURS]
n1347=dialog listcol {
n1348=  title "NickList Colours"
n1349=  size -1 -1 203 153
n1350=  option pixels, notheme
n1351=  text "Jenac Op", 1, 10 12 55 14,
n1352=  text "Другой оп", 2, 10 43 55 14,
n1353=  text "Войс", 3, 10 103 35 14,
n1354=  text "Полуоп", 4, 10 73 45 14,
n1355=  check "Включить спец. расцветку ников", 5, 10 130 195 14,
n1356=  edit "", 6, 70 10 25 20,  limit 2
n1357=  edit "", 7, 70 40 25 20,  limit 2
n1358=  edit "", 8, 70 70 25 20,  limit 2
n1359=  edit "", 9, 70 100 25 20,  limit 2
n1360=  button "Закрыть", 10, 100 92 95 27,
n1361=  text "Введите номер цвета", 11, 100 10 95 34,  center
n1362=  button "Применить", 12, 100 70 95 17,
n1363=  edit "#JeNac_Script", 13, 100 40 95 20,
n1364=}
n1365=on 1:dialog:listcol:init:*:{
n1366=  if ( %listcol != $null ) { did -c listcol 5 1 }
n1367=  did -o listcol 6 1 %ncj
n1368=  did -o listcol 7 1 %nco
n1369=  did -o listcol 8 1 %nch
n1370=  did -o listcol 9 1 %ncv
n1371=}
n1372=on 1:dialog:listcol:sclick:*:{
n1373=  if ($did == 5) {
n1374=    if ( %listcol != $null ) { unset %listcol }
n1375=    else { set %listcol Nick.List.Colouring.On }
n1376=  }
n1377=  if ($did == 10) {
n1378=    dialog -x listcol
n1379=  }
n1380=  if ($did == 12) {
n1381=    set %chan.c $did(listcol,13,1)
n1382=    if ( $chr(35) isin %chan.c ) { listcol }
n1383=  }
n1384=}
n1385=on 1:dialog:listcol:edit:*:{
n1386=  if ($did == 6) {
n1387=    set %ncj $did(listcol,6,1)
n1388=  }
n1389=  if ($did == 7) {
n1390=    set %nco $did(listcol,7,1)
n1391=  }
n1392=  if ($did == 8) {
n1393=    set %nch $did(listcol,8,1)
n1394=  }
n1395=  if ($did == 9) {
n1396=    set %ncv $did(listcol,9,1)
n1397=  }
n1398=}
n1399=
n1400=;[SERVER SETTINGS]
n1401=dialog servs {
n1402=  title "Установки сервера"
n1403=  size -1 -1 374 184
n1404=  option pixels, notheme
n1405=  button "Версия сервера", 7, 130 100 115 27,
n1406=  button "Список каналов", 1, 250 10 115 27,
n1407=  button "Список линков", 2, 250 40 115 27,
n1408=  button "Админы сервера", 3, 250 70 115 27,
n1409=  button "Инфо о сервере", 4, 130 10 115 27,
n1410=  button "Юзеры на сервере", 5, 10 130 115 27,
n1411=  button "Сообщение сервера", 6, 250 100 115 27,
n1412=  button "Credits", 9, 130 70 115 27,
n1413=  button "Лицензия сервера", 10, 130 130 115 27,
n1414=  button "Карта серверов", 11, 10 10 115 27,
n1415=  button "Время на сервере", 12, 10 70 115 27,
n1416=  button "OK", 13, 270 136 75 29,  ok
n1417=  button "Запрещенные ники", 14, 10 40 115 27,
n1418=  button "Хост сервисов", 16, 10 100 115 27,
n1419=  link "http://jenac.tk", 17, 30 162 80 14,
n1420=  button "Кто создал сервер", 8, 130 40 115 27,
n1421=}
n1422=on 1:dialog:servs:sclick:*:{
n1423=  if ($did == 7) {
n1424=    version
n1425=  }
n1426=  if ($did == 1) {
n1427=    list
n1428=  }
n1429=  if ($did == 2) {
n1430=    links
n1431=  }
n1432=  if ($did == 3) {
n1433=    admin
n1434=  }
n1435=  if ($did == 4) {
n1436=    info
n1437=  }
n1438=  if ($did == 5) {
n1439=    lusers
n1440=  }
n1441=  if ($did == 6) {
n1442=    motd
n1443=  }
n1444=  if ($did == 9) {
n1445=    credits
n1446=  }
n1447=  if ($did == 10) {
n1448=    license
n1449=  }
n1450=  if ($did == 11) {
n1451=    map
n1452=  }
n1453=  if ($did == 12) {
n1454=    time
n1455=  }
n1456=  if ($did == 13) {
n1457=    close -x ustan
n1458=  }
n1459=  if ($did == 14) {
n1460=    stats Q
n1461=    stats q
n1462=  }
n1463=  if ($did == 16) {
n1464=    stats U
n1465=  }
n1466=  if ($did == 17) {
n1467=    run http://jenac.tk
n1468=  }
n1469=  if ($did == 8) {
n1470=    dalinfo
n1471=  }
n1472=}
n1473=on 1:dialog:servs:dclick:*:{
n1474=  if ($did == 17) {
n1475=    run http://jenac.tk
n1476=  }
n1477=}
n1478=;[ENCRYPTION DEVICE]
n1479=dialog crypt {
n1480=  title "Encryption Device"
n1481=  size -1 -1 309 237
n1482=  option pixels, notheme
n1483=  box "Crypter", 1, 10 10 140 190,
n1484=  box "Encrypter", 2, 160 10 140 190,
n1485=  box "Filename", 3, 20 25 120 50,
n1486=  edit "to_be_coded.txt", 4, 27 45 105 20,  autohs
n1487=  box "Key Word", 5, 20 80 120 50,
n1488=  edit "", 6, 27 100 105 20,  pass autohs
n1489=  box "Filenames", 10, 170 25 120 50,
n1490=  box "Key Word", 12, 170 80 120 50,
n1491=  edit "", 13, 177 100 105 20,  pass autohs
n1492=  button "Close", 17, 225 208 75 20,
n1493=  edit "to_be_decoded.txt", 11, 177 45 105 20,  autohs
n1494=  button "Open Encrypted File", 8, 20 166 119 27,
n1495=  button "Open Decrypted File", 9, 170 166 119 27,
n1496=  button "Encrypt File", 7, 20 136 119 27,
n1497=  button "Decrypt File", 14, 170 136 119 27,
n1498=  combo 15, 140 208 75 86,  drop size
n1499=  text "Select the crypt scheme:", 16, 10 210 125 14,
n1500=}
n1501=on 1:dialog:crypt:init:*:{
n1502=  filcrs
n1503=}
n1504=on 1:dialog:crypt:sclick:*:{
n1505=  if ($did == 17) {
n1506=    dialog -x crypt
n1507=  }
n1508=  if ($did == 8) {
n1509=    if ( $isfile($did(crypt,4,1)) != $false ) { run $did(crypt,4,1) }
n1510=    else { dll %dll avs Такого файла не существует! }
n1511=  }
n1512=  if ($did == 9) {
n1513=    if ( $isfile($did(crypt,11,1)) != $false ) { run $did(crypt,4,1) }
n1514=    else { dll %dll avs Такого файла не существует! }
n1515=  }
n1516=  if ($did == 7) {
n1517=    textencode
n1518=  }
n1519=  if ($did == 14) {
n1520=    textdecode
n1521=  }
n1522=}
n1523=alias filcrs {
n1524=  var %icr 1
n1525=  while ( %icr <= 5 ) {
n1526=    did -a crypt 15 %icr
n1527=    inc %icr
n1528=  }
n1529=  did -c crypt 15 $r(1,5)
n1530=}
n1531=;[JENAC SOUND AND MUSIC]
n1532=dialog sound {
n1533=  title "Jenac mIRC Sound and Music Setup"
n1534=  size -1 -1 548 167
n1535=  option pixels, notheme
n1536=  box "Музыка (Jenac_mIRC\System\music\)", 6, 275 5 267 95,
n1537=  box "Звук в Jenac mIRC", 17, 5 5 267 155,
n1538=  box "Звуковой Файл (Jenac_mIRC\System\sdir\)", 4, 10 71 257 48,
n1539=  check "В к л ю ч и т ь   з в у к", 1, 143 127 124 25, , push
n1540=  box "Событие", 2, 10 19 257 49,
n1541=  combo 3, 12 36 253 99,  drop size
n1542=  combo 5, 12 88 253 60,  drop size
n1543=  combo 7, 282 36 253 112,  drop size
n1544=  text "Постоянно воспроизводить файл:", 8, 282 18 241 14,
n1545=  button "Играть", 11, 284 64 45 27,
n1546=  button "Остановить", 13, 458 64 75 27,
n1547=  button "Закрыть", 10, 476 134 65 27,
n1548=  button "По умолчанию", 14, 10 125 85 27,
n1549=  button "Пауза", 19, 331 64 45 27,
n1550=  text "Всего wav:", 9, 276 112 65 14,
n1551=  text "Всего mp3:", 15, 403 112 65 14,
n1552=  text "20", 16, 340 113 55 14,
n1553=  text "20", 18, 466 113 55 14,
n1554=  icon 20, 279 129 190 30, $mircdirSystem\syspct\s.bmp, 0,
n1555=  button "Играть", 21, 96 125 45 27,
n1556=  button "Продолжить", 22, 379 64 75 27,
n1557=}
n1558=on 1:dialog:sound:init:*:{
n1559=  did -g sound 20 0 $mircdirsystem\syspct\sound.jpg
n1560=  if ( %sound != $null ) { did -c sound 1 1 }
n1561=  filsound
n1562=}
n1563=on 1:dialog:sound:sclick:*:{
n1564=  if ($did == 1) {
n1565=    offons 1
n1566=  }
n1567=  if ($did == 3) {
n1568=    chsound
n1569=  }
n1570=  if ($did == 5) {
n1571=    if ( $did(sound,3,0) != $null ) {
n1572=      if ( $did(sound,5,$did(sound,5).sel) == (none) ) { unset $gettok($read($mircdirsystem\syst\sounde.txt,$did(sound,3).sel),2,58) }
n1573=      else { set $gettok($read($mircdirsystem\syst\sounde.txt,$did(sound,3).sel),2,58) $did(sound,5,$did(sound,5).sel) }
n1574=    }
n1575=  }
n1576=  if ($did == 7) {
n1577=    set %sound.play $did(sound,7,$did(sound,7).sel)
n1578=  }
n1579=  if ($did == 11) {
n1580=    .splay $mircdirsystem\music\ $+ %sound.play
n1581=    set %play.sound 1
n1582=  }
n1583=  if ($did == 13) {
n1584=    .splay -p stop
n1585=    unset %play.sound
n1586=  }
n1587=  if ($did == 10) {
n1588=    unset %iss2
n1589=    dialog -x sound
n1590=  }
n1591=  if ($did == 14) {
n1592=    .play -sc $mircdirsystem\syst\soundf.txt 0
n1593=    filsound
n1594=  }
n1595=  if ($did == 19) {
n1596=    .splay -p pause
n1597=  }
n1598=  if ($did == 21) {
n1599=    .splay -q $mircdirsystem/sdir/ $+ $did(sound,5,0)
n1600=  }
n1601=  if ($did == 22) {
n1602=    .splay -p resume
n1603=  }
n1604=}
n1605=
n1606=;[F-KEYS]
n1607=dialog fkeys {
n1608=  title "F-Keys"
n1609=  size -1 -1 372 168
n1610=  option pixels, notheme
n1611=  text "[Shift+F8]", 1, 10 38 55 14,
n1612=  text "Что выполнять при нажатии.", 2, 10 11 155 14,
n1613=  text "[Shift+F9]", 3, 10 62 55 14,
n1614=  text "[Shift+F10]", 4, 10 88 55 14,
n1615=  text "[Shift+F11]", 5, 10 114 55 14,
n1616=  text "[Shift+F12]", 6, 10 140 55 14,
n1617=  edit "", 7, 70 35 295 20,
n1618=  edit "", 8, 70 60 295 20,
n1619=  edit "", 9, 70 85 295 20,
n1620=  edit "", 10, 70 110 295 20,
n1621=  edit "", 11, 70 137 295 20,
n1622=  button "Close", 12, 289 4 75 27,
n1623=}
n1624=on 1:dialog:fkeys:init:*:{
n1625=  did -o fkeys 7 1 %sf8
n1626=  did -o fkeys 8 1 %sf9
n1627=  did -o fkeys 9 1 %sf10
n1628=  did -o fkeys 10 1 %sf11
n1629=  did -o fkeys 11 1 %sf12
n1630=}
n1631=on 1:dialog:fkeys:sclick:*:{
n1632=  if ($did == 12) {
n1633=    dialog -x fkeys
n1634=  }
n1635=}
n1636=on 1:dialog:fkeys:edit:*:{
n1637=  if ($did == 7) {
n1638=    set %sf8 $did(fkeys,7,1)
n1639=  }
n1640=  if ($did == 8) {
n1641=    set %sf9 $did(fkeys,8,1)
n1642=  }
n1643=  if ($did == 9) {
n1644=    set %sf10 $did(fkeys,9,1)
n1645=  }
n1646=  if ($did == 10) {
n1647=    set %sf11 $did(fkeys,10,1)
n1648=  }
n1649=  if ($did == 11) {
n1650=    set %sf12 $did(fkeys,11,1)
n1651=  }
n1652=}
n1653=;[SEARCHING]
n1654=dialog srch {
n1655=  title "Поиск на серере"
n1656=  size -1 -1 183 95
n1657=  option pixels, notheme
n1658=  text "Ник", 1, 10 12 25 14,
n1659=  edit "", 2, 48 10 125 20,
n1660=  text "Статус:", 3, 10 40 45 14,
n1661=  text "Введите ник", 4, 52 40 115 14,
n1662=  button "Проверить ник", 5, 10 61 95 27,
n1663=  button "Закрыть", 6, 117 60 55 27,
n1664=}
n1665=on 1:dialog:srch:sclick:*:{
n1666=  if ($did == 5) {
n1667=    set %chk.nick $did(srch,2,1)
n1668=    did -o srch 4 1 Searching...
n1669=    ison %chk.nick
n1670=  }
n1671=  if ($did == 6) {
n1672=    dialog -x srch
n1673=  }
n1674=}
n1675=
n1676=;[HTTP]
n1677=dialog dhtml {
n1678=  title "HTTP"
n1679=  size -1 -1 325 153
n1680=  option pixels, notheme
n1681=  button "Открыть", 1, 10 11 75 17,
n1682=  combo 2, 90 10 225 99,  drop size
n1683=  button "Открыть файл с ссылками", 3, 10 40 165 17,
n1684=  text "По ссылке на строку", 4, 186 41 115 14,
n1685=  button "Открыть", 5, 10 68 75 17,
n1686=  edit "http://", 6, 90 67 225 20,
n1687=  button "Открыть", 7, 10 97 75 17,
n1688=  edit "http://", 8, 90 96 225 20,
n1689=  link "http://jenac.tk", 9, 13 127 75 14,
n1690=  button "Закрыть", 10, 240 126 75 17,
n1691=}
n1692=on 1:dialog:dhtml:init:*:{
n1693=  htmlfil
n1694=}
n1695=on 1:dialog:dhtml:sclick:*:{
n1696=  if ($did == 1) {
n1697=    run $did(dhtml,2).seltext
n1698=  }
n1699=  if ($did == 3) {
n1700=    run $mircdirsystem\syst\html.txt
n1701=  }
n1702=  if ($did == 5) {
n1703=    run $did(dhtml,6,1)
n1704=  }
n1705=  if ($did == 7) {
n1706=    run $did(dhtml,8,1)
n1707=  }
n1708=  if ($did == 9) {
n1709=    run http://jenac.tk
n1710=  }
n1711=  if ($did == 10) {
n1712=    dialog -x dhtml
n1713=  }
n1714=}
n1715=
n1716=;[JENAC GAMES]
n1717=dialog game {
n1718=  title "Jenac Games"
n1719=  size -1 -1 325 137
n1720=  option pixels, notheme
n1721=  box "Game ini", 1, 10 10 130 120,
n1722=  box "Game Name", 3, 150 10 170 40,
n1723=  text "Name of the chosen game", 4, 156 26 155 14,  center
n1724=  text "100342335", 6, 205 84 65 14,  center
n1725=  button "Read Rules", 7, 244 54 75 27,
n1726=  button "Play Game", 8, 153 100 75 27,
n1727=  button "Close", 9, 244 100 75 27,
n1728=  list 2, 16 26 117 109,  vsbar
n1729=  button "Load Game", 5, 153 54 75 27,
n1730=}
n1731=on 1:dialog:game:init:*:{
n1732=  gamefil
n1733=}
n1734=on 1:dialog:game:sclick:*:{
n1735=  if ($did == 7) {
n1736=    readrules $did(game,2).seltext
n1737=  }
n1738=  if ($did == 8) {
n1739=    play.game $remove($did(game,2).seltext,.ini)
n1740=  }
n1741=  if ($did == 9) {
n1742=    dialog -x game
n1743=  }
n1744=  if ($did == 2) {
n1745=    did -o game 4 1 $read($mircdirsystem\game\ $+ $did(game,2).seltext $+ ,1)
n1746=  }
n1747=  if ($did == 5) {
n1748=    loadgame $did(game,2).seltext
n1749=  }
n1750=}
n1751=
n1752=;[ACCESS LEVELS]
n1753=dialog accd {
n1754=  title "Access Levels"
n1755=  size -1 -1 295 104
n1756=  option pixels, notheme
n1757=  text "Канал:", 2, 10 12 45 14,
n1758=  edit "#channel", 1, 50 10 75 20,  autohs
n1759=  button "Список", 3, 130 9 55 22,
n1760=  button "Очистить список", 4, 190 9 95 22,
n1761=  button "Добавить / Изменить", 5, 10 40 135 22,
n1762=  edit "Nick", 6, 150 41 55 20,  autohs
n1763=  edit "Level", 7, 210 41 75 20,  autohs
n1764=  button "Удалить", 8, 10 72 65 22,
n1765=  edit "Nick", 9, 83 73 65 20,  autohs
n1766=  button "Закрыть", 10, 219 72 65 22,
n1767=}
n1768=on 1:dialog:accd:init:*:{
n1769=  if ( %accd != $null ) { did -o accd 1 1 %accd }
n1770=}
n1771=on 1:dialog:accd:sclick:*:{
n1772=  if ($did == 3) {
n1773=    msg chanserv@*.RusNet access $did(accd,1,1) list
n1774=  }
n1775=  if ($did == 4) {
n1776=    msg chanserv@*.RusNet access $did(accd,1,1) clear
n1777=  }
n1778=  if ($did == 5) {
n1779=    msg chanserv@*.RusNet access $did(accd,1,1) add $did(accd,6,1) $did(accd,7,1)
n1780=  }
n1781=  if ($did == 8) {
n1782=    msg chanserv@*.RusNet access $did(accd,1,1) del $did(accd,9,1)
n1783=  }
n1784=  if ($did == 10) {
n1785=    dialog -x accd
n1786=  }
n1787=}
n1788=
n1789=;[MEMOSERV]
n1790=dialog memo {
n1791=  title "MemoServ"
n1792=  size -1 -1 326 284
n1793=  option pixels, notheme
n1794=  button "Ask for Info", 1, 10 10 75 27,
n1795=  button "List New", 2, 90 10 75 27,
n1796=  button "List Num", 3, 170 10 75 27,
n1797=  edit "1-5", 4, 251 14 65 20,
n1798=  button "Read New", 5, 10 45 75 27,
n1799=  button "Read Num", 6, 90 45 75 27,
n1800=  edit "1 / 3-5", 7, 170 49 145 20,
n1801=  button "Send", 8, 10 117 45 27,
n1802=  edit "Nick", 9, 60 120 55 20,  autohs
n1803=  edit "Message", 10, 120 120 195 20,  autohs
n1804=  button "Cancel Last", 11, 10 247 75 27,
n1805=  edit "Message to Memoserv", 13, 61 156 255 20,  autohs
n1806=  box "Status:", 14, 10 188 305 50,
n1807=  edit "", 15, 20 208 285 20,  read autohs
n1808=  button "Close", 16, 240 246 75 27,
n1809=  button "Send", 12, 10 153 45 27,
n1810=  text "sent to", 17, 90 253 35 14,
n1811=  edit "Nick", 18, 127 250 105 20,  autohs
n1812=  button "Delete", 19, 10 80 75 27,
n1813=  edit "1 / 3-5 / all", 20, 90 83 225 20,
n1814=}
n1815=on 1:dialog:memo:init:*:{
n1816=  .msg memoserv list new
n1817=}
n1818=on 1:dialog:memo:sclick:*:{
n1819=  if ($did == 1) {
n1820=    msg memoserv info
n1821=  }
n1822=  if ($did == 2) {
n1823=    msg memoserv list new
n1824=  }
n1825=  if ($did == 3) {
n1826=    msg memoserv list $did(memo,4,1)
n1827=  }
n1828=  if ($did == 5) {
n1829=    msg memoserv read new
n1830=  }
n1831=  if ($did == 6) {
n1832=    msg memoserv read $did(memo,7,1)
n1833=  }
n1834=  if ($did == 8) {
n1835=    msg memoserv send $did(memo,9,1) $did(memo,10,1)
n1836=  }
n1837=  if ($did == 11) {
n1838=    msg memoserv cancel $did(memo,18,1)
n1839=  }
n1840=  if ($did == 16) {
n1841=    dialog -x memo
n1842=  }
n1843=  if ($did == 12) {
n1844=    msg memoserv $did(memo,13,1)
n1845=  }
n1846=  if ($did == 19) {
n1847=    msg memoserv del $did(memo,20,1)
n1848=  }
n1849=}
n1850=
n1851=;[ADD-ADDRESS]
n1852=dialog addnd-addr {
n1853=  title "Add into Phone Book"
n1854=  size -1 -1 298 125
n1855=  option pixels, notheme
n1856=  edit "Телефон1", 2, 136 6 155 20,  autohs
n1857=  edit "Телефон2", 3, 136 32 155 20,  autohs
n1858=  edit "Имя", 1, 6 6 125 20,  autohs
n1859=  edit "ICQ UIN", 4, 6 32 125 20,  autohs
n1860=  edit "дд/мм", 5, 6 60 55 20,  limit 5
n1861=  edit "адрес электронной почты", 6, 66 60 225 20,  autohs
n1862=  button "Записать в телефонную книгу", 7, 9 90 195 27,
n1863=  button "Закрыть", 8, 211 90 75 27,
n1864=}
n1865=on 1:dialog:addnd-addr:sclick:*:{
n1866=  if ($did == 7) {
n1867=    write $mircdirsystem/syst/phone.txt $did(addnd-addr,1,0) $+ † $+ $did(addnd-addr,2,0) $+ † $+ $did(addnd-addr,3,0) $+ † $+ $did(addnd-addr,6,0) $+ † $+ $did(addnd-addr,4,0) $+ † $+ $did(addnd-addr,5,0)
n1868=    set %phnum $lines($mircdirsystem/syst/phone.txt)
n1869=    phonedx
n1870=  }
n1871=  if ($did == 8) {
n1872=    dialog -x addnd-addr
n1873=  }
n1874=}
n1875=;[ADD-REASON]
n1876=dialog addnd-reas {
n1877=  title "Add an Away Reason"
n1878=  size -1 -1 315 66
n1879=  option pixels, notheme
n1880=  edit "New Away Reason", 1, 10 10 295 20,  limit 350 autohs
n1881=  text "Symbols:", 2, 65 40 45 14,
n1882=  text "Limit: 350", 3, 10 40 55 14,
n1883=  text "0", 4, 112 40 35 14,
n1884=  button "Add Reason", 5, 140 40 75 17,
n1885=  button "Close", 6, 230 40 75 17,
n1886=}
n1887=on 1:dialog:addnd-reas:sclick:*:{
n1888=  if ($did == 5) {
n1889=    write $mircdirsystem/syst/awayrsn.txt $did(addnd-reas,1)
n1890=    awresn
n1891=  }
n1892=  if ($did == 6) {
n1893=    dialog -x addnd-reas
n1894=  }
n1895=}
n1896=on 1:dialog:addnd-reas:edit:*:{
n1897=  if ($did == 1) {
n1898=    did -o addnd-reas 4 1 $len($did(addnd-reas,1))
n1899=  }
n1900=}
n1901=
n1902=;[CHANSERV]
n1903=dialog chan {
n1904=  title "ChanServ"
n1905=  size -1 -1 331 233
n1906=  option pixels, notheme
n1907=  edit "#channel", 1, 190 10 125 20,  autohs
n1908=  box "Регистрация", 2, 10 6 173 100,
n1909=  edit "Пароль", 3, 20 22 155 20,  autohs
n1910=  edit "Описание Канала", 4, 20 50 155 20,  autohs
n1911=  button "Зарегистрировать", 5, 20 76 155 21,
n1912=  box "Идентифицировать", 6, 190 33 133 73,
n1913=  edit "Пароль", 7, 200 50 115 20,  autohs
n1914=  button "Идентифицировать", 8, 200 76 115 21,
n1915=  button "Помощь", 9, 10 110 68 27,
n1916=  button "Уровни Доступа", 10, 84 110 98 27,
n1917=  button "Инфо", 11, 190 110 58 27,
n1918=  button "Дропнуть", 12, 255 110 67 27,
n1919=  box "Акик", 13, 10 174 233 50,
n1920=  button "Добавить", 14, 17 190 68 27,
n1921=  button "Удалить", 15, 91 190 68 27,
n1922=  button "Очистить", 16, 166 190 68 27,
n1923=  button "MSG", 18, 10 145 35 27,
n1924=  edit "Message", 19, 50 148 272 20,  autohs
n1925=  button "Закрыть", 17, 255 190 68 27,
n1926=}
n1927=on 1:dialog:chan:init:*:{
n1928=  if ( %accd != $null ) { did -o chan 1 1 %accd }
n1929=}
n1930=on 1:dialog:chan:sclick:*:{
n1931=  if ($did == 5) {
n1932=    msg chanserv@*.RusNet register $did(chan,1) $did(chan,3) $did(chan,4)
n1933=  }
n1934=  if ($did == 8) {
n1935=    msg chanserv@*.RusNet identify $did(chan,1) $did(chan,7)
n1936=  }
n1937=  if ($did == 9) {
n1938=    msg chanserv@*.RusNet help
n1939=  }
n1940=  if ($did == 10) {
n1941=    accd
n1942=  }
n1943=  if ($did == 11) {
n1944=    msg chanserv@*.RusNet info $did(chan,1) all
n1945=  }
n1946=  if ($did == 12) {
n1947=    msg chanserv@*.RusNet drop $did(chan,1)
n1948=  }
n1949=  if ($did == 14) {
n1950=    msg chanserv@*.RusNet akick $did(chan,1) add $$?="Введите ник"
n1951=  }
n1952=  if ($did == 15) {
n1953=    msg chanserv@*.RusNet akick $did(chan,1) del $$?="Введите маску"
n1954=  }
n1955=  if ($did == 16) {
n1956=    msg chanserv@*.RusNet akick $did(chan,1) clear
n1957=  }
n1958=  if ($did == 18) {
n1959=    msg chanserv@*.RusNet $did(chan,19)
n1960=  }
n1961=  if ($did == 17) {
n1962=    dialog -x chan
n1963=  }
n1964=}
n1965=
n1966=;[NICKSERV]
n1967=dialog nicks {
n1968=  title "NickServ"
n1969=  size -1 -1 319 218
n1970=  option pixels, notheme
n1971=  box "Регистрация", 1, 10 10 170 107,
n1972=  edit "Пароль", 2, 16 30 75 20,  autohs
n1973=  edit "E-mail", 3, 98 30 75 20,  autohs
n1974=  button "Зарегистрировать", 4, 17 56 155 22,
n1975=  box "Идентификация", 5, 184 10 130 107,
n1976=  edit "Пароль", 6, 190 30 115 20,  autohs
n1977=  button "Идентифицировать", 7, 190 57 115 22,
n1978=  button "Автоидентификация", 8, 190 86 115 22,
n1979=  button "Дропнуть", 9, 17 86 155 22,
n1980=  box "Группировать", 10, 145 120 170 68,
n1981=  edit "С кем", 11, 152 136 75 20,
n1982=  edit "Его Пароль", 12, 233 136 75 20,  autohs
n1983=  box "Kill", 14, 10 120 130 47,
n1984=  button "On", 15, 18 136 55 22,
n1985=  button "Off", 16, 78 136 55 22,
n1986=  box "Secure", 17, 10 167 130 47,
n1987=  button "On", 18, 18 184 55 22,
n1988=  button "Off", 19, 78 184 55 22,
n1989=  button "Группировать", 13, 154 160 155 22,
n1990=  button "Закрыть", 20, 240 191 74 22,
n1991=}
n1992=on 1:dialog:nicks:sclick:*:{
n1993=  if ($did == 4) {
n1994=    msg nickserv@*.RusNet register $did(nicks,2) $did(nicks,3)
n1995=  }
n1996=  if ($did == 7) {
n1997=    msg nickserv@*.RusNet identify $did(nicks,6)
n1998=  }
n1999=  if ($did == 8) {
n2000=    run $mircdirSystem\syst\auto\idlist.txt
n2001=  }
n2002=  if ($did == 9) {
n2003=    msg nickserv@*.RusNet drop $me
n2004=  }
n2005=  if ($did == 15) {
n2006=    msg nickserv@*.RusNet set kill on
n2007=  }
n2008=  if ($did == 16) {
n2009=    msg nickserv@*.RusNet set kill off
n2010=  }
n2011=  if ($did == 18) {
n2012=    msg nickserv@*.RusNet set secure on
n2013=  }
n2014=  if ($did == 19) {
n2015=    msg nickserv@*.RusNet set secure off
n2016=  }
n2017=  if ($did == 13) {
n2018=    msg nickserv@*.RusNet group $did(nicks,11) $did(nicks,12)
n2019=  }
n2020=  if ($did == 20) {
n2021=    dialog -x nicks
n2022=  }
n2023=}
n2024=
n2025=;[REMINDER-ALARM-CLOCK]
n2026=dialog remal {
n2027=  title "Alarm Clock and Reminder"
n2028=  size -1 -1 377 264
n2029=  option pixels, notheme
n2030=  box "Будильник", 1, 5 5 367 256,
n2031=  combo 8, 12 36 355 138,  drop size
n2032=  box "Активные будильники:", 10, 12 89 353 89,
n2033=  edit "Имя.будильника", 4, 12 66 105 20,  autohs
n2034=  edit "07:00", 5, 127 66 45 20,  limit 5
n2035=  button "Завести будильник", 6, 177 65 111 21,
n2036=  text "Мелодия будильника (mp3 в папке Jenac_mIRC\system\music\ ):", 9, 16 20 335 14,
n2037=  button "Выключить", 7, 292 145 65 25,
n2038=  box "Мелодий", 13, 293 58 72 30,
n2039=  text "35", 14, 295 72 65 12,  center
n2040=  text "Внимание! Подразумевается, что вы повысите громкость звука, чтобы услышать утром будильник. Поэтому настоятельно рекомендуется отключить остальную озвучку Jenac mIRC.", 16, 14 201 272 53,  center
n2041=  button "Обновить", 12, 292 106 65 25,
n2042=  button "Sound Setup", 15, 292 180 72 22,
n2043=  button "Help!", 3, 292 206 72 22,
n2044=  button "Close", 2, 292 233 72 22,
n2045=  list 11, 18 110 269 85,  vsbar
n2046=  check "Включить внутремирковский звук", 17, 42 182 216 18, , push
n2047=}
n2048=on 1:dialog:remal:init:*:{
n2049=  alarmsfil
n2050=  alarmtfil
n2051=  if ( %sound != $null ) { did -c remal 17 }
n2052=}
n2053=on 1:dialog:remal:sclick:*:{
n2054=  if ($did == 6) {
n2055=    if ( $chr(32) isin $did(remal,4,1) ) { alarmtfil | did -a remal 11 Нельзя использовать пробелы! | halt }
n2056=    if ( $alarmncheck($did(remal,4,1)) != 1 ) {
n2057=      .timer.alarm. $+ $did(remal,4,1) -o $did(remal,5,1) 1 0 .splay $mircdirsystem\music\ $+ $did(remal,8).seltext
n2058=      .timer.alarm2. $+ $did(remal,4,1) -o $did(remal,5,1) 1 1 alarmoff $did(remal,4,1)
n2059=      alarmtfil
n2060=    }
n2061=    else { alarmtfil | did -a remal 11 Это имя уже использовано! }
n2062=  }
n2063=  if ($did == 7) {
n2064=    alarmoff $did(remal,11).seltext
n2065=    alarmtfil
n2066=  }
n2067=  if ($did == 12) {
n2068=    alarmtfil
n2069=  }
n2070=  if ($did == 15) {
n2071=    soundsp
n2072=  }
n2073=  if ($did == 3) {
n2074=    setuphelp 8
n2075=  }
n2076=  if ($did == 2) {
n2077=    dialog -x remal
n2078=  }
n2079=  if ($did == 17) {
n2080=    offons 3
n2081=  }
n2082=}
n2083=
n2084=;[JENAC SKINS]
n2085=dialog skins {
n2086=  title "Jenac Skins"
n2087=  size -1 -1 511 249
n2088=  option pixels, notheme
n2089=  box "Switchbar", 16, 337 90 168 47,
n2090=  box "Other", 10, 337 5 168 60,
n2091=  box "Skin Now:", 9, 5 210 327 34,
n2092=  box "Skin.ini", 2, 6 5 160 132,
n2093=  button "Load Skin", 4, 6 143 105 27,
n2094=  button "Close", 8, 425 216 80 27,
n2095=  text "Skinnow", 11, 9 222 315 14,  center
n2096=  box "Skin Name", 1, 118 175 214 32,
n2097=  button "Load Random Skin", 28, 5 179 105 27,
n2098=  box "Sample Preview", 36, 170 5 162 132,
n2099=  icon 35, 175 21 150 110, $mircdirSystem\syspct\prew.bmp, 0,
n2100=  box "Total Skins:", 37, 118 139 100 30,
n2101=  text "10", 7, 125 151 85 14,  center
n2102=  button "Delete Skin", 6, 225 143 105 27,
n2103=  check "Default Text Colours", 38, 344 24 125 14,
n2104=  text "Name", 5, 121 187 206 14,  center
n2105=  check "Random Skin on Start", 13, 344 39 156 22,
n2106=  button "Help!", 14, 337 216 80 27,
n2107=  combo 15, 344 107 153 120,  drop size
n2108=  list 3, 13 21 145 120,  sort vsbar
n2109=  button "Combine Your Own Skin", 17, 337 143 168 27,
n2110=  button "Completely Unload Skin", 18, 337 179 168 27,
n2111=  text "Jenac Corporation (c) 1998-2005", 12, 342 73 163 14,
n2112=}
n2113=on 1:dialog:skins:init:*:{
n2114=  did -g skins 35 $mircdirsystem\syspct\prew.jpg
n2115=  did -o skins 7 1 $findfile($mircdirsystem\syst\skin\,*.ini,0,didtok skins 3 1 $remove($1-,$mircdirsystem\syst\skin\,$null))
n2116=  skinnow
n2117=  did -o skins 11 1 %skinnow
n2118=  did -o skins 12 1 Jenac Corporation (c) 1998- $+ $date(yyyy)
n2119=  write -c $mircdirsystem/syst/skin/list.txt
n2120=  var %i.skin 1
n2121=  while ( $did(skins,3,%i.skin).text != $null ) { write $mircdirsystem/syst/skin/list.txt loadskin $remove($did(skins,3,%i.skin).text,.ini,$null) | inc %i.skin }
n2122=  if ( %cus.tsc != $null ) { did -c skins 38 }
n2123=  if ( %ran.sk != $null ) { did -c skins 13 }
n2124=  sws
n2125=}
n2126=on 1:dialog:skins:close:*:{
n2127=  if ($did == 0) {
n2128=    write -c $mircdirsystem/syst/skin/list.txt
n2129=  }
n2130=}
n2131=on 1:dialog:skins:sclick:*:{
n2132=  if ($did == 4) {
n2133=    if ( $did(skins,5) != Name ) {
n2134=      loadskin $remove($did(skins,3).seltext,.ini,$null)
n2135=      did -o skins 11 1 Сейчас работает скин $remove($read($mircdirsystem\syst\skin\ $+ $did(skins,3).seltext,3),set,$null,% $+ skin,$null)
n2136=    }
n2137=  }
n2138=  if ($did == 8) {
n2139=    write -c $mircdirsystem/syst/skin/list.txt
n2140=    dialog -x skins
n2141=  }
n2142=  if ($did == 28) {
n2143=    .play -scr $mircdirsystem/syst/skin/list.txt 0
n2144=  }
n2145=  if ($did == 6) {
n2146=    set %delskin $remove($did(skins,3).seltext,.ini,$null)
n2147=    delskin
n2148=  }
n2149=  if ($did == 38) {
n2150=    check cus.tsc
n2151=  }
n2152=  if ($did == 13) {
n2153=    check ran.sk
n2154=  }
n2155=  if ($did == 14) {
n2156=    setuphelp 9
n2157=  }
n2158=  if ($did == 15) {
n2159=    set %switchbar $did(skins,15).sel
n2160=  }
n2161=  if ($did == 3) {
n2162=    did -o skins 5 1 $remove($read($mircdirsystem\syst\skin\ $+ $did(skins,3).seltext,3),set,$null,% $+ skin,$null)
n2163=    did -g skins 35 $mircdirsystem\syspct\skins\ $+ $remove($did(skins,3).seltext,.ini,$null) $+ .jpg
n2164=  }
n2165=  if ($did == 17) {
n2166=    comskin
n2167=  }
n2168=  if ($did == 18) {
n2169=    unloadskin
n2170=  }
n2171=}
n2172=on 1:dialog:skins:dclick:*:{
n2173=  if ($did == 3) {
n2174=    loadskin $remove($did(skins,3).seltext,.ini,$null)
n2175=    did -o skins 11 1 Сейчас работает скин $remove($read($mircdirsystem\syst\skin\ $+ $did(skins,3).seltext,3),set,$null,% $+ skin,$null)
n2176=  }
n2177=}
n2178=
n2179=;[LAG METER]
n2180=dialog lag {
n2181=  title "Jenac Lag Meter"
n2182=  size -1 -1 351 46
n2183=  option pixels, notheme
n2184=  box "Your current lag value", 3, 5 1 124 40,
n2185=  box "Refreshing frequency", 1, 133 1 122 40,
n2186=  edit "0sec", 2, 9 17 115 19,  read
n2187=  button "Check", 5, 258 7 43 16,
n2188=  edit "", 4, 137 17 113 19,
n2189=  button "HELP", 6, 258 25 43 15,
n2190=  button "Close", 7, 304 7 41 16,
n2191=  button "Small", 8, 304 25 41 15,
n2192=}
n2193=on 1:dialog:lag:init:*:{
n2194=  lag.check
n2195=  did -o lag 4 1 %lag.check
n2196=  .timerping -o 0 %lag.check lag.check
n2197=}
n2198=on 1:dialog:lag:close:*:{
n2199=  if ($did == 0) {
n2200=    .timerping off
n2201=  }
n2202=}
n2203=on 1:dialog:lag:sclick:*:{
n2204=  if ($did == 5) {
n2205=    lag.check
n2206=  }
n2207=  if ($did == 6) {
n2208=    setuphelp 10
n2209=  }
n2210=  if ($did == 7) {
n2211=    .timerping off
n2212=    dialog -x lag
n2213=  }
n2214=  if ($did == 8) {
n2215=    .timerping off
n2216=    dialog -m lags lags
n2217=    dialog -x lag
n2218=  }
n2219=}
n2220=on 1:dialog:lag:edit:*:{
n2221=  if ($did == 4) {
n2222=    set %lag.check $did(lag,4,1)
n2223=  }
n2224=}
n2225=dialog lags {
n2226=  title "Jenac Lag Meter"
n2227=  size -1 -1 151 21
n2228=  option pixels, notheme
n2229=  edit "0sec", 1, 0 0 81 20,  read
n2230=  button "Big", 2, 84 0 27 20,
n2231=  button "Close", 3, 115 0 36 20,
n2232=}
n2233=on 1:dialog:lags:init:*:{
n2234=  lag.check
n2235=  .timerping -o 0 %lag.check lag.check
n2236=}
n2237=on 1:dialog:lags:sclick:*:{
n2238=  if ($did == 2) {
n2239=    .timerping off
n2240=    dialog -m lag lag
n2241=    dialog -x lags
n2242=  }
n2243=  if ($did == 3) {
n2244=    .timerping off
n2245=    dialog -x lags
n2246=  }
n2247=}
n2248=
n2249=;[CHANNEL MESSAGES]
n2250=dialog chanmsg {
n2251=  title "Channel Messages"
n2252=  size -1 -1 197 263
n2253=  option pixels, notheme
n2254=  box "Everyone on the Channel", 2, 6 6 184 118,
n2255=  combo 1, 11 21 129 99,  drop size
n2256=  edit "Notice", 5, 11 73 129 20,
n2257=  button "Send", 6, 148 48 37 20,
n2258=  button "Send", 7, 148 73 37 20,
n2259=  box "All Channels", 8, 6 190 183 68,
n2260=  combo 9, 11 205 129 99,  drop size
n2261=  edit "Message", 10, 11 231 129 20,
n2262=  button "Send", 11, 147 205 37 20,
n2263=  button "Send", 12, 147 231 37 20,
n2264=  button "Close", 13, 148 21 37 20,
n2265=  box "Ops only at the Channel", 14, 6 124 184 64,
n2266=  edit "Mass Op Msg", 15, 13 137 129 20,
n2267=  button "Send", 16, 147 135 37 20,
n2268=  edit "Mass Op Notice", 17, 11 161 129 20,
n2269=  button "Send", 18, 147 161 37 20,
n2270=  edit "CTCP", 19, 12 97 129 20,
n2271=  button "Send", 20, 147 97 37 20,
n2272=  edit "Message", 3, 11 48 129 20,
n2273=}
n2274=on 1:dialog:chanmsg:init:*:{
n2275=  var %i.chan.msg 1
n2276=  while ( %i.chan.msg <= $chan(0) ) { set %chan.msg $chan( %i.chan.msg ) | did -a chanmsg 1 %chan.msg | inc %i.chan.msg }
n2277=  unset %chan.msg
n2278=  did -c chanmsg 1 1
n2279=  did -a chanmsg 9 Я скоро вернусь
n2280=  did -a chanmsg 9 Всем привет
n2281=  did -a chanmsg 9 Всем пока
n2282=}
n2283=on 1:dialog:chanmsg:sclick:*:{
n2284=  if ($did == 6) {
n2285=    mall $did(chanmsg,1).seltext $did(chanmsg,3,1)
n2286=  }
n2287=  if ($did == 7) {
n2288=    nall $did(chanmsg,1).seltext $did(chanmsg,5,1)
n2289=  }
n2290=  if ($did == 11) {
n2291=    amsg $did(chanmsg,9).seltext
n2292=  }
n2293=  if ($did == 12) {
n2294=    amsg $did(chanmsg,10,1)
n2295=  }
n2296=  if ($did == 13) {
n2297=    dialog -x chanmsg
n2298=  }
n2299=  if ($did == 16) {
n2300=    omsg $did(chanmsg,1).seltext $did(chanmsg,15,1)
n2301=  }
n2302=  if ($did == 18) {
n2303=    onotice $did(chanmsg,1).seltext $did(chanmsg,17,1)
n2304=  }
n2305=  if ($did == 20) {
n2306=    ctcp $did(chanmsg,1).seltext $did(chanmsg,19,1)
n2307=  }
n2308=}
n2309=;[MAT CONTROLLER]
n2310=alias mats { dialog -m mat mat }
n2311=on 1:text:*:#: {
n2312=  if ( %check.mat != $null ) {
n2313=    set %time3 $time([hh:nn:ss])
n2314=    set %string3 $1-
n2315=    var %it3 1
n2316=    set %it.3 $gettok(%string3,0,32)
n2317=    while ( %it3 <= %it.3 ) {
n2318=      set %mword3 $gettok(%string3, %it3 ,32)
n2319=      ( $dll(%dll,antimat, $ruslower(%mword3)) == 1 ) { write check_mat.txt $date(dd.mm.yyyy) $chan $+ : %time3 < $+ $nick $+ > $1- | unset %time3 %string3 %it3 %it.3 %mword3 | halt }
n2320=      inc %it3
n2321=    }
n2322=    unset %time3 %string3 %it3 %it.3 %mword3
n2323=  }
n2324=}
n2325=dialog mat {
n2326=  title "Mat Controller"
n2327=  size -1 -1 172 209
n2328=  option pixels, notheme
n2329=  box "On / Off", 2, 10 5 153 61,
n2330=  check "Следить за матом", 1, 17 24 137 31, , push
n2331=  box "Всего записей:", 3, 10 167 92 33,
n2332=  text "1565233", 4, 13 182 84 14,  center
n2333=  button "Открыть файл записей", 5, 11 71 151 27,
n2334=  button "Очистить файл записей", 6, 11 135 151 27,
n2335=  button "Закрыть", 7, 105 172 56 27,
n2336=  button "Открыть LogViewer", 8, 11 103 151 27,
n2337=}
n2338=on 1:dialog:mat:init:*:{
n2339=  did -o mat 4 1 $lines(check_mat.txt)
n2340=  if ( %check.mat != $null ) { did -c mat 1 }
n2341=}
n2342=on 1:dialog:mat:sclick:*:{
n2343=  if ($did == 1) {
n2344=    check check.mat
n2345=  }
n2346=  if ($did == 5) {
n2347=    run check_mat.txt
n2348=  }
n2349=  if ($did == 6) {
n2350=    write -c check_mat.txt
n2351=    did -o mat 4 1 0
n2352=  }
n2353=  if ($did == 7) {
n2354=    dialog -x mat
n2355=  }
n2356=  if ($did == 8) {
n2357=    dialog -m logsd logsd
n2358=  }
n2359=}
