### colors
assign BLNK 
assign CL 
assign BLK 
assign RED 
assign GRN 
assign YEL 
assign BLU 
assign MAG 
assign CYN 
assign WHT 
assign BBLK 
assign BRED 
assign BGRN 
assign BYEL 
assign BBLU 
assign BMAG 
assign BCYN 
assign BWHT 
assign HBLK 
assign HRED 
assign HGRN 
assign HYEL 
assign HBLU 
assign HMAG 
assign HCYN 
assign HWHT 
assign ST1 

@stric.ver = [0.1]
@showmirc = [ON]
eval set FORMAT_VERSION [$$0(Stric.irc-v${stric.ver})] $$2 $$3
eval set CLIENT_INFORMATION  [And leave mine to me!]

# The status-bar
eval set STATUS_FORMAT1 ${CL}${BBLU}${ST1}\(${CYN}%T${ST1}) \(${CYN}User: %N%#%A${ST1})%M \(${CYN}On: %@%=%C%+%W${ST1}) ${CYN}%Q %H%B %>%F
eval set STATUS_FORMAT2 ${CL}${BBLU}%L %!  %K ${ST1}\(${CYN}Aw%^${ST1}) %>%D
eval set STATUS_LAG ${ST1}\(${CYN}Lag %L${ST1})
eval set STATUS_MAIL  ${ST1}\(${CYN}Mail: %M${ST1})
eval set STATUS_OPER_KILLS ${ST1}\(${CYN}nk %K${ST1}|${CYN}ok %K${ST1})
eval set STATUS_USERS ${ST1}\(${CYN}O:%! N:%! I:%! V:%! F:%!${ST1})
eval set STATUS_NOTIFY ${ST1}\(${HCYN}A: %F${CL}${BBLU}${ST1})
eval set STATUS_QUERY ${ST1}\(${CYN}Query: %Q${ST1})
eval set STATUS_HOLD_LINES ${ST1}\(${CYN}%B${ST1})
eval window set STATUS_FORMAT1 ${STATUS_FORMAT1}
eval window set STATUS_FORMAT2 $STATUS_FORMAT2
eval window set STATUS_LAG $STATUS_LAG
eval window set STATUS_MAIL $STATUS_MAIL
eval window set STATUS_OPER_KILLS $STATUS_OPER_KILLS
eval window set STATUS_USERS $STATUS_USERS
eval window set STATUS_NOTIFY $STATUS_NOTIFY
eval window set STATUS_QUERY $STATUS_QUERY
eval window set STATUS_HOLD_LINES $STATUS_HOLD_LINES

alias cecho echo $cparse("$0-")

alias color {
  if ([$showmirc] == [ON]) {
    @function_return=[$mircansi($*)]
  } {
    @function_return=[$stripmirc($*)]
  }
}

alias mirc {
  if (!(![$0] || [$0]==[ON] || [$0]==[OFF])) {
    cecho $G %K[%CERROR%K] %cInvalid argument!
    cecho $G %K[%CUSAGE%K] %g/MIRC ON %K|%g OFF   %K(%wNo argument to toggle%K)
  }
  if ([$0] == [ON]) {
    @showmirc=[ON]
    cecho $G %K[%CTOGGLE%K] (%cShowMirc %WENABLED%K)
  }
  if ([$0] == [OFF]) {
    @showmirc=[OFF]
    cecho $G %K[%CTOGGLE%K] (%cShowMirc %WDISABLED%K)
  }
  if ([$0] == []) {
    if ([$showmirc] == [ON]) {
      @showmirc=[OFF]
      cecho $G %K[%CTOGGLE%K] (%cShowMirc %WENABLED%K)
    } {
      @showmirc=[ON]
      cecho $G %K[%CTOGGLE%K] (%cShowMirc %WDISABLED%K)
    }
  }
}

alias shelp {
  cecho $G %K[%CHELP%K]%W o%C---------%c--------%B----------%b----- - ---  -
  cecho $G %K[%CHELP%K]%C | %WHelp for Stric.irc v${stric.ver}
  cecho $G %K[%CHELP%K]%C | %K-----------------------
  cecho $G %K[%CHELP%K]%c | %cSince this is an early version
  cecho $G %K[%CHELP%K]%c | %cthere are not that many commands
  cecho $G %K[%CHELP%K]%c | %cright now, but there are more to
  cecho $G %K[%CHELP%K]%B | %ccome in the future..
  cecho $G %K[%CHELP%K]%B |
  cecho $G %K[%CHELP%K]%b | %G/MIRC  %g-%G Toggles mIRC-colors on/off
  cecho $G %K[%CHELP%K]%b | %G/SHELP %g-%G Shows this text
}

set INPUT_PROMPT %c$C%K>
eval set SHOW_NUMERICS_STR $cparse("%R=%c(%GS%c)%R=")
set FORMAT_ACTION %G+ %W$1 %n$color($4-)
set FORMAT_ACTION_AR %G+ %Y$1 %n$color($4-)
set FORMAT_ACTION_OTHER %G+ %n>%c$1 %n$color($3-)
set FORMAT_ACTION_OTHER_AR %G+ %n>%c$1 %n$color($3-)
set FORMAT_ACTION_USER %G+ %y>%c$1 %n$color($3-)
set FORMAT_ACTION_USER_AR %G+ %n>%c$1 %n$color($3-)
set FORMAT_CHANNEL_SIGNOFF $G %K[%CSIGNOFF%K] [%C$1 %K(%n$4-%K)]
set FORMAT_FRIEND_JOIN $G %K[%GJOIN%K] [%C$1%K(%c$2%K) %njoined %W$3%K]
set FORMAT_JOIN $G %K[%CJOIN%K] [%C$1%K(%c$2%K) %njoined %W$3%K]
set FORMAT_KICK $G %K[%CKICK%K] %C$2%K: %W$1 %nkicked %W$3 %K(%n$color($4-)%K)
set FORMAT_KICK_USER $G %K[%CKICK%K] %C$2%K: %W$1 %nkicked %WYou %K(%n$color($4-)%K)
set FORMAT_LEAVE $G %K[%CLEFT%K] [%c$1%K(%n$2%K) %nleft %W$3%K]
set FORMAT_MODE $G %K[%CMODE%K] %c$3 %K[%W$4-%K]%n by %W$1
set FORMAT_MODE_CHANNEL $G %K[%CMODE%K] %c$3 %K[%W$4-%K]%n by %W$1
set FORMAT_NICK_COMP $0,$1-
set FORMAT_NICK_AUTO $0,$1-
set FORMAT_NICKNAME $G %K[%CNICK%K] %K(%W$1%c is now known as %W$3%K)
set FORMAT_NICKNAME_OTHER $G %K[%CNICK%K] %K(%W$1%c is now known as %W$4%K)
set FORMAT_NOTICE %K-%P$1%K(%p$2%K)-%n $color($3-)
set FORMAT_PUBLIC %b(%n$1%b)%n $color($3-)
set FORMAT_PUBLIC_AR %c(%Y$1%c)%n $color($3-)
set FORMAT_PUBLIC_NOTICE %K-%P$1%K:%p$3%K-%n $color($4-)
set FORMAT_PUBLIC_NOTICE_AR %K-%G$1%K:%g$3%K-%n $color($4-)
set FORMAT_PUBLIC_OTHER %b(%n$1%K:%n$2%b)%n $color($3-)
set FORMAT_PUBLIC_OTHER_AR %b(%Y$1%K:%n$2%b)%n $color($3-)
set FORMAT_SEND_ACTION %G+ %W$1 %n$color($3-)
set FORMAT_SEND_ACTION_OTHER %G+ %n-> %W$1%n/%c$2 %n$color($3-)
set FORMAT_SEND_MSG %K[%rmsg%K(%R$1%K)] %n$color($3-)
set FORMAT_SEND_NOTICE %K[%rnotice%K(%R$1%K)] %n$color($3-)
set FORMAT_SEND_PUBLIC %p(%n$2%p)%n $color($3-)
set FORMAT_SEND_PUBLIC_OTHER %p(%n$2%K:%n$1%p)%n $color($3-)
set FORMAT_SIGNOFF $G %K[%CSIGNOFF%K] [%C$1 %K(%n$3-%K)]
set FORMAT_TOPIC $G %K[%CTOPIC%K] [%C$1] %n$color($2-)%K]

# ranmirccols and rainfade are ripped from CrackRock by openface
a