# ISOzapp v0.3 by Stric <stric@ing.umu.se> and Joose| <joose@xtatic.flum.org>
# 
# A script for BitchX v71 and higher, mostly for people who uses
# an ISO-8859-1 font (The X-font 'fixed' for example)

@zapp.ver = [0.3]
@showmirc = [ON]
@zapp = [ISOzapp]
@nick_theme = [1]
@str_theme  = [1]
eval set FORMAT_VERSION [$$0(${zapp}-v${zapp.ver})] $$2 $$3
eval set CLIENT_INFORMATION  [And leave mine to me!]
eval $srand($time())
@a = [$zapp]

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

# 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

set INPUT_PROMPT %c$C%K>
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_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%K: %n$color($2-)%K]

set cloak 0
alias cecho echo $mircansi($cparse("$0-"))
alias csay say $mircansi$cparse("$0-"))

# Nick-completions
set FORMAT_NICK_COMP $nick_comp($0 $1-)
set FORMAT_NICK_AUTO $nick_comp($0 $1-)
alias nick_comp {
  if ([$nick_theme]==[random]) {
    @tmp_nick_theme=[$rand($max_nick_comp)]+1
  }{
    @tmp_nick_theme=[$nick_theme]
  }
  switch ($tmp_nick_theme) {
    (1)  { @function_return=[$0,$1-] }
    (2)  { @function_return=[.o[$0]o.$1-] }
    (3)  { @function_return=[$0:$1-] }
    (4)  { @function_return=[$0:$1-] }
    (5)  { @function_return=[:$0:$1-] }
    (6)  { @function_return=[:$0:$1-] }
    (7)  { @function_return=[[$0]$1-] }
    (8)  { @function_return=[\($0\)$1-] }
    (9)  { @function_return=[$0 -$1-] }
    (10) { @function_return=[«$0»$1-] }
    (11) { @function_return=[$ranmirccols($0):$1-] }
  }
}
@max_nick_comp=[10]
# Set to 11 if you want the ^C style colors enabled..
# Commands will replace this procedure later..

alias znt {
  if ([$isdigit($0)] && ([$0]>=[1]) && ([$0]<=[$max_nick_comp])) {
    @nick_theme=[$0]
    cecho $G Nick theme installed: $nick_comp($N  I rock you!)
  } elsif (([$0]==[A]) || ([$0]==[R])) {
    switch ($0) {
      (R) {
        @nick_theme=[$rand($max_nick_comp)]+1
        cecho $G Nick theme installed: $nick_comp($N  I rock you!)
      }
      (A) {
        @nick_theme=[random]
        cecho $G Will use random theme each time
      }
    }
  } elsif ([$0]==[]) {
    cecho $G %K[%c-%K]-----(%CPlease select one of the nick-completions below%K)-----[%c-%K]
    for (@curr=[1], curr <= max_nick_comp, @curr++) {
      @nick_theme=[$curr]
      cecho $G %K[%C$[-2]curr%K] %n$nick_comp($N  $zapp is The Script!)
    }
    input "Num 1-$max_nick_comp, r for random, a for always random, blank for no change: " {
      if (([$0]=![]) && (([$isdigit($0)]) || ([$0]==[R]) || ([$0]==[A]))) {
        znt $0
      }
    }
  } else {
    cecho $G %K[%CUSAGE%K] %g/%GZNT %cnumber/r/a    %wNumber is %W1%w - %W$max_nick_comp
    cecho $G %K[%CUSAGE%K]                    %wA = Always random, R = Random once
  }
}

# Numerics themes
alias num_str {
  switch ($str_theme) {
    (1)  { @function_return=[%C=%RZ%C=%n] }
    (2)  { @function_return=[%CI%RS%CO%n] }
    (3)  { @function_return=[%Cz%RA%Cp%n] }
    (4)  { @function_return=[%C*%RZ%C*%n] }
    (5)  { @function_return=[%RI%CS%RO%n] }
    (6)  { @function_return=[%R=%CS%R=%n] }
    (7)  { @function_return=[%R=%CZ%R=%n] }
    (8)  { @function_return=[%Rz%CA%Rp%n] }
    (9)  { @function_return=[%CZ%Ra%CP%n] }
    (10) { @function_return=[%RZ%Ca%RP%n] }
  }
}
@max_num_str=[10]

alias znst {
  if ([$isdigit($0)] && ([$0]>=[1]) && ([$0]<=[$max_num_str])) {
    @str_theme=[$0]
    ^set SHOW_NUMERICS_STR $cparse("$num_str()")
    cecho $G Numerics theme installed
  } elsif ([$0]==[R]) {
    @str_theme=[$rand($max_num_str)]+1
    ^set SHOW_NUMERICS_STR $cparse("$num_str()")
    cecho $G Numerics theme installed
  } elsif ([$0]==[]) {
    cecho $G %K[%c-%K]-----(%CPlease select one of the numerics-completions below%K)-----[%c-%K]
    for (@curr=[1], curr <= max_num_str, @curr++) {
      @str_theme=[$curr]
      cecho %K[%C$[-2]curr%K] %n$num_str() This is a normal text...
    }
    input "Num 1-$max_num_str, r for random theme, blank for no change: " {
      if (([$0]=![]) && (([$isdigit($0)]) || ([$0]==[R])))  {
        znst $0
      }
    }
  } else {
    cecho $G %K[%CUSAGE%K] %g/%GZNST %cnumber/r     %wNumber is %W1%w - %W$max_num_str
    cecho $G %K[%CUSAGE%K]                    %wR = Random once
  }
}
^eval set SHOW_NUMERICS_STR $cparse("$num_str()")


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

alias zmirc {
  if ([$0] == [ON]) { @showmirc=[ON]
  } elsif ([$0] == [OFF]) { @showmirc=[OFF]
  } elsif ([$0] == []) {
    if ([$showmirc] == [ON]) { @showmirc=[OFF] } { @showmirc=[ON] }
  } else {
    cecho $G %K[%CUSAGE%K] %g/%GZMIRC ON%K|%GOFF   %K(%wNo argument to toggle%K)
  }
  if (([$0]==[ON]) || ([$0]==[OFF]) || ([$0] == [])) {
    if ([$showmirc]==[ON]) { cecho $G %K[%CTOGGLE%K] %cmIRC colors are now %WENABLED }
    if ([$showmirc]==[OFF]) { cecho $G %K[%CTOGGLE%K] %cmIRC colors are now %WDISABLED }
  }
}


alias zme {
  if ([$mychannels()] && [$0-]) {
    @chans = [$sar(g/$C //$mychannels())]
    @chans = [$sar(g/ #/,#/$chans)]
    if ([$chans]) { ^describe $chans$0- }
    if ([$C])     { me $0- }
  } elsif ([$0-]==[]) {
    cecho %K[%CUSAGE%K] %g/%GZME %K<%caction description%K>
  }
}

alias zcts {
  clear
  topic $0
  sc $0
}

alias zaway {
  if ([$1]==[]) {
    cecho %K[%CUSAGE%K] %g/%GZAWAY %K<%cNew nick%K> <%cAway message%K>
  } {
    @oldnick=[$N]
    nick $0
    //away $1-
  }
}

alias zback {
  if ([$0]==[]) {
    nick $oldnick
  } {
    nick $0
  }
  //back
}

alias zhelp {
  cecho $G %K[%CHELP%K]%C----%c----%B-----%b----%K-----%K[%c-%K]---------------------------------[%c-%K]
  cecho $G %K[%CHELP%K] %MHelp %mfor%K.............[%c-%K]%c Made by Stric <stric@ing.umu.se>
  cecho $G %K[%CHELP%K] %K.........%m$zapp%M v${zapp.ver}%K[%c-%K]%c and Joose| <joose@xtatic.flum.org>
  cecho $G %K[%CHELP%K]%K----%b----%B-----%c----%C-----%K[%c-%K]---------------------------------[%c-%K]
  cecho $G %K[%CHELP%K] %g/%K%GZHELP               %K[%c-%K]%G Shows this text
  cecho $G %K[%CHELP%K]%K-------(%CThemes%K)-------[%c-%K]---------------------------------[%c-%K]
  cecho $G %K[%CHELP%K] %g/%K%GZNT %K[%Gtheme%K]         %K[%c-%K]%G Select Nick-completion theme
  cecho $G %K[%CHELP%K] %g/%K%GZNST %K[%Gtheme%K]        %K[%c-%K]%G Select Numerics str theme
  cecho $G %K[%CHELP%K]%K------(%CAway/Back%K)-----[%c-%K]---------------------------------[%c-%K]
  cecho $G %K[%CHELP%K] %g/%K%GZAWAY nick reason   %K[%c-%K]%G Away with nick change
  cecho $G %K[%CHELP%K] %g/%K%GZBACK %K[%Gnick%K]        %K[%c-%K]%G Back with nick change
  cecho $G %K[%CHELP%K]                      %K[%c-%K]%G (No parameter = Old nick)
  cecho $G %K[%CHELP%K]%K--------(%CMisc%K)--------[%c-%K]---------------------------------[%c-%K]
  cecho $G %K[%CHELP%K] %g/%K%GZCTS                %K[%c-%K]%G Does a clear, topic and showchannel
  cecho $G %K[%CHELP%K] %g/%K%GZMIRC %K[%GON%K|%GOFF%K]      %K[%c-%K]%G Toggles mIRC-colors on/off
  cecho $G %K[%CHELP%K] %g/%K%GZME action          %K[%c-%K]%G Action to all channels you are in
  cecho $G %K[%CHELP%K]%K----------------------[%c-%K]---------------------------------[%c-%K]

}


# ranmirccols and rainfade are taken from CrackRock
# No credits to us for this part
alias ranmirccols {
  @colorize=[$0-]
  @colorized=[]
  fec ($colorize) addcolor {
     @colorized=[$colorized$chr(3)$rand(15)$addcolor]
  }
  @function_return=[$colorized]
}

@rainbow=[${cl}${red} ${cl}${grn} ${cl}${yel} ${cl}${blu} ${cl}${mag} ${cl}${cyn} ${cl}${wht} ${hblk} ${hred} ${hgrn} ${hyel} ${hblu} ${hmag} ${hcyn} ${hwht}]
alias rainfade {
  @colorize=[$0-]
  @colorized=[]
  @crazyindex=0
  fec ($colorize) addcolor {
    @colorized=[$colorized$word($crazyindex $rainbow)$addcolor]
    @crazyindex=crazyindex + 1
    if (crazyindex > #rainbow) {
      @crazyindex=0
    }
  }
  @function_return=[$colorized]
}

# Startup message
cecho $G %K[%CSCRIPT%K] %w$zapp v${zapp.ver} loaded!
cecho $G %K[%CSCRIPT%K] %C/ZHELP %cfor help about the commands