43 lines
940 B
Plaintext
43 lines
940 B
Plaintext
; This file holds all the functions If it gets too big,
|
|
; we can split it in categories
|
|
|
|
; *****************************************************************************
|
|
; * Tileset
|
|
Procedure InitGraphics()
|
|
GFXLogo = LoadSprite(#PB_Any, "../data/gfx/logo.bmp")
|
|
GFXTileset = LoadSprite(#PB_Any, "../data/gfx/tileset01.bmp")
|
|
EndProcedure
|
|
|
|
Procedure InitTileset()
|
|
ClipSprite(GFXTileset, 0, 0, 16, 16)
|
|
EndProcedure
|
|
|
|
Procedure DrawTile(number.i, x.i, y.i)
|
|
Debug number.i
|
|
Debug x.i
|
|
Debug y.i
|
|
EndProcedure
|
|
|
|
Procedure DrawMap()
|
|
|
|
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
|
|
|
|
|