#echo %%% Loading DALop...

# DALop and the companion loader script by Wizzu <wizzu@dal.net>


# aliases and functions:

# NewEcho, used to report stuff by script
alias ne xecho -level crap ###
# Opnote and wallop echo aliases
alias eopnote xecho -level opnote
alias ewallop xecho -level wallop


# A /who command to list all IRC Operators
alias iops ${K}${K}who -operators 0

# Servname. Trim the "xx.dal.net" from server names. From MirclMax.
# Modified by Wizzu (to work for any number of parameters)
alias servname {
  if ([$1]) {
    if (match(*.dal.net $0))
      { @ function_return = [$left($index(. $0) $0) ] ## [$servname($1-)] }
      { @ function_return = [$0 ] ## [$servname($1-) ] }
  } {
    if (match(*.dal.net $0))
      { @ function_return = [$left($index(. $0) $0)] }
      { @ function_return = [$0] }
  }
}

# Length. Returns length of string.
#alias length {@function_return = [$rindex($right(1 $0-) $0-)] + 1}
alias length {@ string = [$0-];@ function_return = [$@string];^assign -string}

# Trim. Drop first and last character from string.
alias trim {@ function_return = [$mid(1 ${[$length($0-)] - 2} $0-)]}


# The entire show script
#echo %%% Loading show.irc...

alias show_types {
  foreach show show_curr {
    @ show_keys = [$show_keys] ## [$show_curr ]
  }
  @ function_return = [$show_keys]
  ^assign -show_curr
  ^assign -show_keys
}

# add_show(show_key show_var alias_show_on alias_show_off description)
alias add_show {
  @ show[$0] = [$1 $2 $3 $encode($4-)]
}

alias show {
  if ([$0]) {
    if ([$1]) {
      ^assign showval $1
    } {
      ^assign showval ON
    }
    if (show[$0]) {
      if (([$showval]==[OFF])||([$showval]==[-])) {
        $word(2 $show[$0])
      } {
        $word(1 $show[$0])
      }
    } {
      xecho -level crap ### Unknown show type, types available: $show_types()
    }
    ^assign -showval
  } {
    eval xecho -level crap ### Show settings, ${K}show <type> to set on, ${K}show <type> OFF to set off
    foreach show show_curr {
      eval @ show_curr_val = [\$$word(0 $show[$show_curr])]
      if ([$show_curr_val]) {
        xecho -level crap ### [$show_curr] $decode($word(3 $show[$show_curr])) = $show_curr_val
      } {
        xecho -level crap ### [$show_curr] $decode($word(3 $show[$show_curr])) is off
      }
    }
    ^assign -show_curr_val
    ^assign -show_curr
  }
}



# DALop required, this is just the companion script
load DALop

eval xecho -level crap ### DALop by Wizzu loaded. (29-Jun-96)  To get started, try ${K}show
eval xecho -level crap ### Commands: global kline unkline globops iops show