TADS problem with "plug" verb


26 May 1995 04:00:34 GMT

Argh! I'm at my wit's end! I'm trying to implement a phone in TADS. The phone
starts off unplugged. I'm coded three objects: the phone, the jack, and the
phone cord. I can't get it to compile! Here's the code I used. Can
all you expert Tadsers see what I did wrong?

officePhone : fixeditem
officePhone.isActive := nil
sdesc = "blue and yellow polka-dotted phone"
noun = 'phone'
adjective = 'blue' 'yellow' 'blue and yellow' 'polka' 'dotted'
'polka-dotted'
adesc = "a blue and yellow polka-dotted phone"
location = startroom
ldesc = {
if (officePhone.isActive = nil)
{
"This is probably the tackiest
thing you have ever bought, but it was the only phone you could afford. The
horrible blue and yellow neon polka dots make you want to gag. The hot-pink
cord doesn't improve its image either. One end of the cord is plugged into the
phone. The other end lies slack on the carpet, just next to the phone jack by
the wall.";
}
else if (officePhone.isActive = true)
{
"This is probably the tackiest
thing you have ever bought, but it was the only phone you could afford. The
horrible blue and yellow neon polka dots make you want to gag. The hot-pink
cord doesn't improve its image either. One end of the cord is plugged into the
telephone. The other end is plugged into the jack.";
}}

;

phoneCord : fixeditem
sdesc = "hot-pink phone cord"
location = officePhone
noun = 'cord'
adjective = 'phone' 'pink' 'hot' 'hot pink' 'hot-pink'
verDoPlugIn (actor) = {}
doPlugIn (actor) = {
if (iobj = phoneJack)
{
if (officePhone.isActive = nil)
{
"You plug the phone
cord into the jack.";
officePhone.isActive := true);
}
else if (officePhone.isActive = true)
{
"The phone cord is
already plugged in.";
}}
else "It won't plug into that.";}
;

phoneJack : fixeditem
sdesc = "jack"
noun = 'jack' 'socket' 'phonejack'
adjective = 'phone'
location = startroom
;

I get these three errors:

error TADS-302:
officePhone.isActive := nil

error TADS-300
officePhone.isActive := true);

error TADS-301
else "It won't plug into that.";}

Thanks to anyone who can help!!!!

Only from the warped mind of,

David L. Gilbert

{
{