@program ranma.muf
1 1000 d
i
$include $lib/alynna
$include $lib/rp
$def LOWTEMP  55.0
$def HIGHTEMP 65.0
$def TARGET "*Kilara" match
lvar param

: gettemp
var temp
TARGET "temp" getstat tofloat temp !
temp @ not if #0 "temp" getstat tofloat temp ! then
temp @
;

: showtemp
var temp
gettemp temp !
TARGET str "Temperature around you is " temp @ 2 fchop cat "Ranma" pretty ansi_notify
temp @ LOWTEMP  < if 
 TARGET "_lastmorph" getprop "male*" smatch if 
 TARGET "morph me-female" force 
 then then
temp @ HIGHTEMP > if 
 TARGET "_lastmorph" getprop "female*" smatch if 
 TARGET "morph me-male" force 
 then then
;

: settemp
var temp
param @ tofloat param !
TARGET "temp" param @ setstat
gettemp temp !
TARGET str "Your temperature is set to " temp @ 2 fchop cat "Ranma" pretty ansi_notify
temp @ LOWTEMP  < if 
 TARGET "_lastmorph" getprop "male*" smatch if 
 TARGET "morph me-female" force 
 then then
temp @ HIGHTEMP > if 
 TARGET "_lastmorph" getprop "female*" smatch if 
 TARGET "morph me-male" force 
 then then
;

: heart
var temp
begin
gettemp temp !
TARGET str "Temperature around you is " temp @ 2 fchop cat "Ranma" pretty ansi_notify
temp @ LOWTEMP  < if 
 TARGET "_lastmorph" getprop "male*" smatch if 
 TARGET "morph me-female" force 
 then then
temp @ HIGHTEMP > if 
 TARGET "_lastmorph" getprop "female*" smatch if 
 TARGET "morph me-male" force 
 then then
900 sleep 
repeat
;

: main
param !
command @ "+temp" smatch if showtemp exit then
command @ "+tset" smatch if settemp exit then
heart
;
 
.
c
q