bureaucracy/xjetdefs.zil

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>