@program pokesay.muf
1 10000 d
i
$include $lib/rp
$include $lib/rps
$include $lib/alynna
$include $lib/pokedex

$def says { me @ "_say/def/osay" getprop dup if "" "," subst strip " " swap strcat else pop " says" then ", " }cat
$def say { me @ "_say/def/say" getprop dup if "" "," subst strip " " swap strcat else pop " say" then ", " }cat
lvar species

: word2poke[ string:word -- string:poke ]
random 2 % if
 species @ tolower random word @ strlen % ++ strcut pop
else
 species @ tolower random word @ strlen % ++ strcut swap pop
then
;

: transmogrify[ string:sentence -- string:pokespeak ]
{
sentence @ " " explode_array foreach
 swap pop word2poke " "
repeat
}cat strip 
;

: main
var! translated
0 array_make var! pokemorphs
0 array_make var! pokemons
0 array_make var! morphspeakers
0 array_make var! misc

{ "/pokemon/" me @ iam "/name" }cat getdex species !
translated @ transmogrify var! native

me @ location contents_array foreach swap pop var! tmp
 tmp @ case
  me @ dbcmp when 
  end
  "a/Morphspeak" getstat 100 >= me @ wild? not and when
   tmp @ morphspeakers @ array_appenditem morphspeakers !
  end
  mon? when
   tmp @ pokemons @ array_appenditem pokemons !
  end
  morph? when
   tmp @ pokemorphs @ array_appenditem pokemorphs !
  end
  default pop
   tmp @ misc @ array_appenditem misc !
  end
endcase
repeat

me @ case
 morph? when 
  { { "You" say "\"" translated @ "\" ^YELLOW^<Pokemorph>^NORMAL^" }cat }array { me @ }array array_ansi_notify
  { { me @ says "\"" translated @ "\" ^YELLOW^<Pokemorph>^NORMAL^" }cat }array pokemorphs @ array_ansi_notify
  { { me @ says "\"" native @ "\" ^YELLOW^<Pokemorph>^NORMAL^" }cat }array pokemons @ array_ansi_notify
  { { me @ says "\"" translated @ "\" ^YELLOW^<Pokemorph>^NORMAL^" }cat }array morphspeakers @ array_ansi_notify
  { { me @ says "\"" native @ "\" ^YELLOW^<Pokesay>^NORMAL^" }cat }array misc @ array_ansi_notify
 end
 mon? when 
  { { "You" say "\"" translated @ "\" ^YELLOW^<Pokemon>^NORMAL^" }cat }array { me @ }array array_ansi_notify
  { { me @ says "\"" native @ "\" ^YELLOW^<Pokemon>^NORMAL^" }cat }array pokemorphs @ array_ansi_notify
  { { me @ says "\"" translated @ "\" ^YELLOW^<Pokemon>^NORMAL^" }cat }array pokemons @ array_ansi_notify
  { { me @ says "\"" translated @ "\" ^YELLOW^<Pokemon>^NORMAL^" }cat }array morphspeakers @ array_ansi_notify
  { { me @ says "\"" native @ "\" ^YELLOW^<Pokesay>^NORMAL^" }cat }array misc @ array_ansi_notify
 end
 default pop
  { { "You" say "\"" translated @ "\" ^YELLOW^<Uninitialized>^NORMAL^" }cat }array { me @ }array array_ansi_notify
  { { me @ says "\"" translated @ "\" ^YELLOW^<Uninitialized>^NORMAL^" }cat }array pokemorphs @ array_ansi_notify
  { { me @ says "\"" translated @ "\" ^YELLOW^<Uninitialized>^NORMAL^" }cat }array pokemons @ array_ansi_notify
  { { me @ says "\"" translated @ "\" ^YELLOW^<Uninitialized>^NORMAL^" }cat }array morphspeakers @ array_ansi_notify
  { { me @ says "\"" translated @ "\" ^YELLOW^<Pokesay>^NORMAL^" }cat }array misc @ array_ansi_notify 
 end
endcase
;
.
c
q