on *:TEXT:*:#: {
  if ($left($1,1) == !) { halt }
  if (%mimic == 1) && ($nick == %mnick) {
    msg # $1-
  }
  elseif (%rmimic == 1) && ($nick == %mnick) {
    var %nintext $len($1-) + 1
    while (0 < %nintext) {
      var %msgreverse %msgreverse $+ $mid($1-, $+ %nintext $+ ,1)
      if ($mid($1-, $+ %nintext $+ ,1) == $chr(32)) { var %msgreverse %msgreverse $chr(32) }
      %nintext = %nintext - 1
    }
    msg # %msgreverse
  }
  elseif (%mimic == 1) && (# == %chnl) {
    msg # $1-
  }
  elseif (%rmimic == 1) && (# == %chnl) {
    var %nintext $len($1-) + 1
    while (0 < %nintext) {
      var %msgreverse %msgreverse $+ $mid($1-, $+ %nintext $+ ,1)
      if ($mid($1-, $+ %nintext $+ ,1) == $chr(32)) { var %msgreverse %msgreverse $chr(32) }
      %nintext = %nintext - 1
    }
    msg # %msgreverse
  }
}

menu Channel,Query {
  Mimicer:{
    dialog -am mimicerd mimicerd
  }
}

;, $did, xlocation ylocation length height
dialog mimicerd {
  title "MIMIC"
  size -1 -1 113 74
  option dbu
  text "Channel", 1, 5 26 35 8
  combo 2, 5 35 75 10, sort edit drop vsbar
  button "OK", 3, 85 34 20 12
  button "Copy cat", 4, 5 48 50 12
  button "Reverse", 5, 60 48 50 12
  button "Copy off", 6, 5 61 50 12
  button "Rev off", 7, 60 61 50 12
  button "OK", 8, 85 11 20 12
  text "Nick", 9, 5 3 35 8
  combo 10, 5 12 75 10, sort edit drop vsbar
}

on *:dialog:mimicerd:init:*: {
  did -a $dname 2,10
  var %Allnicks $nick($active,0)
  while (%Allnicks > 0) {
    did -a $dname 10 $nick($active,%Allnicks)
    dec %Allnicks
  }
  var %Allchans $chan(0)
  while (%Allchans > 0) {
    did -a $dname 2 $chan(%Allchans)
    dec %Allchans
  }
}

on *:dialog:mimicerd:sclick:*: {
  if ($did == 3) {
    if (!$did(2)) { unset %chnl }
    else {
      set %chnl $did(2)
    }
  }
  if ($did == 4) { set %mimic 1 }

  if ($did == 5) { set %rmimic 1 }

  if ($did == 6) { unset %mimic }

  if ($did == 7) { unset %rmimic }

  if ($did == 8) {
    if (!$did(10)) { unset %mnick }
    else {
      set %mnick $did(10)
    }
  }

}