how can i make my message like "ThIs Is My MeSsAgE"

alias upndown { var %d = 1,%e,%t | while (%d <= $len($1-)) { %t = $mid($1-,%d,1) | %e = %e $+ $iif($asc(%t) != 32,$iif(%t isalpha,$iif($right(%e,1) islower || (!%e),$upper(%t),$lower(%t)),%t),$chr(160)) | inc %d } | return $replace(%e,$chr(160),$chr(32)) }

make an on input event containing $upndown($1-)

i know the code is huge , but i only just put it together after reading this.

man, i need INPUT

lol /help events

on *:INPUT:#:{
haltdef
say $upndown($1-)
}