; Aliases alias smhelp { run $scriptdir $+ statman.hlp } alias statman { sm.opendlg } alias sm.setar { if ($$1 == off) && ($getopt(autorefresh,status) == on) { setopt autorefresh status off | .timerSMAR off } elseif ($$1 >= 10) { setopt autorefresh status on setopt autorefresh rate $$1 .timerSMAR 0 $$1 sm.ar } } alias sm.ar { %sm.refresh = yes | cstats %SMChannel } alias sm.load { %SMFile = $scriptdir $+ $did(sm.stat,104,$did(sm.stat,104,1).sel) $+ .stm if ($exists(%SMFile) == $false) { halt } unset %SM.* %SMChannel = $readini %SMFile Totals Channel %SM.Total = $readini %SMFile Totals Total %SM.ChanOps = $readini %SMFile Totals ChanOps %SM.NonOps = $readini %SMFile Totals NonOps %SM.Voiced = $readini %SMFile Totals Voiced %SM.IRCOps = $readini %SMFile Totals IRCops %SM.Here = $readini %SMFile Totals Here %SM.Away = $readini %SMFile Totals Away %SM.Hops = $readini %SMFile Totals Hops %SM.PerChanOps = $percent(%SM.ChanOps,%SM.Total) %SM.PerNonOps = $percent(%SM.NonOps,%SM.Total) %SM.PerIRCops = $percent(%SM.IRCOps,%SM.Total) %SM.PerVoiced = $percent(%SM.Voiced,%SM.Total) %SM.PerAway = $percent(%SM.Away,%SM.Total) %SM.PerHere = $percent(%SM.Here,%SM.Total) %x = 1 :start1 %y = $readini %SMFile Total %x if (%y != $null) { %SM.Total. [ $+ [ %x ] ] = %y | inc %x 1 | goto start1 } sm.filecheck sm.showstats sm.fillnl } alias sm.save { %SMFile = $scriptdir $+ %SMChannel $+ .stm if ($exists(%SMFile) == $true) { .remove %SMFile } writeini %SMFile Totals Channel %SMChannel writeini %SMFile Totals Total %SM.Total writeini %SMFile Totals ChanOps %SM.ChanOps writeini %SMFile Totals NonOps %SM.NonOps writeini %SMFile Totals Voiced %SM.Voiced writeini %SMFile Totals IRCops %SM.IRCops writeini %SMFile Totals Here %SM.Here writeini %SMFile Totals Away %SM.Away writeini %SMFile Totals Hops %SM.Hops %x = 1 :start1 if (%SM.Total. [ $+ [ %x ] ] != $null) { writeini %SMFile Total %x %SM.Total. [ $+ [ %x ] ] | inc %x 1 | goto start1 } sm.filecheck } alias sm.del { if (%SMFile == $null) { %SMFile = $scriptdir $+ $$1 $+ .stm } if ($exists(%SMFile) == $true) { .remove %SMFile } unset %SMFile sm.filecheck } alias -l percent return $round($calc(($$1 / $$2 ) * 100),2) alias sm.opendlg { if ($dialog(sm.stat) == $null) { dialog -dmn sm.stat sm.dlg } did -c sm.stat $iif($sock(statman,1) != $null,126,127) sm.showstats sm.fillnl sm.filecheck } alias sm.showstats { did -a sm.stat 58 $iif(%SM.Total == $null,0,%SM.Total) did -a sm.stat 59 $iif(%SM.ChanOps == $null,0,%SM.ChanOps) did -a sm.stat 60 $iif(%SM.NonOps == $null,0,%SM.NonOps) did -a sm.stat 61 $iif(%SM.Voiced == $null,0,%SM.Voiced) did -a sm.stat 62 $iif(%SM.IRCops == $null,0,%SM.IRCops) did -a sm.stat 63 $iif(%SM.Here == $null,0,%SM.Here) did -a sm.stat 64 $iif(%SM.Away == $null,0,%SM.Away) did -a sm.stat 65 $iif(%SM.Hops == $null,0,%SM.Hops) did -a sm.stat 66 %SM.PerChanops $+ $chr(37) did -a sm.stat 67 %SM.PerNonOps $+ $chr(37) did -a sm.stat 68 %SM.PerVoiced $+ $chr(37) did -a sm.stat 69 %SM.PerIRCops $+ $chr(37) did -a sm.stat 70 %SM.PerAway $+ $chr(37) did -a sm.stat 71 %SM.PerHere $+ $chr(37) did -a sm.stat 72 Stats for %SMChannel } alias sm.sortnl { window -hls @statman.nicklist window -hls @statman.nicklist.nonalphanum %x = 1 :start if ( [ %SM.Total. [ $+ [ %x ] ] ] != $null) { if ($mid( [ %SM.Total. [ $+ [ %x ] ] ] ,1,1) isletter) || ($mid( [ %SM.Total. [ $+ [ %x ] ] ] ,1,1) isnum) || ($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,2,32) == 1) || ($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,3,32) == 1) { aline @statman.nicklist $iif($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,3,32) == 1,+) $+ $iif($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,2,32) == 1,@) $+ %SM.Total. [ $+ [ %x ] ] } else { aline @statman.nicklist.nonalphanum $iif($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,3,32) == 1,+) $+ $iif($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,2,32) == 1,@) $+ %SM.Total. [ $+ [ %x ] ] } inc %x goto start } %x = 1 :start1 if ($line(@statman.nicklist,%x) != $null) { %SM.Total. [ $+ [ %x ] ] = $remove($line(@statman.nicklist,%x),@,+) inc %x goto start1 } %x = 1 :start2 if ($line(@statman.nicklist.nonalphanum,%x) != $null) { %SM.Total. [ $+ [ $calc($line(@statman.nicklist,0) + %x) ] ] = $line(@statman.nicklist.nonalphanum,%x) inc %x goto start2 } window -c @statman.nicklist window -c @statman.nicklist.nonalphanum } alias cstats { if ($group(#sm.stat).status != on) { unset %SM.* set %SM.Total 0 set %SM.ChanOps 0 set %SM.NonOps 0 set %SM.IRCops 0 set %SM.Away 0 set %SM.Voiced 0 set %SM.Here 0 set %SM.Hops 0 if ($1 == $null) { set %SMChannel $active } else { set %SMChannel $1 } if (#* !iswm %SMChannel) { echo -s 3[StatMan Error]: Unable to retrieve statistics: echo -s                   3You either typed /cstats while not in a channel or typed /cstats with a echo -s                   3parameter which is not a valid channel. halt } .enable #sm.stat who %SMChannel } } alias sm.fillnl { did -r sm.stat 1 %x = 1 :start if (%x <= %SM.Total) { did -a sm.stat 1 $gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,1,32) inc %x goto start } } alias sm.filecheck { if ($len(%SMFile) > 27) { did -a sm.stat 100 Current file: $nopath(%SMFile) } else { did -a sm.stat 100 Current file: $iif(%SMFile != $null,%SMFile,none) } did -r sm.stat 104 %x = 1 :start if ($findfile($scriptdir,*.stm,%x) != $null) { did -a sm.stat 104 $remove($gettok($nopath($findfile($scriptdir,*.stm,%x)),$gettok($nopath($findfile($scriptdir,*.stm,%x)),0,92),92),.stm) inc %x | goto start } } ; Raw #sm.stat off raw 352:*:{ if ($2 == %SMChannel) { inc %SM.Total 1 set %SM.Total. [ $+ [ %SM.Total ] ] $6 $iif(@ isin $7,1,0) $iif(+ isin $7,1,0) $iif(* isin $7,1,0) $iif(H isin $7,1,0) inc %SM.Hops $8 if (@ isin $7) { inc %SM.ChanOps 1 } if (@ !isin $7) { inc %SM.NonOps 1 } if (* isin $7) { inc %SM.IRCops 1 } if (+ isin $7) { inc %SM.Voiced 1 } if (H isin $7) { inc %SM.Here 1 } if (G isin $7) { inc %SM.Away 1 } halt } } raw 315:*:{ if ($2 == %SMChannel) { .disable #sm.stat %SM.PerChanOps = $percent(%SM.ChanOps,%SM.Total) %SM.PerNonOps = $percent(%SM.NonOps,%SM.Total) %SM.PerIRCops = $percent(%SM.IRCOps,%SM.Total) %SM.PerVoiced = $percent(%SM.Voiced,%SM.Total) %SM.PerAway = $percent(%SM.Away,%SM.Total) %SM.PerHere = $percent(%SM.Here,%SM.Total) %SM.Hops = %SM.Hops / %SM.Total %SM.Hops = $iif($len($gettok(%SM.Hops,2,46)) > 3,$round(%SM.Hops,3),%SM.Hops) unset %SMFile sm.sortnl if (%sm.refresh != yes) || ((%sm.refresh == yes) && ($dialog(sm.stat) != $null)) { sm.opendlg } else { %sm.refresh = no } halt } } #sm.stat end ; Events on 1:load: { if ($version < 5.5) { echo 4 -a *** Unable to load StatMan, you must be using at least version 5.5. | unload -rs statman.mrc | halt } sm.welcome } alias sm.welcome { dialog -m sm.welcome sm.welcome did -a sm.welcome 1 Welcome to StatMan99 $+ $crlf did -a sm.welcome 1 $crlf did -a sm.welcome 1 StatMan99 is optimized for mIRC v5.5 and will not work on any older version. $+ $crlf did -a sm.welcome 1 Usage for this script is fairly simple, just type /cstats from any channel. For more info click the "Help" button from StatMan's main window or see $scriptdir $+ smhelp.hlp $+ $crlf did -a sm.welcome 1 $crlf did -a sm.welcome 1 If you have any questions, please email benh@mirc.org and I will try to get back to you as soon as possible $+ $crlf did -a sm.welcome 1 $crlf did -a sm.welcome 1 The latest version of StatMan is available from http://mirc.spaceports.com/statman/ } on 1:start: { if ($getopt(web,status) == on) && ($portfree(80) == $true) { socklisten statman 80 setopt web status on } .disable #sm.stat } on 1:dialog:sm.stat:init:*: { did -f sm.stat 200 if ($getopt(autorefresh,rate) != $null) { did -a sm.stat 129 $getopt(autorefresh,rate) } else { did -a sm.stat 129 10 } if ($getopt(web,status) == on) { did -c sm.stat 126 | did -u sm.stat 127 } } on 1:dialog:sm.stat:dclick:*: { if ($did == 1) { whois $did(1,$did(1,1).sel) } if ($did == 104) { sm.load } } on 1:dialog:sm.stat:sclick:*: { if ($did == 1) { if ($notify($did(1,$did(1,1).sel)) != $null) { did -r sm.stat 5 | did -a sm.stat 5 Remove from Notify } else { did -r sm.stat 5 | did -a sm.stat 5 Add to Notify } } if ($did == 101) { sm.save } if ($did == 102) && ($did(104,1).sel != $null) { sm.load } if ($did == 103) { sm.del %SMChannel } if ($did(1,1).sel != $null) { if ($did == 2) { whois $did(1,$did(1,1).sel) } if ($did == 3) { uwho $did(1,$did(1,1).sel) } if ($did == 4) { dns $did(1,$did(1,1).sel) } if ($did == 5) { notify $iif($notify($did(1,$did(1,1).sel)) != $null,-r) $did(1,$did(1,1).sel) did -r sm.stat 5 did -a sm.stat 5 $iif($notify($did(1,$did(1,1).sel)) != $null,Remove from Notify,Add to Notify) } if ($did == 6) { query $did(1,$did(1,1).sel) } } if ($did == 126) { if ($portfree(80) == $false) && ($sock(statman) == $null) { did -u sm.stat 126 | did -c sm.stat 127 | did -f sm.stat 127 | dialog -mdo sm.webalert sm.webalert } elseif ($sock(statman) == $null) { socklisten statman 80 | setopt web status on } } if ($did == 127) && ($sock(statman).name != $null) { sockclose statman* | setopt web status off } if ($did == 128) { if ($did(129).text >= 10) || ($did(129).text == off) { sm.setar $did(129).text } else { did -r sm.stat 129 | did -a sm.stat 129 10 | did -f sm.stat 129 } } if ($did == 140) && (%SM.Total != $null) && ($did(141).text != $null) { .msg $did(141).text 4<>Stats for %SMChannel $+ : .msg $did(141).text 4<> Total: $+ %SM.Total ChanOps: $+ %SM.ChanOps $+ ( $+ %SM.PerChanOps $+ $chr(37) $+ ) NonOps: $+ %SM.NonOps $+ ( $+ %SM.PerNonOps $+ $chr(37) $+ ) Voiced: $+ %SM.Voiced $+ ( $+ %SM.PerVoiced $+ $chr(37) $+ ) IRCops: $+ %SM.IRCops $+ ( $+ %SM.PerIRCops $+ $chr(37) $+ ) Here: $+ %SM.Here $+ ( $+ %SM.PerHere $+ $chr(37) $+ ) Away: $+ %SM.Away $+ ( $+ %SM.PerAway $+ $chr(37) $+ ) Avg Hops: $+ %SM.Hops $+  .msg $did(141).text 4<>StatMan99 ©Glitch 1999 } if ($did == 142) { %sm.refresh = yes | cstats %SMChannel } if ($did == 143) { unset %SM.* | unset %SMFile | sm.filecheck | sm.showstats | sm.fillnl } if ($did == 154) { smhelp } } ; Dialog table dialog sm.dlg { title "StatMan99" size 50 50 500 388 list 1, 15 185 130 150, sort button "Whois", 2, 150 185 103 25 button "User Central", 3, 150 215 103 25 button "DNS", 4, 150 245 103 25 button "Add to Notify", 5, 150 275 103 25 button "Query", 6, 150 305 103 25 text "Total", 50, 25 25 50 15, left text "ChanOps", 51, 25 40 50 15, left text "NonOps", 52, 25 55 50 15, left text "Voiced" 53, 25 70 50 15, left text "IRCops", 54, 25 85 50 15, left text "Here", 55, 25 100 50 15, left text "Away", 56, 25 115 50 15, left text "Avg. Hops" 57, 25 130 50 15, left text " ", 58, 110 25 50 15, left text " ", 59, 110 40 50 15, left text " ", 60, 110 55 50 15, left text " ", 61, 110 70 50 15, left text " ", 62, 110 85 50 15, left text " ", 63, 110 100 50 15, left text " ", 64, 110 115 50 15, left text " ", 65, 110 130 50 15, left text " ", 66, 190 40 50 15, left text " ", 67, 190 55 50 15, left text " ", 68, 190 70 50 15, left text " ", 69, 190 85 50 15, left text " ", 70, 190 100 50 15, left text " ", 71, 115 50 15, left box " ", 72, 10 7 250 145 50 15, left text "Current file: (none)", 100, 290 25 190 15, left button "Save", 101, 425 45 55 25 button "Load", 102, 425 75 55 25 button "Delete", 103, 425 105 55 25 list 104, 290 45 125 100, sort text "StatMan99 Web Server:", 125, 285 260 150 15 radio "On", 126, 295 275 100 15 radio "Off", 127, 295 290 100 15 button "Set Auto Refresh Rate", 128, 285 310 130 22 edit "", 129, 420 310 30 22 button "Send Stats to:", 140, 275 175 75 22 edit "", 141, 355 175 130 22 button "Refresh", 142, 275 205 100 25 button "Clear", 143, 385 205 100 25 box "Options", 150, 275 242 215 100 box "Nick List", 151, 10 167 250 175 box "File Manager", 152, 275 7 215 145 button "Close", 153, 10 350 55 25, cancel button "Help", 154, 435 350 55 25 button " ", 200, 0 0 0 0, default } dialog sm.webalert { title "Alert" size 150 150 300 78 text "Port 80 is not free. You may be running another web server", 1, 0 10 300 15, center text "such as Microsoft FrontPage's personal web server.", 2, 0 25 300 15, center button "Ok", 3, 128 45 55 25, default cancel } dialog sm.welcome { title "Welcome to StatMan99" size -1 -1 390 236 button "Close", 2, 320 200 55 25, cancel, default edit "", 1, 5 5 380 190, left, multi, read } ; Menu menu channel { StatMan99 .Retrieve stats:/cstats .Open StatMan:/sm.opendlg } ; Web Server on *:socklisten:statman: { sockaccept statman $+ $ticks } on *:sockread:statman*: { sockread %temp if (%SM.Total == $null) { sockwrite $sockname StatMan99 Stat Server $+ $crlf sockwrite $sockname

No stats are currently available

sockclose $sockname } elseif ( [ GET /chatstreamoff * ] iswm %temp) { sockwrite $sockname $+ $crlf sockwrite $sockname Click here to reactivate the chat stream $+ $crlf sockwrite $sockname $+ $crlf sockclose $sockname } elseif ( [ GET /chatstream * ] iswm %temp) { if ($me ison %SMChannel) { sockwrite $sockname $+ $crlf sockwrite $sockname StatMan99 Stat Server: Live chat stream in %SMChannel $+ $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname
Live Chat Stream from %SMChannel $+ Click here to turn off the chat stream
$+ $crlf sockwrite $sockname $+ $crlf sockmark $sockname sendlog:0 } else { sockwrite $sockname $+ $crlf sockwrite $sockname StatMan99 Stat Server: Live chat stream in %SMChannel $+ $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname

Live Chat Stream Not available

$+ $crlf sockclose $sockname } } elseif ( [ GET /header * ] iswm %temp) { sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname
$+ $crlf sockwrite $sockname
$+ $crlf sockwrite $sockname
$+ $crlf sockwrite $sockname
$+ $crlf sockwrite $sockname Stats and Live Chat Stream for %SMChannel $+ $+ $crlf sockwrite $sockname
$+ $crlf sockwrite $sockname
Topic:
$+ $crlf sockwrite $sockname $iif($chan(%SMChannel).topic == $null,Not available,$html($chan(%SMChannel).topic)) $+ $crlf sockwrite $sockname
$+ $crlf sockwrite $sockname $+ $crlf sockclose $sockname } elseif ( [ GET /nicklist * ] iswm %temp) { sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf %x = 1 :start1 if (%SM.Total. [ $+ [ %x ] ] != $null) { sockwrite $sockname $+ $crlf inc %x 1 goto start1 } sockwrite $sockname sockwrite $sockname
Nick list
$+ $iif($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,4,32) == 1,) $+ $iif($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,5,32) == 0,) $+ $iif($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,3,32) == 1,+) $+ $iif($gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,2,32) == 1,@) $+ $gettok( [ %SM.Total. [ $+ [ %x ] ] ] ,1,32) $+
$+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname
Key:
@NickOp
+NickVoiced
BoldNickIRCop
GrayNickAway
sockclose $sockname } elseif ( [ GET / * ] iswm %temp) { sockwrite $sockname $+ $crlf sockwrite $sockname StatMan99 Web Server: %SMChannel $+ $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockclose $sockname } elseif ( [ GET /footer * ] iswm %temp) { sockwrite $sockname
This Page Generated by StatMan99 ... by Glitch
$+ $crlf sockclose $sockname } elseif ( [ GET /stats * ] iswm %temp) { sockwrite $sockname $+ $crlf sockwrite $sockname StatMan99 Stat Server: Stats for %SMChannel $+ $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname $+ $crlf sockwrite $sockname
Total $+ %SM.Total $+
ChanOps $+ %SM.ChanOps $+ $+ %SM.PerChanOps $+ $chr(37) $+
NonOps $+ %SM.NonOps $+ $+ %SM.PerNonOps $+ $chr(37) $+
Voiced $+ %SM.Voiced $+ $+ %SM.PerVoiced $+ $chr(37) $+
IRCops $+ %SM.IRCops $+ $+ %SM.PerIRCops $+ $chr(37) $+
Here $+ %SM.Here $+ $+ %SM.PerHere $+ $chr(37) $+
Away $+ %SM.Away $+ $+ %SM.PerAway $+ $chr(37) $+
Avg Hops $+ %SM.Hops $+
$+ $crlf sockwrite $sockname sockwrite $sockname sockclose $sockname } } alias statweb.sendtoall { %x = 1 :start if ($sock(statman*,%x) != $null) { if (sendlog* iswm $sock(statman*,%x).mark) { %sent = $gettok($sock(statman*,%x).mark,2,58) inc %sent $len($$1-) sockmark $sock(statman*,%x).name sendlog:: $+ %sent sockwrite $sock(statman*,%x).name $$1- if (%sent >= 1000) { sockmark $sock(statman*,%x).name sendlog::0 sockwrite $sock(statman*,%x).name sockclose $sock(statman*,%x).name } } inc %x goto start } } on *:JOIN:%SMChannel:if ($getopt(web,status) == on) { /set %sendto $+ $timestamp *** Joins: $nick ( $+ $address $+ ) $+ | /statweb.sendtoall $html(%sendto) } on *:PART:%SMChannel:if ($getopt(web,status) == on) { /set %sendto $+ $timestamp *** Parts: $nick ( $+ $address $+ ) $+ | /statweb.sendtoall $html(%sendto) } on *:TEXT:*:%SMChannel:if ($getopt(web,status) == on) { /set %sendto $timestamp < $+ $nick $+ > $$1- | /statweb.sendtoall $html(%sendto) } on *:ACTION:*:%SMChannel:if ($getopt(web,status) == on) && (@#* !iswm $target) { /set %sendto $+ $timestamp * $nick $$1- $+ | /statweb.sendtoall $html(%sendto) } on *:NICK:if ($getopt(web,status) == on) { /set %sendto $+ $timestamp *** $nick is now known as $newnick $+ | /statweb.sendtoall $html(%sendto) } alias -l html { %text = $$1- %x = 1 %boldflag = 0 %underflag = 0 :start if (%x <= $len(%text)) { if ($mid(%text,%x,1) == ) { if (%boldflag = 0) { %text = $left(%text,$calc(%x - 1)) $+ $+ $right(%text,$calc($len(%text) - %x)) | %boldflag = 1 } else { %text = $left(%text,$calc(%x - 1)) $+ $+ $right(%text,$calc($len(%text) - %x)) | %boldflag = 0 } } if ($mid(%text,%x,1) == ) { if (%underflag = 0) { %text = $left(%text,$calc(%x - 1)) $+ $+ $right(%text,$calc($len(%text) - %x)) | %underflag = 1 } else { %text = $left(%text,$calc(%x - 1)) $+ $+ $right(%text,$calc($len(%text) - %x)) | %underflag = 0 } } inc %x goto start } %face = FACE=Fixedsys %text = $replace(%text,0,,1,,2,,3,,4,,5,,6,,7,,8,,9,,10,,11,,12,,13,,14,,15,,16,) %text = $replace(%text,,) %text = $+ %text $+ ;%text = $remove(%text, [ $chr(44) $+ 0 ] , [ $chr(44) $+ 1 ] , [ $chr(44) $+ 2 ] , [ $chr(44) $+ 3 ] , [ $chr(44) $+ 4 ] , [ $chr(44) $+ 5 ] , [ $chr(44) $+ 6 ] , [ $chr(44) $+ 7 ] , [ $chr(44) $+ 8 ] , [ $chr(44) $+ 9 ] , [ $chr(44) $+ 10 ] , [ $chr(44) $+ 11 ] , [ $chr(44) $+ 12 ] , [ $chr(44) $+ 13 ] , [ $chr(44) $+ 14 ] , [ $chr(44) $+ 15 ] , [ $chr(44) $+ 16 ] ) if (%boldflag = 1) { %text = %text $+ } if (%underflag = 1) { %text = %text $+ } %x = 0 :start1 if (%x <= 16) { %commaN = $chr(44) $+ %x %text = $remove(%text,%commaN) inc %x goto start1 } %text = %text $+ $str(,$calc($count(%text,,$calc($count(%text,,$calc($count(%text, } alias -l getopt { return $readini $scriptdir $+ statman.ini $$1 $$2 } alias -l setopt { writeini $scriptdir $+ statman.ini $$1- }