Forums Scripts & Popups Dialogs and colors & Retaining multiple spaces.

on &$^*:text:/(.*)/:#:{
  echo -bfi2lmqt $chan $+(<, $left($remove($nick($chan, $nick).pnick, $nick), 1) , $nick, >) $replace($+($chr(32), $regml(1)), $+($chr(32), $chr(32)), $+($chr(32), $chr(160)))
  haltdef
}

on *:input:*: {
  if !$ctrlenter {
    haltdef
    editbox -n /
    .timergetinput 1 0 getinput
  }
}

alias getinput {
  echo -a Editbox: $replace($editbox($active), $chr(32), $chr(160))
  editbox -a
}

on *:input:*: {
  if !$ctrlenter {
    if $left($1, 1) != / && $left($1, 1) != $readini($mircini,text,commandchar) {
      haltdef
      if !%lines {
        set %linestatus $editbox(Status Window)
        editbox -ns /!
        .timergetinput 1 0 getinput
      }
      inc %lines 1
      set %linewindow [ $+ [ %lines ] ] $active
    }
  }
}

alias getinput {
  echo -a Line %lines Window %linewindow [ $+ [ %lines ] ] Editbox: $replace($editbox(Status Window), $chr(32), $chr(160))
  dec %lines 1
  if !%lines {
    editbox -s %linestatus
  }
  else {
    editbox -ns /!
    .timergetinput 1 0 getinput
  }
}

on *:input:*: {
  if !$ctrlenter {
    if $left($1, 1) != / && $left($1, 1) != $readini($mircini,text,commandchar) {
      haltdef
      if !%lines {
        editbox -na /
        .timergetinput 1 0 getinput $1-
      }
      inc %lines 1
      set %linewindow [ $+ [ %lines ] ] $active
    }
  }
}

alias getinput {
  echo -a Line %lines Window %linewindow [ $+ [ %lines ] ] Editbox: $replace($editbox($active), $chr(32), $chr(160))
  dec %lines 1
  if !%lines {
    editbox -a
  }
  else {
    editbox -na /
    .timergetinput 1 0 getinput $1-
  }
}

on *:input:#: {
  if !$ctrlenter {

    ;If there is already a input queue for this window, simply add one additional line.
    if $hget(input, lines) {
      haltdef
      hinc input lines 1
      hadd input $+(line, $hget(input, lines)) $1-
    }

    ;If the primary editbox is empty, recall the last line for the primary editbox.
    elseif $editbox($active) == $null {
      haltdef
      hinc input lines 1
      hadd input $+(line, $hget(input, lines)) $1-
      editbox -afn /
      .timergrabinput 1 0 grabinput 1
    }

    ;If the primary editbox is not empty, but the secondary editbox is, recall the last line for the secondary editbox.
    elseif $editbox($active, 1) == $null {
      haltdef
      hinc input lines 1
      hadd input $+(line, $hget(input, lines)) $1-
      editbox -afno /
      .timergrabinput 1 0 grabinput
    }

    ;Catch the error in case the secondary editbox is unavailable.
    :error
    reseterror
  }
}

;Grab the input entries.
alias -l grabinput {

  ;Compare the value with a tokenized version of the editbox, to see if they match.
  if $1 {
    tokenize 32 $editbox($active)
    if $hget(input, $+(line, $hget(input, lines))) == $1- {
      hadd input $+(line, $hget(input, lines)) $hardspace($editbox($active))
      hdec input lines 1

      ;If there are more lines in queue, request the next editbox line.
      if $hget(input, lines) {
        editbox -afn /
        .timergrabinput 1 0 grabinput 1
        return
      }

      ;Clear the editbox.
      editbox -a
    }
    else {
      editbox -a

      ;If the primary editbox does not match, but the secondary editbox is empty, recall the last line for the secondary editbox.
      if $editbox($active, 1) == $null {
        editbox -afno /
        .timergrabinput 1 0 grabinput
        return
      }
    }
  }
  else {
    tokenize 32 $editbox($active, 1)
    if $hget(input, $+(line, $hget(input, lines))) == $1- {
      hadd input $+(line, $hget(input, lines)) $hardspace($editbox($active, 1))
      hdec input lines 1

      ;If there are more lines in queue, request the next editbox line.
      if $hget(input, lines) {
        editbox -afno /
        .timergrabinput 1 0 grabinput
        return
      }
    }

    ;If the result does not match, and the first editbox is empty, return the focus to the first editbox.
    elseif $editbox($active) == $null {
      editbox -af
    }

    ;Clear the editbox.
    editbox -ao
  }

  ;Catch the error in case the secondary editbox is unavailable.
  :error
  reseterror
  hdel input lines
  evalinput
}

;Evaluate the input entries.
alias -l evalinput {
  var %count 1
  while $hget(input, $+(line, %count)) != $null {
    tokenize 32 $hget(input, $+(line, %count))

    ;If the first parameter does not start with /, say the line in the channel.
    if $left($remove($1, $chr(160)), 1) != / && $left($remove($1, $chr(160)), 1) != $readini($mircini,text,commandchar) {
      say $1-
    }

    ;If the first parameter equals /me, emote the remaining line in the channel.
    elseif $right($remove($1, $chr(160)), -1) == me {
      me $2-
    }

    ;Remove the $chr(160) signs and execute the line.
    else {
      $remove($1-, $chr(160))
      ;Include an errorcatcher, to allow further lines to execute.
      :error
    }
    hdel input $+(line, %count)
    var %count $calc(%count + 1)
  }
}

alias -l hardspace return $replace($+($chr(32), $1-), $+($chr(32), $chr(32)), $+($chr(32), $chr(160)), $+($chr(160), $chr(32)), $+($chr(160), $chr(160)))

   word1   word2   word3   
___word1 __word2 __word3 __

;/KeepSpaces <window>
;$keepspaces(<window>)
alias KeepSpaces {
  ;this subs out every character for it's nummeric value, then stores it into a &binvar
  bset &tmp $regsubex($editbox($$1-),/(.)/g,$asc(\t) $+ $chr(32))
  ;dostuff with &tmp. Possibly add it to a hashtable(/hadd -b) to recall later[$hget(table,item,&var)]?
}

on *:input:*: {
  if !$ctrlenter {

    ;If there is already an input queue, simply add one additional line.
    ;(Checking the timer is merely a safety net. It should always be running while %inputlines is set).
    if %inputlines && $timer(grabinput) {
      haltdef
      inc %inputlines 1
      inc %inputlinem 1
      set %inputline [ $+ [ %inputlines ] ] $1-
      return
    }

    ;(Removing the variables is merely a safety net. They should always be removed at the end of an input run).
    unset %inputline*

    ;If there is no input queue, and the line is a command, stop processing unless it's /say, /me, /msg or /describe.
    set %inputlinec $readini($mircini, text, commandchar)
    if $left($1, 1) == / || $left($1, 1) == %inputlinec {
      if $right($1, -1) != say && $right($1, -1) != me && $right($1, -1) != msg && $right($1, -1) != describe {
        if $right($1, -1) != .say && $right($1, -1) != .me && $right($1, -1) != .msg && $right($1, -1) != .describe {
          return
        }
      }
    }

    ;If the primary editbox is empty, recall the last line for the primary editbox.
    if $editbox($active) == $null {
      haltdef
      set %inputlines 1
      set %inputlinem 1
      set %inputline1 $1-
      editbox -afn /
      .timergrabinput 1 0 grabinput 1
    }

    ;If the primary editbox is not empty, but the secondary editbox is, recall the last line for the secondary editbox.
    elseif $editbox($active, 1) == $null {
      haltdef
      set %inputlines 1
      set %inputlinem 1
      set %inputline1 $1-
      editbox -afno /
      .timergrabinput 1 0 grabinput
    }

    ;Catch the error in case the secondary editbox is unavailable.
    :error
    reseterror
  }
}

;Grab the input entries.
alias -l grabinput {

  ;Compare the value with a tokenized version of the editbox, to see if they match.
  if $1 {
    tokenize 32 $editbox($active)
    if %inputline [ $+ [ %inputlines ] ] == $1- {
      set %inputline [ $+ [ %inputlines ] ] $editbox($active)
      dec %inputlines 1

      ;If there are more lines in queue, request the next editbox line.
      if %inputlines {
        editbox -afn /
        .timergrabinput 1 0 grabinput 1
        return
      }

      ;Clear the editbox.
      editbox -a
    }
    else {
      editbox -a

      ;If the primary editbox does not match, but the secondary editbox is empty, recall the last line for the secondary editbox.
      if $editbox($active, 1) == $null {
        editbox -afno /
        .timergrabinput 1 0 grabinput
        return
      }
    }
  }
  else {
    tokenize 32 $editbox($active, 1)
    if %inputline [ $+ [ %inputlines ] ] == $1- {
      set %inputline [ $+ [ %inputlines ] ] $editbox($active, 1)
      dec %inputlines 1

      ;If there are more lines in queue, request the next editbox line.
      if %inputlines {
        editbox -afno /
        .timergrabinput 1 0 grabinput
        return
      }
    }

    ;If the result does not match, and the first editbox is empty, return the focus to the first editbox.
    elseif $editbox($active) == $null {
      editbox -af
    }

    ;Clear the editbox.
    editbox -ao
  }

  ;Catch the error in case the secondary editbox is unavailable.
  :error
  reseterror

  ;Send all input entries for evaluation.
  set %inputlines 0
  while %inputlines < %inputlinem {
    inc %inputlines 1
    noop $evalinput(%inputline [ $+ [ %inputlines ] ] )
  }
  unset %inputline*
}

;Evaluate the input entry.
alias -l evalinput {
  var %line $1
  tokenize 32 %line

  ;If the first parameter does not start with /, send the line to the channel.
  if $left($1, 1) != / && $left($1, 1) != %inputlinec {
    say $hardspace(%line)
    return
  }

  ;Remove the first parameter from the line.
  var %line $right(%line, $calc(0 - $pos(%line, $1, 1) - $len($1)))

  ;If the first parameter equals /say or /me, send the remaining line to the channel.
  if $right($1, -1) == say ||  $right($1, -1) == .say || $right($1, -1) == me || $right($1, -1) == .me {
    $right($1, -1) $hardspace(%line)
    return
  }

  ;Remove the second parameter from the line.
  var %line $right(%line, $calc(0 - $pos(%line, $2, 1) - $len($2)))

  ;If the first parameter equals /msg or /describe, send the remaining line to $2.
  if $right($1, -1) == msg || $right($1, -1) == .msg || $right($1, -1) == describe || $right($1, -1) == .describe {
    $right($1, -1) $2 $hardspace(%line)
    return
  }

  ;Execute the space tokenized version as a regular alias. Include an :error to allow further lines to execute.
  $1-
  :error
}

;Replace non breaking spaces by normal spaces. (Only required at the very end to output the line again.)
alias -l hardspace return $replace($+($chr(32), $1-), $+($chr(32), $chr(32)), $+($chr(32), $chr(160)), $+($chr(160), $chr(32)), $+($chr(160), $chr(160)))

on &$^*:text:/(.*)/:#:{
  echo -bfi2lmqt $chan $+(<, $left($remove($nick($chan, $nick).pnick, $nick), 1) , $nick, >) $replace($+($chr(32), $regml(1)), $+($chr(32), $chr(32)), $+($chr(32), $chr(160)))
  haltdef
}

;/KeepSpaces <window>
;$keepspaces(<window>)
alias KeepSpaces {
  ;this subs out every character for it's nummeric value, then stores it into a &binvar
  bset &tmp $regsubex($editbox($$1-),/(.)/g,$asc(\t) $+ $chr(32))
  ;dostuff with &tmp. Possibly add it to a hashtable(/hadd -b) to recall later[$hget(table,item,&var)]?
}