I cannot get the following code to perform as expected:
(intro) (try [look]) (current player #player) (#player is #in #room) #room (room *) (singleton *) (look *) You see (a #frog) here. #frog (* has form of frog) (* has name [frog]) (prince *) (* is #in #room) (item *(prince $)) (name (prince $Obj)) ($Obj has name $Name) (print words $Name) (perform [kiss $Obj]) (if)($Obj has form of frog)(then) (now)($Obj has form of prince) (now)($Obj has name [prince]) You kiss the cute little frog, and it becomes a hideous prince. (else) (now)($Obj has form of frog) (now)($Obj has name [frog]) You kiss the hideous prince, and he becomes a cute little frog. (endif)
I want to see, “You see a frog here,” but instead I see this:
You see a here.
Could someone give me a hand?