Parsec Inspired Space Shooter Game

[vbgamer45]

A little Parsec Inspired Space Shooter Game from TI99/4A
Features:
Scrolling background with generated buildings.
Multiple levels with different enemies.
Sound beeps from the computer
Refueling
High score system.
And more!

[yokesee]

Very entertaining.
The game lags during explosions with the sound on.
Regards

[Thierry69]

Very Nice !!!!!

TI99/4A was my first computer, where I learned programmation (I was 9), I even wrote a Crazy frog game to help the frog cross the street !

I haven't anymore my old TI 99 4/A

[vbgamer45]

It was a great system. My grandpa had, and was really the first computer system I was around, he had bunch of software mainly played Chess. Had a speech synthesizer, the whole works. Lost a lot of it in the flood of the basement. Mainly played on black white computer TV. I didn't know Parsec was in color till years later.

[fafalone]

Good job, fun game

Runs perfectly in tB too, including x64 with just a couple LongPtrs in the APIs

[vbgamer45]

Good job, fun game

Runs perfectly in tB too, including x64 with just a couple LongPtrs in the APIs

That would be cool to see. I follow TwinBasic but haven't used it much. If you want to submit that release x64 or fork https://github.com/VBGAMER45/Parsec-VB6

[fafalone]

Actually PlaySound and mciSendString aren't currently used so 0 modifications required for x64 too.

Here's the twinproj for it; I set up the APIs anyway in case you do use them in the future, this is the only change:

    #If VBA7 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As LongPtr, ByVal dwFlags As Long) As Long
    Private Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As LongPtr) As Long
    #Else
    Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
    Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
    #End If

The #If block preserves VB6 compatibility so you can keep the same code for both.



PS- Similar to you and Thierry, my first programming experience was a TI-89 when I was 11

[vbgamer45]

Great thank you!!

[georgekar]

I learn TI Basic from a friend's TI99/4A through a nice BASIC manual, at age 15 (although I bought an Acorn Electron, some years later)