First Commit Source partially translated

logic.052.src

@@ -0,0 +1,170 @@
+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 ""