#DATA_PATH = "../data/" #TILE_SIZE = 20 #SHADOW_RADIUS = 6 #MAP_WIDTH = 120 #MAP_HEIGHT = 120 ; TODO: Aus der XML lesen ; Tileset entries #TILESET_TYPE_PLAYER = 0 #TILESET_TYPE_FLOOR = 1 #TILESET_TYPE_WALL = 2 #TILESET_TYPE_SOLID = 3 #TILESET_TYPE_GRASS = 4 ; Player directions #PLAYER_DIR_UP = 0 #PLAYER_DIR_RIGHT = 1 #PLAYER_DIR_DOWN = 2 #PLAYER_DIR_LEFT = 3 ; Global variables Global Fullscreen = 0 Global Title.s = "ESCape - Build " + Str(#PB_Editor_BuildCount) Global Screen.ScreenDimension\width = 800 Screen.ScreenDimension\height = 600 ; Player Global Player.Player\X = 0 Player.Player\Y = 0 Player.Player\TileNumber = 0 Player.Player\Direction = #PLAYER_DIR_RIGHT ; Camera Global Cam.Camera\X = 0 Cam.Camera\Y = 0 Cam.Camera\Width = (Screen\Width/#TILE_SIZE)-1 Cam.Camera\Height = (Screen\Height/#TILE_SIZE)-1 Cam.Camera\Padding = 10 NewMap GameStates.GameState() Global NewMap Menus.GameMenu() Global CurrentState.s = "MAIN_MENU" Global *ActiveMenu.GameMenu ; Fonts Global Font_H1 = LoadFont(1, "Arial", 40, #PB_Font_Bold) Global Font_H2 = LoadFont(2, "Verdana", 18) Global Font_H3 = LoadFont(3, "Verdana", 10) ; Graphics Global GFXLogo.i Global GFXTileset.i Global Dim Tileset.TilsetEntry(36) Global ShadowOfDarkness.i ; Sounds Global MenuSoundStarted = 0 LoadSound(0, #DATA_PATH + "sound/menu_change.wav") LoadSound(1, #DATA_PATH + "sound/menu_select.wav") LoadSound(2, #DATA_PATH + "sound/title_song.wav") ; Map Global Dim TileMap.Tile(#MAP_WIDTH, #MAP_HEIGHT) Global Dim ShadowMap.Shadow(#MAP_WIDTH, #MAP_HEIGHT) ; Addons Global *PlayerNoise.NoiseWave = AllocateMemory(SizeOf(NoiseWave)) *PlayerNoise\X = 0 *PlayerNoise\Y = 0 *PlayerNoise\Size = 0