- Requires 5.07.08b4

- Several messages titivated.

- Suppressed auto-repeat of user input EXCEPT for movement.
  e.g. to fire multiple times to the right now you would hold down A
       and explicitly press RIGHT multiple-times, not hold RIGHT down.

- Improved UI feedback on map:
  - Beeps when map button is activated.
  - Writes current map mode to message area.
  - Tried to reduce graphical glitch when entering map, there is
    still an issue where the player sprite is briefly shown over
    the map, perhaps someone more familiar with the graphics can fix.

- Initial controller determined by (case-insensitive) setting of
  OPTION PLATFORM:
    "Game*Mite"    => Game*Mite controller
    "PicoGAME VGA" => NES gamepad attached to Port A
    other          => Keyboard only

- This can be overridden irrespective of platform by setting the "controller"
  property in "A:/.spconfig" or "A:/.config", e.g.

    controller = "gamemite"

  or,

    controller = "nes-a"

  or,

    controller = "atari-a"

  Note that enabling "nes-a" or "atari-a" on the Game*Mite will report an
  ERROR because the expected pins are already allocated to the display.

- Game*Mite/NES controls redefined - still a WIP:
  - FIRE A           Acts as START on menu-screen
  - FIRE A + FIRE B  Quit, must be pressed twice within a short period
  - SELECT           Toggles between walk/search/move modes
  - START            Use item
  - UP
  - UP + FIRE A      Fire up
  - UP + FIRE B      Toggles weapons
  - DOWN
  - DOWN + FIRE A    Fire down
  - DOWN + FIRE B    Toggles items
  - LEFT
  - LEFT + FIRE A    Fire left
  - LEFT + FIRE B    Use item
  - RIGHT
  - RIGHT + FIRE A   Fire right
  - RIGHT + FIRE B   Map

         Select Case map_mode
           Case 0
             FRAMEBUFFER write l:CLS col(5):FRAMEBUFFER write sc$ 'clear layer
             writeplayer(hp,vp,pl_wp)
             WriteComment("Map deactivated")
           Case 1
             WriteComment("Map activated")
             RenderLiveMap()
           Case 2

         Select Case map_mode
           Case 0
             writeplayer(hp,vp,pl_wp)
             WriteComment("Map deactivated")
           Case 1
             FRAMEBUFFER write l:CLS col(5):FRAMEBUFFER write sc$ 'clear layer
             WriteComment("Map activated")
             RenderLiveMap()
           Case 2

Const CTRL_DRIVER$ = init_controller$()

' Const CTRL_DRIVER$ = "ctrl_none$" ' Uncomment for no controller
' Const CTRL_DRIVER$ = "ctrl_gamemite$" ' Uncomment for Game*Mite
Const CTRL_DRIVER$ = "ctrl_nes_a$" ' Uncomment for NES controller on
                                   ' PicoGAME VGA port A
If Call(CTRL_DRIVER$, 1) <> "" Then Error

Function read_input$()
 read_input$ = read_inkey$()
 If Len(read_input$) Then Exit Function
 read_input$ = Call(CTRL_DRIVER$)
End Function

Function read_input$()
 Static last$
 read_input$ = read_inkey$()
 If Len(read_input$) Then Exit Function
 read_input$ = Call(CTRL_DRIVER$)

 ' Suppress auto-repeat except for movement.
 If last$ = read_input$ Then
   If Not InStr("up,down,left,right", last$) Then
     read_input$ = ""
     Exit Function
   EndIf
 Else
   last$ = read_input$
 EndIf
End Function

Sub writeworld_n(xm,ym)
 For xn=-xm To xm
   xsn=xs+xn*24:xpn=xp+xn+1+lva
   For yn=-ym To ym
     'load tile from world map
     spn=Peek(byte(yp+yn)*129+xpn)
     Blit memory tile_index(spn),xsn,ys+yn*24
   Next
 Next
End Sub