Basic — File Browser
Basicv09272000 / Basicv09272000 / SYS / display.ini
display.ini — 35.2 KB — Download this file
[script]
n0=; display settings
n1=alias -l -pre {
n2= if ($1 == 1) return &1ú&3ù&1ú
n3= if ($1 == 2) return &1.&3ø&1.
n4= if ($1 == 3) return &1(&3µ&1)
n5= if ($1 == 4) return &1•&3•&1•
n6= if ($1 == 5) return &1>&3>&1>
n7= if ($1 == 6) return &1ù&3í&1ù
n8= if ($1 == 7) return &1:&3:&1:
n9= if ($1 == 8) return &1*&3*&1*
n10= if ($1 == 9) return &1-&3-&1-
n11=}
n12=alias colorschemes {
n13= tokenize 32 $1-
n14= goto $iif(($istok(purple1 purple2 purple3 orange default gray2 gray1 black green red teal,$1,32)),$1,default)
n15= :purple1 | return 06 06 01 13 06 $whitebg
n16= :purple2 | return 06 13 01 13 06 $whitebg
n17= :purple3 | return 06 13 16 13 16 $blackbg
n18= :orange | return 07 07 16 07 16 1,0,7,7,15,15,15,15,10,15,7,15,7,15,15,15,15,15,7,15,1,1,15,1,15
n19= :default | return 10 11 16 11 14 $blackbg
n20= :gray2 | return 14 14 16 14 14 $blackbg
n21= :gray1 | return 14 14 15 16 15 $blackbg
n22= :black | return 01 01 01 01 01 0,14,4,5,2,3,3,3,3,3,3,1,5,2,14,1,3,2,3,5,1,0,1,0,1
n23= :green | return 09 09 03 09 03 $blackbg
n24= :red | return 04 04 16 04 16 $blackbg
n25= :teal | return 10 04 01 10 05 $whitebg
n26=}
n27=dialog display {
n28= size -3 -3 315 165
n29= title "Display"
n30= option dbu
n31=
n32= tab "General", 1, 5 3 140 155
n33= tab "Themes" , 2
n34= tab "Extras", 35
n35=
n36= button "OK" , 3, 245 150 30 13, ok
n37= button "Cancel" , 4, 280 150 30 13, cancel
n38= button "Help", 5, 210 150 30 13
n39= button "Preview" , 6, 175 150 30 13
n40=
n41= box "Schemes:" , 7, 10 20 65 135, tab 1
n42= radio "default (black bg)" , 8, 15 35 50 7, tab 1
n43= radio "purple1 (white bg)", 9, 15 45 55 7, tab 1
n44= radio "purple2 (white bg)", 10, 15 55 55 7, tab 1
n45= radio "purple3 (black bg)", 11, 15 65 55 7, tab 1
n46= radio "gray1 (black bg)" , 12, 15 75 50 7, tab 1
n47= radio "gray2 (black bg)" , 13, 15 85 50 7, tab 1
n48= radio "orange (black bg)" , 14, 15 95 55 7, tab 1
n49= radio "black (white bg)" , 15, 15 105 50 7, tab 1
n50= radio "green (black bg)" , 16, 15 115 50 7, tab 1
n51= radio "red (black bg)" , 17, 15 125 50 7, tab 1
n52= radio "teal (white bg)" , 18, 15 135 50 7, tab 1
n53= box "Font:" , 19, 78 20 63 25, tab 1
n54= combo 20, 82 30 55 100, drop edit tab 1
n55= box "Size:", 21, 78 46 63 25, tab 1
n56= combo 22, 82 56 55 100, drop edit tab 1
n57= box "Bullet:", 23, 78 72 63 83, tab 1
n58= combo 24, 82 80 55 74, tab 1
n59=
n60= text "Theme:", 25, 10 20 70 7, tab 2
n61= list 26, 10 30 70 80, sort vsbar tab 2
n62=
n63= check "Clear all windows after making changes.", 54, 150 140 110 6
n64= text "Information:", 27, 10 117 50 7, tab 2
n65=
n66= ;edit "", 28, 10 115 130 38, vsbar read multi tab 2
n67= edit "", 28, 10 125 130 28, vsbar read multi tab 2
n68=
n69= button "Load selected", 29, 85 40 50 12, tab 2
n70= button "Unload current", 30, 85 55 50 12, tab 2
n71= button "View in notepad", 31, 85 70 50 12, tab 2
n72= button "Preview theme", 32, 85 85 50 12, disable tab 2
n73= icon 33, 140 0 180 145, %display.ico
n74= text "No preview available.",34, 210 50 200 55, hide
n75=
n76= box "Action prefix:" , 36, 10 20 60 25, tab 35
n77= combo 37, 15 30 50 90, drop edit tab 35
n78= box "Nick alignment:" , 38, 73 20 65 25, tab 35
n79= combo 39, 78 30 55 90, drop tab 35
n80= box "Names alignment:", 40, 10 45 60 25, tab 35
n81= combo 41, 15 55 50 90, drop tab 35
n82= box "Nick brackets:" , 42, 73 45 65 25, tab 35
n83= combo 43, 78 55 55 90, drop edit tab 35
n84= box "Who style:" , 44, 10 70 60 25, tab 35
n85= combo 45, 15 80 50 90, drop tab 35
n86= box "Whois display:" , 46, 73 70 65 25, tab 35
n87= combo 47, 78 80 55 90, drop tab 35
n88=
n89= box "Options:" , 48, 10 95 128 60, tab 35
n90= check "Align brackets around nicknames.", 49, 15 105 100 7, tab 35
n91= check "Prefix nicknames with modes." , 50, 15 115 100 7, tab 35
n92= check "Echo /who replies (instead of window).", 51, 15 125 100 7, tab 35
n93= check "Echo /clone scan results (instead of window).", 52, 15 135 125 7, tab 35
n94= check "Enable netsplit detect." , 53, 15 145 100 7, tab 35
n95=
n96=}
n97=alias -l xtras.detect {
n98= %bracket.nickalign = $iif($did($1,49).state,ON,OFF)
n99= %prefix.modes = $iif($did($1,50).state,ON,OFF)
n100= _set display who $iif($did($1,51).state,echo,win)
n101= _set display clonescan $iif($did($1,52).state,echo,win)
n102= %netsplit = $iif($did($1,53).state,ON,OFF)
n103= %action.prefix = $left($did(37),1)
n104= %nickalign = $did(39)
n105= %showdisplay.names = $did(41)
n106= %bracket.right = $left($did(43),1)
n107= %bracket.left = $right($did(43),1)
n108= _set display whostyle $did(45)
n109= %showdisplay.whois = $did(47)
n110=}
n111=alias disp { %display.ico = $mircexe | dialog -rm display display }
n112=alias -l theme.info {
n113= if ($did(display,26,$did(display,26).sel)) var %tmp = $ifmatch | else return
n114= did -r display 28 | if (%tmp == $format(file)) did -a display 28 (Currently loaded theme) $crlf
n115= var %.x = 0
n116= while (%.x <= 4) {
n117= var %.read = $read -nl %.x theme\ [ $+ [ %tmp ] ]
n118= if ((; Description:* iswm %.read) || (; Display Mode:* iswm %.read)) did -a display 28 $mid(%.read,2) $crlf
n119= if ((; Background color:* iswm %.read) || (; Author:* iswm %.read)) did -a display 28 $mid(%.read,2) $crlf
n120= inc %.x
n121= }
n122=}
n123=on *:dialog:display:sclick:*:{
n124= var %d = $did
n125= if ((%d == 1) || (%d == 35)) { if (%hide.33 == $null) { did -h $dname 34 | did -v $dname 33 } }
n126= if (%d == 2) { did -h $dname 33 | did -v $dname 34 }
n127= if (%d == 24) %display.pre = $did(24,$did(24).sel)
n128= if (%d == 26) theme.info
n129= if (%d == 29) { var %f = $did(26,$did(26).sel) | if (%f) theme %f }
n130= if (%d == 30) untheme
n131= if (%d == 31) { var %f = theme\ $+ $did(26,$did(26).sel) | if ($_isfile(%f)) notepad $ifmatch }
n132= if ((%d == 6) && (($dialog($dname).tab == 35) || ($dialog($dname).tab == 1))) {
n133= if ($did(20)) %display.font = $ifmatch
n134= if ($did(22)) %display.fontsize = $ifmatch
n135= get.scheme | createpreview
n136= }
n137= if (%d == 3) {
n138= if ($instances) { .timer -m 1 0 s.err Unable to modify display while other instances of Basic is running. Please close other instances first. | halt }
n139= xtras.detect $dname
n140= get.scheme
n141= if ($did(54).state) { _set display clearwin on | .timer 1 0 clear_windows }
n142= else _set display clearwin off
n143= if ($did(24)) %display.pre = $replace($did(24,$did(24).sel),&1,%display.color.1,&2,%display.color.2,&3,%display.color.3,,&1,,&2, ,&3)
n144= else %display.pre = &1 $+ %display.color.1 $+ ú&1 $+ %display.color.3 $+ ù&1 $+ %display.color.1 $+ ú&1
n145= if ($did(20)) %display.font = $ifmatch
n146= else %display.font = Terminal
n147= if ($did(22)) %display.fontsize = $ifmatch
n148= else %display.fontsize = 9
n149= if ($istok(Fixedsys Terminal GwdTE_437,%display.font,32)) %display.fontsize = 9
n150= _set display bullet %display.pre
n151= var %.check = $istok(IBMPC GwdTE_437 Terminal,%display.font,32)
n152= display $iif(%.check,-h,-l) %display.fontsize %display.font
n153= unset %display.*
n154= .remove sys\display.bmp
n155= ._pscolor %.TempScheme
n156= }
n157= if (%d == 4) { unset %display.* | .remove sys\display.bmp }
n158= if (%d == 5) {
n159= goto $dialog($dname).tab
n160= :1 | help display_settings | return
n161= :2 | help themes | return
n162= :35 | help display_extras | return
n163= }
n164=}
n165=on *:dialog:display:init:*:{
n166= _progress Loading preview... please wait.
n167= var %c = did -a $dname, %halt = FALSE
n168= if ($format(file)) var %halt = TRUE
n169= else {
n170= var %i = 1
n171= while ($alias(%i)) {
n172= if (*.thm iswm $ifmatch) { var %halt = TRUE | break }
n173= inc %i
n174= }
n175= }
n176= unset %hide.33
n177= if (%halt == TRUE) { did -h $dname 33 | did -v $dname 34 | %hide.33 = 1 }
n178= else { did -v $dname 33 | did -h $dname 34 | did -b $dname 30 }
n179= didtok -a $dname 20 46 Fixedsys.Terminal.IBMPC.GwdTE_437.Courier New
n180= window -h @+ | var %n = 8 9 10 11 12 14 16 17 18 19 20 22 24 26, %i = 1
n181= while ($gettok(%n,%i,32)) {
n182= var %d = $ifmatch
n183= %c 22 %d
n184= if (%d == $window(@+).fontsize) { set %display.fontsize $ifmatch | did -c $dname 22 %i }
n185= if ($-pre(%i)) {
n186= var %:p = $ifmatch
n187= %c 24 %:p
n188= if ($remove($strip(%:p),&1,&2,&3) == $strip($pre)) { did -c $dname 24 %i | %display.pre = $did(24,%i) }
n189= }
n190= if ($did(20,%i) == $i(display,font)) did -c $dname 20 %i
n191= if ($gettok($did($add(%i,7)),1,32) == $i(colors,n1)) did -c $dname $add(%i,7)
n192= inc %i
n193= }
n194= if ($i(display,clearwin) == on) did -c $dname 54
n195= if ($did(22) == $null) { set %display.fontsize $window(@+).fontsize | %c 22 $window(@+).fontsize | did -c $dname 22 $did(22,0) }
n196= set -u %a $findfile($mircdirtheme\,*.thm,@+,did -a [ $dname ] 26 $nopath($1-))
n197= close -@ @+
n198= _progress² 1 11
n199= set %color.1 $c1 $c2 $c3 $c4 $c5
n200= set %color.2 $readini -n $_mircini colours n0
n201= set %display.font $i(display,font)
n202= set %display.pre $pre
n203= settempcolors %color.1 %color.2 %display.font
n204= _progress² 2 11
n205= xtras.init
n206= createpreview
n207= _progress² 11 11
n208=}
n209=alias -l get.scheme {
n210= var %k = 8
n211= while (%k <= 18) {
n212= if ($did(display,%k).state) { %.TempScheme = $gettok($did(display,%k),1,32) | settempcolors $colorschemes(%.TempScheme) | break }
n213= inc %k
n214= }
n215=}
n216=alias -l settempcolors {
n217= %display.color.1 = $1 | %display.color.2 = $2 | %display.color.3 = $3 | %display.color.4 = $4 | %display.color.5 = $5
n218= if ($6) %display.color.array = $6
n219= if ($7) %display.font = $7-
n220=}
n221=alias -l _col return $gettok(%display.color.array,$1,44)
n222=alias -l display.draw drawtext -pb @d.tmp $_col(12) $_col(1) " $+ %display.font $+ " %display.fontsize 1 $1 $_convc($2-)
n223=alias -l _convc {
n224= var %text = $replace($1-,&1,%display.color.1,&2,%display.color.2,&3,%display.color.3,&4,%display.color.4,&5,%display.color.5)
n225= if ($istok(IBMPC Terminal GwdTE_437,%display.font,32)) return %text
n226= return $replace(%text,Ú,.,Ä,-,À,',Ã,|,³,|,¿,.,´,|,Â,.,Å,+,Á,+,Ù,')
n227=}
n228=alias -l _1 {
n229= inc %.1 $height(|,%display.font,%display.fontsize)
n230= ;inc %.1 16
n231= return %.1
n232=}
n233=; extras initialization
n234=alias -l xtras.init {
n235= if (%bracket.nickalign == ON) did -c display 49
n236= if (%prefix.modes == ON) did -c display 50
n237= if ($i(display,who) == echo) did -c display 51
n238= if ($i(display,clonescan) == echo) did -c display 52
n239= if (%netsplit == ON) did -c display 53
n240= _progress² 3 11
n241= didtok -a display 37 44 ð nick action,! nick action,* nick action,> nick action
n242= didtok -a display 39 32 left right
n243= didtok -a display 41 32 left right alternate-left alternate-right
n244= didtok -a display 45 32 simple other
n245= didtok -a display 47 32 box open
n246= %.a = $chr(91) nickname $chr(93)
n247= %.b = ( nickname )
n248= %.c = : nickname :
n249= %.d = < nickname >
n250= %.e = ! nickname !
n251= didtok -a display 43 44 %.a $+ , $+ %.b $+ , $+ %.c $+ , $+ %.d $+ , $+ %.e
n252= _progress² 4 11
n253= ; brackets
n254= var %dr = %bracket.right, %dl = %bracket.left
n255= if ((%dr == $chr(91)) && (%dl == $chr(93))) did -c display 43 1
n256= elseif ((%dr == $chr(40)) && (%dl == $chr(41))) did -c display 43 2
n257= elseif ((%dr == :) && (%dl == :)) did -c display 43 3
n258= elseif ((%dr == <) && (%dl == >)) did -c display 43 4
n259= elseif ((%dr == !) && (%dl == !)) did -c display 43 5
n260= else { did -a display 43 %dr nickname %dl | did -c display 43 6 }
n261= _progress² 5 11
n262= ; action prefix
n263= var %ap = ð!*>
n264= if ($act.pre isin %ap) did -c display 37 $pos(%ap,$ifmatch)
n265= else { did -a display 37 $act.pre nick action | did -c display 37 5 }
n266= _progress² 6 11
n267= ; nick alignment
n268= did -c display 39 $iif(%nickalign == right,2,1)
n269= _progress² 7 11
n270= ; names alignment
n271= if (%showdisplay.names == left) %.snum = 1
n272= elseif (%showdisplay.names == right) %.snum = 2
n273= elseif (*-l* iswm %showdisplay.names) %.snum = 3
n274= elseif (*-r* iswm %showdisplay.names) %.snum = 4
n275= did -c display 41 %.snum
n276= _progress² 8 11
n277= ;who style
n278= did -c display 45 $iif($i(display,whostyle) == simple,1,2) | _progress² 9 11
n279= ;whois
n280= did -c display 47 $iif(%showdisplay.whois == box,1,2) | _progress² 10 11
n281=}
n282=alias -l _me {
n283= %.right = &1 $+ $left($did(display,43),1) $+ &3
n284= %.left = &1 $+ $right($did(display,43),1) $+
n285= if ($did(display,50).state) { var %o = &2@, %v = &2+, %me = $2 $+ $1 }
n286= else var %me = * $+ $1
n287= var %me2 = &3 $+ $1 $+
n288= if ($did(display,49).state) {
n289= if ($did(display,39) == right) {
n290= if ($left(%me,1) isin @+) { %me = $ifmatch $+ $_align(10,$1) | goto b }
n291= %me = %.right $+ $replace($_align(11,%me),@,%o,+,%v,$1,%me2,*, ) $+ %.left | goto c
n292= :b | %me = %.right $+ $+ $replace(%me,@,%o,+,%v,$1,%me2,*, ) $+ %.left | :c
n293= }
n294= else var %me = %.right $+ $replace($align(11,%me),@,%o,+,%v,$1,%me2,*, ) $+ %.left
n295= }
n296= else %me = %.right $+ $replace($remove(%me,*),$1,%me2,@,%o,+,%v) $+ %.left
n297= return %me
n298=}
n299=alias -l createpreview {
n300= window -ph @d.tmp 0 0 332 275
n301= drawrect -f @d.tmp $_col(1) 0 0 0 332 275
n302= %pre = %display.pre
n303= %.1 = 1
n304= var %t = 1, %cmd = display.draw
n305= while (%t < 3) {
n306= %cmd %.1 %pre Nick &3blue-elf` is in use.
n307= %cmd $_1 -> &2[&3ctcp&2(&3remote-&2)]&3 HELP
n308= %cmd $_1 &5-remote- (dub@wildfire.moo.net)- *** channel flags for #timesink: a
n309= %cmd $_1 &5-remote- (dub@wildfire.moo.net)- $str( ,3) a: you will be auto-opped on #timesink on join
n310= %cmd $_1 %pre &1Mode: &1(Sojatwork&1:&3#mIRC +b *!*@kg55u2hel.dial.kolumbus.fi&1)
n311= %cmd $_1 %pre &3backdrop&1 was kicked by&3 BluFire &1(&3banned: Moron 09/19/2000&1)
n312= %cmd $_1 %pre &1Notify:&3 xix &1(&3borg&4@&3205.139.183.41&1) is on IRC.
n313= %cmd $_1 %pre &3shanezzz &1is now known as&3 shane
n314= %cmd $_1 &1 $+ $remove($did(display,37),nick,action) &3dev- $+ $_col(2) is away: tv [lp/on]
n315= %cmd $_1 &1 $+ $remove($did(display,37),nick,action) &3dev- $+ $_col(2) is back -- gone for 3s
n316= %cmd $_1 $_me(remote-,@) $+ people should use their userlists more often
n317= %cmd $_1 $_me(remote-,@) $+ less chance of losing the ops in the chan
n318= %cmd $_1 $_me(demun,+) $+ mp3, Jimi Hendrix [ The Jimi Hendrix Experience ] - Sweet Angel [4m12s]
n319= %cmd $_1 %pre &1Quits&4 $+ :&3 Snert &1(&3bdc&4@&3snert.accesspro.net&1) &4: rebooting
n320= if ($did(display,47) == open) {
n321= %cmd $_1 &1Ú&4Ä(&3whois&4)&1ÄÄÄÄ&4Ä&1ÄÄ-ÄÄ--ÄÄÄÄ&4ÄÄÄÄÄÄÄÄÄÄÄÄ-&1-&4Ä&1Ä&4-
n322= %cmd $_1 &1|&3 blue-elf &1(&5bdc&1@&5bat-96-43.tm.net.my&1) &4[&3Malaysia&4]
n323= %cmd $_1 &1³&5 ircname&1: .
n324= %cmd $_1 &1³&5 server &1: irc.sprynet.com
n325= %cmd $_1 &1ÀÄ&5Ä&1ÄÄÄÄÄÄÄÄÄÄ&5ÄÄ&1-&5Ä&1ÄÄÄÄÄ&5--&1--
n326= }
n327= else {
n328= %cmd $_1 &1Ú&4Ä&1(&3 user &1) $+ $str(Ä,18) $+ &4Ä-&1ÄÄ-&4-Ä&1ÄÄ-Ä¿
n329= %cmd $_1 &1| &4: user (bdc@203.166.69.33) $str( ,9) &1|
n330= %cmd $_1 &1³&5 &4: insert witty comment here $str( ,8) &1:
n331= %cmd $_1 &1³&5 &4: irc.sprynet.com $str( ,18) &1|
n332= %cmd $_1 &1ÀÄ&4Ä&1ÄÄÄÄÄÄÄ&5ÄÄ&1-&4Ä&1ÄÄÄÄÄ&4 --&1--ÄÄÄÄ(&3 whois &1) -Ù
n333= }
n334= %cmd $_1 %pre &1Joins&4:&3 Snert &1(&3bdc&4@&3snert.accesspro.net&1)
n335= %cmd $_1 $_me(assman,*) $+ kewl.. any ide how to get easily a word infront of that line?
n336= %cmd $_1 $_me(rickcp,+) $+ just need the text file with the codes
n337= %cmd $_1 $_me(assman,*) $+ could you send it to me?
n338= inc %t
n339= }
n340= drawsave @d.tmp sys\display.bmp
n341= close -@ @d.tmp
n342= did -g display 33 sys\display.bmp
n343=}
n344=alias clear_windows {
n345= if ($i(display,clearwin) != on) return
n346= clear -s
n347= %.c = 1 | while ($chan(%.c)) { clear $ifmatch | inc %.c }
n348= %.q = 1 | while ($chat(%.q)) { clear = $+ $ifmatch | inc %.q }
n349= %.q = 1 | while ($query(%.q)) { clear $ifmatch | inc %.q }
n350=}
n351=; eof
[aliases]
n0=theme.error { iecho Unable to load theme. Please close other instances of mIRC first. | halt }
n1=theme.save {
n2= _set theme Prev_Clr $readini -n $_mircini colours n0
n3= _set theme Prev_Dsp $i(display,ascii)
n4= _set theme Prev_Fnt $i(display,font)
n5= _set theme Prev_Scm $i(colors,n1)
n6= _set theme Prev_Pre $i(display,bullet)
n7=}
n8=theme.restore {
n9= display - $+ $left($i(theme,Prev_Dsp),1) $i(theme,Prev_Fnt)
n10= setcolors $i(theme,Prev_Clr)
n11= _set display bullet $i(theme,Prev_Pre)
n12= .timer 1 1 _pscolor $i(theme,Prev_Scm)
n13= _unset theme
n14=}
n15=theme {
n16= var %halt = FALSE, %d = $mircdir $+ theme\
n17= if (($1 == list) || ($1 == $null)) { if ($istok(0 $null,$findfile(%d,*.thm,0,1),32)) { iecho No themes found | halt } | iecho Available themes: | var %t = $findfile(%d,*.thm,0,1,iecho $nopath($1-)) | iecho Type /theme <filename.thm> to load | halt }
n18= elseif ($_isfile($1-)) set -u %thm $ifmatch
n19= elseif ($_isfile( [ %d $+ [ $1- ] ] )) set -u %thm $ifmatch
n20= else { bhelp theme | halt }
n21= if ($instances) theme.error
n22= if ($format(file)) { s.err A theme is already loaded. Use /untheme before loading another theme. | halt }
n23= var %i = 1 | while ($alias(%i)) { if (*.thm iswm $ifmatch) { s.err A theme is already loaded. Use /untheme before loading another theme. | var %halt = TRUE | break } | inc %i }
n24= if (%halt == TRUE) halt
n25= if (%thm) { theme.save | .load -a %thm | clear_windows | if ($format(load)) $ifmatch | if ($dialog(display)) dialog -c display }
n26= else iecho No such file.
n27=}
n28=untheme {
n29= if (($format(file)) && ($alias($format(file)))) {
n30= if ($instances) theme.error
n31= theme.restore
n32= if ($format(unload)) $ifmatch
n33= var %z = $alias($format(file))
n34= .unload -a %z
n35= clear_windows
n36= iecho Unloaded %z
n37= if ($dialog(display)) dialog -c display
n38= }
n39=}
n40=_pscolor {
n41= if ($instances) { .timer -m 1 0 s.err Unable to modify display while other instances of Basic is running. Please close other instances first. | halt }
n42= _set colors n1 $1
n43= tokenize 32 $colorschemes($1)
n44= _set colors n0 $replace($1-5,$chr(32),$chr(44))
n45= setcolors $6
n46= var %tmp = $strip($pre)
n47= bind &1 $c1 $mid(%tmp,1,1) &1 $c3 $mid(%tmp,2,1) &1 $c1 $mid(%tmp,3,1) &1
n48= _set display bullet $result
n49= if ($show) iecho Color scheme changed
n50=}
n51=activechat {
n52= return $iif((=* iswm $1) && ($chat($remove($1,=)).status == active),$true,$false)
n53=}
n54=ame {
n55= if (($server) && ($chan(0))) {
n56= var %x = 1
n57= while ($chan(%x)) {
n58= var %c = $ifmatch
n59= me.echo %c $$1 $2-
n60= .describe %c $1-
n61= inc %x
n62= }
n63= }
n64=}
n65=amsg {
n66= if (($server) && ($chan(0))) {
n67= var %c = 1, %s = $iif($show,msg,.msg)
n68= while ($chan(%c)) {
n69= %s $ifmatch $$1 $2-
n70= inc %c
n71= }
n72= }
n73=}
n74=JoinPartDisplay {
n75= var %Short = $1 $+ s $4 $+ $+ $c4 $+ :, %Long = $iif($1 == Join,joined,left),%Mask = $replace($3,@,$bind(,$c4,@,$c3))
n76= if ($_mopt(3,25)) var %Short = $1 $+ s $+ $c4 $+ :
n77= if ($_mopt(2,19)) {
n78= if ($_mopt(0,2)) return $pre $+ $c1 $+ %Short $+ $+ $c3 $2 $+ $c1 $+ ( $+ $c3 $+ %Mask $+ $+ $c1 $+ ) $5-
n79= return $pre $+ $c1 $+ %Short $+ $+ $c3 $2 $5-
n80= }
n81= if ($_mopt(0,2)) return $pre $+ $+ $c3 $2 $+ $c1 $+ ( $+ $c3 $+ %Mask $+ $+ $c1 $+ ) has %Long $4-
n82= return $pre $+ $+ $c3 $1 $+ $c1 $+ has %Long $4-
n83=}
n84=me {
n85= var %a = $active
n86= if ((%a ischan) || ($query(%a) == $active) || ($activechat(%a))) {
n87= .describe $active $$1-
n88= if ($show) me.echo $active $1-
n89= }
n90=}
n91=me.echo {
n92= if ($format(me,$1,$me,$2-)) echo -lti14 $1 $ifmatch
n93= else echo -tli14 $1 $+ $c1 $+ $act.pre $+ $+ $c3 $me $+ $+ $colour(action) $2-
n94=}
n95=msg {
n96= if (($len($2) == 0) || ($2 == $null)) return
n97= if (($server == $null) && (=* !iswm $1)) { iecho /msg - not connected to server. | halt }
n98= if ($show == $false) goto end
n99= bracketcheck
n100= var %_mwin = $iif(@* iswm $active,-slti14,-alti14), %me = $me, %me2 = $+ $c3 $+ $me $+ , %right = $+ $c1 $+ %bracket.right $+ $+ $c3, %left = $+ $c1 $+ %bracket.left $+
n101= if (%prefix.modes == ON) var %o = $+ $c2 $+ @, %v = $+ $c2 $+ +, %me = $iif($me isop $1,@,$iif($me isvo $1,+,*)) $+ $me
n102= else %me = * $+ $me
n103= if (%bracket.nickalign == ON) {
n104= if (%nickalign == right) {
n105= if ($left(%me,1) isin @+) {
n106= %me = $ifmatch $+ $_align(10,$me)
n107= %me = %right $+ $replace(%me,@,%o,+,%v,$me,%me2) $+ %left
n108= }
n109= else %me = %right $+ $replace($_align(11,%me),$me,%me2,*, ) $+ %left
n110= }
n111= else %me = %right $+ $replace($align(11,%me),@,%o,+,%v,$me,%me2,*, ) $+ %left
n112= }
n113= else %me = %right $+ $replace($remove(%me,*),$me,%me2,@,%o,+,%v) $+ %left $+
n114= var %pre = $iif($_mopt(0,23),%me,$bind(,$c1,%bracket.left,)), %pre² = $+ $c1 $+ [ $+ $c3 $+ msg $+ $c1 $+ ( $+ $c3 $+ $1 $+ $+ $c1 $+ )]
n115= if (=* iswm $1) {
n116= if ($activechat($1)) {
n117= if ($format(msg,$1,$me,$2-)) echo $colour(own) $iif($active == $1,$1,%_mwin) $ifmatch
n118= else {
n119= echo $colour(own) -lti14 $1 %pre $2-
n120= if ($active != $1) echo $colour(own) %_mwin %pre² $2-
n121= }
n122= goto end
n123= }
n124= return
n125= }
n126= if ($query($1)) {
n127= if ($format(msg,$1,$me,$2-)) echo $colour(own) -tli14 $1 $ifmatch
n128= else echo $colour(own) -tli14 $1 %pre $2-
n129= if ($active != $1) echo $colour(own) %_mwin %pre² $2-
n130= goto end
n131= }
n132= if ($format(msg,$1,$me,$2-)) {
n133= var %m = $ifmatch
n134= echo $colour(own) $iif(($query($1)) || ($1 ischan),$1,%_mwin) %m
n135= }
n136= elseif ($1 ischan) echo $colour(own) -tli14 $1 %pre $2-
n137= else echo $colour(own) %_mwin %pre² $2-
n138= :end
n139= set %last.relsm $remove($1,=) $2-
n140= .msg $1 $iif((%msg.strip.colors == $true),$strip($2-,c),$2-)
n141=}
n142=say {
n143= if ($server == $null) halt
n144= if ($active == Status Window) halt
n145= if ($query($active)) set %showcomchan. $+ $active $true
n146= .msg $active $1-
n147= if ($show) {
n148= if ($format(say,$active,$me,$repb($1-))) echo -alti14 $ifmatch
n149= else {
n150= bracketcheck
n151= var %.right = $+ $c1 $+ %bracket.right $+ $+ $c3, %.left = $+ $c1 $+ %bracket.left $+
n152= if (%prefix.modes == ON) var %o = $+ $c2 $+ @, %v = $+ $c2 $+ +, %me = $iif($me isop $active,@,$iif($me isvo $active,+,*)) $+ $me
n153= else var %me = * $+ $me
n154= var %me2 = $+ $c3 $+ $me $+
n155= if (%bracket.nickalign == ON) {
n156= if (%nickalign == right) {
n157= if ($left(%me,1) isin @+) {
n158= %me = $ifmatch $+ $_align(10,$me)
n159= %me = %.right $+ $replace(%me,@,%o,+,%v,$me,%me2,*, ) $+ %.left
n160= }
n161= else {
n162= %me = $replace($_align(11,%me),@,%o,+,%v,$me,%me2,*, )
n163= %me = %.right $+ $replace(%me,@,%o,+,%v,$me,%me2,*, ) $+ %.left
n164= }
n165= }
n166= else var %me = %.right $+ $replace($align(11,%me),@,%o,+,%v,$me,%me2,*, ) $+ %.left
n167= }
n168= else %me = %.right $+ $replace($remove(%me,*),$me,%me2,@,%o,+,%v) $+ %.left
n169= echo $colour(own text) -alti14 $iif($_mopt(0,23),%me,%.left) $repb($1-)
n170= }
n171= }
n172=}
n173=setdisplaydefault {
n174= %action.prefix = !
n175= %nickalign = left
n176= %bracket.nickalign = ON
n177= %prefix.modes = ON
n178= %showdisplay.whois = box
n179= %netsplit = ON
n180= %showdisplay.names = left
n181= _set display who win
n182= _set display whostyle other
n183= _set display clonescan win
n184=}
n185=; names
n186=nameshow {
n187= if ($__var(nameshow_II.,$1) == $true) { nameshow2 $1 | return }
n188= unset $_var(nameshow_II.,$1)
n189= if ($i(main,shownames) != on) return
n190= if ($format(nameshow,$1)) { $ifmatch | goto stats }
n191= var %i = 1, %d, %win = $iif($me ison $1,$1,$iif(@* iswm $active,-s,-a))
n192= while ($nick($1,%i)) {
n193= %u = $_op($ifmatch,$1).other
n194= var %d = %d $+ $c1 $+ ³ $nshowalign(%u,%i)
n195= if (%i == 1) {
n196= var %text = ( $+ $c3 $1 $+ $c1 $+ )
n197= var %top = $str(Ä,16) $+ Â $+ $str(Ä,17) $+ Â $+ $str(Ä,17) $+ Â $+ $str(Ä,9) $+ -- - -ÄÄ¿
n198= echo $c1 %win ÚÄ $+ %text $+ $right(%top,$calc(71 - $len($strip(%text))))
n199= }
n200= if (4 // %i) { echo %win $repmode(%d) $+ $c1 $+ ³ | var %d }
n201= inc %i
n202= }
n203= if (%d) {
n204= %o = $sub(4,$numtok($remove($strip(%d), ,³),32))
n205= %s = $+ $c1 $+ ³ $+ $x(17)
n206= echo %win $repmode(%d) $str(%s,%o) $+ $+ $c1 $+ ³
n207= }
n208= :stats
n209= var %gencom = echo $c1 $1 ÃÄ $+ $str(Ä,16) $+ Á $+ $str(Ä,17) $+ Á $+ $str(Ä,17) $+ Á $+ $str(Ä,16) $+ Ä´
n210= ; show stats only
n211= if (($i(main,showstats) == on) && ($i(main,showsynch) != on)) {
n212= if ($format(chan_stats,$1)) echo $1 $format(chan_stats,$1)
n213= else {
n214= %gencom
n215= var %stuff = &c1(&c3T&c4:&c3 $+ $nick($1,0) $+ &c1/&c3O&c4:&c3 $+ $opnick($1,0) $+ &c1/&c3V&c4:&c3 $+ $vnick($1,0) $+ &c1/&c3N&c1:&c3 $+ $nopnick($1,0) $+ &c1)
n216= var %stuff = $replace(%stuff,&c1,$c1,&c3,$c3,&c4,$c4)
n217= var %len = $calc(69 - $len($strip(%stuff)))
n218= echo $c1 $1 ÀÄ $+ %stuff $+ $str(Ä,%len) $+ ÄÙ
n219= }
n220= }
n221= ; show stats plus synch time
n222= elseif (($i(main,showstats) == on) && ($i(main,showsynch) == on)) {
n223= set $_var(_t,$1) $calc(($ticks - $__var(ticks,$1)) / 1000)
n224= if ($format(chan_stats,$1)) echo $1 $format(chan_stats,$1)
n225= if ($format(join_sync,$1,$__var(_t,$1))) { echo -ti14 $1 $ifmatch | return }
n226= %gencom
n227= var %stuff = &c1(&c3T&c4:&c3 $+ $nick($1,0) $+ &c1/&c3O&c4:&c3 $+ $opnick($1,0) $+ &c1/&c3V&c4:&c3 $+ $vnick($1,0) $+ &c1/&c3N&c1:&c3 $+ $nopnick($1,0) $+ &c1)
n228= var %stuff = $replace(%stuff,&c1,$c1,&c3,$c3,&c4,$c4)
n229= var %stuph = $+ $c1 $+ ( $+ $c3 $+ Synch $+ $c4 $+ : $+ $c3 $+ $__var(_t,$1) $+ s $+ $c1 $+ )
n230= var %len = $calc(69 - ($len($strip(%stuff)) + $len($strip(%stuph))))
n231= echo $c1 $1 ÀÄ $+ %stuff $+ $str(Ä,%len) $+ %stuph $+ ÄÙ
n232= }
n233= ; show synch time only
n234= elseif (($i(main,showstats) != on) && ($i(main,showsynch) == on)) {
n235= set $_var(_t,$1) $calc(($ticks - $__var(ticks,$1)) / 1000)
n236= if ($format(join_sync,$1,$__var(_t,$1))) echo -i14 $1 $ifmatch
n237= else {
n238= %gencom
n239= var %stuff = $+ $c1 $+ ( $+ $c3 $+ Synch $+ $c4 $+ : $+ $c3 $+ $__var(_t,$1) $+ s $+ $c1 $+ )
n240= var %len = $calc(69 - $len($strip(%stuff)))
n241= echo $c1 $1 ÀÄ $+ $str(Ä,%len) $+ %stuff $+ ÄÙ
n242= }
n243= }
n244= else if ($format(file) == $null) echo $c1 %win ÀÄ $+ $str(Ä,16) $+ Á $+ $str(Ä,17) $+ Á $+ $str(Ä,17) $+ Á $+ $str(Ä,16) $+ ÄÙ
n245=}
n246=nameshow2 {
n247= %i = 1
n248= %u = ""
n249= %d = ""
n250= %.namesfile = $__var(filename.,$1)
n251= %win = $iif(@* iswm $active,-s,-a)
n252= if (($_isfile(%.namesfile) == $null) && ($me !ison $1)) return
n253= if ($format(nameshow2)) { $ifmatch | goto end }
n254= if ((%.namesfile == $null) || ($_isfile(%.namesfile) == $null)) {
n255= while ($nick($1,%i)) {
n256= %temp = $ifmatch
n257= nameshow3 $1 $iif(%temp isop $1,@,$iif(%temp isvo $1,+,*)) $+ %temp
n258= inc %i
n259= }
n260= }
n261= else {
n262= var %.user.@ = 0, %.user.+ = 0, %.user.r = 0
n263= while ( [ $read -nl %i %.namesfile ] ) {
n264= %temp.nick = $ifmatch
n265= nameshow3 $1 $iif($left(%temp.nick,1) !isin @+, [ * [ $+ [ %temp.nick ] ] ] ,%temp.nick)
n266= if (@* iswm %temp.nick) inc %.user.@
n267= elseif (+* iswm %temp.nick) inc %.user.+
n268= else inc %.user.r
n269= inc %i
n270= }
n271= }
n272= if (%d) {
n273= var %o = $sub(4,$numtok($remove($strip(%d), ,³),32)), %s = $+ $c1 $+ ³ $+ $x(17)
n274= echo %win $repmode(%d) $str(%s,%o) $+ $+ $c1 $+ ³
n275= }
n276= echo $c1 %win ÃÄ $+ $str(Ä,16) $+ Á $+ $str(Ä,17) $+ Á $+ $str(Ä,17) $+ Á $+ $str(Ä,16) $+ Ä´
n277= var %line = ÀÄÄÄÄÄÄÄ-- - -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
n278= if ($me ison $1) var %text = &c1(&c3T&c4:&c3 $+ $nick($1,0) $+ &c1/&c3O&c4:&c3 $+ $opnick($1,0) $+ &c1/&c3V&c4:&c3 $+ $vnick($1,0) $+ &c1/&c3N&c1:&c3 $+ $nopnick($1,0) $+ &c1)
n279= else var %text = &c1(&c3T&c4:&c3 $+ $calc( %.user.r + %.user.@ $+ %.user.+ ) $+ &c1/&c3O&c4:&c3 $+ %.user.@ $+ &c1/&c3V&c4:&c3 $+ %.user.+ $+ &c1/&c3N&c1:&c3 $+ %.user.r $+ &c1)
n280= var %text = $replace(%text,&c1,$c1,&c3,$c3,&c4,$c4)
n281= echo $c1 %win $mid(%line,1,$calc(69 - $len($strip(%text)))) $+ %text $+ ÄÄÄÙ
n282= :end
n283= if ($_isfile(%.namesfile)) .remove $ifmatch
n284= unset %filename. [ $+ [ $1 ] ] %nameshow_II. [ $+ [ $1 ] ] %names
n285= halt
n286=}
n287=nameshow3 {
n288= %u = $2
n289= %d = %d $+ $c1 $+ ³ $nshowalign(%u)
n290= if (%i == 1) {
n291= var %text = ( $+ $c3 $1 $+ $c1 $+ )
n292= var %top = $str(Ä,16) $+ Â $+ $str(Ä,17) $+ Â $+ $str(Ä,17) $+ Â $+ $str(Ä,9) $+ -- - -ÄÄ¿
n293= echo $c1 %win ÚÄ $+ %text $+ $right(%top,$calc(71 - $len($strip(%text))))
n294= }
n295= if (4 // %i) {
n296= echo %win $repmode(%d) $+ $c1 $+ ³
n297= %d = ""
n298= }
n299=}
n300=nshowalign {
n301= if (%showdisplay.names == $null) %showdisplay.names = left
n302= goto %showdisplay.names
n303= :left | return $align(15,$1)
n304= :right
n305= var %b = $remove($1,@,+)
n306= if (@* iswm $1) return @ $+ $_align(14,%b)
n307= if (+* iswm $1) return + $+ $_align(14,%b)
n308= return $_align(15,$1)
n309= :alternate-right | goto $iif(2 // $2,right,left)
n310= :alternate-left | goto $iif(2 // $2,left,right)
n311=}
n312=repmode return $replace($1,+,$bind(,$c2,v),@,$bind(,$c4,@),*, )
n313=; whois
n314=whois.display {
n315= if ($format(whois.display)) { $ifmatch | unset %whois.* | return }
n316= if (%showdisplay.whois != box) { whois.disp2 | unset %whois.* | return }
n317= var %Echo = $iif((($_mopt(2,26)) && (@* !iswm $active)),echo -atli,echo -slti)
n318= if ($1) var %echo = _relwi
n319= var %line = &c1Ú&c4Ä&c1(&c3 %whois.nick &c1) $+ $str(Ä,$calc(31 - $len(%whois.nick))) $+ &c4Ä-&c1ÄÄ-&c4-Ä&c1ÄÄ-Ä¿
n320= %echo $replace(%line,&c1,$c1,&c3,$c3,&c4,$c4)
n321= var %c = 1, %@ = $bind(,$c1,@,$c5), %uhost = %whois.uhost $+ $c1 $+ [ $+ $c5 $+ %whois.ccode $+ $+ $c1 $+ ]
n322= while ($wordwrap(%c,42,%uhost)) {
n323= var %host = $ifmatch
n324= %echo $+ $c1 $+ ³ $+ $c4 $+ : $+ $c5 $replace(%host,@,%@) $whois_space(%host) $+ $c1 $+ ³
n325= inc %c
n326= }
n327= boxline %echo $ansi2mirc(%whois.wname)
n328= if (%whois.chan) boxline %echo $ifmatch
n329= boxline %echo %whois.serv
n330= if (%whois.away) boxline %echo $ifmatch
n331= if (%whois.idle) {
n332= if (seconds !isin $gettok(%whois.idle,3,32)) boxline %echo $duration(%whois.idle)
n333= else boxline %echo $duration($gettok(%whois.idle,1,32)) $+ $c1 $+ ( $+ $c5 $+ sign on $+ $c4 $+ : $asctime($gettok(%whois.idle,2,32)) $+ $+ $c1 $+ )
n334= }
n335= if (%whois.oper) boxline %echo $ifmatch
n336= %Echo $+ $c1 $+ ÀÄ $+ $c4 $+ Ä $+ $c1 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ $+ $c5 $+ ÄÄ $+ $c1 $+ - $+ $c4 $+ Ä $+ $c1 $+ ÄÄÄÄÄ $+ $c4 -- $+ $c1 $+ --ÄÄÄÄ( $+ $c3 whois $+ $c1 $+ ) -Ù
n337= unset %whois.*
n338=}
n339=whowas.display {
n340= if ($format(whowas.display)) { $ifmatch | unset %whowas.* | return }
n341= if (%showdisplay.whois != box) { whowas.disp2 | unset %whowas.* | return }
n342= var %Echo = $iif((($_mopt(2,26)) && (@* !iswm $active)),echo -atli,echo -slti)
n343= var %line = &c1Ú&c4Ä&c1(&c3 %whowas.nick &c1) $+ $str(Ä,$calc(31 - $len(%whowas.nick))) $+ &c4Ä-&c1ÄÄ-&c4-Ä&c1ÄÄ-Ä¿
n344= %echo $replace(%line,&c1,$c1,&c3,$c3,&c4,$c4)
n345= var %c = 1, %uhost = $replace(%whowas.host,@,$bind(,$c1,@,$c5)) $+ $c1 $+ [ $+ $c5 $+ $ccode($gettok(%whowas.host,-1,46)) $+ $+ $c1 $+ ]
n346= while ($wordwrap(%c,42,%uhost)) { var %host = $ifmatch | %echo $+ $c1 $+ ³ $+ $c4 $+ : $+ $c5 %host $whois_space(%host) $+ $c1 $+ ³ | inc %c }
n347= boxline %Echo $ansi2mirc(%whowas.name) | boxline %Echo %whowas.serv | boxline %Echo %whowas.logon
n348= %Echo $+ $c1 $+ ÀÄ $+ $c4 $+ Ä $+ $c1 $+ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ $+ $c5 $+ ÄÄ $+ $c1 $+ - $+ $c4 $+ Ä $+ $c1 $+ ÄÄÄÄ $+ $c4 -- $+ $c1 $+ --ÄÄÄÄ( $+ $c3 whowas $+ $c1 $+ ) -Ù
n349= unset %whowas.*
n350=}
n351=whowas.disp2 {
n352= var %Echo = $iif((($_mopt(2,26)) && (@* !iswm $active)),echo -atli,echo -slti)
n353= %whowas.tmp = $replace(%whowas.host,@,$bind(,$c1,@,$c5))
n354= %whowas.ccd = $ccode($gettok(%whowas.host,$numtok(%whowas.host,46),46))
n355= bind $c1 Ú $c4 Ä ( $c3 whowas $c4 ) $c1 ÄÄÄÄ $c4 Ä $c1 ÄÄ-ÄÄ--ÄÄÄÄ $c4 $str(Ä,2) - $c1 - $c4 Ä $c1 Ä $c4 -
n356= %Echo $result
n357= %Echo $+ $c1 $+ | $+ $c3 %whowas.nick $+ $c1 $+ ( $+ $c5 $+ %whowas.tmp $+ $+ $c1 $+ ) $+ $c1 [ $+ $c3 $+ %whowas.ccd $+ $+ $c1 $+ ]
n358= %Echo $+ $c1 $+ ³ $+ $c5 ircname $+ $c4 $+ : $ansi2mirc(%whowas.name)
n359= %Echo $+ $c1 $+ ³ $+ $c5 server $+ $c4 $+ : %whowas.serv
n360= %Echo $+ $c1 $+ ³ $+ $c5 sign on $+ $c4 $+ : %whowas.logon
n361= %Echo $+ $c1 $+ ÀÄ $+ $c5 $+ Ä $+ $c1 $+ ÄÄÄÄÄÄÄÄÄÄ $+ $c5 $+ ÄÄ $+ $c1 $+ - $+ $c5 $+ Ä $+ $c1 $+ ÄÄÄÄÄ $+ $c5 $+ -- $+ $c1 $+ --
n362=}
n363=boxline {
n364= var %cmd = $iif($1 == echo,$1-2,$1), %text = $iif($1 == echo,$3-,$2-), %i = 1, %temp
n365= while ($wordwrap(%i,42,%text)) {
n366= %temp = $ifmatch
n367= %cmd $+ $c1 $+ $iif($r(1,100) < 50,³,$iif($r(1,10) < 5,:,|)) $+ $+ $c4 $+ : %temp $whois_space(%temp) $+ $c1 $+ $iif($r(1,100) < 50,³,$iif($r(1,10) < 5,:,|)) $+
n368= inc %i
n369= }
n370=}
n371=relwi %whois.relay = on | %whois.window = $active | wii $$1
n372=_relwi if ((%whois.window ischan) || ($chat($remove(%whois.window,=))) || ($query(%whois.window))) msg %whois.window $strip($1-,c) | else $iif((($_mopt(2,26)) && (@* !iswm $active)),echo -atli14,echo -slti14) $1-
n373=whois_space var %len = $len($strip($1-)) | return $iif(%len == 42,,$x($calc(42 - %len)))
n374=; EOF