Upload files to 'FreeBasic_Data_Compiler'
This commit is contained in:
parent
68a8776e21
commit
73ab63cdaf
|
|
@ -0,0 +1,27 @@
|
||||||
|
DATA "ACTIONS","I","HERE'S MY VOCABULARY OF ACTIONS:"
|
||||||
|
DATA "BACK","I","SORRY, >I NO LONGER SEEM TO REMEMBER HOW IT WAS YOU GOT HERE."
|
||||||
|
DATA "CLOSE","T","I DON'T KNOW HOW TO OPEN OR CLOSE SUCH A THING."
|
||||||
|
DATA "DROP","T","YOU AREN'T CARRYING IT."
|
||||||
|
DATA "EAST","I","YOU CAN'T GO THAT WAY."
|
||||||
|
DATA "NORTH","I","YOU CAN'T GO THAT WAY."
|
||||||
|
DATA "SOUTH","I","YOU CAN'T GO THAT WAY."
|
||||||
|
DATA "WEST","I","YOU CAN'T GO THAT WAY."
|
||||||
|
DATA "FIGHT","I","THERE'S NOTHING HERE TO FIGHT."
|
||||||
|
DATA "GIVE","T","THERE'S NO ONE HERE."
|
||||||
|
DATA "HELP","I",""
|
||||||
|
DATA "INVENTORY","I","YOU'RE CARRYING:"
|
||||||
|
DATA "JUMP","I","YOU LANDED IN A PIT THEN CRAWLED A LONG WAY."
|
||||||
|
DATA "KICK","I","THERE'S NOTHING HERE TO KICK."
|
||||||
|
DATA "LOOK","I",""
|
||||||
|
rem DATA "","I",""
|
||||||
|
DATA "OPEN","T","IT CAN'T BE OPENED."
|
||||||
|
rem DATA "","I",""
|
||||||
|
DATA "QUIT","I","DO YOU REALLY WANT TO QUIT NOW?"
|
||||||
|
DATA "READ","T","NOTHING IS WRITTEN ON IT."
|
||||||
|
DATA "TAKE","T","YOU CAN'T CARRY ANYTHING MORE. YOU'LL HAVE TO DROP SOMETHING FIRST."
|
||||||
|
DATA "USE","T","IT IS NOT IMMEDIATELY USEFUL."
|
||||||
|
DATA "VERBOSE","I","FULL DESCRIPTIONS ONLY ON FIRST VISIT. SAY `LOOK` FOR FULL DESCRIPTIONS."
|
||||||
|
DATA "XPLORE","I","YOU HAVE CRAWLED AROUND IN SOME LITTLE HOLES..."
|
||||||
|
DATA "YES","I","I COULDN'T AGREE MORE."
|
||||||
|
DATA "ZZZ...","I","THAT WAS REFRESHING. EVEN THE KISSES OF THE DWARVES COULD NOT WAKE YOU."
|
||||||
|
|
||||||
|
Can't render this file because it contains an unexpected character in line 1 and column 6.
|
|
|
@ -0,0 +1,524 @@
|
||||||
|
#include "CHK_colossal_cave_ROOMS.csv"
|
||||||
|
#include "CHK_colossal_cave_VERBS.csv"
|
||||||
|
#include "CHK_colossal_cave_OBJECTS.csv"
|
||||||
|
#include "CHK_colossal_cave_COMMANDS.csv"
|
||||||
|
#include "CHK_colossal_cave_GENERAL_HELP.csv"
|
||||||
|
|
||||||
|
CONST XCB_DATA_START_MEM as USHORT = &H082B 'the XCB data will start from here!
|
||||||
|
|
||||||
|
declare function findRoomNumber(sStringToSearch as STRING) as UBYTE
|
||||||
|
declare sub encodeFixedString(sLabel as STRING, sFixedStringToEncode as STRING)
|
||||||
|
|
||||||
|
Dim iTotalScore as USHORT 'UBYTE ?
|
||||||
|
|
||||||
|
type tStringArch
|
||||||
|
sArchivedString as STRING
|
||||||
|
uArchivedOffset as USHORT
|
||||||
|
end type
|
||||||
|
|
||||||
|
function encodeString(byVal sStringToEncode as STRING) as USHORT
|
||||||
|
dim iLineCharPos_Start as INTEGER
|
||||||
|
dim iLineCharPos_End as INTEGER
|
||||||
|
dim iCharPosition as INTEGER
|
||||||
|
dim bByteCharacter as UBYTE
|
||||||
|
|
||||||
|
Static aStringArchive(1 To 512) as tStringArch
|
||||||
|
Static iStringArchIndex as INTEGER
|
||||||
|
|
||||||
|
Static iMemoryOffset as USHORT
|
||||||
|
Static iPreviousOffset as USHORT
|
||||||
|
|
||||||
|
Dim L as INTEGER 'all-purpose for-next index
|
||||||
|
|
||||||
|
|
||||||
|
if sStringToEncode = "" then return 0
|
||||||
|
|
||||||
|
if iStringArchIndex then
|
||||||
|
For L = iStringArchIndex To 1 Step -1
|
||||||
|
with aStringArchive(L)
|
||||||
|
if sStringToEncode = .sArchivedString then
|
||||||
|
print .sArchivedString ''''''''''''''''''''debug
|
||||||
|
return .uArchivedOffset
|
||||||
|
end if
|
||||||
|
end with
|
||||||
|
next L
|
||||||
|
else
|
||||||
|
iMemoryOffset = XCB_DATA_START_MEM
|
||||||
|
end if
|
||||||
|
|
||||||
|
iStringArchIndex += 1
|
||||||
|
with aStringArchive(iStringArchIndex)
|
||||||
|
.sArchivedString = sStringToEncode
|
||||||
|
.uArchivedOffset = iMemoryOffset
|
||||||
|
end with
|
||||||
|
|
||||||
|
iPreviousOffset = iMemoryOffset
|
||||||
|
|
||||||
|
if len(sStringToEncode) > 40 then
|
||||||
|
iLineCharPos_Start = 1
|
||||||
|
iLineCharPos_End = 40
|
||||||
|
do
|
||||||
|
iCharPosition = iLineCharPos_Start
|
||||||
|
do
|
||||||
|
iCharPosition = instr(iCharPosition, sStringToEncode, Any "*@>#$|")
|
||||||
|
if iCharPosition > 0 and iCharPosition <= iLineCharPos_End then
|
||||||
|
if mid$(sStringToEncode, iCharPosition, 1) = "|" then
|
||||||
|
iLineCharPos_End = iCharPosition
|
||||||
|
exit do
|
||||||
|
else
|
||||||
|
iLineCharPos_End += 1
|
||||||
|
iCharPosition += 1
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
exit do
|
||||||
|
end if
|
||||||
|
loop
|
||||||
|
|
||||||
|
if iLineCharPos_End < len(sStringToEncode) then
|
||||||
|
|
||||||
|
if (mid$(sStringToEncode, iLineCharPos_End + 1, 1) = " ") OR _
|
||||||
|
(mid$(sStringToEncode, iLineCharPos_End + 1, 1) = "|") then 'if the next 40-char line starts with a space or forced CR...
|
||||||
|
iLineCharPos_End += 1
|
||||||
|
mid$(sStringToEncode, iLineCharPos_End, 1) = chr$(10) 'this space/CR will get eliminated during the encoding
|
||||||
|
elseif mid$(sStringToEncode, iLineCharPos_End, 1) = "|" then 'if there's a forced Carriage Return here...
|
||||||
|
mid$(sStringToEncode, iLineCharPos_End, 1) = chr$(13)
|
||||||
|
else
|
||||||
|
iLineCharPos_End = InStrRev(sStringToEncode, " ", iLineCharPos_End)
|
||||||
|
mid$(sStringToEncode, iLineCharPos_End, 1) = chr$(13)
|
||||||
|
end if
|
||||||
|
|
||||||
|
end if
|
||||||
|
|
||||||
|
iLineCharPos_Start = iLineCharPos_End + 1
|
||||||
|
iLineCharPos_End +=40 '39 + 1 to skip the space!
|
||||||
|
loop until iLineCharPos_End > len(sStringToEncode)
|
||||||
|
end if
|
||||||
|
|
||||||
|
if right$(sStringToEncode, 1) = "." then
|
||||||
|
bByteCharacter = asc(right$(sStringToEncode, 2))
|
||||||
|
if (bByteCharacter AND &B01000000) AND (bByteCharacter <> 96) then ' if the next-to-last character is a letter and NOT a back-quote...
|
||||||
|
sStringToEncode = left$(sStringToEncode, len(sStringToEncode) - 1)
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
|
||||||
|
print #1, "DATA AS BYTE";
|
||||||
|
|
||||||
|
for L = 1 to len(sStringToEncode)
|
||||||
|
bByteCharacter = asc(sStringToEncode, L)
|
||||||
|
select case bByteCharacter
|
||||||
|
case 10 'skip "Line Feeds" (actually removed spaces from above)
|
||||||
|
Continue For
|
||||||
|
case 96 '"fake" quotes become _real_ quotes
|
||||||
|
bByteCharacter = 34
|
||||||
|
end select
|
||||||
|
bByteCharacter -= 32 '"encodes" the character
|
||||||
|
if L < len(sStringToEncode) then
|
||||||
|
select case asc(sStringToEncode, L + 1)
|
||||||
|
case 32
|
||||||
|
if L < (len(sStringToEncode) - 1) then
|
||||||
|
bByteCharacter OR= &B01000000 'bits 7-6 = 01 -> indicates SPACE
|
||||||
|
L += 1 'skip next space
|
||||||
|
end if
|
||||||
|
case 13
|
||||||
|
bByteCharacter OR= &B10000000 'bits 7-6 = 10 -> indicates CARRIAGE RETURN
|
||||||
|
if L < (len(sStringToEncode) - 1) then L += 1 'skip next CR
|
||||||
|
end select
|
||||||
|
else
|
||||||
|
bByteCharacter OR= &B11000000 'bits 7-6 = 11 -> indicates END OF STRING
|
||||||
|
end if
|
||||||
|
|
||||||
|
print #1, " $" ; hex(bByteCharacter, 2) ; iif(L < len (sStringToEncode), ",", "") ;
|
||||||
|
iMemoryOffset += 1
|
||||||
|
next L
|
||||||
|
|
||||||
|
print #1, ""
|
||||||
|
encodeString = iPreviousOffset
|
||||||
|
end function
|
||||||
|
|
||||||
|
type tRooms
|
||||||
|
sName as STRING
|
||||||
|
'Not interested in the short name, on the XCB side - I'll use the first letter though, for the blocked rooms on the Map
|
||||||
|
|
||||||
|
sDirections as STRING
|
||||||
|
bDirections as UBYTE
|
||||||
|
wpBlockingReason as USHORT
|
||||||
|
|
||||||
|
sDescription as STRING
|
||||||
|
wpDescription as USHORT
|
||||||
|
|
||||||
|
bAlreadySolved as BOOLEAN
|
||||||
|
end type
|
||||||
|
Const ROOM_INITIAL_COUNT as INTEGER = 83
|
||||||
|
Dim SHARED iRooms_number as INTEGER : iRooms_number = ROOM_INITIAL_COUNT
|
||||||
|
Dim SHARED aRooms(1 to 128) as tRooms
|
||||||
|
|
||||||
|
for nRoom as INTEGER = 1 to ROOM_INITIAL_COUNT
|
||||||
|
with aRooms(nRoom)
|
||||||
|
read .sName, .sDirections, .sDescription
|
||||||
|
end with
|
||||||
|
next nRoom
|
||||||
|
|
||||||
|
type tVerbs
|
||||||
|
sName as STRING
|
||||||
|
wpName as USHORT
|
||||||
|
|
||||||
|
sTransitive as STRING
|
||||||
|
'No equivalent in XCB for sTransitive, I'll use the highest bit of wpName for that!
|
||||||
|
|
||||||
|
sDefaultMessage as STRING
|
||||||
|
wpDefaultMessage as USHORT
|
||||||
|
|
||||||
|
bCommandStartIndex as UBYTE
|
||||||
|
end Type
|
||||||
|
Dim aVerbs(1 to 26) as tVerbs
|
||||||
|
|
||||||
|
dim nArrayPos as INTEGER
|
||||||
|
dim sTempString as STRING
|
||||||
|
do
|
||||||
|
read sTempString
|
||||||
|
nArrayPos = asc(sTempString) - 64
|
||||||
|
with aVerbs(nArrayPos)
|
||||||
|
.sName = sTempString
|
||||||
|
read .sTransitive, .sDefaultMessage
|
||||||
|
.bCommandStartIndex = 255 'initialised to "-1"
|
||||||
|
end with
|
||||||
|
loop until left$(sTempString, 1) = "Z"
|
||||||
|
|
||||||
|
type tObjects
|
||||||
|
sName as STRING
|
||||||
|
wpName as USHORT
|
||||||
|
|
||||||
|
sKind as STRING
|
||||||
|
bObjectFlags as UBYTE
|
||||||
|
|
||||||
|
sDescription as STRING
|
||||||
|
wpDescription as USHORT
|
||||||
|
end Type
|
||||||
|
Dim aObjects(1 to 26) as tObjects
|
||||||
|
|
||||||
|
do
|
||||||
|
read sTempString
|
||||||
|
nArrayPos = asc(sTempString) - 64
|
||||||
|
with aObjects(nArrayPos)
|
||||||
|
.sName = sTempString
|
||||||
|
read .sKind, .sDescription
|
||||||
|
'SCORE************************************************************************************
|
||||||
|
if .sKind = "$" then
|
||||||
|
iTotalScore += 5
|
||||||
|
end if
|
||||||
|
end with
|
||||||
|
loop until left$(sTempString, 1) = "Z"
|
||||||
|
|
||||||
|
type tCommands
|
||||||
|
sAction as STRING
|
||||||
|
bActionNumber as UBYTE
|
||||||
|
|
||||||
|
sObject as STRING
|
||||||
|
bObjectNumber as UBYTE
|
||||||
|
|
||||||
|
sLocation as STRING
|
||||||
|
bLocationNumber as UBYTE
|
||||||
|
|
||||||
|
sTransformedObject as STRING
|
||||||
|
bNewObjectLocationNumber as UBYTE
|
||||||
|
wpNewObjectDescription as USHORT
|
||||||
|
|
||||||
|
sTransformedLocation as STRING
|
||||||
|
bNewLocationNumber as UBYTE
|
||||||
|
wpNewLocationDescription as USHORT
|
||||||
|
|
||||||
|
sMessage as STRING
|
||||||
|
wpMessage as USHORT
|
||||||
|
bNewDirections as UBYTE
|
||||||
|
end type
|
||||||
|
Dim iCommands_Number as INTEGER
|
||||||
|
Dim aCommands(1 to 128) as tCommands
|
||||||
|
|
||||||
|
do
|
||||||
|
iCommands_Number += 1
|
||||||
|
with aCommands(iCommands_Number)
|
||||||
|
read .sAction, .sObject, .sLocation, .sTransformedObject, .sTransformedLocation, .sMessage
|
||||||
|
end with
|
||||||
|
loop until aCommands(iCommands_Number).sAction = "WEST" AND aCommands(iCommands_Number).sLocation = "DED"
|
||||||
|
|
||||||
|
Dim iHelpStringsNum as INTEGER
|
||||||
|
Dim aHelpStrings(1 to 4) as tStringArch 're-using this type for the general Help strings
|
||||||
|
|
||||||
|
do
|
||||||
|
iHelpStringsNum += 1
|
||||||
|
read aHelpStrings(iHelpStringsNum).sArchivedString
|
||||||
|
loop until instr(aHelpStrings(iHelpStringsNum).sArchivedString, "FINE")
|
||||||
|
|
||||||
|
'-------------------------------------S-T-R-I-N-G-S-----------------------------------------------------------------------
|
||||||
|
Dim K as INTEGER
|
||||||
|
Dim iFullStopPos as INTEGER
|
||||||
|
|
||||||
|
open "..\data_strings.bas" for output as #1
|
||||||
|
|
||||||
|
print #1, "'***********VERBS***********"
|
||||||
|
for K = 1 to 26
|
||||||
|
with aVerbs(K)
|
||||||
|
if .sName <> "" then
|
||||||
|
print #1, "' """ ; .sName ; """, """ ; .sTransitive ; """, """ ; .sDefaultMessage ; """"
|
||||||
|
|
||||||
|
.wpName = encodeString(.sName)
|
||||||
|
if .sTransitive = "T" then .wpName OR= &B1000000000000000
|
||||||
|
|
||||||
|
.wpDefaultMessage = encodeString(.sDefaultMessage)
|
||||||
|
end if
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
print #1, ""
|
||||||
|
|
||||||
|
print #1, "'***********OBJECTS***********"
|
||||||
|
for K = 1 to 26
|
||||||
|
with aObjects(K)
|
||||||
|
if .sName <> "" then
|
||||||
|
print #1, "' """ ; .sName ; """, """ ; .sKind ; """, """ ; .sDescription ; """"
|
||||||
|
|
||||||
|
.wpName = encodeString(.sName)
|
||||||
|
.bObjectFlags = asc(.sKind)
|
||||||
|
.wpDescription = encodeString(.sDescription)
|
||||||
|
|
||||||
|
end if
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
print #1, ""
|
||||||
|
|
||||||
|
print #1, "'***********ROOMS***********"
|
||||||
|
for K = 1 to iRooms_number
|
||||||
|
with aRooms(K)
|
||||||
|
print #1, "' """ ;.sName ; """, """ ; .sDirections ; """, """ ; .sDescription ; """"
|
||||||
|
|
||||||
|
sTempString = .sDescription
|
||||||
|
if instr(sTempString, "*") = 0 and len(.sDirections) <= 4 then 'always full descriptions in blocked rooms
|
||||||
|
iFullStopPos = instr(sTempString, ".")
|
||||||
|
if iFullStopPos < len(sTempString) then
|
||||||
|
sTempString = left$(sTempString, iFullStopPos - 1) & "*" & mid$(sTempString, iFullStopPos)
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
.wpDescription = encodeString(sTempString)
|
||||||
|
|
||||||
|
if len(.sDirections) > 4 then
|
||||||
|
.wpBlockingReason = encodeString(.sDirections)
|
||||||
|
.bDirections = 128 '%10000000 - BLOCKED with no open directions
|
||||||
|
else
|
||||||
|
.wpBlockingReason = 0
|
||||||
|
.bDirections = IIf(instr(.sDirections, "N"), 8, 0)
|
||||||
|
.bDirections OR= IIf(instr(.sDirections, "E"), 4, 0)
|
||||||
|
.bDirections OR= IIf(instr(.sDirections, "S"), 2, 0)
|
||||||
|
.bDirections OR= IIf(instr(.sDirections, "W"), 1, 0)
|
||||||
|
end if
|
||||||
|
|
||||||
|
end with
|
||||||
|
|
||||||
|
next K
|
||||||
|
print #1, ""
|
||||||
|
|
||||||
|
print #1, "'***********COMMANDS***********"
|
||||||
|
for K = 1 to iCommands_Number
|
||||||
|
with aCommands(K)
|
||||||
|
print #1, "' """ ; .sAction ; """, ";
|
||||||
|
print #1, """" ; .sObject ; """, ";
|
||||||
|
print #1, """" ; .sLocation ; """, ";
|
||||||
|
print #1, """" ; .sTransformedObject ; """, ";
|
||||||
|
print #1, """" ; .sTransformedLocation ; """, ";
|
||||||
|
print #1, """" ; .sMessage ; """"
|
||||||
|
|
||||||
|
.bActionNumber = asc(.sAction)
|
||||||
|
.bObjectNumber = asc(.sObject)
|
||||||
|
.bLocationNumber = findRoomNumber(.sLocation)
|
||||||
|
|
||||||
|
if aVerbs(.bActionNumber - 64).bCommandStartIndex = 255 then
|
||||||
|
aVerbs(.bActionNumber - 64).bCommandStartIndex = K - 1
|
||||||
|
end if
|
||||||
|
|
||||||
|
sTempString = .sTransformedObject
|
||||||
|
if sTempString <> "" then
|
||||||
|
select case left$(sTempString, 3)
|
||||||
|
case "DRO"
|
||||||
|
.bNewObjectLocationNumber = 252
|
||||||
|
sTempString = ""
|
||||||
|
case "TAK"
|
||||||
|
.bNewObjectLocationNumber = 0 'previously 253
|
||||||
|
sTempString = ""
|
||||||
|
case "RMV"
|
||||||
|
.bNewObjectLocationNumber = 254
|
||||||
|
sTempString = ""
|
||||||
|
case "RND"
|
||||||
|
.bNewObjectLocationNumber = 255
|
||||||
|
sTempString = mid$(sTempString, 6)
|
||||||
|
case else
|
||||||
|
if mid$(sTempString, 4, 1) = ":" then
|
||||||
|
.bNewObjectLocationNumber = findRoomNumber(left$(sTempString, 3))
|
||||||
|
sTempString = mid$(sTempString, 6)
|
||||||
|
end if
|
||||||
|
end select
|
||||||
|
end if
|
||||||
|
if sTempString <> "" then .wpNewObjectDescription = encodeString(sTempString)
|
||||||
|
|
||||||
|
if .sTransformedLocation <> "" then
|
||||||
|
.bNewLocationNumber = findRoomNumber(left$(.sTransformedLocation, 3))
|
||||||
|
if .bNewLocationNumber <> 254 then 'if the new room is not "WIN"...
|
||||||
|
sTempString = mid$(.sTransformedLocation, 6)
|
||||||
|
if instr(sTempString, "*") = 0 then
|
||||||
|
iFullStopPos = instr(sTempString, ".")
|
||||||
|
if iFullStopPos < len(sTempString) then
|
||||||
|
sTempString = left$(sTempString, iFullStopPos - 1) & "*" & mid$(sTempString, iFullStopPos)
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
.wpNewLocationDescription = encodeString(sTempString)
|
||||||
|
.bNewDirections = IIf(instr(.sTransformedLocation, "NORTH"), 8, 0)
|
||||||
|
.bNewDirections OR= IIf(instr(.sTransformedLocation, "EAST"), 4, 0)
|
||||||
|
.bNewDirections OR= IIf(instr(.sTransformedLocation, "SOUTH"), 2, 0)
|
||||||
|
.bNewDirections OR= IIf(instr(.sTransformedLocation, "WEST"), 1, 0)
|
||||||
|
if .bNewDirections = 0 then .bNewDirections = 15 'set to all directions...
|
||||||
|
end if
|
||||||
|
|
||||||
|
'SCORE************************************************************************************
|
||||||
|
if aRooms(.bLocationNumber).bAlreadySolved = False then
|
||||||
|
aRooms(.bLocationNumber).bAlreadySolved = True
|
||||||
|
iTotalScore += 5
|
||||||
|
'if the Object specified in the Command is a Treasure, *OR* the Object KIND specified is "Treasure"...
|
||||||
|
if iif(asc(.sObject) > 64, aObjects(asc(.sObject) - 64).sKind = "$", .sObject = "$") then
|
||||||
|
if .bNewObjectLocationNumber = 254 then 'if the Object used to solve gets "RMV"d after...
|
||||||
|
iTotalScore -= 5
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
|
||||||
|
|
||||||
|
end if
|
||||||
|
|
||||||
|
.wpMessage = encodeString(.sMessage)
|
||||||
|
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
print #1, ""
|
||||||
|
|
||||||
|
print #1, "'***********GENERAL HELP***********"
|
||||||
|
for K = 1 to iHelpStringsNum
|
||||||
|
with aHelpStrings(K)
|
||||||
|
.uArchivedOffset = encodeString(.sArchivedString)
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
|
||||||
|
close #1
|
||||||
|
|
||||||
|
'--------------------------------------D A T A---D-A-T-A---D-A-T-A------------------------------------------------------
|
||||||
|
open "..\data_verbs.bas" for output as #1
|
||||||
|
For K = 1 to 26
|
||||||
|
with aVerbs(K)
|
||||||
|
print #1, "' """ ; .sName ; """, """ ; .sTransitive ; """, """ ; .sDefaultMessage ; """"
|
||||||
|
print #1, "DATA AS WORD $" ; hex(.wpName, 4) ; ", $" ; hex(.wpDefaultMessage, 4)
|
||||||
|
print #1, "DATA AS BYTE $" ; hex(.bCommandStartIndex, 2)
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
close #1
|
||||||
|
|
||||||
|
open "..\data_objects.bas" for output as #1
|
||||||
|
For K = 1 to 26
|
||||||
|
with aObjects(K)
|
||||||
|
print #1, "' """ ; .sName ; """, """ ; .sKind ; """, """ ; .sDescription ; """"
|
||||||
|
print #1, "DATA AS WORD $" ; hex(.wpName, 4)
|
||||||
|
print #1, "DATA AS BYTE $" ; hex(.bObjectFlags, 2)
|
||||||
|
print #1, "DATA AS WORD $" ; hex(.wpDescription, 4)
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
close #1
|
||||||
|
|
||||||
|
open "..\data_rooms.bas" for output as #1
|
||||||
|
For K = 1 to ROOM_INITIAL_COUNT 'only the "starting" rooms!
|
||||||
|
with aRooms(K)
|
||||||
|
print #1, "' """ ; .sName ; """, """ ; .sDirections ; """, """ ; .sDescription ; """"
|
||||||
|
print #1, "DATA AS BYTE $" ; hex(asc(.sName) + 128, 2) ; ", $" ; hex(.bDirections, 2)
|
||||||
|
print #1, "DATA AS WORD $" ; hex(.wpBlockingReason, 4) ; ", $" ; hex(.wpDescription, 4)
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
close #1
|
||||||
|
|
||||||
|
open "..\data_commands.bas" for output as #1
|
||||||
|
For K = 1 to iCommands_Number
|
||||||
|
with aCommands(K)
|
||||||
|
print #1, "' """ ; .sAction ; """, ";
|
||||||
|
print #1, """" ; .sObject ; """, ";
|
||||||
|
print #1, """" ; .sLocation ; """, ";
|
||||||
|
print #1, """" ; .sTransformedObject ; """, ";
|
||||||
|
print #1, """" ; .sTransformedLocation ; """, ";
|
||||||
|
print #1, """" ; .sMessage ; """"
|
||||||
|
|
||||||
|
print #1, "DATA AS BYTE $" ; hex(.bActionNumber, 2) ; ", $" ; hex(.bObjectNumber, 2) ; ", $" ; hex(.bLocationNumber, 2)
|
||||||
|
print #1, "DATA AS BYTE $" ; hex(.bNewObjectLocationNumber, 2)
|
||||||
|
print #1, "DATA AS WORD $" ; hex(.wpNewObjectDescription, 4)
|
||||||
|
print #1, "DATA AS BYTE $" ; hex(.bNewLocationNumber, 2)
|
||||||
|
print #1, "DATA AS WORD $" ; hex(.wpNewLocationDescription, 4)
|
||||||
|
print #1, "DATA AS WORD $" ; hex(.wpMessage, 4)
|
||||||
|
print #1, "DATA AS BYTE $" ; hex(.bNewDirections, 2)
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
close #1
|
||||||
|
|
||||||
|
open "..\data_general_help.bas" for output as #1
|
||||||
|
For K = 1 to iHelpStringsNum
|
||||||
|
with aHelpStrings(K)
|
||||||
|
print #1, "' """ ; .sArchivedString ; """"
|
||||||
|
print #1, "DATA AS WORD $" ; hex(.uArchivedOffset, 4)
|
||||||
|
end with
|
||||||
|
next K
|
||||||
|
close #1
|
||||||
|
|
||||||
|
open "..\fixed_strings.bas" for output as #1
|
||||||
|
encodeFixedString("gamename", "ADVENT 101")
|
||||||
|
encodeFixedString("credits", "- >ORIGINAL DEVELOPMENT BY #>WILL #>CROWTHER, 1976|- >GREATLY EXPANDED BY #>DON #>WOODS, 1977|" & _
|
||||||
|
"- >STREAMLINED WITH RANDOM MAPS AND NEW PUZZLES BY #>JEFFREY #>HENNING, 2017|::TROYPRESS.COM|" & _
|
||||||
|
"- >PORTED TO >C64 >X>C=>B>A>S>I>C 3, BUG-FIXED AND FURTHER TOUCHES BY #>J>J>FLASH, 2023|::JJFLASH.ITCH.IO|" & _
|
||||||
|
"- >X>C=>B>A>S>I>C 3 BY #>CSABA #>FEKETE, 2022-2023|::XC-BASIC.NET|" & _
|
||||||
|
"- >THANKS TO #>DIDUZ : DIDUZ.ITCH.IO")
|
||||||
|
encodeFixedString("start_game", "SAY `HELP` FOR GENERAL & SPECIFIC HINTS. PRESS A KEY TO START YOUR CAVING ADVENTURE!")
|
||||||
|
encodeFixedString("i_see_no", "I SEE NO ")
|
||||||
|
encodeFixedString("here", " HERE.")
|
||||||
|
encodeFixedString("it_is_now_closed", "IT IS NOW CLOSED.")
|
||||||
|
encodeFixedString("it_was_already_closed", "IT WAS ALREADY CLOSED.")
|
||||||
|
encodeFixedString("dropped", "DROPPED.")
|
||||||
|
encodeFixedString("you_give_the", "YOU GIVE THE ")
|
||||||
|
encodeFixedString("to_the", " TO THE ")
|
||||||
|
encodeFixedString("headlamp", "LAMP")
|
||||||
|
encodeFixedString("as_you_jumped_you_dropped_the", "AS YOU JUMPED, UNFORTUNATELY YOU DROPPED THE ")
|
||||||
|
encodeFixedString("it_is_now_opened", "IT IS NOW OPENED.")
|
||||||
|
encodeFixedString("it_was_already_opened", "IT WAS ALREADY OPENED.")
|
||||||
|
encodeFixedString("youre_already_carrying_it", "YOU'RE ALREADY CARRYING IT.")
|
||||||
|
encodeFixedString("taken", "TAKEN.")
|
||||||
|
encodeFixedString("treasure_taken", "$TAKEN!")
|
||||||
|
encodeFixedString("always_full_descriptions_on", "ALWAYS FULL DESCRIPTIONS FROM NOW ON.")
|
||||||
|
encodeFixedString("that_was_a_rhetorical_question", "THAT WAS A RHETORICAL QUESTION.")
|
||||||
|
encodeFixedString("your_score", "YOU SCORED A TOTAL OF ")
|
||||||
|
encodeFixedString("maximum_score", " POINTS, OUT|OF A POSSIBLE MAXIMUM OF " & str$(iTotalScore) & " POINTS.")
|
||||||
|
encodeFixedString("you_win", "YOU WIN!!")
|
||||||
|
encodeFixedString("conquered", "YOU'VE SOLVED IT ALL!|HAIL THE CONQUERING ADVENTURER!")
|
||||||
|
encodeFixedString("try_again", "PRESS ANY KEY TO TRY AGAIN.")
|
||||||
|
close #1
|
||||||
|
|
||||||
|
print
|
||||||
|
print "done!"
|
||||||
|
print " Commands: " ; iCommands_Number
|
||||||
|
print " Help lines: " ; iHelpStringsNum
|
||||||
|
print
|
||||||
|
print " Total SCORE: " ; iTotalScore
|
||||||
|
sleep
|
||||||
|
|
||||||
|
function findRoomNumber(sStringToSearch as STRING) as UBYTE
|
||||||
|
if sStringToSearch = " " then return 0
|
||||||
|
if sStringToSearch = "WIN" then return 254
|
||||||
|
For S as UBYTE = 1 to iRooms_number
|
||||||
|
if aRooms(S).sName = sStringToSearch then return (S - 1)
|
||||||
|
next S
|
||||||
|
iRooms_number += 1
|
||||||
|
aRooms(iRooms_number).sName = sStringToSearch
|
||||||
|
findRoomNumber = (iRooms_number - 1)
|
||||||
|
end function
|
||||||
|
|
||||||
|
sub encodeFixedString(sLabel as STRING, sFixedStringToEncode as STRING)
|
||||||
|
print #1, "' """ ; sFixedStringToEncode ; """"
|
||||||
|
print #1, "fixed_str_" ; sLabel ; ":"
|
||||||
|
encodeString (sFixedStringToEncode)
|
||||||
|
end sub
|
||||||
Loading…
Reference in New Issue