436 lines
8.9 KiB
Plaintext
436 lines
8.9 KiB
Plaintext
local[$1] =
|
|
{
|
|
$0
|
|
}
|
|
|
|
instance tempLong of LongInt
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
lowWord = $0
|
|
hiWord = $0
|
|
}
|
|
|
|
subclass GPolyBitmap of View
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
top = $0
|
|
left = $0
|
|
bottom = $0
|
|
right = $0
|
|
canTrack = $0
|
|
canDrag = $0
|
|
state = $0
|
|
priority = $0
|
|
plane = $0
|
|
x = $0
|
|
y = $0
|
|
z = $0
|
|
scaleX = $80 ; 128, lastKey
|
|
scaleY = $80 ; 128, lastKey
|
|
maxScale = $80 ; 128, lastKey
|
|
fixPriority = $0
|
|
seenRect = $0
|
|
view = $ffff ; -1
|
|
loop = $0
|
|
cel = $0
|
|
bitmap = $0
|
|
scaleSignal = $8 ; fixPriority
|
|
magnifier = $0
|
|
signal = $5021 ; 20513
|
|
client = $0
|
|
clut = $0
|
|
heading = $0
|
|
noun = $0
|
|
case = $0
|
|
modNum = $ffff ; -1
|
|
sightAngle = $28 ; 40, '(', style
|
|
actions = $0
|
|
onMeCheck = $0
|
|
approachX = $0
|
|
approachY = $0
|
|
approachDist = $0
|
|
_approachVerbs = $0
|
|
_actionVerbs = $0
|
|
xScaleAdj = $64 ; 100, 'd', moveDone
|
|
yScaleAdj = $64 ; 100, 'd', moveDone
|
|
doBaseLine = $0
|
|
yStep = $2
|
|
brLeft = $0
|
|
brTop = $0
|
|
brRight = $0
|
|
brBottom = $0
|
|
baseSetter = $0
|
|
|
|
init()
|
|
}
|
|
|
|
subclass VerbArray of ByteArray
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
data = $0
|
|
type = $2
|
|
|
|
fill()
|
|
setBit()
|
|
clearBit()
|
|
getBit()
|
|
}
|
|
|
|
subclass VerbList of Set
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
elements = $0
|
|
size = $0
|
|
nextNode = $0
|
|
|
|
add()
|
|
release()
|
|
}
|
|
|
|
instance catchUpOnMessages of Code
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
|
|
doit()
|
|
}
|
|
|
|
subclass WorldObject of Act
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
top = $0
|
|
left = $0
|
|
bottom = $0
|
|
right = $0
|
|
canTrack = $0
|
|
canDrag = $0
|
|
state = $0
|
|
priority = $0
|
|
plane = $0
|
|
x = $0
|
|
y = $0
|
|
z = $0
|
|
scaleX = $80 ; 128, lastKey
|
|
scaleY = $80 ; 128, lastKey
|
|
maxScale = $80 ; 128, lastKey
|
|
fixPriority = $0
|
|
seenRect = $0
|
|
view = $ffff ; -1
|
|
loop = $0
|
|
cel = $0
|
|
bitmap = $0
|
|
scaleSignal = $8 ; fixPriority
|
|
magnifier = $0
|
|
signal = $21 ; 33, '!', key
|
|
client = $0
|
|
clut = $0
|
|
heading = $0
|
|
noun = $0
|
|
case = $0
|
|
modNum = $ffff ; -1
|
|
sightAngle = $28 ; 40, '(', style
|
|
actions = $0
|
|
onMeCheck = $0
|
|
approachX = $0
|
|
approachY = $0
|
|
approachDist = $32 ; 50, '2', edit
|
|
_approachVerbs = $0
|
|
_actionVerbs = $0
|
|
xScaleAdj = $64 ; 100, 'd', moveDone
|
|
yScaleAdj = $64 ; 100, 'd', moveDone
|
|
doBaseLine = $0
|
|
yStep = $2
|
|
brLeft = $0
|
|
brTop = $0
|
|
brRight = $0
|
|
brBottom = $0
|
|
baseSetter = $0
|
|
cycleSpeed = $6 ; maxScale
|
|
script = $0
|
|
cycler = $0
|
|
timer = $0
|
|
scaler = $0
|
|
detailLevel = $0
|
|
xLast = $0
|
|
yLast = $0
|
|
xStep = $3 ; z
|
|
origStep = $302 ; 770, pBrowNum
|
|
moveSpeed = $6 ; maxScale
|
|
blocks = $0
|
|
mover = $0
|
|
looper = $0
|
|
viewer = $0
|
|
avoider = $0
|
|
code = $0
|
|
pName = $0
|
|
pBaseList = $0
|
|
pMsgStr = $0
|
|
pIDName = $0
|
|
pDirectObject = $0
|
|
pIndirectObject = $0
|
|
pDispose = $0
|
|
pMover = $0
|
|
pLastMover = $0
|
|
pUser = $0
|
|
pUpdatorList = $0
|
|
pUpdateClient = $0
|
|
pUpdateObj = $0
|
|
pColor = $0
|
|
pClutStart = $0
|
|
pPaused = $0
|
|
pMode = $1
|
|
pLastMode = $1
|
|
pAction = $1d ; 29, brTop
|
|
pBaseView = $ffff ; -1
|
|
pServIDLo = $ffff ; -1
|
|
pServIDHi = $ffff ; -1
|
|
pPlayMovie = $1
|
|
pSendMovie = $1
|
|
pMovieDelay = $0
|
|
pLastTicks = $0
|
|
pAffectedLo = $0
|
|
pAffectedHi = $0
|
|
pPolygon = $0
|
|
pAddedPolygon = $0
|
|
pOutgoingMovie = $0
|
|
pRoom = $0
|
|
pRoomNum = $ffff ; -1
|
|
pMovieCmd = $0
|
|
pBitmapBased = $0
|
|
pDoScaler = $1
|
|
pHidden = $0
|
|
pStrength = $0
|
|
pDexterity = $0
|
|
pIntelligence = $0
|
|
pEndurance = $0
|
|
pValue = $0
|
|
pManaValue = $0
|
|
pLevel = $0
|
|
pMana = $0
|
|
pManaMax = $0
|
|
pHealth = $0
|
|
pHealthHi = $0
|
|
pHealthMax = $0
|
|
pHealthMaxHi = $0
|
|
pStamina = $0
|
|
pStaminaMax = $0
|
|
pAlignment = $80 ; 128, lastKey
|
|
pArmorClass = $0
|
|
pApproachScript = $0
|
|
pMoney = $0
|
|
pRecordMotion = $0
|
|
pWeapon = $0
|
|
pCombatGroup = $0
|
|
pInvisibleClut = $0
|
|
pFrozenClut = $0
|
|
pMsgFile = $0
|
|
pDestLoop = $ffff ; -1
|
|
pHeadingCue = $0
|
|
pBaseBitsLo = $0
|
|
pBaseBitsHi = $0
|
|
pSoundGroup = $0
|
|
|
|
init()
|
|
doit()
|
|
dispose()
|
|
show()
|
|
perform()
|
|
handleEvent()
|
|
onMe()
|
|
addToCast()
|
|
hide()
|
|
getName()
|
|
lastCel()
|
|
cue()
|
|
setHeading()
|
|
update()
|
|
getBase()
|
|
getBaseCharacter()
|
|
hasBase()
|
|
addBase()
|
|
deleteBase()
|
|
buildBaseList()
|
|
buildVerbList()
|
|
handleVerb()
|
|
getVerb()
|
|
setMessage()
|
|
open()
|
|
close()
|
|
lock()
|
|
unlock()
|
|
take()
|
|
give()
|
|
drop()
|
|
look()
|
|
see()
|
|
putOn()
|
|
bePutOn()
|
|
takeOff()
|
|
beTakenOff()
|
|
eat()
|
|
beEaten()
|
|
drink()
|
|
beDrunk()
|
|
trigger()
|
|
goto()
|
|
approach()
|
|
face()
|
|
examine()
|
|
beExamined()
|
|
buy()
|
|
sell()
|
|
nextFeature()
|
|
prevFeature()
|
|
showContents()
|
|
hideContents()
|
|
modifyProp()
|
|
getProp()
|
|
stopAction()
|
|
getOwner()
|
|
getBaseOwner()
|
|
owns()
|
|
isOwnedBy()
|
|
updateDisplay()
|
|
createDisplay()
|
|
createClut()
|
|
inheritClut()
|
|
removeClut()
|
|
setColor()
|
|
createBitmap()
|
|
disposeBitmap()
|
|
remapBitmap()
|
|
addBitmap()
|
|
addCel()
|
|
addLinkedCel()
|
|
addLinkedBitmap()
|
|
insertLinkedBitmap()
|
|
insertLinkedCel()
|
|
addUpdator()
|
|
deleteUpdator()
|
|
setMode()
|
|
clearMode()
|
|
saveMode()
|
|
restoreMode()
|
|
saveMover()
|
|
restoreMover()
|
|
pause()
|
|
unpause()
|
|
setAction()
|
|
generatePolygon()
|
|
submitPolygon()
|
|
removePolygon()
|
|
addToRoom()
|
|
deleteFromRoom()
|
|
deleteFromCast()
|
|
matchScaler()
|
|
fromPacket()
|
|
fromExtendedPacket()
|
|
buildExtendedPacket()
|
|
getServIDs()
|
|
setView()
|
|
changed()
|
|
sendMovie()
|
|
moveDone()
|
|
recordPosn()
|
|
recordMotion()
|
|
recordHide()
|
|
recordShow()
|
|
recordHeading()
|
|
setAffectedState()
|
|
getAffectedState()
|
|
clearAffectedState()
|
|
setValue()
|
|
addValue()
|
|
subValue()
|
|
setManaValue()
|
|
addManaValue()
|
|
subManaValue()
|
|
setName()
|
|
deleteFromServer()
|
|
addToServer()
|
|
matchServID()
|
|
setCombatGroup()
|
|
servIDEquals()
|
|
setServID()
|
|
setVisible()
|
|
validatePosn()
|
|
getBitmap()
|
|
}
|
|
|
|
subclass ApproachScript of DemonsScript
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
client = $0
|
|
state = $ffff ; -1
|
|
start = $0
|
|
timer = $0
|
|
cycles = $0
|
|
seconds = $0
|
|
lastSeconds = $0
|
|
ticks = $0
|
|
lastTicks = $0
|
|
register = $0
|
|
script = $0
|
|
caller = $0
|
|
next = $0
|
|
number = $0
|
|
pRoom = $0
|
|
pApproachX = $ffff ; -1
|
|
pApproachY = $ffff ; -1
|
|
pDistance = $0
|
|
pObject = $0
|
|
pClient = $0
|
|
|
|
init()
|
|
dispose()
|
|
changeState()
|
|
}
|
|
|
|
subclass DisposeNotifyList of Set
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
elements = $0
|
|
size = $0
|
|
nextNode = $0
|
|
}
|
|
|
|
string_0268 = "tempLong"
|
|
string_0271 = "GPolyBitmap"
|
|
string_027d = "VerbArray"
|
|
string_0287 = "VerbList"
|
|
string_0290 = "catchUpOnMessages"
|
|
string_02a2 = "%s(0x%x) is being disposed while a movie command is active on it.\n" \
|
|
"pMovieCmd = %s(0x%x)"
|
|
string_02f9 = "Object(%s, %s[$%x], %s[%d], %s) stopped at bad place. The programmers have been made aware of this and it will be fixed very soon."
|
|
string_037c = "<bad movie>"
|
|
string_0388 = "<no script>"
|
|
string_0394 = "<no mover>"
|
|
string_039f = "createDisplay generated a NULL bitmap (view == %d)"
|
|
string_03d2 = "getServIDs called"
|
|
string_03e4 = "tpla"
|
|
string_03e9 = "%s gold coin%s"
|
|
string_03f8 = ""
|
|
string_03f9 = "s"
|
|
string_03fb = "%s mana crystal%s"
|
|
string_040d = "WorldObject"
|
|
string_0419 = "n %s"
|
|
string_041e = " %s"
|
|
string_0422 = "ApproachScript"
|
|
string_0431 = "DisposeNotifyList"
|
|
|