on ^*:text:*:#: {

    /display $chan $nick $iif( $nick isop $chan ,@, $iif( $nick isvoice $chan ,+,:) ) $1-

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on ^*:Action:*:#: {

    /display $chan $nick * $1-

    haltdef

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:INPUT:#: {



    if ( / isin $1 ) {

      if ( /me == $1 ) {

        if ($2 == $null) {

          .me *

          /display $chan $me * *

        }

        else {

          /display $chan $me * $2- *

          .me $2- *

        }

        haltdef

      }

    }

    else {

      /display $chan $me $iif( ( $me isop $chan ) ,@,$iif( ( $me isvoice $chan ) ,+,:)) $left($1-,432)

      /.msg $chan $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

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:VOICE:#: {

    /display $chan $vnick "  $+ %display.se $+ Voiced in

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:DEVOICE:#: {

    /display $chan $vnick "  $+ %display.se $+ DeVoiced 

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:OP:#: {

    /display $chan $opnick "  $+ %display.se $+ Opped 

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:DEOP:#: {

    /display $chan $opnick "  $+ %display.se $+ DeOpped 

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:PART:#: {

    /display $chan $nick "  $+ %display.se $+ Leaves

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:QUIT: {

    /display #Romeo+Juliet $nick "  $+ %display.se $+ Quits IRC. Quit Message:  $+ %display.no $+ " $+  $+ %display.se $+ $1- $+  $+ %display.no $+ "

  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

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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))



  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 $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 )

        %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)



        /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

      }

    }

    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 105



  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



  Check "&Higlight my nick in chat", 30, 140 20 120 15

  Check "&Color text along with nickname", 31, 140 31 120 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 11 

    while ( %i < 22 ) {

      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 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) 



    $iif( %display.hm != $null , Did -c Configure 30 )

    $iif( %display.hn != $null , Did -c Configure 31 )

  }

  if ($devent == sclick && $did == 5 ) {

    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)



    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 }

  }

}

menu menubar {

  Configure mIRC Display:/configure

}