github.com/historicalsource.abyss
1
0
Fork 0
mirror of synced 2026-02-02 23:01:19 +00:00
Code Issues Releases Wiki Activity

Final Revision

Browse Source
This commit is contained in:
historicalsource
2019-04-14 16:25:39 -04:00
commit 2ac9da82cb
103 changed files with 54604 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
return2.zabstr Normal file
View File

@@ -0,0 +1,23 @@
<FLAGS-AND-DEFAULTS (("IN-ZILCH" T)) ()>
<GLOBAL GL-RETURN2-DONE? <> <> BYTE>
<GLOBAL GL-COFFEY-SHOOT 0 <> BYTE>
<OBJECT TH-GUN (LOC CH-COFFEY) (DESC "gun") (FLAGS FL-TAKEABLE) (SYNONYM GUN
PISTOL) (OWNER CH-COFFEY) (SIZE 5) (ACTION RT-TH-GUN)>
<DEFINE-ROUTINE RT-TH-GUN>
<OBJECT TH-FBS-SUIT (LOC TH-DIVE-LOCKER) (DESC "FBS suit") (FLAGS FL-CLOTHING
FL-TAKEABLE) (SYNONYM SUIT) (ADJECTIVE FBS FLUID BREATHING SYSTEM) (SIZE 5) (
ACTION RT-TH-FBS-SUIT)>
<DEFINE-ROUTINE RT-TH-FBS-SUIT>
<OBJECT TH-DIVE-LOCKER (LOC RM-SUB-BAY) (DESC "dive locker") (FLAGS
FL-CONTAINER FL-LOCKED FL-OPENABLE FL-SEARCH FL-TRY-TAKE) (SYNONYM LOCKER) (
ADJECTIVE DIVE) (SIZE 5) (ACTION RT-TH-DIVE-LOCKER)>
<DEFINE-ROUTINE RT-TH-DIVE-LOCKER>
<OBJECT TH-ELECTRONIC-LOCK (LOC TH-DIVE-LOCKER) (DESC "lock") (SYNONYM LOCK) (
ADJECTIVE ELECTRONIC) (SIZE 5) (ACTION RT-TH-ELECTRONIC-LOCK)>
<DEFINE-ROUTINE RT-TH-ELECTRONIC-LOCK>
<OBJECT TH-DEVICE (LOC CH-HIPPY) (DESC "device") (SYNONYM DEVICE) (ADJECTIVE
REMOTE ELECTRONIC) (OWNER CH-HIPPY) (SIZE 5) (ACTION RT-TH-DEVICE)>
<DEFINE-ROUTINE RT-TH-DEVICE>
<SYNTAX $NITROGEN = V-$NITROGEN>
<DEFINE-ROUTINE V-$NITROGEN>