menu channel {
  • .Reverse text
    ..$style($groupState(#revtext,2,0)) On: .enable #revtext
    ..$style($groupState(#revtext,0,2)) Off: .disable #revtext
}

alias groupState if $group($1) == on { return $2 } | return $3

alias reverse {
  • var %i = 1, %len = $len($1-), %text
    while %i <= %len {
    %text = $mid($1-,%i,1) $+ %text
    inc %i
    }
    $iif($isid,return,say) %text
}

#revtext off
On *:input:#:{
  • if /* !iswm $1 && !$ctrlenter {
    say Reversed: $reverse($1-)
    halt
    }
}
#revtext end