🚚 Move Computer into own file

This commit is contained in:
Dan Jones 2022-01-11 19:07:15 -06:00
commit edcb4a08f9
2 changed files with 36 additions and 35 deletions

View file

@ -1,38 +1,4 @@
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;
Include "Computer.inf";
Object lights "Lights"
with name 'lights',

35
includes/Computer.inf Normal file
View file

@ -0,0 +1,35 @@
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;