menu channel {
-
Ha-Ha $chr(9) $+([,$iif($group(#haha).status == on,ON,OFF),])
.Turn $chr(9) $iif($group(#haha).status == on,OFF,ON) { $iif($group(#haha).status == on,.disable,.enable) #haha | echo -a * Ha-Ha is now: $iif($group(#haha).status == on,ON,OFF) }
.-
.ha: say $rephaha(ha)
.haa: say $rephaha(haa)
.he: say $rephaha(he)
.hee: say $rephaha(hee)
.ho: say $rephaha(ho)
.hoo: say $rephaha(hoo)
.hi: say $rephaha(hi)
.hii: say $rephaha(hii)
-
}
alias -l rephaha {
if ($1 == ha) { return Ha.Ha.Ha }
if ($1 == haa) { return Ha.Ha.Ha.Ha.Ha.Ha.Ha.Ha.Ha }
if ($1 == he) { return He.He.He }
if ($1 == hee) { return He.He.He.He.He.He.He.He.He }
if ($1 == ho) { return Ho.Ho.Ho }
if ($1 == hoo) { return Ho.Ho.Ho.Ho.Ho.Ho.Ho.Ho.Ho }
if ($1 == hi) { return Hi.Hi.Hi }
if ($1 == hii) { return Hi.Hi.Hi.Hi.Hi.Hi.Hi.Hi.Hi }
}
#haha off
on *:INPUT:*: if (/* !iswm $1) { !msg $target $iif($rephaha($1),$v1,$1-) | halt }
#haha end