@program SuperSoup.MUF
1 1000 d
i

$include $lib/alynna
lvar param
$def }tell }cat me @ swap ansi_notify

: realm
var locale
me @ location "_realm" envpropstr not if
 "^RED^<<< ERROR - No realm set, you are in a place that doesnt really exist. >>>^NORMAL^" tellme
 exit
else
 me @ location "_realm" envpropstr header tellme locale !
then
{ "^YELLOW^" "Realm Owner:" 20 lj     "^GREEN^" locale @ owner }tell
{ "^YELLOW^" "Realm Ruler:" 20 lj     "^GREEN^" locale @ "_ruler" envprop swap pop }tell
{ "^YELLOW^" "Economy:" 20 lj         "^GREEN^" locale @ "_economy" envprop swap pop }tell
{ "^YELLOW^" "Alignment:" 20 lj       "^GREEN^" locale @ "_alignment" envprop swap pop }tell
{ "^YELLOW^" "Population:" 20 lj      "^GREEN^" locale @ "_population" envprop swap pop }tell
{ "^YELLOW^" "Size:" 20 lj            "^GREEN^" locale @ "_size" envprop swap pop }tell
{ "^YELLOW^" "Government type:" 20 lj "^GREEN^" locale @ "_type" envprop swap pop }tell
"Background" header tellme
locale @ "_background" envpropstr swap pop dup if wrap78 atellme else pop then
"Realms Information v1.0" footer tellme
;

: map

;

: main
param !
command @ tolower case
 "realm" smatch when realm end
 "map" smatch when map end
endcase
;
.
c
q