stuff
This commit is contained in:
parent
8b2ea22581
commit
30a48990e2
7 changed files with 19 additions and 5 deletions
BIN
data/gfx/flyer.bmp
Normal file
BIN
data/gfx/flyer.bmp
Normal file
Binary file not shown.
After Width: | Height: | Size: 15 KiB |
Binary file not shown.
Before Width: | Height: | Size: 48 KiB |
BIN
data/gfx/tileset01.bmp
Normal file
BIN
data/gfx/tileset01.bmp
Normal file
Binary file not shown.
After Width: | Height: | Size: 32 KiB |
|
@ -1 +1 @@
|
|||
; This file holds all the functions If it gets too big,
; we can split it in categories
; *****************************************************************************
; * Tileset
Procedure InitTileset()
LoadImage
EndProcedure
; *****************************************************************************
; *****************************************************************************
; * Menu
Procedure Menu_GotoCurrent()
If *ActiveMenu\Entries()\Selected <> #True
FirstElement(*ActiveMenu\Entries());
ForEach *ActiveMenu\Entries()
If *ActiveMenu\Entries()\Selected = #True
Break
EndIf
Next
EndIf
EndProcedure
; *****************************************************************************
|
||||
; This file holds all the functions If it gets too big,
; we can split it in categories
; *****************************************************************************
; * Tileset
Procedure InitTileset()
CatchSprite(#Tile01, ?Gfx_Tileset)
;ClipSprite(0, 0, 0, 16, 16)
; test the sprite
;DisplaySprite(0, 20, 20)
EndProcedure
; *****************************************************************************
; *****************************************************************************
; * Menu
Procedure Menu_GotoCurrent()
If *ActiveMenu\Entries()\Selected <> #True
FirstElement(*ActiveMenu\Entries());
ForEach *ActiveMenu\Entries()
If *ActiveMenu\Entries()\Selected = #True
Break
EndIf
Next
EndIf
EndProcedure
; *****************************************************************************
|
|
@ -12,4 +12,14 @@ Global *ActiveMenu.GameMenu
|
|||
|
||||
; Fonts
|
||||
Global Font_H1 = LoadFont(1, "Courier", 40, #PB_Font_Bold)
|
||||
Global Font_H2 = LoadFont(2, "Verdana", 18)
|
||||
Global Font_H2 = LoadFont(2, "Verdana", 18)
|
||||
|
||||
; Graphics
|
||||
Enumeration 500
|
||||
#Tile01
|
||||
#Tile02
|
||||
#Tile03
|
||||
#Tile04
|
||||
#Tile05
|
||||
#Tile06
|
||||
EndEnumeration
|
10
src/Main.pb
10
src/Main.pb
|
@ -47,8 +47,6 @@ If ReadFile(0, "../data/menu.data")
|
|||
CloseFile(0)
|
||||
EndIf
|
||||
|
||||
InitTileset()
|
||||
|
||||
Menus("MAIN_MENU")\Title = "ESCape"
|
||||
|
||||
Define Item.GameMenuItem
|
||||
|
@ -73,6 +71,8 @@ If InitSprite() = 0 Or InitKeyboard() = 0
|
|||
End
|
||||
EndIf
|
||||
|
||||
InitTileset()
|
||||
|
||||
; 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)
|
||||
|
@ -112,4 +112,8 @@ If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCent
|
|||
Until KeyboardPushed(#PB_Key_Escape)
|
||||
EndIf
|
||||
|
||||
End
|
||||
End
|
||||
|
||||
DataSection
|
||||
Gfx_Tileset:
|
||||
IncludeBinary "../data/gfx/tileset01.bmp"
|
Loading…
Reference in a new issue