170 lines
3.3 KiB
Text
Executable file
170 lines
3.3 KiB
Text
Executable file
if (isset(f5) &&
|
|
isset(f33) &&
|
|
v26 != 2) {
|
|
set.text.attribute(6,0);
|
|
clear.text.rect(24,26,24,34,0);
|
|
display(24,26,"Room %v0|3");
|
|
set.text.attribute(15,0);
|
|
}
|
|
if (controller(c19)) {
|
|
get.num("Object number:",v45);
|
|
if (v45 > 15) {
|
|
v45 = 15;
|
|
}
|
|
obj.status.v(v45);
|
|
}
|
|
if ((controller(c16) ||
|
|
said("find"))) {
|
|
v45 = 0;
|
|
obj.status.v(v45);
|
|
}
|
|
if (controller(c18)) {
|
|
show.mem();
|
|
}
|
|
if ((controller(c20) ||
|
|
said("examine","priority"))) {
|
|
show.pri.screen();
|
|
}
|
|
if (v26 != 2) {
|
|
if (isset(f48)) {
|
|
set.text.attribute(6,0);
|
|
display(24,35,"H");
|
|
set.text.attribute(15,0);
|
|
}
|
|
else {
|
|
display(24,35," ");
|
|
}
|
|
}
|
|
if ((controller(c35) ||
|
|
said("all","number"))) {
|
|
v19 = 0;
|
|
set.text.attribute(6,7);
|
|
text.screen();
|
|
display(2,6,"Number Name of Object");
|
|
v45 = 1;
|
|
v32 = 10;
|
|
v33 = 4;
|
|
v58 = 16;
|
|
Label1:
|
|
display.v(v33,v32,v58);
|
|
v45++;
|
|
v33++;
|
|
if (v45 <= 20) {
|
|
goto(Label1);
|
|
}
|
|
Label2:
|
|
if (!have.key()) {
|
|
goto(Label2);
|
|
}
|
|
set.text.attribute(15,0);
|
|
graphics();
|
|
}
|
|
if (said("all","area")) {
|
|
get.num("Object number:",v46);
|
|
get.room.v(v46,v45);
|
|
print("Object %v46 is in room %v45.");
|
|
}
|
|
if (said("add","priority")) {
|
|
get.num("New priority:",v46);
|
|
set.priority.v(o0,v46);
|
|
}
|
|
if (said("let go","priority")) {
|
|
release.priority(o0);
|
|
}
|
|
if (said("tp")) {
|
|
get.num("New room:",v45);
|
|
new.room.v(v45);
|
|
}
|
|
if (said("position")) {
|
|
get.num("X coordinate:",v45);
|
|
get.num("Y coordinate:",v46);
|
|
reposition.to.v(o0,v45,v46);
|
|
}
|
|
if (v26 != 2 &&
|
|
(said("examine","position") ||
|
|
said("area","number") ||
|
|
said("area") ||
|
|
controller(c36) ||
|
|
said("sp"))) {
|
|
toggle(f33);
|
|
set.text.attribute(6,0);
|
|
display(24,26,"Room %v0|3");
|
|
set.text.attribute(15,0);
|
|
}
|
|
if (v26 != 2 &&
|
|
isset(f33)) {
|
|
v45 = v38;
|
|
v46 = v39;
|
|
set.text.attribute(6,0);
|
|
display(24,16,"%v45|3/%v46|3");
|
|
set.text.attribute(15,0);
|
|
}
|
|
if ((said("gimme","gimme") ||
|
|
controller(c37))) {
|
|
display(0,0,"You gottum, Larry.");
|
|
v45 = 0;
|
|
v46 = 255;
|
|
Label3:
|
|
v45++;
|
|
if (v45 <= 20) {
|
|
put.v(v45,v46);
|
|
goto(Label3);
|
|
}
|
|
}
|
|
if (said("catch","all")) {
|
|
get.num("Object number:",v45);
|
|
get.v(v45);
|
|
}
|
|
if (said("examine","flag")) {
|
|
get.num("Flag number:",v45);
|
|
if (issetv(v45)) {
|
|
print("Flag %v45 set");
|
|
}
|
|
else {
|
|
print("Flag %v45 not set");
|
|
}
|
|
}
|
|
if (said("add","flag")) {
|
|
get.num("Flag number:",v45);
|
|
set.v(v45);
|
|
}
|
|
if (said("reset","flag")) {
|
|
get.num("Flag number:",v45);
|
|
reset.v(v45);
|
|
}
|
|
if (said("examine","var")) {
|
|
get.num("Variable number:",v45);
|
|
v46 = *v45;
|
|
print("Variable %v45 = %v46");
|
|
}
|
|
if (said("add","var")) {
|
|
get.num("Variable number:",v45);
|
|
get.num("New value:",v46);
|
|
*v45 = v46;
|
|
}
|
|
return();
|
|
|
|
// Messages
|
|
#message 1 "New room:"
|
|
#message 2 "X coordinate:"
|
|
#message 3 "Y coordinate:"
|
|
#message 4 "Object number:"
|
|
#message 5 "Flag number:"
|
|
#message 6 "New value:"
|
|
#message 7 "You gottum, Larry."
|
|
#message 8 "Variable number:"
|
|
#message 9 "Variable %v45 = %v46"
|
|
#message 10 "Flag %v45 set"
|
|
#message 11 "Flag %v45 not set"
|
|
#message 12 "New priority:"
|
|
#message 13 "Object %v46 is in room %v45."
|
|
#message 14 "%v45|3/%v46|3"
|
|
#message 15 "Room %v0|3"
|
|
#message 16 "%v45|2 %o45"
|
|
#message 17 "Number Name of Object"
|
|
#message 18 "%v8 memory pages left."
|
|
#message 19 ""
|
|
#message 20 "Unknown word: \""
|
|
#message 29 "H"
|
|
#message 30 " "
|
|
#message 31 ""
|