on ^*:text:*:#: {    if ( $1- == $null || $1 ==  || $1 ==  || $1 ==  || $1 ==  || $1 ==  ) {      /display $chan $nick $iif( ( $nick isop $chan ) ,@,$iif( ( $nick isvoice $chan ) ,+,:)) ×    }    else {      /display $chan $nick $iif( $nick isop $chan ,@, $iif( $nick isvoice $chan ,+,:) ) $1-    }    if ( $appactive == $false ) {      if ( %display.bp == y ) {        /beep      }      if ( %display.fl == y ) {        /flash -r3        ;/echo -s r3!!!      }    }}on ^*:text:*:*: {    if ( $1- == $null || $1 ==  || $1 ==  || $1 ==  || $1 ==  || $1 ==  ) {      /display $nick $nick : ×    }    else {      /display $nick $nick : $1-    }    if ( $appactive == $false ) {      if ( %display.bp == y ) {        /beep      }      if ( %display.fl == y ) {        /flash -r3        ;/echo -s r3!!!      }  }};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on ^*:Action:*:#: {    /display $chan $nick * $1-    haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on ^*:Action:*:?: {    /display $nick $nick * $1-    haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on 1:INPUT:#: {    if ( / == $left($1,1) ) {      if ( /me == $1 ) {        if ($2 == $null) {          .me *          /display $chan $me * *        }        else {          /display $chan $me * $2- *          .me $2- *        }        haltdef      }      elseif ( /msg == $1 ) {        ;/echo -a sending message...        if ( $query(hotehcha) == $null ) {          /query $2        }        .msg $2 $3-        /display $2 $me : $3-      }      elseif ( /notice == $1 ) {        .notice $2 $3-        /display $chan $me - $3-         haltdef      }    }    else {      if ( $1- == $null || $1 ==  || $1 ==  || $1 ==  || $1 ==  || $1 ==  ) {        /display $chan $me $iif( ( $me isop $chan ) ,@,$iif( ( $me isvoice $chan ) ,+,:)) ×        /.msg $chan       }      else {        /display $chan $me $iif( ( $me isop $chan ) ,@,$iif( ( $me isvoice $chan ) ,+,:)) $left($1-,432)        /.msg $chan $left($1-,432)      }      haltdef    }};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on 1:INPUT:?: {    if ( / == $left($1,1) ) {      if ( /me == $1 ) {        if ($2 == $null) {          .me *          /display $active $me * *        }        else {          /display $active $me * $2- *          .me $2- *        }
        haltdef      }      elseif ( /msg == $1 ) {        ;/echo -a sending message...        if ( $query($2) == $null ) {          /query $2        }        .msg $2 $3-        /display $2 $me : $3-      }      elseif ( /query == $1 ) {        ;/echo -a QUERY!!! $2 ...        ;/echo -a sending message...        ;if ( $query($2) == $null ) {        ;  /query $2        ;}        ;.msg $2 $3-        ;/display $2 $me : $3-      }      elseif ( /notice == $1 ) {        .notice $2 $3-        /display $active $me - $3-         haltdef      }    }    else {      if ( $1- == $null || $1 ==  || $1 ==  || $1 ==  || $1 ==  || $1 ==  ) {        /display $active $me : ×        /.msg $active       }      else {        /display $active $me : $left($1-,432)        /.msg $active $left($1-,432)      }      haltdef    }};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:NICK: {    var %i = 1    while ( %i <= $comchan($newnick,0) ) {      /display $comchan($newnick,%i) $nick "  $+ %display.se $+ Morphs into $+ %display.no " $+  $+ %display.se $+ $newnick $+  $+ %display.no $+ "       inc %i    }};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:JOIN:#: {    /display $chan $nick "  $+ %display.se $+ Joins $iif(%display.ho == y,( $+ $address($nick,0) $+ ),)  }  if ( $var(display.*,1) == $null ) {    /configure};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:VOICE:#: {    /display $chan $vnick "  $+ %display.se $+ Voiced by $nick};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:DEVOICE:#: {    /display $chan $vnick "  $+ %display.se $+ DeVoiced by $nick};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:OP:#: {    /display $chan $opnick "  $+ %display.se $+ Opped by $nick};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:DEOP:#: {    /display $chan $opnick "  $+ %display.se $+ DeOpped by $nick};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:PART:#: {    /display $chan $nick "  $+ %display.se $+ Leaves $iif(%display.ho == y,( $+ $address($nick,0) $+ ),)};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:QUIT: {    /display #Romeo+Juliet $nick "  $+ %display.se $+ Quits IRC. Quit Message:  $+ %display.no $+ " $+  $+ %display.se $+ $1- $+  $+ %display.no $+ " $iif(%display.ho == y,( $+ $address($nick,0) $+ ),)    ;;;;;;;;;;;;;;;;;need to be able to set the correct channel dynamically....  haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:KICK:#: {    /display $chan $knick "  $+ %display.se $+ Was kicked by  $+ %display.no $+ " $+  $+ %display.se $+ $nick $+  $+ %display.no $+ "  haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:MODE:#: {    /display $chan $nick "  $+ %display.se $+ Sets mode  $+ %display.no $+ " $+  $+ %display.se $+ $1- $+  $+ %display.no $+ "  haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:TOPIC:#: {    /display $chan $nick "  $+ %display.se $+ Changes topic to  $+ %display.no $+ " $+  $+ %display.se $+ $1- $+  $+ %display.no $+ "  haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:BAN:#: {    /display $chan $nick "  $+ %display.se $+ Sets ban mode  $+ %display.no $+ " $+  $+ %display.se $+ $1- $+  $+ %display.no $+ "
  haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:UNBAN:#: {    /display $chan $nick "  $+ %display.se $+ Sets ban mode  $+ %display.no $+ " $+  $+ %display.se $+ $1- $+  $+ %display.no $+ "  haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;on *:NOTICE:*:*: {;  /echo -a YES;    /display $iif( $active == Status Window ,-s,$active) $nick -  $+ %display.se $+ $1-;  haltdef;};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;RAW 307:*:/set %whois.line2 $2-RAW 311:*:/set %whois.line1 $2-RAW 312:*:/set %whois.line4 $2-RAW 317:*:/set %whois.line5 $2 Idle: $iif($int( $calc( $3 / 60 ) ) > 0,$int( $calc( $3 / 60 ) ) $+ Min) $iif($calc( $3 - $calc(60 * $int( $calc( $3 / 60 )))) > 0 ,$calc( $3 - $calc(60 * $int( $calc( $3 / 60 )))) $+ Sec) Logon: $asctime($4)RAW 318:*:{  /set %whois.dynamic 6  /NickServ info $2}RAW 319:*:/set %whois.line3 $2-on *:Notice:*:*:{  if ( $nick == NickServ && %whois.dynamic < 11 ) {    /set %whois.line $+ [ %whois.dynamic ] $1-    /inc %whois.dynamic    if ( %whois.line1 != $null ) { .timerWHO1 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line1 }    if ( %whois.line2 != $null ) { .timerWHO2 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line2 }    if ( %whois.line3 != $null ) { .timerWHO3 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line3 }    if ( %whois.line4 != $null ) { .timerWHO4 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line4 }    if ( %whois.line5 != $null ) { .timerWHO5 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line5 }    if ( %whois.line6 != $null ) { .timerWHO6 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line6 }    if ( %whois.line7 != $null ) { .timerWHO7 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line7 }    if ( %whois.line8 != $null ) { .timerWHO8 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line8 }    if ( %whois.line9 != $null ) { .timerWHO9 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line9 }    if ( %whois.line10 != $null ) { .timerWHO10 1 1 /display $iif( $active == Status Window ,-s,$active) $nick - %whois.line10 }    .timerWHOUN1 1 3 /unset %whois.line1    .timerWHOUN2 1 3 /unset %whois.line2    .timerWHOUN3 1 3 /unset %whois.line3    .timerWHOUN4 1 3 /unset %whois.line4    .timerWHOUN5 1 3 /unset %whois.line5    .timerWHOUN6 1 3 /unset %whois.line6    .timerWHOUN7 1 3 /unset %whois.line7    .timerWHOUN8 1 3 /unset %whois.line8    .timerWHOUN9 1 3 /unset %whois.line9    .timerWHOUN10 1 3 /unset %whois.line10    .timerWHOUNDy 1 3 /unset %whois.dynamic  }};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;alias display {  if ( # isin $active && ( $window( $1 ).state == normal || $window( $1 ).state == maximized ) ) {    /set %windowlength $calc( $calc( $window( $1 ).dw - 265 ) / 8.1 )  }  /set %textstring $4- $+ $chr(32) $+ $chr(32)  if ( $len( %textstring ) > 432 ) {    /set %textstring $left(%textstring,432)  }  if ( %display.hm == y ) {    /set %textstring $replace(%textstring,$me, $+ %display.me $+ $me $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))))  }  /set %nameline 1  :displayer  /set %textstringpos $calc($len(%textstring))  if ( $asc(%textstring) == 215 ) {    /echo $1 $iif(%display.ti == y,$iif($calc(29 - $len($$2)) == 0, $+ $chr(32),$left( $+ %display.ts $+ $chr(91) $+ $asctime(hh:nn:sst) $+ $chr(93) $+  $+, $iif($calc(29 - $len($$2)) > 0,$calc(29 - $len($$2)),0)       )),) $str(  $+ $chr(32) , $calc( $iif(%display.ti == y,29,30) - $len( $$2 ) - $iif(%display.ti == y, 11,0) ) )  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se,$iif( $2 == $me , $+ %display.me, $iif( $3 == @ , $+ %display.op, $iif( $3 == + , $+ %display.vo, $iif( $3 == * , $+ %display.ac, $+ %display.no))))) $+ $$2 $+  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no )))))  }  else {    while ( %textstringpos > 0 && $len(%textstring) > %windowlength ) {      while ( $mid( %textstring , %textstringpos , 1 ) != $chr(32) && %textstringpos > 0 ) {        /dec %textstringpos      }      if ( $len($strip($left(%textstring,%textstringpos))) < %windowlength && %textstringpos > 0 ) {        if ( %nameline == 1 ) {          /echo $1 $iif(%display.ti == y,$iif($calc(29 - $len($$2)) == 0, $+ $chr(32),$left( $+ %display.ts $+ $chr(91) $+ $asctime(hh:nn:sst) $+ $chr(93) $+  $+, $iif($calc(29 - $len($$2) ) > 0,$calc(29 - $len($$2)),0)       )),) $str(  $+ $chr(32) , $calc( $iif(%display.ti == y,29,30) - $len( $$2 ) - $iif(%display.ti == y, 11,0) ) )  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se,$iif( $2 == $me , $+ %display.me, $iif( $3 == @ , $+ %display.op, $iif( $3 == + , $+ %display.vo, $iif( $3 == * , $+ %display.ac, $+ %display.no))))) $+ $$2 $+  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))) $left( %textstring , %textstringpos )          %nameline = 0        }        else {          /echo $1 $str(  $+ $chr(32) , 32 ) $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))) $left( %textstring , %textstringpos )        }        /set %textstring $right( %textstring , $calc( %textstringpos * -1 ) ) $+  $+ %display.no $+ $iif($len($right( %textstring , $calc( %textstringpos * -1 ) ))>0,$chr(32) $+ $chr(32))        /set %textstringpos $calc($len(%textstring))      }      else {        /dec %textstringpos      }    }    /set %textstringpos $calc($len(%textstring))    if ( $len($strip(%textstring)) > 0 ) {      if ( %nameline == 1 ) {        if ( $len($strip(%textstring)) > %windowlength ) {          %nameline = 0          while ( $len($strip($left(%textstring,%textstringpos))) > %windowlength ) { /dec %textstringpos }          ;/echo $1 $str(  $+ $chr(32) , $calc( 30 - $len( $$2 ) ) )  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se,$iif( $2 == $me , $+ %display.me, $iif( $3 == @ , $+ %display.op, $iif( $3 == + , $+ %display.vo, $iif( $3 == * , $+ %display.ac, $+ %display.no))))) $+ $$2 $+  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))) $left(%textstring,%textstringpos)          /echo $1 $iif(%display.ti == y,$iif($calc(29 - $len($$2)) == 0, $+ $chr(32),$left( $+ %display.ts $+ $chr(91) $+ $asctime(hh:nn:sst) $+ $chr(93) $+  $+, $iif($calc(29 - $len($$2)) > 0,$calc(29 - $len($$2)),0)       )),) $str(  $+ $chr(32) , $calc( $iif(%display.ti == y,29,30) - $len( $$2 ) - $iif(%display.ti == y, 11,0) ) )  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se,$iif( $2 == $me , $+ %display.me, $iif( $3 == @ , $+ %display.op, $iif( $3 == + , $+ %display.vo, $iif( $3 == * , $+ %display.ac, $+ %display.no))))) $+ $$2 $+  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))) $left(%textstring,%textstringpos)          /set %textstring $right(%textstring,$calc(-1 * %textstringpos))          goto displayer        }        else {          ;/echo $1 $str(  $+ $chr(32) , $calc( 30 - $len( $$2 ) ) )  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se,$iif( $2 == $me , $+ %display.me, $iif( $3 == @ , $+ %display.op, $iif( $3 == + , $+ %display.vo, $iif( $3 == * , $+ %display.ac, $+ %display.no))))) $+ $$2 $+  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))) %textstring          /echo $1 $iif(%display.ti == y,$iif($calc(29 - $len($$2)) == 0, $+ $chr(32),$left( $+ %display.ts $+ $chr(91) $+ $asctime(hh:nn:sst) $+ $chr(93) $+  $+, $iif($calc(29 - $len($$2)) > 0,$calc(29 - $len($$2)),0)       )),) $str(  $+ $chr(32) , $calc( $iif(%display.ti == y,29,30) - $len( $$2 ) - $iif(%display.ti == y, 11,0) ) )  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se,$iif( $2 == $me , $+ %display.me, $iif( $3 == @ , $+ %display.op, $iif( $3 == + , $+ %display.vo, $iif( $3 == * , $+ %display.ac, $+ %display.no))))) $+ $$2 $+  $+ %display.no $+ $3 $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))) %textstring        }      }      else {        if ( $len($strip(%textstring)) > %windowlength ) {          while ( $len($strip($left(%textstring,%textstringpos))) > %windowlength ) { /dec %textstringpos }          /echo $1 $str(  $+ $chr(32) , 33 ) $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))) $+ $left(%textstring,%textstringpos)          /set %textstring $right(%textstring,$calc(-1 * %textstringpos))          goto displayer        }        else {          /echo $1 $str(  $+ $chr(32) , 32 ) $+ $iif( $3 == " || $3 == - , $+ %display.se ,$iif( $2 == $me && %display.hn == y , $+ %display.me ,$iif( $3 == @ && %display.hn == y , $+ %display.op ,$iif( $3 == + && %display.hn == y , $+ %display.vo ,$iif( $3 == * , $+ %display.ac , $+ %display.no ))))) %textstring        }      }    }  }  haltdef};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;alias configure {  if ($dialog(configure)) { dialog -v $ifmatch }  else { dialog -m configure configure }}dialog configure {  title "Display Setup"  size -1 -1 248 125  option dbu  box "Color Options",1,4 2 118 105  box "Highlight Options",2,126 2 118 52  box "Miscellaneous Options",3,126 55 118 52  text "&Background Color:",8,10 10 45 14,right  Combo 9, 60 9 50 150, drop  text "&Normal Color:",10,10 21 45 14,right  Combo 11, 60 20 50 150, drop  text "&Voice Color:",12,10 32 45 14,right  Combo 13, 60 31 50 150, drop  text "O&p Color:",14,10 43 45 14,right  Combo 15, 60 42 50 150, drop  text "&My Color:",16,10 54 45 14,right  Combo 17, 60 53 50 150, drop  text "&Action Color:",18,10 65 45 14,right  Combo 19, 60 64 50 150, drop  text "&Server Color:",20,10 76 45 14,right  Combo 21, 60 75 50 150, drop  text "&Timestamp Color:",22,10 87 45 14,right  Combo 23, 60 86 50 150, drop  ;text "&Background Color:",22,10 87 45 14,right  ;Combo 23, 60 86 50 150, drop  Check "&Higlight my nick in chat", 30, 140 17 100 15  Check "&Color text along with nickname", 31, 140 28 100 15  Check "&Dynamic Timestamping", 32, 140 60 100 15  Check "&Show Host Information", 33, 140 71 100 15  Check "&Flash On Activity", 34, 140 82 100 15  Check "&Beep On Activity", 35, 140 93 100 15  button "&Ok",5,83 110 40 12,ok  button "&Cancel",6,126 110 40 12,cancel}on *:dialog:configure:*:*:{  if ($devent == init ) {    /set %i 9    while ( %i < 24 ) {      Did -a Configure %i 0 White      Did -a Configure %i 1 Black      Did -a Configure %i 2 Dark Blue      Did -a Configure %i 3 Dark Green      Did -a Configure %i 4 Red      Did -a Configure %i 5 Dark Red      Did -a Configure %i 6 Purple      Did -a Configure %i 7 Orange      Did -a Configure %i 8 Yellow      Did -a Configure %i 9 Green      Did -a Configure %i 10 Teal      Did -a Configure %i 11 Light Blue      Did -a Configure %i 12 Blue      Did -a Configure %i 13 Pink      Did -a Configure %i 14 Dark Gray      Did -a Configure %i 15 Light Gray      /set %i $calc( %i + 2 )    }    /unset %i    Did -c Configure 9 $calc(%display.bg + 1)     Did -c Configure 11 $calc(%display.no + 1)     Did -c Configure 13 $calc(%display.vo + 1)     Did -c Configure 15 $calc(%display.op + 1)     Did -c Configure 17 $calc(%display.me + 1)     Did -c Configure 19 $calc(%display.ac + 1)     Did -c Configure 21 $calc(%display.se + 1)     Did -c Configure 23 $calc(%display.ts + 1)     $iif( %display.hm != $null , Did -c Configure 30 )    $iif( %display.hn != $null , Did -c Configure 31 )    $iif( %display.ti != $null , Did -c Configure 32 )    $iif( %display.ho != $null , Did -c Configure 33 )    $iif( %display.fl != $null , Did -c Configure 34 )    $iif( %display.bp != $null , Did -c Configure 35 )  }  if ($devent == sclick && $did == 5 ) {    set %display.bg $left( $did(9).text ,2)    set %display.no $left( $did(11).text ,2)    set %display.vo $left( $did(13).text ,2)    set %display.op $left( $did(15).text ,2)    set %display.me $left( $did(17).text ,2)    set %display.ac $left( $did(19).text ,2)    set %display.se $left( $did(21).text ,2)    set %display.ts $left( $did(23).text ,2)    /color "Editbox text" %display.me    /color "Background" %display.bg    /color "Listbox" %display.bg    /color "Edit" %display.bg    /color "Inactive" %display.bg    while ( $cnick(0) > 0 ) {      /cnick -r 1    }    /cnick -m2 $me $left( $did(17).text ,2) @    /cnick -m2 ChanServ $left( $did(21).text ,2)    /cnick -m2 * $left( $did(15).text ,2) @    /cnick -m2 * $left( $did(13).text ,2) +    /cnick -n * $left( $did(11).text ,2) *    ;set %display.bg $left( $did(23).text ,2)    if ( $did(30).state == 1 ) { set %display.hm y }    elseif ( %display.hm != $null ) { unset %display.hm }    if ( $did(31).state == 1 ) { set %display.hn y }    elseif ( %display.hn != $null ) { unset %display.hn }    if ( $did(32).state == 1 ) { set %display.ti y }    elseif ( %display.ti != $null ) { unset %display.ti }    if ( $did(33).state == 1 ) { set %display.ho y }    elseif ( %display.ho != $null ) { unset %display.ho }    if ( $did(34).state == 1 ) { set %display.fl y }    elseif ( %display.fl != $null ) { unset %display.fl }    if ( $did(35).state == 1 ) { set %display.bp y }    elseif ( %display.bp != $null ) { unset %display.bp }  }}menu menubar {  Configure mIRC Display:/configure}