hud and some player stuff

This commit is contained in:
Ruben Müller 2011-08-21 16:51:16 +02:00
parent 355d831f70
commit 345592067b
5 changed files with 22 additions and 4 deletions

BIN
data/gfx/hud.psd Normal file

Binary file not shown.

View file

@ -159,6 +159,8 @@ EndProcedure
Procedure DrawHUD()
EndProcedure
; and ..
; *****************************************************************************
; * Menu

View file

@ -13,6 +13,12 @@
#TILESET_TYPE_SOLID = 3
#TILESET_TYPE_GRASS = 4
; Player directions
#PLAYER_DIR_UP = 0
#PLAYER_DIR_RIGHT = 0
#PLAYER_DIR_DOWN = 0
#PLAYER_DIR_LEFT = 0
; Global variables
Global Fullscreen = 0
Global Title.s = "ESCape - Build " + Str(#PB_Editor_BuildCount)
@ -20,9 +26,10 @@ Global Screen.ScreenDimension\width = 800
Screen.ScreenDimension\height = 600
; Player
Global Player.Tile\X = 0
Player.Tile\Y = 0
Player.Tile\TileNumber = 0
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

View file

@ -71,11 +71,11 @@ menus("RLY_QUIT")\Entries() = Item
*ActiveMenu.GameMenu = @Menus(CurrentState)
; Start the main loop which will create the window, wait for events and draw things
; on the screen. To escape from this loop, press ESC or close the window.
If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, Screen\Width, Screen\Height, 0, 0, 0)
SetFrameRate(40)
InitGraphics()
InitTileset()
@ -108,6 +108,8 @@ If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCent
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600, 0, 0, 0)
Fullscreen = 0
EndIf
SetFrameRate(40)
InitGraphics()
InitTileset()
EndIf

View file

@ -43,6 +43,13 @@ Structure Tile
Health.i
EndStructure
Structure Player
X.i
Y.i
TileNumber.i
Direction.i
EndStructure
Structure Shadow
X.i
Y.i