Option Explicit

'Constants for Stats

Public Const STAT_STR = 0

Public Const STAT_CON = 1

Public Const STAT_DEX = 2

Public Const STAT_INT = 3

Public Const STAT_HP = 4

Public Const STAT_SP = 5

Public Const STAT_MANA = 6

Public Const STAT_MR = 7

Public Const TEXTUREWIDTH As Integer = 64

Public Const TEXTUREHEIGHT As Integer = 32

'Constants for determining which direction key is being pressed

Public Const SCROLL_NONE As Integer = 0

Public Const SCROLL_UP As Integer = 1

Public Const SCROLL_RIGHT As Integer = 2

Public Const SCROLL_DOWN As Integer = 3

Public Const SCROLL_LEFT As Integer = 4

Public Const CONTENTS_ACTION As Integer = -1

Public Const CONTENTS_NONE As Integer = 0

Public Const CONTENTS_ARMOR As Integer = 1

Public Const CONTENTS_ITEM As Integer = 2

Public Const CONTENTS_MONSTER As Integer = 3

Public Const CONTENTS_WEAPON As Integer = 4

Public Const CONTENTS_TREE As Integer = 5

'Action constants

Public Enum CharacterAction

ACTION_ATTACK

ACTION_DEFEND

ACTION_SEARCH

ACTION_LOOK

ACTION_DISARM

ACTION_JUMP

ACTION_CLIMB

ACTION_IDLE

ACTION_PREPARESPELL

ACTION_CASTSPELL

ACTION_DIE

ACTION_WALK

End Enum

'Item type constants

Public Enum ItemType

ITEM_PLAYER

ITEM_MONSTER

ITEM_WEAPON

ITEM_ARMOR

ITEM_POTION

ITEM_SCROLL

ITEM_STAFF

ITEM_CHEST

ITEM_MONEY

ITEM_SHIELD

End Enum

'Direction constants

Public Enum Direction

DIR_EAST

DIR_SOUTHEAST

DIR_SOUTH

DIR_SOUTHWEST

DIR_WEST

DIR_NORTHWEST

DIR_NORTH

DIR_NORTHEAST

End Enum

'Armor constants

Public Enum ArmorLocation

LOC_HEAD

LOC_NECK

LOC_TORSO

LOC_WAIST

LOC_ARMS

LOC_HANDS

LOC_LEGS

LOC_FEET

LOC_FINGER

End Enum

'Character type constants

Public Enum CharacterType

WARRIOR

MAGICIAN

CLERIC

End Enum

Public Enum ActionType

ACTION_TRAP_SINGLE

ACTION_TRAP_MULTI

ACTION_TELEPORT

ACTION_HEAL

ACTION_LEVEL_CHANGE

ACTION_SPAWN_MONSTER

ACTION_SPAWN_ITEM

ACTION_LOCK

ACTION_UNLOCK

ACTION_MESSAGE

ACTION_PLAYER_START

End Enum

Public Type udtBonus

iAmount As Integer

iTimeStarted As Integer

iDuration As Integer

End Type

Public Type udtStat

iBaseVal As Integer

iCurVal As Integer

End Type