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 " 14,1Morphs into " $+ 14,1 $+ $newnick $+  $+ " 
      inc %i
    }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:JOIN:#: {
    /display $chan $nick " 14,1Joins " $+ 14,1 $+ $chan $+  $+ "  
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:VOICE:#: {
    /display $chan $vnick " 14,1Voiced in " $+ 14,1 $+ $chan $+  $+ "  
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:OP:#: {
    /display $chan $opnick " 14,1Opped in " $+ 14,1 $+ $chan $+  $+ "  
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:PART:#: {
    /display $chan $nick " 14,1Leaves " $+ 14,1 $+ $chan $+  $+ "  
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RAW 307:*:/set %whois.line2 $2-
RAW 311:*:/set %whois.line1 $2-
RAW 312:*:/set %whois.line4 $2-
RAW 317:*:/set %whois.line5 $2-
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.dynamic == 11 ) {
    /echo -a %whois.line1
    /echo -a %whois.line2
    /echo -a %whois.line3
    /echo -a %whois.line4

    if ( %whois.line5 != $null ) { /echo -a %whois.line5 }

    /echo -a %whois.line6
    /echo -a %whois.line7
    /echo -a %whois.line8
    /echo -a %whois.line9
    /echo -a %whois.line10

    /unset %whois.line1
    /unset %whois.line2
    /unset %whois.line3
    /unset %whois.line4
    /unset %whois.line5
    /unset %whois.line6
    /unset %whois.line7
    /unset %whois.line8
    /unset %whois.line9
    /unset %whois.line10
    /unset %whois.dynamic  
  }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias display {
  if ( $window( $chan ).state == normal || $window( $chan ).state == maximized ) {
    /set %windowlength $calc( $calc( $window( $chan ).dw - 265 ) / 8.1 )
  }

  /set %textstring $4-

  if ( $len( %textstring ) > 432 ) {
    /set %textstring $left(%textstring,432)
  }

  /set %nameline 1

  :displayer

  /set %textstringpos $calc( $len(%textstring) - 1 )


  while ( %textstringpos > 0 && $len(%textstring) > %windowlength ) {

    while ( $mid( %textstring , %textstringpos , 1 ) != $chr(32) && %textstringpos > 0 ) {
      /dec %textstringpos
    }

    if ( %textstringpos < %windowlength && %textstringpos > 0 ) {
      if ( %nameline == 1 ) {
        /echo $1 $str(  $+ $chr(32) , $calc( 30 - $len( $$2 ) ) ) $3 $+ $+ $iif( $2 == $me ,9, $iif( $3 == @ ,11, $iif( $3 == + ,8, $iif( $3 == * ,7,$iif( $3 == " ,14))))) $+ $$2 $+  $+ $3 $left( %textstring , %textstringpos )
        %nameline = 0
      }
      else {
        /echo $1 $str(  $+ $chr(32) , 33 ) $left( %textstring , %textstringpos )
      }
      /set %textstring $right( %textstring , $calc( %textstringpos * -1 ) )
      /set %textstringpos $calc( $len(%textstring) - 1 )
    }
    else {
      /dec %textstringpos
    }
  }





  if ( $len(%textstring) > 0 ) {

    if ( %nameline == 1 ) {
      if ( $len(%textstring) > %windowlength ) {

        %nameline = 0
        /echo $1 $str(  $+ $chr(32) , $calc( 30 - $len( $$2 ) ) ) $3 $+ $iif( $2 == $me , $+ %display.me, $iif( $3 == @ ,11, $iif( $3 == + ,8, $iif( $3 == * ,7,$iif( $3 == " ,14))))) $+ $$2 $+  $+ $3 $left(%textstring,%windowlength)

        /set %textstring $right(%textstring,$calc(-1 * %windowlength))
        goto displayer
      }
      else {
        /echo $1 $str(  $+ $chr(32) , $calc( 30 - $len( $$2 ) ) ) $3 $+ $iif( $2 == $me , $+ %display.me, $iif( $3 == @ ,11, $iif( $3 == + ,8, $iif( $3 == * ,7,$iif( $3 == " ,14))))) $+ $$2 $+  $+ $3 %textstring
      }
    }
    else {
      if ( $len(%textstring) > %windowlength ) {
        /echo $1 $str(  $+ $chr(32) , 33 ) $left(%textstring,%windowlength)
        /set %textstring $right(%textstring,$calc(-1 * %windowlength))
        goto displayer

      }
      else {
        /echo $1 $str(  $+ $chr(32) , 33 ) %textstring
      }
    }
  }
  haltdef
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias configure {
  if ($dialog(configure)) { dialog -v $ifmatch }
  else { dialog -m configure configure }
}
dialog configure {
  title "Display Setup"
  size -1 -1 300 200
  option dbu
  box "Options",1,2 2 250 150

  text "&Normal Color:",10,10 21 45 14,right
  edit %display.no,11,60 20 31 11,autohs limit 2 center
  text "&Voice Color:",12,10 32 45 14,right
  edit %display.vo,13,60 31 31 11,autohs limit 2 center
  text "O&p Color:",14,10 43 45 14,right
  edit %display.op,15,60 42 31 11,autohs limit 2 center
  text "&My Color:",16,10 54 45 14,right
  edit %display.me,17,60 53 31 11,autohs limit 2 center
  text "&Background Color:",18,10 65 45 14,right
  edit %display.bg,19,60 64 31 11,autohs limit 2 center

  button "&Ok",2,5 80 40 12,ok
  button "&Cancel",3,48 80 40 12,cancel

}
on *:dialog:configure:*:*:{

  if ($devent == sclick && $did == 2 ) {
    if ($did(11) isnum 0-16) {
      set %display.no $ifmatch
    }
    if ($did(13) isnum 0-16) {
      set %display.vo $ifmatch
    }
    if ($did(15) isnum 0-16) {
      set %display.op $ifmatch
    }
    if ($did(17) isnum 0-16) {
      set %display.me $ifmatch
    }
    if ($did(19) isnum 0-16) {
      set %display.bg $ifmatch
    }
  }
}