/ScriptServ

[script]
n0=; HennesScript <NW> Options
n1=;
n2=
n3=alias runOPTIONS { Xdialog -m DLGoptions DLGoptions | if ($1) did -c DLGoptions $1 }
n4=
n5=dialog DLGoptions {
n6=  title "Options"
n7=  size -1 -1 304 166
n8=  option dbu
n9=  tab "General", 5, 3 0 298 149
n10=  check "Private messages", 31, 226 102 55 10, tab 5
n11=  box "Ignore", 144, 221 93 74 50, tab 5
n12=  check "Invites", 145, 226 111 50 10, tab 5
n13=  check "CTCP", 149, 226 120 50 10, tab 5
n14=  check "Notices", 150, 226 129 50 10, tab 5
n15=  check "Return whois in status", 151, 14 111 69 10, tab 5
n16=  check "Show clones", 152, 129 102 50 10, tab 5
n17=  check "Show 'who was'", 153, 129 112 67 9, tab 5
n18=  box "When someone joins...", 154, 124 93 93 50, tab 5
n19=  check "Show channels", 155, 129 121 63 10, tab 5
n20=  check "Enable lag sensor", 156, 14 75 58 10, tab 5
n21=  text "Set version reply to:", 157, 125 76 51 8, tab 5
n22=  combo 158, 179 74 116 90, tab 5 size drop
n23=  check "Show raw codes in status", 159, 14 84 76 10, tab 5
n24=  box "Note", 160, 11 19 284 46, tab 5
n25=  text "To some people this script may look small because it hasn't got many popups, but most functions have been", 161, 17 28 258 8, tab 5
n26=  text "converted from popup menu to dialog, and many functions aren't even loaded by default. This script has most of the", 162, 17 35 274 8, tab 5
n27=  text "big features seperated in unloaded files, to use these big features, load them using the module manager.", 163, 17 42 260 8, tab 5
n28=  link "Click here to run the module manager", 164, 186 53 95 8, tab 5
n29=  check "Rejoin when a channel is empty", 165, 14 93 96 10, tab 5
n30=  check "Show insecure menu's", 166, 14 102 63 10, tab 5
n31=  link "info", 167, 78 104 9 8, tab 5
n32=  tab "Connection", 6
n33=  box "Server settings", 107, 13 20 153 66, tab 6
n34=  text "Group:", 108, 18 30 20 7, tab 6
n35=  text "Server:", 109, 18 44 20 7, tab 6
n36=  combo 110, 43 30 118 112, tab 6 drop
n37=  combo 111, 43 43 118 85, tab 6 drop
n38=  button "Add", 112, 43 55 39 11, tab 6
n39=  button "Delete", 113, 123 55 38 11, tab 6
n40=  button "Edit", 114, 83 55 39 11, tab 6
n41=  box "User info:", 115, 13 89 153 52, tab 6
n42=  text "Nickname:", 116, 18 100 28 7, tab 6
n43=  text "Alternative:", 117, 18 110 28 7, tab 6
n44=  text "User ID:", 118, 18 120 24 7, tab 6
n45=  edit "nwUser", 119, 48 120 40 10, tab 6 autohs
n46=  edit "NoName2", 120, 48 110 51 10, tab 6 autohs
n47=  edit "NoName", 121, 48 100 51 10, tab 6 autohs
n48=  box "Firewall settings", 122, 170 20 125 66, tab 6
n49=  check "Connect through firewall", 123, 45 70 107 13, tab 6
n50=  text "Protocol:", 124, 173 30 24 7, tab 6
n51=  combo 125, 203 30 49 29, tab 6 drop
n52=  text "Hostname:", 126, 173 40 28 7, tab 6
n53=  text "User ID:", 127, 173 50 24 7, tab 6
n54=  text "Password:", 128, 173 60 27 7, tab 6
n55=  edit "my.socks.com", 129, 203 40 40 10, tab 6 autohs
n56=  edit "login", 130, 203 50 40 10, tab 6 autohs
n57=  edit "", 131, 203 60 40 10, tab 6 pass autohs
n58=  text "Port:", 132, 248 42 13 9, tab 6
n59=  edit "1080", 133, 263 40 21 10, tab 6 autohs
n60=  check "Initiate DCCs through firewall", 134, 178 73 112 9, tab 6
n61=  check "Invisible (+i)", 135, 113 100 45 8, tab 6
n62=  check "Wallops (+w)", 136, 113 110 45 8, tab 6
n63=  check "Notices (+n)", 137, 113 120 45 8, tab 6
n64=  button "Connect", 138, 208 111 60 14, tab 6
n65=  button "Disconnect", 139, 208 111 60 14, hide tab 6
n66=  text "Loading servers... 0%", 140, 198 135 85 8, tab 6
n67=  tab "Protection", 7
n68=  box "Protections", 38, 13 20 105 95, tab 7
n69=  check "Rejoin channel when kicked", 39, 18 30 90 8, tab 7
n70=  check "try revenge", 40, 28 39 38 8, tab 7
n71=  check "Regain owner when deownered", 41, 18 60 91 8, tab 7
n72=  check "try revenge", 42, 27 69 41 8, tab 7
n73=  check "Regain ops when deopped", 43, 18 90 91 8, tab 7
n74=  check "try revenge", 44, 27 99 43 8, tab 7
n75=  box "Flood protection", 45, 123 20 171 109, tab 7
n76=  check "Private msg", 46, 128 30 39 8, tab 7
n77=  check "Public msg", 47, 128 40 39 8, tab 7
n78=  check "Notice", 48, 128 50 30 8, tab 7
n79=  check "CTCP", 49, 128 60 30 8, tab 7
n80=  check "DCC", 50, 128 70 30 8, tab 7
n81=  check "Invite", 51, 128 80 30 8, tab 7
n82=  check "Queries", 52, 128 90 30 8, tab 7
n83=  check "Global", 53, 128 100 30 8, tab 7
n84=  text "max:", 54, 178 30 13 7, tab 7
n85=  text "max:", 55, 178 40 14 7, tab 7
n86=  text "max:", 56, 178 50 14 7, tab 7
n87=  text "max:", 57, 178 60 13 7, tab 7
n88=  text "max:", 58, 178 70 14 7, tab 7
n89=  text "max:", 59, 178 80 14 7, tab 7
n90=  text "max:", 60, 178 90 14 7, tab 7
n91=  text "max:", 61, 178 100 14 7, tab 7
n92=  edit "5", 62, 193 30 19 10, tab 7 center
n93=  edit "10", 63, 193 40 19 10, tab 7 center
n94=  edit "5", 64, 193 50 19 10, tab 7 center
n95=  edit "3", 65, 193 60 19 10, tab 7 center
n96=  edit "3", 66, 193 70 19 10, tab 7 center
n97=  edit "3", 67, 193 80 19 10, tab 7 center
n98=  edit "3", 68, 193 90 19 10, tab 7 center
n99=  edit "5", 69, 193 100 19 10, tab 7 center
n100=  text "within:", 70, 213 30 19 7, tab 7
n101=  text "within:", 71, 213 40 18 7, tab 7
n102=  text "within:", 72, 213 50 18 7, tab 7
n103=  text "within:", 73, 213 60 17 7, tab 7
n104=  text "within:", 74, 213 70 18 7, tab 7
n105=  text "within:", 75, 213 80 19 7, tab 7
n106=  text "within:", 76, 213 90 18 7, tab 7
n107=  text "within:", 77, 213 100 18 7, tab 7
n108=  edit "5", 78, 233 30 20 10, tab 7 center
n109=  edit "5", 79, 233 40 20 10, tab 7 center
n110=  edit "5", 80, 233 50 20 10, tab 7 center
n111=  edit "5", 81, 233 60 20 10, tab 7 center
n112=  edit "5", 82, 233 70 20 10, tab 7 center
n113=  edit "5", 83, 233 80 20 10, tab 7 center
n114=  edit "5", 84, 233 90 20 10, tab 7 center
n115=  edit "4", 85, 233 100 20 10, tab 7 center
n116=  text "seconds", 86, 258 30 24 7, tab 7
n117=  text "seconds", 87, 258 40 24 7, tab 7
n118=  text "seconds", 88, 258 50 24 7, tab 7
n119=  text "seconds", 89, 258 60 24 7, tab 7
n120=  text "seconds", 90, 258 70 24 7, tab 7
n121=  text "seconds", 91, 258 80 24 7, tab 7
n122=  text "seconds", 92, 258 90 24 7, tab 7
n123=  text "seconds", 93, 258 100 24 7, tab 7
n124=  text "When flood detected, ignore person for:", 94, 128 115 104 7, tab 7
n125=  edit "60", 95, 226 115 18 10, tab 7 center
n126=  text "seconds", 96, 248 115 24 7, tab 7
n127=  check "Add access when you are ownered", 97, 13 120 104 8, tab 7
n128=  check "Add access when you are opped", 98, 13 130 104 8, tab 7
n129=  box "", 179, 13 49 105 35, tab 7
n130=  tab "Spam", 8
n131=  check "When you join a channel, ignore notices for:", 168, 14 26 117 10, tab 8
n132=  edit "12", 169, 129 26 21 10, tab 8 autohs center
n133=  text "seconds.", 170, 152 28 22 8, tab 8
n134=  box "Spam words", 171, 14 48 277 93, tab 8
n135=  edit "", 172, 158 61 77 10, tab 8 autohs
n136=  list 173, 158 71 77 66, tab 8 size
n137=  button "Add", 174, 239 60 45 12, tab 8
n138=  button "Remove", 175, 239 75 45 12, tab 8
n139=  check "Send anti-spam reply:", 176, 20 72 65 10, tab 8
n140=  edit "<no spam>Spamming is lame</no spam>", 177, 28 82 103 10, tab 8 autohs
n141=  check "Ignore all notices containing spam words", 178, 20 61 113 10, tab 8
n142=  check "Never ignore (seperated by spaces):", 194, 20 105 112 10, tab 8
n143=  edit "Nicksers Chanserv Memoserv", 195, 28 115 103 10, tab 8 autohs
n144=  tab "Language", 9
n145=  box "Language system", 180, 9 19 285 52, tab 9
n146=  text "HennesScript is a multi-language script, it has the possiblity to load different language files. You can select your", 181, 16 29 260 7, tab 9
n147=  text "language (if listed) in the language list below and click load the load the specified language. If you don't see your", 182, 16 36 264 7, tab 9
n148=  text "language listed below, but you do want HennesScript to be available in yuor language, it is possible to write your own", 183, 16 43 275 7, tab 9
n149=  text "language file, click", 184, 16 50 44 7, tab 9
n150=  text "to open the english language file, rename it to your own language and start converting.", 185, 75 50 204 7, tab 9
n151=  text "After you are done with writing your own language, you can send it to HennesScript@planet.nl and it will be added.", 186, 16 57 270 8, tab 9
n152=  link "here", 187, 62 50 11 8, tab 9
n153=  box "Select language", 188, 10 74 284 68, tab 9
n154=  list 189, 14 83 71 56, tab 9 size
n155=  button "Load", 190, 88 83 45 12, tab 9
n156=  box "Author info:", 191, 143 82 144 55, tab 9
n157=  edit "", 192, 147 91 135 41, tab 9 read multi vsbar
n158=  tab "Themes", 10
n159=  box "Themes settings", 141, 7 17 117 127, tab 10
n160=  link "Open theme folder folder", 148, 44 54 65 9, tab 10
n161=  check "Timestamp enabled", 146, 14 132 63 8, disable tab 10
n162=  link "Adjust window", 200, 80 132 40 8, tab 10
n163=  edit "", 147, 11 73 109 54, tab 10 read multi return vsbar
n164=  combo 142, 39 28 79 209, tab 10 size vsbar drop
n165=  text "Scheme:", 1, 12 40 25 8, tab 10
n166=  combo 11, 39 40 79 433, tab 10 size vsbar drop
n167=  text "Theme:", 500, 12 29 25 8, tab 10
n168=  box "", 600, 127 17 167 127, tab 10
n169=  tab "Talkers", 12
n170=  check "Enable talkers (input replacement)", 24, 13 22 90 8, tab 12
n171=  box "Talker preview:", 25, 8 125 289 20, tab 12
n172=  combo 26, 195 22 80 100, tab 12 drop
n173=  text "Select a talker style:", 27, 142 24 51 7, tab 12
n174=  box "Extra talker options", 28, 8 38 289 84, tab 12
n175=  list 29, 153 49 108 68, tab 12 size vsbar
n176=  button "Add", 30, 97 99 45 13, tab 12
n177=  button "Delete", 32, 264 99 29 13, tab 12
n178=  box "Add talker", 33, 12 47 136 70, tab 12
n179=  text "Example: Hello -> ~!~ Hellø ~!~", 34, 18 60 123 7, tab 12
n180=  edit "Example", 35, 18 70 51 10, tab 12 autohs
n181=  edit "12Example", 36, 81 70 62 10, tab 12 autohs
n182=  text "->", 37, 73 72 7 7, tab 12
n183=  tab "Highlighting", 14
n184=  check "Enable highlighting", 15, 13 22 56 8, tab 14
n185=  check "Use highlighting sound", 16, 13 32 63 8, tab 14
n186=  edit "C:\Program files\NSIP\Sounds\hl_sound1.wav", 17, 23 42 100 10, tab 14 autohs
n187=  button "Browse...", 18, 128 42 42 11, tab 14
n188=  box "Highlight nicks", 19, 13 62 158 80, tab 14
n189=  list 20, 18 72 105 74, tab 14 vsbar
n190=  button "Add...", 21, 128 72 29 13, tab 14
n191=  button "Edit...", 22, 128 87 29 13, tab 14
n192=  button "Delete", 23, 128 102 29 13, tab 14
n193=  button "Test", 99, 173 42 42 11, tab 14
n194=  button "Cancel", 2, 223 152 38 12, cancel
n195=  button "OK", 3, 181 152 40 12, default ok
n196=  button "Apply", 4, 263 152 39 12
n197=}
n198=
n199=on *:DIALOG:DLGoptions:sclick:193: load_sel_themes | show_theme
n200=on *:DIALOG:DLGoptions:sclick:200: set %XP $iif(%XP,0,1)
n201=
n202=alias -l load_sel_themes {
n203=  did -r $dname 142 
n204=  var %x = $findfile(themes\mts\,*.mts,0,3,did -a $dname 142 $remove($nopath($1-),.mts)) 
n205=  var %i = 1 
n206=  while ($did(DLGoptions,142,%i).text) { if ($did(DLGoptions,142,%i).text $+ .mts == $nopath(%cache.last_mts_theme)) did -c DLGoptions 142 %i | inc %i }
n207=  did -ra $dname 141 Themes ( $+ $did(DLGoptions,142).lines $+ )
n208=}
n209=
n210=
n211=on *:DIALOG:DLGoptions:sclick:164: runSSM
n212=on *:DIALOG:DLGoptions:sclick:167: DLGmsg Insecure menu's|Showing insecure menu's means that commands like -q, without access clearing and ownerkey changing will be displayed.|If there is a [s] sign in a menu, that means that it is a secure version of the function.
n213=on *:DIALOG:DLGoptions:sclick:148: .run themes\mts
n214=on *:DIALOG:DLGoptions:sclick:138:{ if (!$server) {
n215=    if ($did(DLGoptions,110).seltext == Undefined) server $gettok($did(DLGoptions,111).seltext,1,58) $+ $gettok($did(DLGoptions,111).seltext,2,58) $+ $gettok($did(DLGoptions,111).seltext,3,58)
n216=    else server $gettok($did(DLGoptions,111).seltext,2,58) $+ $gettok($did(DLGoptions,111).seltext,3,58) $+ $gettok($did(DLGoptions,111).seltext,4,58)
n217=} }
n218=
n219=on *:DIALOG:DLGoptions:sclick:139: if ($server) quit
n220=on *:DIALOG:DLGoptions:sclick:123: did $iif($did(DLGoptions,123).state,-e,-b) DLGoptions 122,124,125,126,127,128,129,130,131,132,133,134
n221=on *:DIALOG:DLGoptions:sclick:39: did $iif($did(DLGoptions,39).state,-e,-b) DLGoptions 40
n222=on *:DIALOG:DLGoptions:sclick:41: did $iif($did(DLGoptions,41).state,-e,-b) DLGoptions 42
n223=on *:DIALOG:DLGoptions:sclick:43: did $iif($did(DLGoptions,43).state,-e,-b) DLGoptions 44
n224=on *:DIALOG:DLGoptions:sclick:46: did $iif($did(DLGoptions,46).state,-e,-b) DLGoptions 54,62,70,78,86
n225=on *:DIALOG:DLGoptions:sclick:47: did $iif($did(DLGoptions,47).state,-e,-b) DLGoptions 55,63,71,79,87
n226=on *:DIALOG:DLGoptions:sclick:48: did $iif($did(DLGoptions,48).state,-e,-b) DLGoptions 56,64,72,80,88
n227=on *:DIALOG:DLGoptions:sclick:49: did $iif($did(DLGoptions,49).state,-e,-b) DLGoptions 57,65,73,81,89
n228=on *:DIALOG:DLGoptions:sclick:50: did $iif($did(DLGoptions,50).state,-e,-b) DLGoptions 58,66,74,82,90
n229=on *:DIALOG:DLGoptions:sclick:51: did $iif($did(DLGoptions,51).state,-e,-b) DLGoptions 59,67,75,83,91
n230=on *:DIALOG:DLGoptions:sclick:52: did $iif($did(DLGoptions,52).state,-e,-b) DLGoptions 60,68,76,84,92
n231=on *:DIALOG:DLGoptions:sclick:53: did $iif($did(DLGoptions,53).state,-e,-b) DLGoptions 61,69,77,85,93
n232=
n233=on *:DIALOG:DLGoptions:init:*:{ 
n234=  mdx MarkDialog $dname
n235=  mdx SetControlMDX 140 ProgressBar > $mircdirdata\mdx\ctl_gen.mdx
n236=  Xset settings option.slist.isloaded X
n237=  did -c $dname 11 %cache.scheme
n238=  did -a $dname 158 %cache.version
n239=  did -a $dname 158 $data(x).script $data(x).version-full $data(x).url-c
n240=  did -a $dname 158 BitchX-75p2+/OpenBSD 2.5 :(c)rackrock/bX [3.0.1á9] : Keep it to yourself!
n241=  did -a $dname 158 BitchX-75p2+/Linux 2.0.32 :(c)rackrock/bX [3.0.1á9] : Keep it to yourself!
n242=  did -a $dname 158 Running KVirc 0.9.0 by Szymon 'Pragma@ircnet' Stefanek <kvirc@tin.it>
n243=  did -a $dname 158 X-Chat 1.0.0 By ZED - Linux 2.2.5-15 [i586/500MHz]: http://xchat.linuxpower.org 
n244=  did -a $dname 158 Ircle 3.0b10 US PPC 01/08/1998 01:53:57 AM. #223C2B61E3D
n245=  did -a $dname 158 mIRC32 v5.6 K.Mardam-Bey
n246=  did -a $dname 158 mIRC32 v5.7 K.Mardam-Bey
n247=  did -a $dname 158 mIRC32 v5.82 K.Mardam-Bey 
n248=  did -a $dname 158 mIRC32 v5.9 K.Mardam-Bey 
n249=  did -a $dname 158 mIRC32 v5.91 K.Mardam-Bey 
n250=  did -a $dname 158 mIRC32 v6.0 K.Mardam-Bey 
n251=  did -a $dname 158 ircN 7.11 + 7.0 - everyone i know goes away in the end - 
n252=  did -a $dname 158 PIRCH98:WIN 95/98/WIN NT:1.0 (build 1.0.1.1190)
n253=  did -a $dname 158 Microsoft V-Chat, Version 2.0.0220
n254=  did -a $dname 158 Microsoft Chat 2.5 (4.71.2302) (text mode)
n255=  did -a $dname 158 eggdrop v1.3.28+prerelease-v2
n256=  did -c $dname 158 1
n257=  did $iif($server,-v,-h) DLGoptions 138
n258=  did $iif(!$server,-v,-h) DLGoptions 139
n259=  if (%option.clonescan) did -c $dname 152
n260=  if (%option.who_was) did -c $dname 153
n261=  if (%option.ignore_pm) did -c $dname 31
n262=  if (%option.nospam) did -c $dname 178
n263=  if ($gettok(%option.nospamreply,1,32)) did -c $dname 176
n264=  did -ra $dname 177 $gettok(%option.nospamreply,2-,32)
n265=  if ($group(#raw.show) == on) did -c $dname 159 
n266=  if ($timer(lc)) did -c $dname 156
n267=  if (%option.rejoin) did -c $dname 165
n268=  if (%menu.insecure) did -c $dname 166
n269=  if (!%option.whois.active) did -c $dname 151
n270=  if (%whois.oj_enabled) did -c $dname 155
n271=  if (%option.ignore_ctcp) did -c $dname 149
n272=  if (%option.ignore_invites) did -c $dname 145
n273=  if (%option.ignore_notices) did -c $dname 150
n274=  if ($gettok(%option.onjoin_notice_ignore,1,32)) did -c $dname 168
n275=  did -ra $dname 169 $gettok(%option.onjoin_notice_ignore,2-,32)
n276=  did -a DLGoptions 26 Color mode
n277=  did -a DLGoptions 26 Gothic mode
n278=  did -a DLGoptions 26 Freaky bold mode
n279=  did -a DLGoptions 26 Freaky caps mode
n280=  did -a DLGoptions 26 Freaky underline mode
n281=  did -a DLGoptions 26 Hackerz style
n282=  did -a DLGoptions 26 l33t mode
n283=  did -a DLGoptions 26 Reverse mode
n284=  did -a DLGoptions 26 Bold+Colour+Reverse
n285=  did -a DLGoptions 26 1 out of 10 blue
n286=  did -a DLGoptions 26 Extra mode
n287=  did -c DLGoptions 26 %option.talker.sel
n288=  if (%option.talker.enable) did -c DLGoptions 24
n289=  if ($did(DLGoptions,24).state) { did -e DLGoptions 26,27 | if ($did(DLGoptions,26).sel == 11)  did -e DLGoptions 28,29,30,32,33,34,35,36,37 } | else did -b DLGoptions 26,27,28,29,30,32,33,34,35,36,37
n290=  did -b DLGoptions 28,29,30,32,33,34,35,36,37 | if ($did(DLGoptions,26).sel == 11) did -e DLGoptions 28,29,30,32,33,34,35,36,37 
n291=  refresh.spamw
n292=  refresh.hl
n293=  refresh.talker 
n294=  if (!$Xr(settings,option.server.firewall)) { did -b DLGoptions 122,124,125,126,127,128,129,130,131,132,133,134 | did -u DLGoptions 123 }
n295=  if ($Xr(settings,option.server.firewall)) { did -e DLGoptions 122,124,125,126,127,128,129,130,131,132,133,134 | did -c DLGoptions 123 }
n296=  did -a DLGoptions 125 SOCKS4
n297=  did -a DLGoptions 125 SOCKS5
n298=  did -a DLGoptions 125 PROXY
n299=  did -c DLGoptions 125 $Xr(settings,option.server.firewall.protocol)
n300=  if ($group(#option.fp.46) == On) { did -c DLGoptions 46 }
n301=  if ($group(#option.fp.47) == On) { did -c DLGoptions 47 }
n302=  if ($group(#option.fp.48) == On) { did -c DLGoptions 48 }
n303=  if ($group(#option.fp.49) == On) { did -c DLGoptions 49 }
n304=  if ($group(#option.fp.50) == On) { did -c DLGoptions 50 }
n305=  if ($group(#option.fp.51) == On) { did -c DLGoptions 51 }
n306=  if (%option.fp.query) { did -c DLGoptions 52 }
n307=  if ($group(#option.fp.53) == On) { did -c DLGoptions 53 }
n308=  if (%option.revenge.deop.x) did -c DLGoptions 39
n309=  if (%option.revenge.deowner.x) did -c DLGoptions 41
n310=  if (%option.revenge.kick.x) did -c DLGoptions 43
n311=  if (%option.revenge.deop) did -c DLGoptions 40
n312=  if (%option.revenge.deowner) did -c DLGoptions 42
n313=  if (%option.revenge.kick) did -c DLGoptions 44
n314=  did $iif($did(DLGoptions,46).state,-e,-b) DLGoptions 54,62,70,78,86
n315=  did $iif($did(DLGoptions,47).state,-e,-b) DLGoptions 55,63,71,79,87
n316=  did $iif($did(DLGoptions,48).state,-e,-b) DLGoptions 56,64,72,80,88
n317=  did $iif($did(DLGoptions,49).state,-e,-b) DLGoptions 57,65,73,81,89
n318=  did $iif($did(DLGoptions,50).state,-e,-b) DLGoptions 58,66,74,82,90
n319=  did $iif($did(DLGoptions,51).state,-e,-b) DLGoptions 59,67,75,83,91
n320=  did $iif(%option.fp.query,-e,-b) DLGoptions 60,68,76,84,92
n321=  did $iif($did(DLGoptions,53).state,-e,-b) DLGoptions 61,69,77,85,93
n322=  did -ra DLGoptions 62 %fp.privmsg.max
n323=  did -ra DLGoptions 63 %fp.pubmsg.max
n324=  did -ra DLGoptions 64 %fp.notice.max
n325=  did -ra DLGoptions 65 %fp.ctcp.max
n326=  did -ra DLGoptions 66 %fp.dcc.max
n327=  did -ra DLGoptions 67 %fp.invite.max
n328=  did -ra DLGoptions 68 %fp.queries.max
n329=  did -ra DLGoptions 69 %fp.global.max
n330=  did -ra DLGoptions 78 %fp.privmsg.time
n331=  did -ra DLGoptions 79 %fp.pubmsg.time
n332=  did -ra DLGoptions 80 %fp.notice.time
n333=  did -ra DLGoptions 81 %fp.ctcp.time
n334=  did -ra DLGoptions 82 %fp.dcc.time
n335=  did -ra DLGoptions 83 %fp.invite.time
n336=  did -ra DLGoptions 84 %fp.queries.time
n337=  did -ra DLGoptions 85 %fp.global.time
n338=  did -ra DLGoptions 95 %fp.ignore.time
n339=  if (%option.hl.enable) did -c DLGoptions 15
n340=  if (%option.hl.sound) did -c DLGoptions 16
n341=  if (%option.hl.owner) did -c DLGoptions 97
n342=  if (%option.hl.op) did -c DLGoptions 98
n343=  if (%option.timestamp) did -c DLGoptions 146
n344=  if (%option.access.op) did -c DLGoptions 98
n345=  if (%option.access.owner) did -c DLGoptions 97
n346=  did -ra DLGoptions 17 %option.hl.spath
n347=  did -ra DLGoptions 119 HS_NW_01
n348=  did -ra DLGoptions 120 $anick
n349=  did -ra DLGoptions 121 $me
n350=  did -ra $dname 129 $Xr(settings,option.firewall.hostname)
n351=  did -ra $dname 130 $Xr(settings,option.firewall.username)
n352=  did -ra $dname 131 $Xr(settings,option.firewall.password)
n353=  did -ra $dname 133 $Xr(settings,option.firewall.port)
n354=  var %x = $findfile(language,*.ini,0,did -a $dname 189 $remove($nopath($1-),.ini))
n355=  var %i = 1
n356=  while ($did($dname,189,%i)) { if ($did($dname,189,%i) $+ .ini == %option.language.file) did -c $dname 189 %i | inc %i }
n357=  did -ra $dname 192 $readini language\ $+ %option.language.file author info
n358=  if ($Xr(settings,options.firewall.dcc)) did -c $dname 134
n359=  if ($server) { if (i isin $usermode) did -c DLGoptions 135 }
n360=  if ($server) { if (w isin $usermode) did -c DLGoptions 136 }
n361=  if ($server) { if (n isin $usermode) did -c DLGoptions 137 }
n362=  if (!$server) { if ($gettok($Xr(settings,option.usermode.iwn),1,32) == i) did -c DLGoptions 135 }
n363=  if (!$server) { if ($gettok($Xr(settings,option.usermode.iwn),2,32) == w) did -c DLGoptions 136 }
n364=  if (!$server) { if ($gettok($Xr(settings,option.usermode.iwn),3,32) == n) did -c DLGoptions 137 }
n365=  if ($server) { did -h DLGoptions 138 | did -v DLGoptions 139 }
n366=  else  { did -v DLGoptions 138 | did -h DLGoptions 139 }
n367=  load_sel_themes 
n368=  var %i = 1
n369=  while ($did($dname,142,%i)) { if ($did($dname,142,%i) == $remove($nopath(%cache.last_mts_theme),.mts)) did -c $dname 142 %i | inc %i }
n370=  did -a $dname 142 More themes online...
n371=  if ($gettok(%option.nospam.ignore,1,32)) did -c $dname 194
n372=  did -ra $dname 195 $gettok(%option.nospam.ignore,2-,32)
n373=  did -ra $dname 11 (Default)
n374=  did -c $dname 11 1
n375=  var %x = $did($dname,142).seltext $+ .mts
n376=  var %x = $findfile(themes\mts\,%x,1,3)
n377=  did -b $dname 11
n378=  var %i = 0 
n379=  while ($gettok($read(%x,w,scheme*,%i),2-,32)) {
n380=    did -a $dname 11 $gettok($read(%x,w,scheme*,%i),2-,32)
n381=    did -e $dname 11
n382=    var %i = $calc($readn + 1)
n383=  }
n384=  did -c $dname 11 %cache.scheme
n385=}
n386=
n387=on *:DIALOG:DLGoptions:sclick:187: .run language\english.ini
n388=on *:DIALOG:DLGoptions:sclick:189: did -ra $dname 192 $readini language\ $+ $did($dname,189).seltext $+ .ini author info
n389=on *:DIALOG:DLGoptions:sclick:190: set %option.language.file $did($dname,189).seltext $+ .ini | _load.lng
n390=alias -l refresh.spamw did -r $dname 173 | var %i = 1 | while ($gettok(%list.nospam,%i,160)) { did -a $dname 173 $gettok(%list.nospam,%i,160) | inc %i }
n391=on *:DIALOG:DLGoptions:sclick:174: if ($did($dname,172)) set %list.nospam %list.nospam $+ $chr(160) $+ $did($dname,172) | did -r $dname 172 | refresh.spamw
n392=on *:DIALOG:DLGoptions:sclick:175: var %i = 1 | while ($gettok(%list.nospam,%i,160)) { if ($gettok(%list.nospam,%i,160) == $did($dname,173).seltext) set %list.nospam $deltok(%list.nospam,%i,160) | inc %i } | refresh.spamw
n393=
n394=on *:DIALOG:DLGoptions:sclick:10: show_theme
n395=on *:DIALOG:DLGoptions:sclick:5: if ($window(@MTS)) { .timerPREVIEW off | window -h @MTS }
n396=on *:DIALOG:DLGoptions:sclick:7: if ($window(@MTS)) { .timerPREVIEW off | window -h @MTS }
n397=on *:DIALOG:DLGoptions:sclick:8: if ($window(@MTS)) { .timerPREVIEW off | window -h @MTS }
n398=on *:DIALOG:DLGoptions:sclick:9: if ($window(@MTS)) { .timerPREVIEW off | window -h @MTS }
n399=on *:DIALOG:DLGoptions:sclick:12: if ($window(@MTS)) { .timerPREVIEW off | window -h @MTS }
n400=on *:DIALOG:DLGoptions:sclick:14: if ($window(@MTS)) { .timerPREVIEW off | window -h @MTS }
n401=
n402=alias show_theme {
n403=  unset %thm_*
n404=  set -u0 %thm_ $+ $read -wNAME* $findfile(themes\mts\,*.mts,$did(DLGoptions,142).sel,3)
n405=  set -u0 %thm_ $+ $read -wVERSION* $findfile(themes\mts\,*.mts,$did(DLGoptions,142).sel,3)
n406=  set -u0 %thm_ $+ $read -wAUTHOR* $findfile(themes\mts\,*.mts,$did(DLGoptions,142).sel,3)
n407=  set -u0 %thm_ $+ $read -wEMAIL* $findfile(themes\mts\,*.mts,$did(DLGoptions,142).sel,3)
n408=  set -u0 %thm_ $+ $read -wDESCRIPTION* $findfile(themes\mts\,*.mts,$did(DLGoptions,142).sel,3)
n409=  set -u0 %thm_ $+ $read -wVERSION* $findfile(themes\mts\,*.mts,$did(DLGoptions,142).sel,3)
n410=  set -u0 %thm_ $+ $read -wMTSVERSION* $findfile(themes\mts\,*.mts,$did(DLGoptions,142).sel,3)
n411=  set -u0 %thm_ $+ $read -wWEBSITE* $findfile(themes\mts\,*.mts,$did(DLGoptions,142).sel,3)
n412=  did -ra $dname 147 Theme name: %thm_name $crlf
n413=  did -a $dname 147 Author: %thm_author $crlf
n414=  did -a $dname 147 E-mail: %thm_email $crlf
n415=  did -a $dname 147 Website: %thm_website $crlf
n416=  did -a $dname 147 Theme version: %thm_version $crlf
n417=  did -a $dname 147 MTS version: %thm_mtsversion $crlf
n418=  did -a $dname 147 Description: %thm_description $crlf
n419=  mts.preview %cache.last_mts_theme
n420=  .timerPREVIEW -m 0 300 update_window 
n421=}
n422=
n423=alias update_window {
n424=  if ($appactive) && (!%app) { set %app 1 | window -a @MTS }
n425=  elseif (%app) && (!$appactive) { set %app 0 | window -h @MTS }
n426=  if ($dialog(DLGoptions)) window @MTS $calc($dialog(DLGoptions).x + 258) $calc($dialog(DLGoptions).y + 63 $iif(%XP,+ $+ %XP.adjust)) 331 245
n427=  else { window -c @MTS | .timerPREVIEW off | unset %app }
n428=}
n429=
n430=on *:DIALOG:DLGoptions:sclick:142: { 
n431=  if ($did($dname,142).sel == $did($dname,142).lines) {
n432=    var %i = 1
n433=    while ($did($dname,142,%i)) { if ($did($dname,142,%i) == $remove($nopath(%cache.last_mts_theme),.mts)) did -c $dname 142 %i | inc %i }
n434=    .run http://www.mircscripts.org/themes.php
n435=    halt
n436=  }
n437=  unset %thm_*
n438=  set -u0 %thm_ $+ $read -wNAME* $findfile(themes\mts\,*.mts,$did($dname,142).sel,3)
n439=  set -u0 %thm_ $+ $read -wVERSION* $findfile(themes\mts\,*.mts,$did($dname,142).sel,3)
n440=  set -u0 %thm_ $+ $read -wAUTHOR* $findfile(themes\mts\,*.mts,$did($dname,142).sel,3)
n441=  set -u0 %thm_ $+ $read -wEMAIL* $findfile(themes\mts\,*.mts,$did($dname,142).sel,3)
n442=  set -u0 %thm_ $+ $read -wDESCRIPTION* $findfile(themes\mts\,*.mts,$did($dname,142).sel,3)
n443=  set -u0 %thm_ $+ $read -wVERSION* $findfile(themes\mts\,*.mts,$did($dname,142).sel,3)
n444=  set -u0 %thm_ $+ $read -wMTSVERSION* $findfile(themes\mts\,*.mts,$did($dname,142).sel,3)
n445=  set -u0 %thm_ $+ $read -wWEBSITE* $findfile(themes\mts\,*.mts,$did($dname,142).sel,3)
n446=  did -ra $dname 147 Theme: %thm_name (v $+ %thm_version $+ ) $crlf
n447=  did -a $dname 147 Author: %thm_author ( $+ %thm_email $+ ) $crlf
n448=  did -a $dname 147 Homepage: %thm_website $crlf
n449=  did -a $dname 147 MTS version: %thm_mtsversion $crlf
n450=  did -a $dname 147 Description: %thm_description
n451=  did -b $dname 11
n452=  did -ra $dname 11 (Default)
n453=  did -c $dname 11 1
n454=  var %x = $did($dname,142).seltext $+ .mts
n455=  var %x = $findfile(themes\mts\,%x,1,3)
n456=  var %i = 0 
n457=  while ($gettok($read(%x,w,scheme*,%i),2-,32)) {
n458=    did -a $dname 11 $gettok($read(%x,w,scheme*,%i),2-,32)
n459=    did -e $dname 11
n460=    var %i = $calc($readn + 1)
n461=  }
n462=  if ($did(DLGoptions,11).visible) mts.preview " $+ $findfile(themes\,*.mts,$did($dname,142).sel,3) $+ "  
n463=}
n464=
n465=on *:DIALOG:DLGoptions:sclick:11: if ($did(DLGoptions,11).visible) mts.preview " $+ $findfile(themes\,*.mts,$did($dname,142).sel,3) $+ " $+ $calc($did($dname,11).sel - 1) $+ "
n466=
n467=on *:DIALOG:DLGoptions:sclick:146: set %option.timestamp $did(DLGoptions,146).state | show_theme
n468=
n469=
n470=on *:DIALOG:DLGoptions:sclick:112: Xset settings option.server.edit 0 | Xdialog -m DLGserverADD DLGserverADD
n471=on *:DIALOG:DLGoptions:sclick:114: Xset settings option.server.edit 1 | Xdialog -m DLGserverADD DLGserverADD
n472=on *:DIALOG:DLGoptions:sclick:113: {
n473=  var %t.lines = $server(0)
n474=  if ($did(DLGoptions,110).seltext = Undefined) { .server -r $gettok($did(DLGoptions,111).seltext,1,58) -p $gettok($did(DLGoptions,111).seltext,2,58) -w $gettok($did(DLGoptions,111).seltext,3,58) }
n475=  else { .server -r $gettok($did(DLGoptions,111).seltext,2,58) -p $gettok($did(DLGoptions,111).seltext,3,58) -g $did(DLGoptions,110).seltext -w $gettok($did(DLGoptions,111).seltext,4,58) }
n476=  did -r DLGoptions 111
n477=  if ($did(DLGoptions,110).seltext == Undefined) {
n478=    var %i = 1
n479=    while ($server(%i) != $null) { 
n480=      did -a $dname 140 %i 0 %t.lines
n481=    if (!$server(%i).group) did -a DLGoptions 111 $server(%i) : $gettok($server(%i).port,1,58) : $gettok($server(%i).port,2,58) | inc %i 1 }
n482=  }
n483=  else {
n484=    var %i = 1
n485=    while ($server(%i)) { 
n486=      did -a $dname 140 %i 0 %t.lines
n487=    if ($server(%i).group == $did(DLGoptions,110).seltext) did -a DLGoptions 111 $server(%i).group : $server(%i) : $gettok($server(%i).port,1,58) : $gettok($server(%i).port,2,58) | inc %i 1 }
n488=  }
n489=}
n490=
n491=
n492=on *:DIALOG:DLGoptions:sclick:6: if ($window(@MTS)) { .timerPREVIEW off | window -h @MTS } | if ($Xr(settings,option.slist.isloaded) == X) .timer -m 1 300 load.groups&servers
n493=alias load.groups&servers {
n494=  did -r DLGoptions 110
n495=  did -r DLGoptions 111
n496=  var %t.lines = $calc($server(0) * 2)
n497=  var %t.lines_ = $server(0) 
n498=  var %i = 1
n499=  while ($server(%i)) { 
n500=    did -a DLGoptions 140 %i 0 %t.lines
n501=  if ($did(DLGoptions,110,$did(DLGoptions,110).lines) != $server(%i).group) && ($server(%i).group) did -a DLGoptions 110 $server(%i).group | inc %i 1 }
n502=  did -a DLGoptions 110 Undefined
n503=  did -c DLGoptions 110 $Xr(settings,option.server.selgroup)
n504=  did -r DLGoptions 111
n505=  if ($did(DLGoptions,110).seltext == Undefined) {
n506=    var %i = 1
n507=    while ($server(%i) != $null) { 
n508=      did -a DLGoptions 140 $calc(%i + %t.lines_) 0 %t.lines
n509=    if (!$server(%i).group) did -a DLGoptions 111 $server(%i) : $gettok($server(%i).port,1,58) : $gettok($server(%i).port,2,58) | inc %i 1 }
n510=  }
n511=  else {
n512=    var %i = 1
n513=    while ($server(%i)) { 
n514=      did -a DLGoptions 140 $calc(%i + %t.lines_) 0 %t.lines
n515=    if ($server(%i).group == $did(DLGoptions,110).seltext) did -a DLGoptions 111 $server(%i).group : $server(%i) : $gettok($server(%i).port,1,58) : $gettok($server(%i).port,2,58) | inc %i 1 }
n516=  }
n517=  if ($Xr(settings,option.server.firewall)) did -c DLGoptions 123
n518=  Xset settings option.slist.isloaded 1
n519=  did -c DLGoptions 111 $Xr(settings,option.server.selserv)
n520=  did -c DLGoptions 110 $Xr(settings,option.server.selgroup)
n521=}
n522=
n523=dialog DLGserverADD {
n524=  title "Add server"
n525=  icon $mircdirdata\images\hsnw.ico, 0
n526=  option dbu
n527=  size -1 -1 167 81
n528=  button "Cancel", 2, 115 65 44 13,cancel
n529=  button "OK", 3, 68 65 45 13,ok
n530=  box "Server settings", 4, 5 3 156 59
n531=  text "Address:", 5, 10 15 28 7,right
n532=  edit "irc.server.com", 6, 40 15 112 10,autohs
n533=  text "Port", 7, 10 25 27 7,right
n534=  edit "6667", 9, 40 25 112 10,autohs
n535=  text "(Password):", 8, 10 35 27 7,right
n536=  edit "", 10, 40 35 40 10,autohs,pass
n537=  text "Group:", 11, 10 45 27 7,right
n538=  combo 12, 40 45 112 91,drop ,vsbar
n539=}
n540=
n541=on *:DIALOG:DLGserverADD:init:*: {
n542=  dialog -v DLGserverADD
n543=  var %i = 1
n544=  while ($did(DLGoptions,110,%i)) { 
n545=  did -a DLGserverADD 12 $did(DLGoptions,110,%i) | inc %i 1 }
n546=  if (%option.server.edit) { 
n547=    if ($did(DLGoptions,110).seltext = Undefined) { did -ra DLGserverADD 6 $gettok($did(DLGoptions,111).seltext,1,58) | did -ra DLGserverADD 9 $gettok($did(DLGoptions,111).seltext,2,58) | did -ra DLGserverADD 10 $gettok($did(DLGoptions,111).seltext,3,58) | did -c DLGserverADD 12 $did(DLGoptions,110).sel }
n548=    else { did -ra DLGserverADD 6 $gettok($did(DLGoptions,111).seltext,2,58) | did -ra DLGserverADD 9 $gettok($did(DLGoptions,111).seltext,3,58) | did -ra DLGserverADD 10 $gettok($did(DLGoptions,111).seltext,4,58) | did -c DLGserverADD 12 $did(DLGoptions,110).sel }
n549=  }
n550=}
n551=
n552=on *:DIALOG:DLGserverADD:sclick:3: {
n553=  .server -a $did(DLGserverADD,6) -p $did(DLGserverADD,9) $iif($did(DLGserverADD,12).seltext != Undefined,-g $did(DLGserverADD,12).seltext) $iif($did(DLGserverADD,10),-w $did(DLGserverADD,10))
n554=  dialog -v DLGoptions
n555=  .timer -m 1 300 load.groups&servers
n556=}
n557=
n558=on *:DIALOG:DLGoptions:sclick:110: {
n559=  var %t.lines = $server(0)
n560=  did -r DLGoptions 111
n561=  if ($did(DLGoptions,110).seltext == Undefined) {
n562=    var %i = 1
n563=    while ($server(%i) != $null) {
n564=      did -a $dname 140 %i 0 %t.lines
n565=    if (!$server(%i).group) did -a DLGoptions 111 $server(%i) : $gettok($server(%i).port,1,58) : $gettok($server(%i).port,2,58) | inc %i 1 }
n566=  }
n567=  else {
n568=    var %i = 1
n569=    while ($server(%i)) { 
n570=      did -a $dname 140 %i 0 %t.lines
n571=    if ($server(%i).group == $did(DLGoptions,110).seltext) did -a DLGoptions 111 $server(%i).group : $server(%i) : $gettok($server(%i).port,1,58) : $gettok($server(%i).port,2,58) | inc %i 1 }
n572=  }
n573=}
n574=
n575=on *:DIALOG:DLGoptions:sclick:24: if ($did(DLGoptions,24).state) { did -e DLGoptions 26,27 | if ($did(DLGoptions,26).sel == 11)  did -e DLGoptions 28,29,30,32,33,34,35,36,37 } | else did -b DLGoptions 26,27,28,29,30,32,33,34,35,36,37
n576=on *:DIALOG:DLGoptions:sclick:26: did -b DLGoptions 28,29,30,32,33,34,35,36,37 | if ($did(DLGoptions,26).sel == 11) did -e DLGoptions 28,29,30,32,33,34,35,36,37 | set %option.talker.sel $did(DLGoptions,26).sel | set %t.talker.preview [HENNESSY] $xreplace(You've selected $did(DLGoptions,26).seltext)
n577=on *:DIALOG:DLGoptions:sclick:99: splay " $+ $did(DLGoptions,17).text $+ "
n578=on *:DIALOG:DLGoptions:sclick:3: Options_apply | dialog -x DLGoptions
n579=on *:DIALOG:DLGoptions:sclick:4: Options_apply
n580=
n581=alias Options_apply {
n582=  set %option.onjoin_notice_ignore $did($dname,168).state) $did($dname,169)
n583=  if ($did($dname,156).state) .timerlc 0 60 lagcheck | else .timerlc off
n584=  set %option.lagmeter $did($dname,156).state
n585=  set %option.rejoin $did($dname,165).state
n586=  set %menu.insecure $did($dname,166).state
n587=  set %option.timestamp $did(DLGoptions,146).state
n588=  set %option.hl.enable $did(DLGoptions,15).state
n589=  set %option.hl.sound $did(DLGoptions,16).state
n590=  set %option.hl.spath $did(DLGoptions,17).text
n591=  set %option.talker.sel $did(DLGoptions,26).sel
n592=  set %option.talker.enable $did(DLGoptions,24).state
n593=  set %option.access.owner $did(DLGoptions,97).state
n594=  set %option.access.op $did(DLGoptions,98).state
n595=  set %option.ignore_pm $did($dname,31).state
n596=  set %option.whois.active $iif($did($dname,151).state,0,1)
n597=  set %whois.oj_enabled $did($dname,155).state
n598=  set %option.nospam $did($dname,178).state 
n599=  set %option.nospam.ignore $did($dname,194).state $did($dname,195)
n600=  set %option.nospamreply $did($dname,176).state $did($dname,177)
n601=  set %option.onjoin_notice_ignore $did($dname,168).state $did($dname,169)
n602=  set %fp.privmsg.max $did(DLGoptions,62)
n603=  set %fp.pubmsg.max $did(DLGoptions,63)
n604=  set %fp.notice.max $did(DLGoptions,64)
n605=  set %fp.ctcp.max $did(DLGoptions,65)
n606=  set %fp.dcc.max $did(DLGoptions,66)
n607=  set %fp.invite.max $did(DLGoptions,67)
n608=  set %fp.queries.max $did(DLGoptions,68)
n609=  set %fp.global.max $did(DLGoptions,69)
n610=  set %fp.privmsg.time $did(DLGoptions,78)
n611=  set %fp.pubmsg.time $did(DLGoptions,79)
n612=  set %fp.notice.time $did(DLGoptions,80)
n613=  set %fp.ctcp.time $did(DLGoptions,81)
n614=  set %fp.dcc.time $did(DLGoptions,82)
n615=  set %fp.invite.time $did(DLGoptions,83)
n616=  set %fp.queries.time $did(DLGoptions,84)
n617=  set %fp.global.time $did(DLGoptions,85)
n618=  set %fp.ignore.time $did(DLGoptions,95)
n619=  set %option.access.op $did(DLGoptions,98).state
n620=  set %option.access.owner $did(DLGoptions,97).state
n621=  set %option.ignore_ctcp $did($dname,149).state
n622=  set %option.ignore_invites $did($dname,145).state
n623=  set %option.ignore_notices $did($dname,150).state
n624=  set %cache.version $did($dname,158).seltext
n625=  Xversion %cache.version
n626=  $iif($did(DLGoptions,46).state,.enable,.disable) #option.fp.46
n627=  $iif($did(DLGoptions,47).state,.enable,.disable) #option.fp.47
n628=  $iif($did(DLGoptions,48).state,.enable,.disable) #option.fp.48
n629=  $iif($did(DLGoptions,49).state,.enable,.disable) #option.fp.49
n630=  $iif($did(DLGoptions,50).state,.enable,.disable) #option.fp.50
n631=  $iif($did(DLGoptions,51).state,.enable,.disable) #option.fp.51
n632=  set %option.fp.query $did(DLGoptions,52).state
n633=  $iif($did(DLGoptions,53).state,.enable,.disable) #option.fp.53
n634=  $iif($did($dname,159).state,.enable,.disable) #raw.show
n635=  set %option.revenge.deop.x $did(DLGoptions,39).state
n636=  set %option.revenge.deop $did(DLGoptions,40).state
n637=  set %option.revenge.deowner.x $did(DLGoptions,41).state
n638=  set %option.revenge.deowner $did(DLGoptions,42).state
n639=  set %option.revenge.kick.x $did(DLGoptions,43).state
n640=  set %option.revenge.kick $did(DLGoptions,44).state
n641=  set %option.clonescan $did($dname,152).state
n642=  set %option.who_was $did($dname,153).state
n643=  Xset settings option.firewall.hostname $iif($did($dname,129),$did($dname,129),(none))
n644=  Xset settings option.firewall.username $iif($did($dname,130),$did($dname,130),(none))
n645=  Xset settings option.firewall.password $iif($did($dname,131),$did($dname,131),$null)
n646=  Xset settings option.firewall.port $did($dname,133)
n647=  Xset settings options.firewall.dcc $did($dname,134).state
n648=  if ($did(DLGoptions,110).sel isnum)  Xset settings option.server.selgroup $did(DLGoptions,110).sel
n649=  if ($did(DLGoptions,111).sel isnum)  Xset settings option.server.selserv $did(DLGoptions,111).sel
n650=  Xset settings option.server.firewall $did(DLGoptions,123).state
n651=  Xset settings option.server.firewall.protocol $did(DLGoptions,125).sel
n652=  if ($did(DLGoptions,110).seltext == Undefined) Xset settings option.last_server $gettok($did(DLGoptions,111).seltext,1,58) $gettok($did(DLGoptions,111).seltext,2,58) $gettok($did(DLGoptions,111).seltext,3,58)
n653=  else Xset settings option.last_server $gettok($did(DLGoptions,111).seltext,2,58) $gettok($did(DLGoptions,111).seltext,3,58) $gettok($did(DLGoptions,111).seltext,4,58)
n654=  if ($Xr(settings,option.slist.isloaded) != X) {
n655=    if ($did(DLGoptions,135).state) Xset settings option.usermode.iwn i $gettok($Xr(settings,option.usermode.iwn),2,32) $gettok($Xr(settings,option.usermode.iwn),3,32)
n656=    else Xset settings option.usermode.iwn ö $gettok($Xr(settings,option.usermode.iwn),2,32) $gettok($Xr(settings,option.usermode.iwn),3,32)
n657=    if ($did(DLGoptions,136).state) Xset settings option.usermode.iwn $gettok($Xr(settings,option.usermode.iwn),1,32) w $gettok($Xr(settings,option.usermode.iwn),3,32)
n658=    else Xset settings option.usermode.iwn $gettok($Xr(settings,option.usermode.iwn),1,32) ö $gettok($Xr(settings,option.usermode.iwn),3,32)
n659=    if ($did(DLGoptions,137).state) Xset settings option.usermode.iwn $gettok($Xr(settings,option.usermode.iwn),1,32) $gettok($Xr(settings,option.usermode.iwn),2,32) n
n660=    else Xset settings option.usermode.iwn $gettok($Xr(settings,option.usermode.iwn),1,32) $gettok($Xr(settings,option.usermode.iwn),2,32) ö
n661=    if ($server) { if ($istok($Xr(settings,option.usermode.iwn),w,32)) && (w !isin $usermode) mode $me +w | elseif (!$istok($Xr(settings,option.usermode.iwn),w,32)) && (w isin $usermode) mode $me -w }
n662=    if ($server) { if ($istok($Xr(settings,option.usermode.iwn),i,32)) && (i !isin $usermode) mode $me +i | elseif (!$istok($Xr(settings,option.usermode.iwn),i,32)) && (i isin $usermode) mode $me -i }
n663=    if ($server) { if ($istok($Xr(settings,option.usermode.iwn),n,32)) && (n !isin $usermode) mode $me +n | elseif (!$istok($Xr(settings,option.usermode.iwn),n,32)) && (n isin $usermode) mode $me -n } 
n664=  }
n665=  if ($did($dname,142).seltext != $remove($nopath(%cache.last_mts_theme),.mts) || (%cache.scheme != $did($dname,11).sel)) {   
n666=    var %x = $did($dname,142).seltext $+ .mts
n667=    var %x = " $+ $findfile(themes\mts\,%x,1,3) $+ "
n668=    theme.load %x
n669=    if ($did($dname,11) != (Default)) theme.load %x $calC($did($dname,11).sel - 1)
n670=    set %cache.scheme $did($dname,11).sel
n671=  }
n672=  hsave -o theme " $+ $mircdirdata\mts.has"
n673=}
n674=
n675=on *:DIALOG:DLGoptions:sclick:18: .timer -m 1 100 { select.hl.path }
n676=alias select.hl.path var %t.hl.path = $sfile(%cache.last.hl,Select a highlight sound) | if (%t.hl.path) { did -ra DLGoptions 17 %t.hl.path | set %cache.last.hl $nofile(%t.hl.path) }
n677=on *:DIALOG:DLGoptions:sclick:29: set %t.talker.preview [HENNESSY] Example: $did(DLGoptions,29).seltext 
n678=alias refresh.hl did -r DLGoptions 20 | var %i = 1 | while ($gettok(%list.hl,%i,160) != $null) { did -a DLGoptions 20 $gettok(%list.hl,%i,160) | inc %i }
n679=on *:DIALOG:DLGoptions:sclick:23: if ($did(DLGoptions,20).seltext ) { set %list.hl $remove(%list.hl,$did(DLGoptions,20).seltext $+  ) | refresh.hl }
n680=on *:DIALOG:DLGoptions:sclick:21: set %list.hl %list.hl $+ $$?="Enter new highlight-word" $+   | refresh.hl
n681=on *:DIALOG:DLGoptions:sclick:22: if ($did(DLGoptions,20).seltext ) .timer -m 1 100 replace.hl
n682=alias replace.hl var %t.hlreplace $$?="Replace $did(DLGoptions,20).seltext " | set %list.hl $replace(%list.hl,$did(DLGoptions,20).seltext $+  ,%t.hlreplace $+  ) | refresh.hl
n683=alias refresh.talker did -r DLGoptions 29 | var %i = 1 | while ($gettok(%list.talker,%i,160) != $null) { did -a DLGoptions 29 $replace($gettok(%list.talker,%i,160),¬,$chr(32) $+ -> $+ $chr(32)) | inc %i }
n684=on *:DIALOG:DLGoptions:sclick:30: set %list.talker %list.talker $+ $did(DLGoptions,35).text $+ ¬ $+ $did(DLGoptions,36).text $+   | refresh.talker
n685=on *:DIALOG:DLGoptions:sclick:32: if ($did(DLGoptions,29).seltext) { set %list.talker $remove(%list.talker,$replace($did(DLGoptions,29).seltext,$chr(32) $+ -> $+ $chr(32),¬) $+  ) | refresh.talker }
n686=on *:DIALOG:DLGoptions:sclick:12: {
n687=  set %t.talker.preview [HENNESSY] This is the talkers tab.
n688=  window -hkdo +dL @Talker.preview $calc($dialog(DLGoptions).x + 30) $calc($dialog(DLGoptions).y + 298 + $iif($os == XP,8)) 562 16
n689=  window -a @Talker.preview
n690=  .timertalkerpreview -mo 0 300 { refresh.talker.preview }
n691=}
n692=
n693=on *:DIALOG:DLGoptions:edit:36: set %t.talker.preview [HENNESSY] Editing: $did(DLGoptions,36)
n694=alias refresh.talker.preview { 
n695=  if ($dialog(DLGoptions).tab == 12) { window @Talker.preview $calc($dialog(DLGoptions).x + 30) $calc($dialog(DLGoptions).y + 298 + $iif($os == XP,8)) 562 16 | clear @Talker.preview | !echo $iif(%option.timestamp,-t) @Talker.preview %t.talker.preview  }
n696=  else { window -c @talker.preview | .timertalkerpreview off | unset %t.talker.preview }
n697=}
n698=
n699=; HennesScript NW
n700=; MTS theme preview
n701=
n702=alias mts.preview {
n703=  set %mts.x $gettok($1-,1,34) 
n704=  if ($window(@MTS)) clear @MTS
n705=  else window -pado +dL @MTS $calc($dialog(DLGoptions).x + 258) $calc($dialog(DLGoptions).y + 63 $iif(%XP,+ $+ %XP.adjust)) 331 245
n706=  if ($window(@MTS).state == hidden) window -a @MTS
n707=  set %c.bg $iif($gettok($gettok($read(%mts.x,w,Colors*),2-,32),1,44),$ifmatch,$gettok($gettok($colorsDef,2-,32),1,44))
n708=  if ($gettok($1-,2,34)) {
n709=    var %s = [SCHEME $+ $gettok($1-,2,34) $+ $chr(93)
n710=    var %n = $read(%mts.x,w,%s)
n711=    set %n $readn
n712=    if ($gettok($gettok($read(%mts.x,w,Colors*,%n),2-,32),1,44)) set %c.bg $ifmatch
n713=  }
n714=
n715=  if ($gettok($read(%mts.x,w,MTSversion*),2-,32) == 1.0) {
n716=    if ($gettok($read(%mts.x,w,timestamp*),2-,32) == OFF) { set %pre.stamp 0 | did -c DLGoptions 146 }
n717=    else { set %pre.stamp 1 | did -c DLGoptions 146 | set %now.stamp $gettok($read(%mts.x,w,timestamp*),2-,32) }
n718=  }
n719=  if ($gettok($read(%mts.x,w,MTSversion*),2-,32) > 1.0) {
n720=    if ($gettok($read(%mts.x,w,timestamp*),2-,32) == ON) { set %pre.stamp 1 | did -c DLGoptions 146 }
n721=    else { set %pre.stamp 0  | did -u DLGoptions 146 }
n722=    set %now.stamp $gettok($read(%mts.x,w,timestampformat*),2-,32)
n723=  }
n724=
n725=  ; set RGB colors
n726=  set %RGB %RGBdef
n727=  if ($read(%mts.x,w,RGBcolors*)) set %RGB $ifmatch
n728=  if ($gettok($1-,2,34)) && ($read(%mts.x,w,RGBcolors*,%n) != $null) set %RGB $read(%mts.x,w,RGBcolors*,%n)
n729=  ; draw background
n730=  set %l $gettok($gettok(%RGB,2-,32),$calc(%c.bg +1),32)
n731=  if (!%l) set %l 255,255,255
n732=  drawfill -r @MTS $rgb( [ [ %l ] ] ) $rgb( [ [ %l ] ] ) 0 0
n733=  if ($read(%mts.x,w,ImageChan*) != $null) { 
n734=    set %y " $+ $nofile($1-) $+ $gettok($read(%mts.x,w,ImageChan*),3-,32) $+ "
n735=    var %style = $gettok($read(%mts.x,w,ImageChan*),2,32)
n736=    if (%style = normal) drawpic @MTS 0 0 %y 
n737=    if (%style = photo) drawpic @MTS $calc(331 - $pic(%y).width) 0 %y 
n738=    if (%style = center) drawpic @MTS $calc((331 - $pic(%y).width)/2) $calc((245 - $pic(%y).height)/2) %y
n739=    if (%style = fill) drawpic -s @MTS 0 0 331 245 %y
n740=    if (%style = stretch) drawpic -s @MTS 0 $calc((245 - ($pic(%y).height * $calc(331 / $pic(%y).width)))/2) 331 $calc(($pic(%y).height * $calc(331 / $pic(%y).width))) %y
n741=    if (%style = tile) {
n742=      var %c = $calc(245 / $pic(%y).height) | var %d = 0 | var %e = 0 
n743=      while (%e < %c) {
n744=        var %a = $calc(331 / $pic(%y).width) | var %b = 0 | var %i = 0
n745=        while (%i < %a) { drawpic @MTS %b %d %y | inc %b $pic(%y).width | inc %i }
n746=        inc %d $pic(%y).height | inc %e
n747=      }
n748=    }
n749=  }
n750=  if ($gettok($1-,2,34)) {
n751=    if ($read(%mts.x,w,ImageChan*,%n) != $null) { 
n752=      set %y " $+ $nofile($1-) $+ $gettok($read(%mts.x,w,ImageChan*,%n),3-,32) $+ "
n753=      var %style = $gettok($read(%mts.x,w,ImageChan*,%n),2,32)
n754=      if (%style = normal) drawpic @MTS 0 0 %y 
n755=      if (%style = photo) drawpic @MTS $calc(331 - $pic(%y).width) 0 %y 
n756=      if (%style = center) drawpic @MTS $calc((331 - $pic(%y).width)/2) $calc((245 - $pic(%y).height)/2) %y
n757=      if (%style = fill) drawpic -s @MTS 0 0 331 245 %y
n758=      if (%style = stretch) drawpic -s @MTS 0 $calc((245 - ($pic(%y).height * $calc(331 / $pic(%y).width)))/2) 331 $calc(($pic(%y).height * $calc(331 / $pic(%y).width))) %y
n759=      if (%style = tile) {
n760=        var %c = $calc(245 / $pic(%y).height) | var %d = 0 | var %e = 0 
n761=        while (%e < %c) {
n762=          var %a = $calc(331 / $pic(%y).width) | var %b = 0 | var %i = 0
n763=          while (%i < %a) { drawpic @MTS %b %d %y | inc %b $pic(%y).width | inc %i }
n764=          inc %d $pic(%y).height | inc %e
n765=        }
n766=      }
n767=    }
n768=  }
n769=
n770=  ; set font-height
n771=  set %f $height(x,$gettok($gettok($read(%mts.x,w,FontChan*),2-,32),1,44),$gettok($gettok($read(%mts.x,w,FontChan*),2-,32),2,44))
n772=  elseif (%f < 1) set %f 9
n773=  set %g 0
n774=
n775=  ; set basecolors
n776=  set %:::c1 %::c1
n777=  set %::c1 $gettok($gettok($read(%mts.x,w,BaseColors*),2-,32),1,44)
n778=  set %:::c2 %::c2
n779=  set %::c2 $gettok($gettok($read(%mts.x,w,BaseColors*),2-,32),1,44)
n780=  set %:::c3 %::c3
n781=  set %::c3 $gettok($gettok($read(%mts.x,w,BaseColors*),2-,32),3,44)
n782=  set %:::c4 %::c4
n783=  set %::c4 $gettok($gettok($read(%mts.x,w,BaseColors*),2-,32),4,44)
n784=
n785=  ; set prefix
n786=  set %:::pre %::pre
n787=  set %::pre $dll(" $+ $mircdirdata\dll\mtsgen.dll",MTSEvalString,$gettok($read(%mts.x,w,Prefix*),2-,32))
n788=
n789=
n790=  ; load script (if any)
n791=  set %h 0
n792=  if ($gettok($read(%mts.x,w,SCRIPT*),2-,32)) { set %:::loaded_theme %::loaded_theme | .timerK -m 1 1 .reload -rs " $+ $nofile(%mts.x) $+ $ifmatch " | set %::loaded_theme " $+ $nofile(%mts.x) $+ $ifmatch " | set %h 1 }
n793=
n794=  if ($gettok($1-,2,34)) {
n795=    ; set font-height
n796=    if ($height(x,$gettok($gettok($read(%mts.x,w,FontChan*,%n),2-,32),1,44),$gettok($gettok($read(%mts.x,w,FontChan*,%n),2-,32),2,44))) set %f $ifmatch
n797=    elseif (%f < 1) set %f 9
n798=    set %g 0
n799=
n800=    ; set basecolors
n801=    set %:::c1 %::c1
n802=    if ($gettok($gettok($read(%mts.x,w,BaseColors*,%n),2-,32),1,44)) set %::c1 $ifmatch
n803=    set %:::c2 %::c2
n804=    if ($gettok($gettok($read(%mts.x,w,BaseColors*,%n),2-,32),2,44)) set %::c2 $ifmatch
n805=    set %:::c3 %::c3
n806=    if ($gettok($gettok($read(%mts.x,w,BaseColors*,%n),2-,32),3,44)) set %::c3 $ifmatch
n807=    set %:::c4 %::c4
n808=    if ($gettok($gettok($read(%mts.x,w,BaseColors*,%n),2-,32),4,44)) set %::c4 $ifmatch
n809=
n810=    ; set prefix
n811=    set %:::pre %::pre
n812=    set %::pre $dll(" $+ $mircdirdata\dll\mtsgen.dll",MTSEvalString,$gettok($read(%mts.x,w,Prefix*),2-,32))
n813=    if ($gettok($read(%mts.x,w,Prefix*,%n),2-,32)) set %::pre $dll(" $+ $mircdirdata\dll\mtsgen.dll",MTSEvalString,$gettok($read(%mts.x,w,Prefix*,%n),2-,32))
n814=
n815=    ; load script (if any)
n816=    set %h 0
n817=    if ($gettok($read(%mts.x,w,SCRIPT*,%n),2-,32)) { .timerK -m 1 1 .reload -rs " $+ $nofile(%mts.x) $+ $ifmatch $+ " | set %h 1 }
n818=  }
n819=
n820=  ; set colors
n821=  set %oldcolors $null
n822=  var %i = 0 | while (%i != 16) { set %oldcolors %oldcolors $rgb( [ [ $color(%i) ] ] ) | inc %i }
n823=  var %i = 0 | while (%i != 16) { color %i [ [ $rgb( [ [ $gettok($gettok(%RGB,2-,32),$calc(%i +1),32)) ] ] ) ] ] | inc %i }
n824=
n825=
n826=  ; show preview
n827=  .timerL -m 1 100 mts.activate.preview %mts.x
n828=}
n829=
n830=alias mts.activate.preview {
n831=  set %colors $read(%mts.x,w,Colors*)
n832=  if ($gettok($1-,2,34)) set %colors $read(%mts.x,w,Colors*,%n)
n833=  ; draw JoinSelf
n834=  set -u0 %::nick $iif($me,$me,HENNESSY)
n835=  set -u0 %::address someone@somedns.com
n836=  set -u0 %::chan #preview
n837=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),8,44),32)
n838=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n839=  mts.draw.pre JoinSelf
n840=
n841=  ; draw Topic is...
n842=  set -u0 %::address another@who.com
n843=  set -u0 %::topic Welcome in the preview channel!
n844=  set -u0 %::text Welcome in the preview channel!
n845=  set -u0 %::chan #preview
n846=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),19,44),32)
n847=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n848=  mts.draw.pre Raw.332
n849=
n850=  ; draw Set by...
n851=  set -u0 %::nick HENNESSY
n852=  set -u0 %::text $asctime($ctime)
n853=  set -u0 %::chan #preview
n854=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),19,44),32)
n855=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n856=  mts.draw.pre Raw.333
n857=
n858=
n859=  ; draw TextChanSelf
n860=  set -u0 %::me $iif($me,$me,HENNESSY)
n861=  set -u0 %::address someone@somdns.com
n862=  set -u0 %::cmode $null
n863=  set -u0 %::text hello
n864=  set -u0 %::chan #preview
n865=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),16,44),32)
n866=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n867=  if ($read -wTextChanSelf* %mts.x != $null)  mts.draw.pre TextChanSelf
n868=
n869=  ; draw ModeUser
n870=  set -u0 %::nick Johhny
n871=  set -u0 %::address another@who.com
n872=  set -u0 %::cmode @ 
n873=  set -u0 %::modes +o $iif($me,$me,HENNESSY) 
n874=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),10,44),32)
n875=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n876=  if ($read -wModeUser* %mts.x != $null)  mts.draw.pre ModeUser
n877=
n878=  ; draw Whois 311
n879=  set %::nick Johnny | set %::address another@who.com | set %::realname Johnny the last
n880=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),21,44),32)
n881=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n882=  if ($read -wRAW.311* %mts.x != $null) mts.draw.pre raw.311
n883=  else goto whois
n884=
n885=  ; draw Whois 317
n886=  set %::nick Johnny | set %::idletime $duration(123) | set %::signontime $time($ctime,dd/mm/yy hh:nn:ss) 
n887=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),21,44),32)
n888=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n889=  if ($read -wRAW.317* %mts.x != $null) mts.draw.pre raw.317
n890=
n891=  ; draw Whois 312
n892=  set %::nick Johnny | set %::wserver irc.server.com | set %::serverinfo IRC server
n893=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),21,44),32)
n894=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n895=  if ($read -wRAW.312* %mts.x != $null) mts.draw.pre raw.312
n896=
n897=  ; draw Whois 301
n898=  set %::nick Johnny | set %::text watching a movie
n899=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),21,44),32)
n900=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n901=  if ($read -wRAW.301* %mts.x != $null) mts.draw.pre raw.301  
n902=
n903=  ; draw Whois 318
n904=  set %::nick Johnny
n905=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),21,44),32)
n906=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n907=  if ($read -wRAW.318* %mts.x != $null) mts.draw.pre raw.318
n908=  goto nowhois
n909=
n910=  :whois
n911=  set %::nick Johnny | set %::address another@who.com | set %::realname Johnny the last
n912=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),21,44),32)
n913=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n914=  if ($read -wWhois* %mts.x != $null) mts.draw.pre Whois
n915=
n916=  :nowhois
n917=
n918=  ; draw Join
n919=  set -u0 %::nick Bill
n920=  set -u0 %::address gates@microsoft.com
n921=  set -u0 %::chan #preview
n922=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),8,44),32)
n923=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n924=  mts.draw.pre Join
n925=
n926=  ; draw NoticeChan
n927=  set -u0 %::nick Bill
n928=  set -u0 %::address gates@microsoft.com
n929=  set -u0 %::chan #preview
n930=  set -u0 %::text Bill Gates is in the house! :)
n931=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),13,44),32)
n932=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n933=  mts.draw.pre NoticeChan
n934=
n935=  ; draw Part
n936=  set -u0 %::text $null
n937=  set -u0 %::nick Bill
n938=  set -u0 %::address gates@microsoft.com
n939=  set -u0 %::chan #preview
n940=
n941=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),17,44),32)
n942=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n943=  mts.draw.pre Part
n944=
n945=  ; draw TextChan
n946=  set -u0 %::nick l33t_guy
n947=  set -u0 %::address i.am.so.lame@lamest.com
n948=  set -u0 %::cmode +
n949=  set -u0 %::text I am flooding! I am flooding! I am flooding! I am flooding!
n950=  set -u0 %::chan #preview
n951=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),12,44),32)
n952=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n953=  mts.draw.pre TextChan
n954=
n955=  ; draw quit
n956=  set -u0 %::nick l33t_guy
n957=  set -u0 %::address i.am.so.lame@lamest.com
n958=  set -u0 %::chan #preview
n959=  set -u0 %::text flooding
n960=  set -u0 %::parentext $dll(" $+ $mircdirdata\dll\mtsgen.dll",MTSEvalString,$gettok($read(%mts.x,w,ParenText*),2-,32))
n961=  var %m = $gettok($gettok(%RGB,3-,32),$gettok($gettok(%colors,2-,32),17,44),32)
n962=  set %:echo Xdrawtext -rbp @MTS $rgb( [ [ %m ] ] ) $rgb( [ [ %l ] ] ) $mts.get.font 0
n963=  mts.draw.pre Quit
n964=
n965=  ; update colors (why doesnt this fucking shit work?!)
n966=
n967=  ; var %i = 0 | while (%i != 15) { drawreplace -r @MTS [ [ $color(%i) ] ] [ [ $rgb( [ [ $gettok($gettok(%RGB,2-,32),$calc(%i +1),32)) ] ] ) ] ] | inc %i }
n968=  ; drawreplace -r @MTS [ [ $color(15) ] ] [ [ $rgb( [ [ $gettok(%RGB,17,32) ] ] ) ] ] 
n969=
n970=  ; set back basecolors and prefix
n971=  set %::c1 %:::c1
n972=  set %::c2 %:::c2
n973=  set %::c3 %:::c3
n974=  set %::c4 %:::c4
n975=  set %::pre %:::pre
n976=
n977=  ; unload script (if any)
n978=  if (%h) { .unload -rs %::loaded_theme | set %::loaded_theme %:::loaded_theme }
n979=
n980=  ; set back colors
n981=
n982=  var %i = 0 | while (%i != 16) { color %i $rgb( [ [ $gettok(%oldcolors,$calc(%i +1),32)) ] ] ) | inc %i }
n983=
n984=  ; unset settings
n985=  unset %m
n986=  unset %l
n987=  unset %RGB
n988=  unset %:::*
n989=  unset %::realname
n990=  unset %::idletime
n991=  unset %::signontime
n992=  unset %::wserver
n993=  unset %::serverinfo
n994=  unset %::isregd
n995=  unset %::isoper
n996=  unset %::operline
n997=  unset %o
n998=  unset %p
n999=  unset %q
n1000=  unset %r
n1001=  unset %t
n1002=  unset %f
n1003=  unset %g
n1004=  unset %h
n1005=  unset %c.bg
n1006=  unset %y
n1007=  unset %pre.stamp
n1008=  unset %now.stamp
n1009=}
n1010=
n1011=alias mts.get.font {
n1012=  if ($gettok($gettok($read(%mts.x,w,FontChan*),2-,32),1,44)) set %o $ifmatch
n1013=  else set %o Verdana
n1014=  if ($left(%o,1) != ") set %o " $+ %o $+ "
n1015=  if ($gettok($gettok($read(%mts.x,w,FontChan*),2,32),2,44)) set %p $ifmatch
n1016=  else set %p 13
n1017=  set %q $calc($gettok(%o,0,32) - 1)
n1018=  return %o %p
n1019=}
n1020=
n1021=alias Xdrawtext { 
n1022=  set %r 1- $+ $calc(7 + %q)
n1023=  set %t $calc(8 + %q) $+ -
n1024=  .drawtext $gettok($1-,%r,32) %g $iif(%pre.stamp,$asctime($ctime,%now.stamp)) $gettok($1-,%t,32) | inc %g $calc(%f +3)
n1025=}
n1026=
n1027=alias mts.draw.pre {
n1028=  var %z = $dll(" $+ $mircdirdata\dll\mtsgen.dll",MTSEvalString,$gettok($read(%mts.x,w,$1 $+ *),2-,32))
n1029=  if (%z = mtsgen.dll MTSEvalString) return
n1030=  ; echo -s z = %z
n1031=  if (%z) {
n1032=    if ($gettok(%z,1,32) == !script) $gettok(%z,2-,32)
n1033=    else %:echo %z
n1034=  }
n1035=}