40 lines
1.5 KiB
INI
40 lines
1.5 KiB
INI
|
Object computer "Computer"
|
||
|
|
with name 'computer' 'ship',
|
||
|
|
description "The computer of the ship uses non-sentient artificial intelligence^
|
||
|
|
It can perform many tasks and answer questions.",
|
||
|
|
found_in [; rtrue; ],
|
||
|
|
orders [loc ;
|
||
|
|
loc = parent(player);
|
||
|
|
SetTo:
|
||
|
|
if (noun == lights && second == 'full') {
|
||
|
|
give loc light;
|
||
|
|
print_ret "Lights at full.";
|
||
|
|
}
|
||
|
|
if (noun == lights && (second == 'zero' || second == 'off')) {
|
||
|
|
give loc ~light;
|
||
|
|
print_ret "Lights are off.";
|
||
|
|
}
|
||
|
|
print_ret "I do not know how to set ", (the) noun, " to ", (address) second;
|
||
|
|
Open:
|
||
|
|
switch(noun) {
|
||
|
|
bunk:
|
||
|
|
give noun open;
|
||
|
|
print_ret (The) noun, " is open.";
|
||
|
|
}
|
||
|
|
Close:
|
||
|
|
switch(noun) {
|
||
|
|
bunk:
|
||
|
|
give noun ~open;
|
||
|
|
print_ret (The) noun, " is closed.";
|
||
|
|
}
|
||
|
|
Tell:
|
||
|
|
! @todo fill this out for various things to talk about
|
||
|
|
print_ret "You want me to tell you about ", (string) second;
|
||
|
|
NotUnderstood: print_ret "I do not understand.";
|
||
|
|
],
|
||
|
|
has animate scenery;
|
||
|
|
|
||
|
|
Object lights "Lights"
|
||
|
|
with name 'lights',
|
||
|
|
found_in [; rtrue; ],
|
||
|
|
has static scenery;
|