Guru
Joined: 15/06/2020
Location: AustraliaPosts: 435
| Posted: 07:35am 16 Aug 2026 |
G'day Nimue,
Very nice job on this project, self playing games are a great idea
Downloaded your code from GITHUB and tried out on LCD and it looks neat
After making a few adjustments to try on HDMI (1024x600 Mode2 = 256x150) the following caused an error:
Dim lnew
Dim newload As Integer
Dim attract$ As String
SetTick 180000, lnew
newload = 0
Sub lnew
Select Case 2 'Int(Rnd * 4) + 1
Case 1
attract$ = "defender.bas"
Case 2
attract$ = "asteroids2.bas"
Case 3
attract$ = "lander.bas"
Case 4
attract$ = "missile.bas"
End Select
newload = 1
End Sub
Dim newload As Integer
Dim attract$ As String
SetTick 180000, lnew
newload = 0
Sub lnew
Select Case 2 'Int(Rnd * 4) + 1
Case 1
attract$ = "defender.bas"
Case 2
attract$ = "asteroids2.bas"
Case 3
attract$ = "lander.bas"
Case 4
attract$ = "missile.bas"
End Select
newload = 1
End Sub
Having LNEW as a variable and a subroutine name should not be possible, this might be causing some problems
Oddly it works on the LCD version but errors on the HDMI version
Regards, Lyle.