'$DYNAMIC
DEFINT A-Z
'''
TYPE registers  ' S/B
         AX    AS INTEGER
         BX    AS INTEGER
         CX    AS INTEGER
         DX    AS INTEGER
         BP    AS INTEGER
         SI    AS INTEGER
         DI    AS INTEGER
         FLAGS AS INTEGER
         DS    AS INTEGER
         ES    AS INTEGER
END TYPE
'''
COMMON SHARED A$
COMMON SHARED A
COMMON SHARED barrier$
COMMON SHARED block
COMMON SHARED chr
COMMON SHARED characters
COMMON SHARED membersinparty
COMMON SHARED class
COMMON SHARED direction
COMMON SHARED rndencounter%
COMMON SHARED Hstart, Hstop, Vstart, Vstop
COMMON SHARED inc
COMMON SHARED IconActive$
COMMON SHARED IconStatus$
COMMON SHARED partyinitiative
COMMON SHARED Location$
COMMON SHARED maxrange
COMMON SHARED Mouse$
COMMON SHARED Lb
COMMON SHARED Rb
COMMON SHARED Hx
COMMON SHARED Vy
COMMON SHARED name$
COMMON SHARED PBM
COMMON SHARED position
COMMON SHARED YNH
COMMON SHARED YNV
COMMON SHARED time AS LONG
COMMON SHARED year
COMMON SHARED day
COMMON SHARED cfn 'CountFileNumber
COMMON SHARED DT
'''
COMMON SHARED Data1, Data2, Data3, Data4, Data5
'''
COMMON SHARED item.size AS STRING 'DYNAMIC
COMMON SHARED item.charges AS STRING 'DYNAMIC
COMMON SHARED item.level AS STRING 'DYNAMIC
COMMON SHARED item.age AS STRING 'DYNAMIC
COMMON SHARED item.type AS STRING
COMMON SHARED item.id AS STRING
COMMON SHARED item.special AS STRING
COMMON SHARED item.weight AS SINGLE
COMMON SHARED item.cost
COMMON SHARED item.dmgmin
COMMON SHARED item.dmgmax
COMMON SHARED item.bonus
COMMON SHARED item.equip
COMMON SHARED item.class1
COMMON SHARED item.class2
COMMON SHARED item.class3
COMMON SHARED item.class4
''' FLAGS
COMMON SHARED MouseOn
COMMON SHARED ShowMouse
COMMON SHARED SCmusicOn
COMMON SHARED SFXspeaker
COMMON SHARED optionsmenuFlag
COMMON SHARED systemmenuFlag
COMMON SHARED InCombat
COMMON SHARED PreCombat
COMMON SHARED paletteshading
COMMON SHARED RecalcFlag$
COMMON SHARED SpellDisplayFlag
COMMON SHARED NewFlag$
COMMON SHARED TimeOn
COMMON SHARED TDB
COMMON SHARED Casting
''' KEYS
COMMON SHARED Esc AS STRING
COMMON SHARED spacebar AS STRING
COMMON SHARED MoveForward AS STRING
COMMON SHARED MoveBackward AS STRING
COMMON SHARED TurnRight AS STRING
COMMON SHARED TurnLeft AS STRING
'''TOF AddOns
'COMMON SHARED name$()
'COMMON SHARED race$()
'COMMON SHARED class$()
'COMMON SHARED sex$()
'COMMON SHARED strength()
'COMMON SHARED intelligence()
'COMMON SHARED wisdom()
'COMMON SHARED dexterity()
'COMMON SHARED constitution()
'COMMON SHARED righthand$()
'COMMON SHARED lefthand$()
'COMMON SHARED bodyarmor$()
'COMMON SHARED specialitem$()
'COMMON SHARED BP$()
'COMMON SHARED condition$()
'COMMON SHARED hitpoints()
'COMMON SHARED currentHP()
'COMMON SHARED spellpoints()
'COMMON SHARED currentSP()
'COMMON SHARED armorclass()
'COMMON SHARED level()
'COMMON SHARED experience() AS LONG
'COMMON SHARED GoldCoins()
'COMMON SHARED SilverCoins()
'COMMON SHARED BronzeCoins()
'COMMON SHARED thaco()
'COMMON SHARED mindmgattack()
'COMMON SHARED maxdmgattack()
'COMMON SHARED numberattacks()
'COMMON SHARED magicresistance%()
'COMMON SHARED savingthrow%()
'COMMON SHARED encumbrance()
'COMMON SHARED Combat()
'COMMON SHARED Archery()
'COMMON SHARED holiness()
'COMMON SHARED Martial()
'COMMON SHARED Magical()
'COMMON SHARED Alchemy()
'COMMON SHARED Thievery()
'COMMON SHARED illusionism()
'COMMON SHARED SpellAffecting$()
'COMMON SHARED age$()
'COMMON SHARED nature$()
'COMMON SHARED size$()
'COMMON SHARED portrait$()
'COMMON SHARED coinweight() AS SINGLE
'COMMON SHARED enc.hitpoints()
'COMMON SHARED enc.currenthp()
'COMMON SHARED enc.spellpoints()
'COMMON SHARED enc.currentsp()
'COMMON SHARED enc.armorclass()
'COMMON SHARED enc.condition$()
'COMMON SHARED enc.righthand$()
'COMMON SHARED enc.lefthand$()
'COMMON SHARED enc.bodyarmor$()
'COMMON SHARED enc.specialitem$()
'COMMON SHARED enc.BC()
'COMMON SHARED enc.SC()
'COMMON SHARED enc.GC()
'COMMON SHARED enc.thaco()
'COMMON SHARED enc.mindmgattack()
'COMMON SHARED enc.maxdmgattack()
'COMMON SHARED enc.range()
'COMMON SHARED enc.BP$()
'COMMON SHARED enc.name$
'COMMON SHARED enc.size$
'COMMON SHARED enc.range
'COMMON SHARED enc.file$
'COMMON SHARED enc.level
'COMMON SHARED enc.number
'COMMON SHARED enc.number$
'COMMON SHARED enc.portrait$
'COMMON SHARED enc.reaction$
'COMMON SHARED enc.xpv
'COMMON SHARED enc.fbm
'COMMON SHARED GFX()
'COMMON SHARED PAL()
'COMMON SHARED MouseCursor()
'COMMON SHARED MouseMask()
'COMMON SHARED fontv()
'COMMON SHARED A$()
'COMMON SHARED R(), G(), B()
'COMMON SHARED spellactive()
'COMMON SHARED spellactive$()
'COMMON SHARED loseturn()
'COMMON SHARED whx()
'COMMON SHARED wvy()
'COMMON SHARED shx()
'COMMON SHARED svy()
'COMMON SHARED ehx()
'COMMON SHARED evy()
'COMMON SHARED nhx()
'COMMON SHARED nvy()
'''S/B
'COMMON SHARED QMIDIRegs AS registers
'COMMON SHARED MEM.SEGMENT() AS INTEGER
'COMMON SHARED MIDI.PLAYTIME AS SINGLE
'COMMON SHARED MIDI.ERROR AS INTEGER
'COMMON SHARED PAUSED AS SINGLE
'COMMON SHARED SBMIDI.INTERRUPT AS INTEGER
'COMMON SHARED MEM.ALLOCATED() AS LONG
'COMMON SHARED SBSIM.INTERRUPT AS INTEGER
'COMMON SHARED SENSITIVE AS INTEGER
'COMMON SHARED SOUND.DISABLED AS INTEGER
'COMMON SHARED CURRENTHANDLE AS INTEGER
'''
CONST FALSE = 0
CONST TRUE = NOT FALSE
CONST copy = 7
CONST sysrest = 20 '1/4 second increments. (Default: 5 sec.)
CONST second = 1000 '1/1000 second increments. (Default: 1 sec.)
CONST East = 1
CONST South = 2
CONST West = 3
CONST North = 4
CONST Turn = 6' (Default: 6 sec.)

