menu Channel {
  Mimic:{
    dialog -am mimicerd mimicerd
  }
}
dialog mimicerd {
  title "Mimic"
  size -1 -1 166 54
  option dbu
  combo 2, 5 36 75 10, sort edit vsbar drop
  button "Apply", 3, 84 35 22 10
  button "Apply", 8, 84 11 22 10
  combo 10, 5 12 75 10, sort edit vsbar drop
  box "Nickname", 11, 2 1 108 51
  box "Channel", 12, 2 26 108 26
  box "Mimic", 1, 113 1 51 25
  box "Reverse Mimic", 9, 113 27 51 25
  radio "Start", 4, 115 10 22 10, group
  radio "Stop", 6, 139 10 22 10
  radio "Start", 5, 115 36 22 10, group
  radio "Stop", 7, 139 36 22 10
}

on *:dialog:mimicerd:init:*: {
  did -c mimicerd 6
  did -c mimicerd 7
  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)
    }
  }
}

on *:text:*:#:mimic $1-
on *:action:*:#:mimic $1-
on *:notice:*:#:mimic $1-
alias -l mimic {
  if ($left($1,1) == !) { halt }
  if (%mimic == 1) && ($nick == %mnick) && (# == %chnl) {
    $iif($event = text,msg,$iif($event = notice,notice,$iif($event = action,describe))) # $1-
  }
  if (%rmimic == 1) && ($nick == %mnick) && (# == %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
    }
    $iif($event = text,msg,$iif($event = notice,notice,$iif($event = action,describe))) # %msgreverse
  }
}