HennesScript NW — File Browser
HennesScriptNWv0.61b / HennesScriptNWv0.61b / Data / script4.ini
script4.ini — 29.93 KB — Download this file
[script]
n0=; HennesScript <NW> About dialog.
n1=;
n2=
n3=dialog DLGabout {
n4= title $lng(149)
n5= size 154 73 226 179
n6= option dbu
n7= icon $mircdirdata\images\hsnw.ico, 0
n8= tab $lng(158), 1, 5 40 205 116
n9= text $lng(150), 28, 20 59 37 7, tab 1
n10= text $lng(151), 29, 20 69 37 7, tab 1
n11= text $lng(152), 30, 20 79 38 7, tab 1
n12= text $lng(153), 31, 20 89 37 7, tab 1
n13= text $lng(154), 32, 20 99 37 7, tab 1
n14= text "Text", 35, 65 59 100 7, tab 1
n15= text "Text", 36, 65 69 100 7, tab 1
n16= text "Text", 37, 65 79 100 7, tab 1
n17= text "Text", 38, 65 89 100 7, tab 1
n18= text "Text", 39, 65 99 140 7, tab 1
n19= text "All rights reserved.", 49, 65 107 140 7, tab 1
n20= tab $lng(159), 2
n21= text $lng(155), 40, 20 59 38 7, tab 2
n22= text $lng(156), 41, 20 100 38 7, tab 2
n23= text $lng(157), 42, 20 70 38 7, tab 2
n24= link "Text", 44, 65 59 100 7, tab 2
n25= text "Text", 45, 65 70 100 7, tab 2
n26= link "http://HennesScriptNW.cjb.net", 46, 65 100 100 7, tab 2
n27= link "http://go.to/hennesscript", 47, 65 108 100 7, tab 2
n28= link "http://HennesScript.iscool.nl", 48, 65 116 100 7, tab 2
n29= tab $lng(160), 51
n30= list 50, 10 58 195 106, tab 51 vsbar
n31= tab $lng(161), 4
n32= box $lng(162), 6, 11 57 194 94, tab 4
n33= edit "Trying to retrieve news from server...", 7, 15 65 186 81, tab 4 read multi vsbar
n34= button $lng(OK), 3, 130 165 44 12, ok
n35= icon 5, 0 0 226 38, $mircdirdata\images\banner_large.jpg, 1
n36= button $lng(HELP), 26, 177 165 43 12
n37= box "", 27, 0 158 234 4
n38=}
n39=
n40=alias about Xdialog -md DLGabout DLGabout
n41=
n42=on *:DIALOG:DLGabout:sclick:51: did -ra DLGabout 50 Loading credits... | .timer -m 1 500 credit.fillin
n43=
n44=alias credit.fillin {
n45= var %i = 0
n46= :restart
n47= inc %i 1
n48= while (%i <= $lines($mircdirdata\credits.txt)) {
n49= if (%i == 1) { did -r DLGabout 50 }
n50= if ($read -l $+ %i $mircdirdata\credits.txt == ik-poep-op-jou.want.ik-poep-op-jou) {
n51= if ($read -w* $+ $me $+ * $mircdirdata\credits.txt == $null) {
n52= .timerCREDIT $+ %i 1 %i { did -a DLGabout 50 Â Â Â Â Â Â Â Â Â Â Â $me }
n53= .timerCREDITx $+ %i 1 %i { did -c DLGabout 50 %i }
n54= }
n55= else {
n56= .timerCREDIT $+ %i 1 %i { did -a DLGabout 50 Â Â Â Â Â Â Â Â Â Â Â asZ }
n57= .timerCREDITx $+ %i 1 %i { did -c DLGabout 50 %i }
n58= }
n59= goto restart
n60= }
n61= .timerCREDIT $+ %i 1 %i { did -a DLGabout 50 Â Â Â Â Â Â Â Â Â Â Â $read -l $+ %i $mircdirdata\credits.txt }
n62= .timerCREDITx $+ %i 1 %i { did -c DLGabout 50 %i }
n63= goto restart
n64= }
n65= .timerCREDITend1 1 $calc($lines($mircdirdata\credits.txt) + 1) { did -u DLGabout 50 }
n66=}
n67=
n68=on *:DIALOG:DLGabout:sclick:1: .timerCREDIT* off
n69=on *:DIALOG:DLGabout:sclick:2: .timerCREDIT* off
n70=on *:DIALOG:DLGabout:sclick:3: .timerCREDIT* off
n71=
n72=
n73=on *:DIALOG:DLGabout:init:*:{
n74= did -ra DLGabout 35 $data(x).script
n75= did -ra DLGabout 36 $data(x).version-full
n76= did -ra DLGabout 37 $data(x).release-date
n77= did -ra DLGabout 38 $data(x).owner
n78= did -ra DLGabout 39 $data(x).copyright
n79= did -ra DLGabout 44 $data(x).email
n80= did -ra DLGabout 45 server: irc.chatcity.nl port: 6667
n81= did -ra DLGabout 46 $data(1).url
n82= did -ra DLGabout 47 $data(2).url
n83= did -ra DLGabout 48 $data(3).url
n84= sockclose news
n85= sockopen news home.planet.nl 80
n86=}
n87=
n88=on 1:sockopen:news:{
n89= if ($sockbr > 0) || ($sockerr > 0) { if ($dialog($dname)) did -ra DLGabout 7 Error: Unable to connect or file missing. | sockclose $sockname | return }
n90= sockwrite -tn news GET /~hennesscript/news.txt
n91=}
n92=
n93=on 1:sockread:news: {
n94= if ($sockbr > 0) || ($sockerr > 0) { if ($dialog($dname)) did -ra DLGabout 7 Error: Unable to connect or file missing. | sockclose $sockname | return }
n95= did -r DLGabout 7
n96= sockread -f %x
n97= while ($sockbr) { if ($dialog($dname)) did -ai DLGabout 7 $crlf %x | sockread -f %x }
n98= sockclose $sockname
n99=}
n100=
n101=on *:DIALOG:DLGabout:sclick:46: .run http://hennesscript.cjb.net
n102=on *:DIALOG:DLGabout:sclick:47: .run http://go.to/hennesscript
n103=on *:DIALOG:DLGabout:sclick:48: .run http://hennesscript.iscool.nl
n104=on *:DIALOG:DLGabout:sclick:44: .run mailto: $+ $data(x).email
n105=on *:DIALOG:DLGabout:sclick:26: .help
n106=on *:DIALOG:DLGabout:sclick:*: if ($did != 51) splay -m stop
n107=; HennesScript <NW> Access dialog
n108=;
n109=
n110=dialog DLGaccess {
n111= icon $mircdirdata\images\hsnw.ico, 0
n112= title "Access list"
n113= option dbu
n114= size 391 285 168 128
n115= list 3, 5 17 117 97,vsbar
n116= button "Done", 4, 125 113 39 12,ok
n117= edit "", 5, 5 5 78 11,autohs
n118= combo 6, 85 5 37 49,drop ,vsbar
n119= button "Add", 7, 125 5 39 13
n120= button "Delete", 8, 125 20 39 13
n121= box "", 9, -5 105 173 4
n122= button "Clear", 11, 125 40 38 13
n123= button "Copy", 10, 125 60 38 13
n124=}
n125=
n126=on *:DIALOG:DLGaccess:init:*: did -a DLGaccess 6 DENY | did -a DLGaccess 6 GRANT | did -a DLGaccess 6 VOICE | did -a DLGaccess 6 HOST | did -a DLGaccess 6 OWNER
n127=on *:DIALOG:DLGaccess:sclick:7: access $gettok($gettok($dialog(DLGaccess).title,2,40),1,41) add $did(DLGaccess,6).seltext $did(DLGaccess,5).text
n128=on *:DIALOG:DLGaccess:sclick:10: clipboard $did(DLGaccess,3).seltext
n129=on *:DIALOG:DLGaccess:sclick:8: access $gettok($gettok($dialog(DLGaccess).title,2,40),1,41) delete $did(DLGaccess,3).seltext
n130=on *:DIALOG:DLGaccess:sclick:11: access $gettok($gettok($dialog(DLGaccess).title,2,40),1,41) clear
n131=
n132=raw 803:*: haltdef | if (!$dialog(DLGaccess)) { Xdialog -m DLGaccess DLGaccess | dialog -t DLGaccess Access list ( $+ $2 $+ ) }
n133=raw 804:*: haltdef | did -a DLGaccess 3 $3-
n134=raw 805:*: haltdef
n135=
n136=; HennesScript <NW> Channel list
n137=;
n138=
n139=dialog DLGcl {
n140= title "Channel list"
n141= size -1 -1 187 190
n142= option dbu
n143= list 2, 2 48 125 120, size
n144= button "Done", 3, 138 177 45 12,ok
n145= combo 5, 30 2 80 50, size drop edit
n146= text "Channel:", 6, 4 4 25 8
n147= button "Add", 7, 138 27 45 12
n148= button "Delete", 8, 138 47 45 12
n149= button "Join", 17, 138 62 45 12
n150= edit "", 10, 30 13 80 10, autohs
n151= combo 13, 30 24 39 50, size drop
n152= text "Key:", 9, 14 15 13 8
n153= text "Auto join:", 18, 3 25 25 8
n154= box "", 11, -13 40 249 4
n155= box "", 14, 131 40 1 133
n156= box "", 15, -7 169 198 4
n157=}
n158=
n159=on *:DIALOG:DLGcl:INIT:*:{
n160= mdx MarkDialog $dname
n161= mdx SetControlMDX 2 ListView report > $mircdirdata\mdx\views.mdx
n162= did -i $dname 2 1 headerdims 93:1 90:2 60:3 | did -i DLGcl 2 1 headertext + 0 Channel $+ $chr(9) $+ 0 Key $+ $chr(9) $+ 0 Auto join
n163= did -i $dname 2 1 seticon list 0 $mircdirdata\mdx\cl_yes.ico
n164= did -i $dname 2 1 seticon list 0 $mircdirdata\mdx\cl_no.ico
n165= did -i $dname 2 1 seticon list 0 $mircdirdata\mdx\cl_chan.ico
n166= load_cl | did -a DLGcl 13 Yes | did -a DLGcl 13 No | did -c DLGcl 13 2 | var %i = 1 | while ($chan(%i)) { did -a DLGcl 5 $chan(%i) | inc %i }
n167=}
n168=on *:DIALOG:DLGcl:sclick:7: writeini mirc.ini hs_cl $did(DLGcl,5).text $iif($did(DLGcl,10).text,$did(DLGcl,10).text,x$x) $iif($did(DLGcl,13).text == Yes,1,0) | load_cl | did -r DLGcl 5,10
n169=on *:DIALOG:DLGcl:sclick:2:did -a DLGcl 5 $gettok($gettok($did(DLGcl,2).seltext,6,32),1,9) | did -c DLGcl 5 $did(DLGcl,5,0).lines | if ($gettok($gettok($did(DLGcl,2).seltext,10,32),1,9) != (none)) did -ra DLGcl 10 $gettok($gettok($did(DLGcl,2).seltext,10,32),1,9) | else did -r DLGcl 10 | did -c DLGcl 13 $iif($gettok($gettok($did(DLGcl,2).seltext,14,32),1,9) == Yes,1,2)
n170=on *:DIALOG:DLGcl:sclick:8: remini mirc.ini hs_cl $gettok($gettok($did(DLGcl,2).seltext,6,32),1,9) | load_cl
n171=on *:DIALOG:DLGcl:sclick:17: .raw join $gettok($gettok($did(DLGcl,2).seltext,6,32),1,9) $key($gettok($gettok($did(DLGcl,2).seltext,6,32),1,9))
n172=alias joinall var %i = $read -w[hs_cl] mirc.ini | var %i = $calc($readn + 1) | while ($read -l $+ %i mirc.ini != $null) { var %t.ini = $gettok($read -l $+ %i mirc.ini,1,61) | var %t.ini_ = $readini -n mirc.ini hs_cl %t.ini | if ($gettok(%t.ini_,2,32)) .raw join %t.ini $key(%t.ini) | inc %i }
n173=alias -l load_cl did -r DLGcl 2 | var %i = $read -w[hs_cl] mirc.ini | var %i = $calc($readn + 1) | while ($read -l $+ %i mirc.ini != $null) { var %t.ini = $gettok($read -l $+ %i mirc.ini,1,61) | var %t.ini_ = $readini -n mirc.ini hs_cl %t.ini | did -ia DLGcl 2 0 3 %t.ini $+ $chr(9) $+ $iif($gettok(%t.ini_,1,32) == x$x,(none),$gettok(%t.ini_,1,32)) $+ $chr(9) $+ $iif($gettok(%t.ini_,2,32),1,2) $iif($gettok(%t.ini_,2,32),Yes,No) | inc %i }
n174=alias isAUTOJOIN return $iif($gettok($readini -n mirc.ini hs_cl $1,2,32),1,0)
n175=alias runCHANNELS Xdialog -m DLGcl DLGcl
n176=
n177=
n178=; HennesScript <NW> Dialog message
n179=; DLGmsg <titlebar text> | <normal text> | [details text]
n180=;
n181=
n182=dialog DLGmsg {
n183= title "Message"
n184= option dbu
n185= icon $mircdirdata\images\hsnw.ico, 0
n186= size -1 -1 204 73
n187= button "OK", 2, 155 58 46 13,default ,ok
n188= icon 3, 5 5 35 34, $mircdirdata\images\nw_logo.jpg, 1
n189= box "", 4, -15 50 230 4
n190= text "Info/Error here...", 5, 50 10 138 35
n191= check "Details", 6, 105 58 47 13, push , hide
n192= box "Details:", 8, 4 73 197 55
n193= edit "(no details available)", 9, 8 82 188 42,read ,vsbar,multi
n194=}
n195=
n196=alias DLGmsg Xdialog -mod DLGmsg DLGmsg | dialog -t DLGmsg $gettok($1-,1,124) | did -ra DLGmsg 5 $gettok($1-,2,124) | if ($gettok($1-,3,124)) { did -v DLGmsg 6 | did -ra DLGmsg 9 $gettok($1-,3,124) }
n197=on *:dialog:DLGmsg:sclick:6: dialog -sb DLGmsg -1 -1 204 $iif($did(DLGmsg,6).state,133,73)
n198=
n199=; HennesScript <NW> Control panel
n200=;
n201=
n202=alias runCP Xdialog -m DLGcp DLGcp
n203=dialog DLGcp {
n204= icon $mircdirdata\images\hsnw.ico, 0
n205= title $lng(200)
n206= size -1 -1 500 328
n207= icon $mircdirdata\images\hsnw.ico, 0
n208= list 1, 0 2 500 290, size, icon
n209= list 9, 0 286 500 25, size
n210= menu $lng(201), 2
n211= item $lng(202), 3, 2
n212= menu $lng(203), 4
n213= item $lng(204), 5, 4
n214= item $lng(205), 6, 4
n215= item $lng(206), 7, 4
n216= item $lng(207), 8, 4
n217= button "ok",10,700 700 1 1,ok,disabled,default
n218= button "size",11,700 700 10 10,hide
n219=}
n220=
n221=alias -l mdx.add inc %mdx.i | did -i $dname $4 1 seticon list 0 $3 | did -ia $dname $4 1 %mdx.i $1 $+ $chr(%mdx.char9~4) $+ $2
n222=alias -l mdx.load {
n223= if ($1 == 9) set %mdx.char9~4 9 | else set %mdx.char9~4 4
n224= did -r DLGcp 1
n225= did -i $dname 9 2 Click on an item
n226= set -u0 %mdx.i 0
n227= var %mdx.init = $mdx.add( [ [ $lng(209) ] ] ,$mircdirdata\mdx\cp_options.ico,1)
n228= var %mdx.init = $mdx.add( [ [ $lng(210) ] ] ,$mircdirdata\mdx\cp_connection.ico,1)
n229= var %mdx.init = $mdx.add( [ [ $lng(211) ] ] ,$mircdirdata\mdx\cp_channels.ico,1)
n230= var %mdx.init = $mdx.add( [ [ $lng(212) ] ] ,$mircdirdata\mdx\cp_themes.ico,1)
n231= var %mdx.init = $mdx.add( [ [ $lng(213) ] ] ,$mircdirdata\mdx\cp_media.ico,1)
n232= var %mdx.init = $mdx.add( [ [ $lng(214) ] ] ,$mircdirdata\mdx\cp_botmode.ico,1)
n233= var %mdx.init = $mdx.add( [ [ $lng(215) ] ] ,$mircdirdata\mdx\cp_benchmark.ico,1)
n234= var %mdx.init = $mdx.add( [ [ $lng(217) ] ] ,$mircdirdata\mdx\cp_ssm.ico,1)
n235= var %mdx.init = $mdx.add( [ [ $lng(218) ] ] ,$mircdirdata\mdx\cp_clipboard.ico,1)
n236= var %mdx.init = $mdx.add( [ [ $lng(219) ] ] ,$mircdirdata\mdx\cp_functionkeys.ico,1)
n237= var %mdx.init = $mdx.add( [ [ $lng(220) ] ] ,$mircdirdata\mdx\cp_cwhois.ico,1)
n238= var %mdx.init = $mdx.add( [ [ $lng(221) ] ] ,$mircdirdata\mdx\cp_stealth.ico,1)
n239= var %mdx.init = $mdx.add( [ [ $lng(222) ] ] ,$mircdirdata\mdx\cp_protection.ico,1)
n240= var %mdx.init = $mdx.add( [ [ $lng(223) ] ] ,$mircdirdata\mdx\cp_tnw.ico,1)
n241=}
n242=on *:DIALOG:DLGcp:init:*: {
n243= mdx MarkDialog $dname
n244= mdx SetControlMDX 1 ListView icon infotip autoarrange > $mircdirdata\mdx\views.mdx
n245= mdx SetControlMDX 9 StatusBar > $mircdirdata\mdx\bars.mdx
n246= mdx SetDialog $dname style title border sysmenu
n247= mdx SetControlMDX 11 positioner minbox size > $mircdirdata\mdx\dialog.mdx
n248= mdx.load
n249=}
n250=
n251=on *:DIALOG:DLGcp:sclick:11:if ($gettok($did(11),1,32) == sizing) { mdx MoveControl 1 * * $calc($gettok($did(11),6,32) - 8) $calc($gettok($did(11),7,32) - 70) | mdx MoveControl 9 0 $calc($dialog(DLGcp).h - 69) $calc($dialog(DLGcp).w - 7) 25 }
n252=
n253=on *:DIALOG:DLGcp:sclick:1:{
n254= did -i $dname 1 1 page event
n255= goto $gettok($did(DLGcp,1,1),3,32)
n256= :3 | did -i $dname 9 2 $gettok($lng(210),2,44) | halt
n257= :2 | did -i $dname 9 2 $gettok($lng(209),2,44) | halt
n258= :4 | did -i $dname 9 2 $gettok($lng(211),2,44) | halt
n259= :5 | did -i $dname 9 2 $gettok($lng(212),2,44) | halt
n260= :6 | did -i $dname 9 2 $gettok($lng(213),2,44) | halt
n261= :7 | did -i $dname 9 2 $gettok($lng(214),2,44) | halt
n262= ; :8 | did -i $dname 9 2 $gettok($lng(216),2,44) | halt
n263= :8 | did -i $dname 9 2 $gettok($lng(215),2,44) | halt
n264= :9 | did -i $dname 9 2 $gettok($lng(217),2,44) | halt
n265= :10 | did -i $dname 9 2 $gettok($lng(218),2,44) | halt
n266= :11 | did -i $dname 9 2 $gettok($lng(219),2,44) | halt
n267= :12 | did -i $dname 9 2 $gettok($lng(220),2,44) | halt
n268= :13 | did -i $dname 9 2 $gettok($lng(221),2,44) | halt
n269= :14 | did -i $dname 9 2 $gettok($lng(222),2,44) | halt
n270= :15 | did -i $dname 9 2 $gettok($lng(223),2,44) | halt
n271= :1 | did -i $dname 9 2 $lng(208) | halt
n272=}
n273=on *:DIALOG:DLGcp:dclick:1: { _runCP $did(1,1).sel }
n274=on *:DIALOG:DLGcp:menu:3: dialog -x $dname
n275=on *:DIALOG:DLGcp:menu:5: mdx SetMDXStyle 1 icon | mdx.load
n276=on *:DIALOG:DLGcp:menu:6: mdx SetMDXStyle 1 smallicon | mdx.load
n277=on *:DIALOG:DLGcp:menu:7: mdx SetMDXStyle 1 list | mdx.load
n278=on *:DIALOG:DLGcp:menu:8: mdx SetMDXStyle 1 report | did -i DLGcp 1 1 headerdims 100:1 350:2 | did -i DLGcp 1 1 headertext + 0 Name $+ $chr(9) $+ 0 Description | mdx.load 9
n279=alias -l _runCP {
n280= goto $1
n281= :3 | runOPTIONS 6 | .timerLS -m 1 100 load.groups&servers | halt
n282= :2 | runOPTIONS | halt
n283= :4 | runCHANNELS | halt
n284= :5 | runOPTIONS 10 | .timerST -m 1 500 show_theme | halt
n285= :6 | runMEDIA_LIST | halt
n286= :7 | runBOT | halt
n287= :8 | runBM | halt
n288= :9 | runSSM | halt
n289= :10 | runCB | halt
n290= :11 | runFK | halt
n291= :12 | runCEM | halt
n292= :13 | DLGmsg Under construction|This feature is not available yet | halt
n293= :14 | runOPTIONS 7 | halt
n294= :15 | if ($menu_tnw) runTNW | else DLGmsg Tweak NW|Tweak NW script is not loaded, load the script using the 'Module manager' (F6) or Start->Control Panel->Module manager, click on 'Script tweak' in list and click load. | halt
n295=
n296=}
n297=
n298=
n299=; HennesScript <NW> Benchmark
n300=;
n301=
n302=alias runBM Xdialog -m DLGbm DLGbm
n303=dialog DLGbm {
n304= title $lng(250)
n305= size -1 -1 161 145
n306= option dbu
n307= icon $mircdirdata\images\hsnw.ico, 0
n308= button $lng(OK), 1, 108 131 50 13, defaultm,ok
n309= box $lng(251), 2, 3 2 155 78
n310= text $lng(252), 3, 39 16 33 8
n311= edit "100MHz", 4, 72 16 50 10, read autohs
n312= text $lng(253), 5, 26 26 47 8
n313= edit "100Mhz", 6, 72 26 50 10, read autohs
n314= text $lng(254), 7, 20 36 52 8
n315= edit "100Mhz", 8, 72 36 50 10, read autohs
n316= text $lng(255), 9, 14 46 59 8
n317= edit "100MHz", 10, 72 46 50 10, read autohs
n318= text $lng(257), 11, 124 18 10 8
n319= text $lng(258), 12, 124 28 25 8
n320= text $lng(258), 13, 124 38 25 8
n321= edit "100MHZ", 14, 72 56 50 10, read autohs
n322= text $lng(256), 15, 8 56 64 8
n323= text $lng(259), 16, 124 48 23 8
n324= text $lng(260), 17, 124 58 21 8
n325= link $lng(INFO), 18, 8 69 9 8
n326= box $lng(262), 19, 3 83 155 45
n327= text $lng(263), 20, 33 93 37 8
n328= text $lng(264), 21, 37 103 37 8
n329= text $lng(265), 22, 23 113 47 8
n330= edit "", 23, 71 92 70 10, read autohs
n331= edit "", 24, 71 102 70 10, read autohs
n332= edit "", 25, 71 112 70 10, read autohs
n333=}
n334=
n335=
n336=on *:DIALOG:DLGbm:INIT:*:BMoutput
n337=
n338=alias -l BMoutput {
n339= did -ra $dname 4 $cpu(x)
n340= write -c $mircdirdata\temp\_bench.spd
n341= var %i = 1
n342= var %t.ticks = $ticks
n343= while (%i < 11) { write $mircdirdata\temp\_bench.spd 01010101 | inc %i }
n344= did -ra $dname 6 $round($calc(10 / (($ticks - %t.ticks) / 1000)),0)
n345= var %i = 1
n346= var %t.ticks = $ticks
n347= while (%i < 11) { var %t.var = $read -l $+ %i $mircdirdata\temp\_bench.spd | inc %i }
n348= did -ra $dname 8 $round($calc(10 / (($ticks - %t.ticks) / 1000)),0)
n349= var %t.ticks = $ticks
n350= var %i = 1
n351= while (%i < 11) { var %t.var. $+ %i = 01010101 | inc %i }
n352= did -ra $dname 10 $round($calc(10 / (($ticks - %t.ticks) / 1000)),0)
n353= var %t.ticks = $ticks
n354= var %i = 1
n355= while (%i < 11) { unset %t.var. $+ %i | inc %i }
n356= did -ra $dname 14 $round($calc(10 / (($ticks - %t.ticks) / 1000)),0)
n357= did -ra $dname 23 $uptime(system,1)
n358= did -ra $dname 24 $uptime(mirc,1)
n359= did -ra $dname 25 $uptime(server,1)
n360=}
n361=
n362=on *:DIALOG:DLGbm:sclick:18: DLGmsg Benchmar| $lng(266) $chr(124) $lng(267)
n363=on *:DIALOG:DLGbm:sclick:19: BMoutput
n364=
n365=; HennesScript <NW> Nicklist colors
n366=;
n367=
n368=alias runNICKCOLOR Xdialog -m DLGnc DLGnc
n369=dialog DLGnc {
n370= title $lng(300)
n371= size -1 -1 79 95
n372= option dbu
n373= icon $mircdirdata\images\hsnw.ico, 0
n374= box $lng(301), 2, 2 3 75 76
n375= text $lng(302), 3, 10 15 32 8
n376= text $lng(303), 4, 10 24 27 8
n377= text $lng(304), 5, 10 33 37 8
n378= text $lng(305), 6, 10 42 40 8
n379= text $lng(306), 7, 10 51 27 8
n380= icon 10, 50 15 12 6
n381= icon 11, 50 24 12 6
n382= icon 12, 50 33 12 6
n383= icon 13, 50 42 12 6
n384= icon 14, 50 51 12 6
n385= link $lng(307), 15, 8 67 45 9
n386= button $lng(DONE), 16, 30 82 45 12,ok
n387=}
n388=on *:DIALOG:DLGnc:init:*: load_nicklist_colors
n389=alias load_nicklist_colors did -g $dname 10 $mircdirdata\images\colors\code [ $+ [ %nicklist.color.owner ] $+ ] .bmp | did -g $dname 11 $mircdirdata\images\colors\code [ $+ [ %nicklist.color.host ] $+ ] .bmp | did -g $dname 12 $mircdirdata\images\colors\code [ $+ [ %nicklist.color.voice ] $+ ] .bmp | did -g $dname 13 $mircdirdata\images\colors\code [ $+ [ %nicklist.color.regular ] $+ ] .bmp | did -g $dname 14 $mircdirdata\images\colors\code [ $+ [ %nicklist.color.own ] $+ ] .bmp
n390=on *:DIALOG:DLGnc:sclick:*: if ($did >= 10) && ($did <= 14) { goto $did | :10 | set %nicklist.color.owner $returncolor | goto end | :11 | set %nicklist.color.host $returncolor | goto end | :12 | set %nicklist.color.voice $returncolor | goto end | :13 | set %nicklist.color.regular $returncolor | goto end | :14 | set %nicklist.color.own $returncolor | goto end | :end | load_nicklist_colors } | if ($did == 15) { load_default_nicklist | load_nicklist_colors } | if ($did == 16) { Xupdatenl 1 }
n391=alias -l load_default_nicklist set %nicklist.color.owner 2 | set %nicklist.color.host 10 | set %nicklist.color.voice 14 | set %nicklist.color.regular 1 | set %nicklist.color.own 12
n392=
n393=alias Xupdatenl {
n394= if ($1 == 1) {
n395= var %i = 1
n396= while ($chan(%i)) {
n397= var %i2 = 1
n398= while ($nick($chan(%i),%i2)) {
n399= if ($nick($chan(%i),%i2) isvo $chan(%i)) cline -l %nicklist.color.voice $chan(%i) %i2
n400= if ($nick($chan(%i),%i2) isop $chan(%i)) cline -l %nicklist.color.host $chan(%i) %i2
n401= if ($nick($chan(%i),%i2) isowner $chan(%i)) cline -l %nicklist.color.owner $chan(%i) %i2
n402= if ($nick($chan(%i),%i2) !isop $chan(%i)) && ($nick($chan(%i),%i2) !isvo $chan(%i)) cline -l %nicklist.color.regular $chan(%i) %i2
n403= if ($nick($chan(%i),%i2) == $me) cline -l %nicklist.color.own $chan(%i) %i2
n404= inc %i2
n405= }
n406= inc %i
n407= }
n408= }
n409= else {
n410= var %i = 1
n411= while ($nick($1,%i)) {
n412= if ($nick($1,%i) isvo $1) cline -l %nicklist.color.voice $1 %i
n413= if ($nick($1,%i) isop $1) cline -l %nicklist.color.host $1 %i
n414= if ($nick($1,%i) isowner $1) cline -l %nicklist.color.owner $1 %i
n415= if ($nick($1,%i) !isop $1) cline -l %nicklist.color.regular $1 %i
n416= if ($nick($1,%i) == $me) cline -l %nicklist.color.own $1 %i
n417= inc %i
n418= }
n419= }
n420=}
n421=
n422=; HennesScript <NW> Clipboard viewer
n423=;
n424=
n425=alias runCB Xdialog -m DLGcb DLGcb
n426=dialog DLGcb {
n427= title $lng(320)
n428= size -1 -1 160 148
n429= option dbu
n430= icon $mircdirdata\images\hsnw.ico, 0
n431= box $lng(321), 7, 2 2 156 120
n432= button $lng(CLOSE), 8, 62 125 45 12,ok
n433= edit "", 9, 5 10 148 108, multi return hsbar vsbar read
n434= menu $lng(322), 1
n435= item $lng(323), 2, 1
n436= item $lng(324), 3, 1
n437= menu $lng(325), 4
n438= item $lng(326), 5, 4
n439= item $lng(327), 6, 4
n440=}
n441=
n442=on *:DIALOG:DLGcb:init:*: cb_reload
n443=on *:DIALOG:DLGcb:menu:5: cb_reload
n444=on *:DIALOG:DLGcb:menu:6: did -r DLGcb 9 | clipboard [ [ $chr(32) ] ]
n445=on *:DIALOG:DLGcb:menu:3: dialog -x DLGcb
n446=on *:DIALOG:DLGcb:menu:2: savebuf -o DLGcb 9 logs\cb_buffer.txt | DLGmsg $lng(328)
n447=
n448=alias -l cb_reload did -r DLGcb 9 | var %i = 1 | while (%i <= $cb(0)) { did -a DLGcb 9 $cb(%i) $+ $crlf $+ | inc %i }
n449=
n450=; HennesScript <NW> Function keys
n451=;
n452=
n453=alias runFK Xdialog -m DLGfk DLGfk
n454=dialog DLGfk {
n455= title "Configure function keys"
n456= size -1 -1 195 148
n457= option dbu
n458= icon $mircdirdata\images\hsnw.ico, 0
n459= box "Function keys", 1, 3 4 148 118
n460= button "Change", 2, 154 7 37 12
n461= button "Clear", 3, 154 21 37 12
n462= button "Default", 4, 154 44 37 12
n463= box "", 5, -5 125 226 4
n464= button "Done", 6, 147 133 45 12,ok
n465= list 7, 7 12 139 106, size
n466=}
n467=
n468=on *:DIALOG:DLGfk:init:*: mdx MarkDialog $dname | mdx SetControlMDX 7 ListView report > $mircdirdata\mdx\views.mdx | mdx SetMDXStyle 1 report | did -i DLGfk 7 1 headerdims 120:1 350:2 | did -i DLGfk 7 1 headertext + 0 Key $+ $chr(9) $+ 0 Command(s) | fkeys_reload
n469=on *:DIALOG:DLGfk:sclick:2: {
n470= did -i $dname 7 1 page event
n471= if ($calc($gettok($did($dname,7,1),3,32) - 1) <= 12) { writeini $mircdirdata\fkeys.ini FKEYS F $+ $calc($gettok($did($dname,7,1),3,32) - 1) $input(Enter new command for: F $+ $calc($gettok($did($dname,7,1),3,32) - 1),1,Function keys,(none)) | goto end }
n472= if ($calc($gettok($did($dname,7,1),3,32) - 1) <= 24) { writeini $mircdirdata\fkeys.ini FKEYS sF $+ $calc($gettok($did($dname,7,1),3,32) - 13) $input(Enter new command for: Shift + F $+ $calc($gettok($did($dname,7,1),3,32) - 13),1,Function keys,(none)) | goto end }
n473= if ($calc($gettok($did($dname,7,1),3,32) - 1) <= 36) { writeini $mircdirdata\fkeys.ini FKEYS cF $+ $calc($gettok($did($dname,7,1),3,32) - 25) $input(Enter new command for: Control + F $+ $calc($gettok($did($dname,7,1),3,32) - 25),1,Function keys,(none)) | goto end }
n474= :end | fkeys_reload
n475=}
n476=on *:DIALOG:DLGfk:sclick:3: {
n477= did -i $dname 7 1 page event
n478= if ($calc($gettok($did($dname,7,1),3,32) - 1) <= 12) { writeini $mircdirdata\fkeys.ini FKEYS F $+ $calc($gettok($did($dname,7,1),3,32) - 1) (none) | goto end }
n479= if ($calc($gettok($did($dname,7,1),3,32) - 1) <= 24) { writeini $mircdirdata\fkeys.ini FKEYS sF $+ $calc($gettok($did($dname,7,1),3,32) - 13) (none) | goto end }
n480= if ($calc($gettok($did($dname,7,1),3,32) - 1) <= 36) { writeini $mircdirdata\fkeys.ini FKEYS cF $+ $calc($gettok($did($dname,7,1),3,32) - 25) (none) | goto end }
n481= :end | fkeys_reload
n482=}
n483=
n484=alias fkeys_reload {
n485= var %t.lines = $calc($lines($mircdirdata\fkeys.ini) - 1)
n486= _load [Function key manager]...
n487= did -r $dname 7 | mdx SetMDXStyle 1 report | did -i DLGfk 7 1 headerdims 120:1 350:2 | did -i DLGfk 7 1 headertext + 0 Key $+ $chr(9) $+ 0 Command(s)
n488= var %i = 1 | set %mdx.i 0 | set %mdx.char9~4 9 | while ($readini $mircdirdata\fkeys.ini fkeys F [ $+ [ %i ] ] != $null) { _loadcheck %i %t.lines | var %t.read = $readini $mircdirdata\fkeys.ini fkeys F [ $+ [ %i ] ] | var %mdx.init = $mdx.add(F [ $+ [ %i ] ] ,%t.read,$mircdirdata\mdx\cp_functionkeys.ico,7) | inc %i }
n489= var %i = 1 | while ($readini $mircdirdata\fkeys.ini fkeys sF [ $+ [ %i ] ] != $null) { _loadcheck $calc(%i + 12) %t.lines | var %t.read = $readini $mircdirdata\fkeys.ini fkeys [ sF $+ [ %i ] ] | var %mdx.init = $mdx.add(Shift + F [ $+ [ %i ] ] ,%t.read,$mircdirdata\mdx\cp_functionkeys.ico,7) | inc %i }
n490= var %i = 1 | while ($readini $mircdirdata\fkeys.ini fkeys cF [ $+ [ %i ] ] != $null) { _loadcheck $calC(%i + 24) %t.lines | var %t.read = $readini $mircdirdata\fkeys.ini fkeys cF [ $+ [ %i ] ] | var %mdx.init = $mdx.add(Control + F [ $+ [ %i ] ] ,%t.read,$mircdirdata\mdx\cp_functionkeys.ico,7) | inc %i }
n491=}
n492=
n493=; HennesScript <NW> CEM
n494=;
n495=
n496=alias runCEM Xdialog -m DLGcem DLGcem
n497=dialog DLGcem {
n498= title "Country extention manager"
n499= size -1 -1 164 164
n500= option dbu
n501= icon $mircdirdata\images\hsnw.ico, 0
n502= edit "", 1, 57 13 50 10, autohs
n503= box "Add/edit country", 2, 2 3 112 36
n504= text "Country name:", 3, 8 14 34 8
n505= text "Country extention:", 4, 8 23 45 8
n506= edit "", 5, 57 22 50 10, autohs
n507= button "Add", 6, 117 7 45 12
n508= box "Countries", 7, 2 41 112 101
n509= box "", 8, -12 144 181 4
n510= button "Done", 9, 117 151 45 12,ok
n511= button "Edit", 10, 117 47 45 12
n512= button "Delete", 11, 117 61 45 12
n513= list 12, 6 49 104 89, size
n514= link "Country extention editor?", 13, 5 152 76 8
n515=}
n516=
n517=on *:DIALOG:DLGcem:init:*: mdx MarkDialog $dname | mdx SetControlMDX 12 ListView report > $mircdirdata\mdx\views.mdx | mdx SetMDXStyle 12 report | did -i $dname 12 1 headerdims 120:1 60:2 | did -i $dname 12 1 headertext + 0 Country $+ $chr(9) $+ 0 Extention | cem_reload
n518=alias cem_reload {
n519= did -r $dname 12 | mdx SetMDXStyle 12 report | did -i $dname 12 1 headerdims 120:1 60:2 | did -i $dname 12 1 headertext + 0 Country $+ $chr(9) $+ 0 Extention
n520= _load [Country extention manager]... | var %t.lines = $calc($lines($mircdirdata\countries.ini) - 1)
n521= var %i = 2 | set %mdx.i 0 | set %mdx.char9~4 9 | while ($remove($read -l $+ %i $mircdirdata\countries.ini,&) != $null) { _loadcheck %i %t.lines | var %t.read = $readini $mircdirdata\countries.ini countries $gettok($read -l $+ %i $mircdirdata\countries.ini,1,61) | var %mdx.init = $mdx.add(%t.read,$gettok($read -l $+ %i $mircdirdata\countries.ini,1,61),$mircdirdata\mdx\cp_cwhois.ico,12) | inc %i }
n522=}
n523=on *:DIALOG:DLGcem:sclick:6: if ($did($dname,1)) && ($did($dname,5)) writeini -n $mircdirdata\countries.ini countries $did($dname,5) $did($dname,1) | cem_relead
n524=on *:DIALOG:DLGcem:sclick:10: did -i $dname 12 1 page event | if ($gettok($did($dname,12,1),1,32) == sclick) { did -ra $dname 5 $gettok($gettok($did(DLGcem,12,4).seltext,2,9),5,32) | did -ra $dname 1 $readini $mircdirdata\countries.ini countries $gettok($gettok($did(DLGcem,12,4).seltext,2,9),5,32) }
n525=on *:DIALOG:DLGcem:sclick:11: remini $mircdirdata\countries.ini countries $gettok($gettok($did(DLGcem,12,4).seltext,2,9),5,32) | cem_reload
n526=on *:DIALOG:DLGcem:sclick:13: DLGmsg Country extention editor|When you do /whois on someone, the script will try to find out from which country the user is, using the extention from the address of the users dns.
n527=
n528=dialog DLGslinks {
n529= title "Server links"
n530= size -1 -1 272 151
n531= option dbu
n532= list 1, -1 0 273 135, size
n533= button "Connect", 3, 178 137 45 12
n534= button "Close", 4, 226 137 45 12, cancel
n535=}
n536=raw 364:*: haltdef | if (!$dialog(DLGslinks)) Xdialog -m DLGslinks DLGslinks | did -a DLGslinks 1 0 0 0 $2 $+ $chr(9) $+ 0 0 0 $3 $+ $chr(9) $+ 0 0 0 $4 $+ $chr(9) $+ 0 0 0 $5-
n537=raw 365:*: haltdef | halt
n538=on *:DIALOG:DLGslinks:init:*: mdx MarkDialog $dname | mdx SetControlMDX 1 ListView report grid > $mircdirdata\mdx\views.mdx | did -i $dname 1 1 headerdims 120:1 140:2 40:3 223:4 | did -i $dname 1 1 headertext + 0 Server address $+ $chr(9) $+ 0 hub $+ $chr(9) $+ 0 Hops $+ $chr(9) $+ 0 Description
n539=on *:DIALOG:DLGslinks:sclick:3: if ($did($dname,1).seltext) server $gettok($gettok($did(DLGslinks,1).seltext,6,32),1,9)
n540=
n541=alias runASCIItable Xdialog -m DLGascii DLGascii
n542=
n543=dialog DLGascii {
n544= title "ASCII Table"
n545= size -1 -1 200 156
n546= option dbu
n547= list 1, 153 5 46 118, size vsbar
n548= box "", 2, -43 137 250 66
n549= button "Done", 3, 153 143 45 12, ok
n550= button "Copy", 4, 153 125 45 12
n551= box "Converter", 5, 2 3 149 60
n552= edit "97", 6, 24 16 20 10, autohs center
n553= button "Convert", 10, 6 29 37 12
n554= radio "Character to ASCII code", 11, 61 16 70 10
n555= radio "ASCII code to character", 12, 61 27 70 10
n556= text "Input:", 13, 7 17 14 8
n557= text "Result:", 14, 70 45 17 8
n558= edit "a", 15, 90 44 28 10, read autohs center
n559= link "Big empty space", 16, 60 97 55 8
n560=}
n561=
n562=on *:DIALOG:DLGascii:init:*: {
n563= mdx MarkDialog $dname
n564= mdx SetFont 1 -8 400 fixedsys
n565= var %i = 1
n566= while (%i != 256) { if (%i == 32) inc %i | did -a $dname 1 $chr(%i) Â %i | inc %i }
n567= did -c $dname 11
n568=}
n569=
n570=on *:DIALOG:DLGascii:sclick:16: DLGmsg Big empty space|Yes, this is a big empty space!|Details about a big empty space?
n571=on *:DIALOG:DLGascii:sclick:10: if (!$did($dname,11).state) did -ra $dname 15 $chr($did($dname,6)) | else did -ra $dname 15 $asc($did($dname,6))
n572=on *:DIALOG:DLGascii:sclick:4: clipboard $gettok($did($dname,1).seltext,1,32)
n573=
n574=on *:PART:#: if ($nick(#,0) > 250) && ($hget(#,29)) { hadd -m # 29 0 | hadd -m # 30 0 }