mirror of
https://github.com/historicalsource/journey
synced 2024-04-25 21:49:33 +03:00
152 lines
3 KiB
Plaintext
152 lines
3 KiB
Plaintext
|
|
.SEGMENT "LAVOS"
|
|
|
|
|
|
.FUNCT CHECK-RESTORE:ANY:0:0
|
|
?PRG1: PRINTI "Do you want to restore a saved game? "
|
|
INPUT 1
|
|
EQUAL? STACK,89,121 \TRUE
|
|
CRLF
|
|
WINATTR TEXT-WINDOW,11
|
|
RESTORE
|
|
CRLF
|
|
PRINTI "Restore failed."
|
|
CRLF
|
|
JUMP ?PRG1
|
|
|
|
|
|
.FUNCT GO:ANY:0:0
|
|
?FCN: ICALL1 CHECK-RESTORE
|
|
GET 0,19 >XFWRD
|
|
GET 0,18 >XVWRD
|
|
GET 0,17 >XHWRD
|
|
GETB 0,30 >INTERPRETER
|
|
GET 0,0
|
|
BTST STACK,4 /?CND1
|
|
SET 'H-BOLD,H-INVERSE
|
|
?CND1: SET 'HERE,START-LOC
|
|
GET PARTY,1 >LEADER
|
|
SET 'SUBGROUP-MODE,TRUE-VALUE
|
|
ICALL1 TURN-OFF-CURSOR
|
|
ICALL1 INIT-SCREEN
|
|
ICALL1 NEXT-DAY
|
|
ICALL1 INTRO
|
|
SET 'SCENE-OBJECT,DEFAULT-SCENE
|
|
ICALL2 SCENE,DEFAULT-SCENE
|
|
ICALL MODE,TRAVEL-MODE,TRUE-VALUE
|
|
ICALL1 PRINT-CHARACTER-COMMANDS
|
|
ICALL NEW-DEFAULT,1,-1
|
|
SET 'ACTION,BUSY-COMMAND
|
|
GET 0,8
|
|
BTST STACK,1 \?CND3
|
|
SET 'SCRIPTING-FLAG,TRUE-VALUE
|
|
?CND3: ICALL QUEUE,I-INIT-RANDOM-STUFF,0
|
|
ICALL1 PARTY-INPUT
|
|
JUMP ?FCN
|
|
|
|
|
|
.FUNCT ANONF-2:ANY:0:0
|
|
CALL QSET?,ESSENCES,TRIED
|
|
ZERO? STACK \FALSE
|
|
ICALL1 INIT-SPELLS
|
|
CALL1 INIT-RUNES
|
|
RSTACK
|
|
|
|
|
|
.FUNCT INIT-SPELLS:ANY:0:0,TPC,FP,F,NUM,OFF
|
|
SET 'TPC,7
|
|
PUTP SALT,P?COLOR,TAG-WHITE-POWDER
|
|
PUTP TAG-WHITE-POWDER,P?ESSENCE,SALT
|
|
FIRST? TAG-POWDERS >FP /?PRG2
|
|
?PRG2: ZERO? FP /?REP3
|
|
RANDOM TPC >NUM
|
|
FIRST? ESSENCES >F /?BOGUS7
|
|
?BOGUS7: SET 'OFF,1
|
|
?PRG8: EQUAL? OFF,NUM \?CCL12
|
|
PUTP FP,P?ESSENCE,F
|
|
PUTP F,P?COLOR,FP
|
|
REMOVE F
|
|
DEC 'TPC
|
|
NEXT? FP >FP /?PRG2
|
|
JUMP ?PRG2
|
|
?CCL12: INC 'OFF
|
|
NEXT? F >F /?PRG8
|
|
JUMP ?PRG8
|
|
?REP3: MOVE ESSENCE-EARTH,ESSENCES
|
|
MOVE ESSENCE-AIR,ESSENCES
|
|
MOVE TAG-WHITE-POWDER,TAG-POWDERS
|
|
RTRUE
|
|
|
|
|
|
.FUNCT I-RTRUE:ANY:0:0
|
|
RTRUE
|
|
|
|
|
|
.FUNCT INTRO:ANY:0:0,CHR,F
|
|
INPUT 1,1,I-RTRUE >CHR
|
|
CALL2 PICK-ONE,INTRO-PICS
|
|
ICALL2 GRAPHIC,STACK
|
|
ZERO? FONT3-FLAG /?CND1
|
|
CALL2 CHANGE-FONT,4 >F
|
|
?CND1: CRLF
|
|
EQUAL? H-BOLD,H-INVERSE /?CND3
|
|
HLIGHT H-BOLD
|
|
?CND3: ICALL2 WCENTER,STR?22
|
|
HLIGHT H-NORMAL
|
|
CRLF
|
|
ICALL2 WCENTER,STR?23
|
|
CRLF
|
|
ICALL2 WCENTER,STR?24
|
|
CRLF
|
|
CRLF
|
|
ICALL2 WCENTER,STR?25
|
|
CALL1 APPLE2?
|
|
ZERO? STACK /?CCL7
|
|
CRLF
|
|
JUMP ?CND5
|
|
?CCL7: CRLF
|
|
CRLF
|
|
?CND5: CALL1 APPLE2?
|
|
ZERO? STACK /?CCL10
|
|
ICALL2 WCENTER,STR?26
|
|
CRLF
|
|
ICALL2 WCENTER,STR?27
|
|
CRLF
|
|
CRLF
|
|
ICALL2 WCENTER,STR?28
|
|
CRLF
|
|
ICALL2 WCENTER,STR?29
|
|
JUMP ?CND8
|
|
?CCL10: ICALL2 WCENTER,STR?30
|
|
CRLF
|
|
CRLF
|
|
ICALL2 WCENTER,STR?31
|
|
?CND8: CRLF
|
|
ICALL2 WCENTER,STR?32
|
|
CRLF
|
|
CRLF
|
|
ICALL2 WCENTER,STR?33
|
|
INPUT 1
|
|
ZERO? FONT3-FLAG /?CND11
|
|
ICALL2 CHANGE-FONT,F
|
|
?CND11: CLEAR TEXT-WINDOW
|
|
EQUAL? CHR,48 /TRUE
|
|
PRINTI "It was a Golden Age, or so it now seems; and there are but a few who can recall those years, and fewer still who would not tremble to speak of what followed."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "But we were younger then, and less wise. It seems strange now to think that we had never set foot outside our village when we were called upon to take part in a great adventure - that fateful Journey which changed our world forever...."
|
|
CRLF
|
|
CRLF
|
|
ZERO? FONT3-FLAG /?CND15
|
|
CALL2 CHANGE-FONT,4 >F
|
|
?CND15: ICALL2 WCENTER,STR?33
|
|
INPUT 1
|
|
ZERO? FONT3-FLAG /?CND17
|
|
ICALL2 CHANGE-FONT,F
|
|
?CND17: CLEAR TEXT-WINDOW
|
|
RTRUE
|
|
|
|
.ENDSEG
|
|
|
|
.ENDI
|