99 lines
2.9 KiB
Plaintext
99 lines
2.9 KiB
Plaintext
<ZSECTION "XJETDEFS">
|
|
|
|
<FILE-FLAGS MDL-ZIL?>
|
|
|
|
<USE "NEWSTRUC">
|
|
|
|
<MSETG AISLE-COUNT 9>
|
|
<MSETG INITIAL-ROW 3>
|
|
|
|
<DEFINE-GLOBALS PLANE-TABLE
|
|
(HATCH-OPEN? BYTE 0)
|
|
(HATCH-LOSER? BYTE <>)
|
|
(MEAL-HERE? BYTE <>)
|
|
(MEAL-SQUASHED? BYTE <>)
|
|
(MEAL-EATEN? BYTE <>)
|
|
(BUTTONS-OFF? BYTE <>)
|
|
(SITTING? BYTE <>)
|
|
(PHONES-PLUGGED-IN? BYTE <>)
|
|
(CURRENT-STAR BYTE 0)
|
|
(CURRENT-DESC BYTE 0)
|
|
(CURRENT-WEAPON BYTE 0)
|
|
(LOSER-CANT-LEAVE-SEAT? BYTE <>)
|
|
(PURSER-HERE? BYTE <>)
|
|
(PHONE-MUSIC:FIX BYTE 0) ; "Headphone stuff"
|
|
(PHONE-TIMER:FIX BYTE 0) ; "Random"
|
|
(LAST-ROW:FIX BYTE 0) ; "Previous row occupied"
|
|
(LAST-SEAT:FIX BYTE 0) ; "Previous seat"
|
|
(NEW-ROW:FIX BYTE 0)
|
|
(NEW-SEAT:FIX BYTE 0)
|
|
(RETURN-TO-SEAT-WAIT:FIX BYTE 0)
|
|
(GRANDMA-HAPPY? BYTE <>)
|
|
(SMOKER-IRATE? BYTE <>)
|
|
(BUSINESS-IRATE? BYTE <>)
|
|
(FALL-SCRIPT:FIX BYTE 5)
|
|
(CURRENT-NEIGHBOR BYTE 0)
|
|
(FLIGHT-ATTENDANT-HE/SHE:STRING "She")
|
|
(FLIGHT-ATTENDANT-HIM/HER:STRING "her")>
|
|
|
|
<CONSTANT MOVIE-STARS
|
|
<PLTABLE "Rambo"
|
|
"Rocky"
|
|
"Sylvester Stallone"
|
|
"someone looking like Sylvester Stallone, but with a German accent,"
|
|
"Arnold Schwarzenegger"
|
|
"James Bond"
|
|
"Sigourney Weaver"
|
|
"a woman with a strange resemblance to Sylvester Stallone"
|
|
"Charles Bronson"
|
|
"Chuck Norris">>
|
|
|
|
<CONSTANT MOVIE-WEAPONS
|
|
<PLTABLE "several karate moves"
|
|
"a Bowie knife"
|
|
"a Sherman tank"
|
|
"an AK-47 assault rifle, a rocket launcher and several hand grenades"
|
|
"a wide assortment of shoulder-launched cruise missiles"
|
|
"the help of a shoe-mounted switchblade"
|
|
"a flamethrower, a grenade launcher and a pulse rifle"
|
|
"a concealed bazooka"
|
|
"no help from Washington">>
|
|
|
|
<CONSTANT MOVIE-DESCS
|
|
<PLTABLE "solves the Energy Crisis by attacking every Middle Eastern oil field"
|
|
"ends the Depression by attacking Wall Street"
|
|
"ends the Civil War by attacking Richmond"
|
|
"ends illiteracy by attacking the evil textbook publishers"
|
|
"restores the balance of payments by attacking Germany, Japan, South Korea and Canada"
|
|
"restores the balance of payments by attacking the Heineken brewery"
|
|
"saves an uninhabited planet by blowing away the alien invaders"
|
|
"saves embassy hostages from terrorists"
|
|
"wipes out crime in America by killing jaywalkers and litterbugs">>
|
|
|
|
<DEFMAC ROW-SEATS ("OPT" 'NEW)
|
|
<COND (<NOT <ASSIGNED? NEW>>
|
|
<FORM ANDB <FORM ZGET ',AISLE-STATE ',CURRENT-ROW>
|
|
,ALL-SEATS>)
|
|
(T
|
|
<FORM ZPUT ',AISLE-STATE ',CURRENT-ROW
|
|
<FORM ORB .NEW <FORM ANDB <ZGET ',AISLE-STATE ',CURRENT-ROW>
|
|
<XORB ,ALL-SEATS -1>>>>)>>
|
|
|
|
; "State of seating is low four bits; starboard passenger, if any, is next
|
|
four; port passenger is next four. Three remaining bits below the sign
|
|
bit can be used for flags."
|
|
|
|
<MSETG SEAT-A 1>
|
|
<MSETG SEAT-B 2>
|
|
<MSETG SEAT-C 4>
|
|
<MSETG SEAT-D 8>
|
|
<MSETG ALL-SEATS <ORB ,SEAT-A ,SEAT-B ,SEAT-C ,SEAT-D>>
|
|
|
|
|
|
<MSETG STARBOARD-DIVISOR 16>
|
|
<MSETG PORT-DIVISOR 256>
|
|
|
|
<MSETG ROW-SEEN-BIT 4096>
|
|
|
|
<ENDSECTION>
|