> load "pet25e-thwill.bas
> RUN

[291] read_input$ = Call(read_ctrl$)
Error : Unknown user function

> RUN
[291] Load image path$("images/introscreen.bmp"),0,10
Error : Could not find the path
>
> ? path$("images/introscreen.bmp")
NONE/images/introscreen.bmp
> files
B:/petrobot25d
  <DIR>  data
  <DIR>  images
  <DIR>  lib
  <DIR>  music
09:18 30-11-2023      63069  pet25d.bas
23:50 30-11-2023      64852  pet25e-thwill.bas
19:41 30-11-2023      63533  pet25e.bas
4 directories, 3 files

[291] Pulse a_latch, pulse_len!
Error : Pin 0/NULL is not an output

- The scrolling header now starts with the identified platform, one of:
  - Generic PicoMite
  - Generic PicoMiteVGA
  - Game*Mite
  - PicoGAME VGA

- The platform is determined by looking for a setting for the "device" property in a file called "A:/.spconfig" or "A:/.config". If this isn't present then it is determined using MM.DEVICE$.

  e.g.

    device = "Game*Mite"

  or

    device = "PicoGAME VGA"

- If "Game*Mite" is configured then will use the Game*Mite controls. If "PicoGAME VGA" is configured then (by default) will use NES gamepad connected to port A.

- On the PicoGAME VGA you can for "kicks and giggles" use an Atari joystick connected to port A (in combination with the keyboard), configure as follows:

    device = "PicoGAME VGA"
    default-controller = "atari-a"

- Rebased on @Volhout's pet25g release.

- Reconfigured Game*Mite / NES controls:

  - FIRE A           Acts as START on menu-screen
  - SELECT           Toggles between walk/search/move modes
  - START            Acts as START on menu-screen,
                     QUIT (if pressed twice) during game
  - 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

  Because A & B on their own now do nothing during game-play this
  IMO makes it less likely to do the wrong thing accidentally.

- 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.

- Titivated messages on intro screen.

- There are still issues with control responsiveness on intro screen,
  I may look at those at a later time.

 ' Controller driver for Wii Classic gamepad.
Function ctrl_wiiclassic$(init%)
 If Not init% Then
   Local bits%, i%, s$
   bits%=DEVICE(wii b)
   If bits% Then
     Select Case bits%
       Case &h0080 : s$ = "fire-up"       ' cursor up
       Case &h0020 : s$ = "fire-down"     ' cursor down
       Case &h0100 : s$ = "fire-left"     ' cursor left
       Case &h0040 : s$ = "fire-right"    ' cursor right
       Case &h0010 : s$ = "toggle-weapon" ' sholder button L
       Case &h0001 : s$ = "toggle-item"   ' sholder button R
       Case &h0800 : s$ = "move"          ' button a
       Case &h2000 : s$ = "search"        ' button b
       Case &h0004 : s$ = "map"           ' button home
       Case &h0008 : s$ = "escape"        ' Select
       Case &h0002 : s$ = "use-item"      ' Start
     End Select
   Else
     wiiry%=DEVICE(wii RY)
     If wiiry%>205 Then
       s$ = "up"            ' Right Joy up
     ElseIf wiiry%<50 Then
       s$ = "down"          ' Right Joy down
     EndIf
     wiirx%=DEVICE(wii RX)
     If wiirx%<50 Then
       s$ = "left"          ' Right Joy left
     ElseIf wiirx%>205 Then
       s$ = "right"         ' Right Joy right
     EndIf
   EndIf

   ctrl_wiiclassic$ = s$
   Exit Function
 Else
   DEVICE wii open
 EndIf
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