yet-another-experiment/src/actor/surgeryAssistant.t

41 lines
1.1 KiB
Perl

surgeryAssistant: Person
'robotic surgery robot/cyborg/assistant'
'surgeon assistant'
@redRoom
" The torso of cybernetic assistant surgeon
is wired to the ceiling. "
iobjFor (AttachTo) remapTo(AttachTo, DirectObject, dataPort)
;
+ dataPort: PlugAttachable, Attachable, Fixture
'data port/outlet/socket'
'data port'
"Industry standard port for automated assistants. "
;
+ HermitActorState
specialDesc = "
There's a surgical assistant in the corner of the room. "
stateDesc = "
<br>The mechanism shows no signs of life
and indicators show the missing network connection.
<br>
<br>You can see an empty data port
on the robot's body
and a data cable hanging from the ceiling. "
noResponse = "
The surgical robot is not responding.
<br>You can see the message
<q>Connection lost</q> on the indicator display. "
isInitState = true
;
+ robotOnline: ConversationReadyState
specialDesc = "
The surgical assistant examines the room. "
stateDesc = "
<br>Cameras are scanning the room.
various servos, units and cables make distinctive sounds,
the bulky arms slowly sway. "
;