; This file holds all the functions If it gets too big,
; we can split it in categories

; *****************************************************************************
; * Tileset
UsePNGImageDecoder()

Procedure InitTileset()
<<<<<<< HEAD
	LoadSprite(#Tile01, DataPath+"gfx/tileset01.bmp")
=======
	LoadSprite(#Tile01, #DATA_PATH+"gfx/tileset01.png")
>>>>>>> f089be7018687821daf886b8c0e8a0d907df0e2d
	;ClipSprite(#Tile01, 0, 0, 16, 16)
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