Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me.
|
Forum Index : Microcontroller and PC projects : CMM2: Space invaders
Author | Message | ||||
capsikin Guru Joined: 30/06/2020 Location: AustraliaPosts: 341 |
I've done a rough conversion of Space Invaders to the Colour Maximite 2. (not the Colour Invaders version with coloured sprites for aliens) invaders-CMM2.zip I've only set the font in one place, but it lets you see the aliens. I've added controller support using my controllers library. I've changed the movement keys from inkey$ to keydown, but it should be easy to change back if you are using a terminal. (search for keydown in the code) The sound's kind of off, and I'm not sure if the dark blue colour I see is right. I might do some more controller testing with it, but I've probably done all the porting work on it I'm going to. Others are welcome to improve it and fix bugs. Thanks to TassyJim for the font files. mcclout999, were you still looking at converting colour invaders? That would be good to see on the CMM2 (from previous thread NEXT STEP- To start converting all the archive of programs. ) |
||||
Atomizer_Zero Senior Member Joined: 04/07/2020 Location: United KingdomPosts: 134 |
Pretty fun to play! The sound for the invaders moving was a little annoying... so I made a small adjustment... dim integer sfx = 300 'General game loop Do While 1 'check if we draw a new level If NextLevel = 1 Then GoSub DrawNextLevel 'check if we have to move the Invaders If Counter1 >= InvInterval Then play tone sfx,50 pause(50) 'remove pause and play stop if you want smooth tone transitions play stop 'rather than "classic" invaders dub- dub- dub- dub-.. Timer = 0 sfx = sfx - 50 if sfx <= 100 then sfx = 300 end if GoSub MoveInvaders |
||||
capsikin Guru Joined: 30/06/2020 Location: AustraliaPosts: 341 |
dim integer sfx = 300 'General game loop Do While 1 'check if we draw a new level If NextLevel = 1 Then GoSub DrawNextLevel 'check if we have to move the Invaders If Counter1 >= InvInterval Then play tone sfx,50 pause(50) 'remove pause and play stop if you want smooth tone transitions play stop 'rather than "classic" invaders dub- dub- dub- dub-.. Timer = 0 sfx = sfx - 50 if sfx <= 100 then sfx = 300 end if GoSub MoveInvaders I couldn't hear the sine waves very well on my speaker so I changed them to square waves using play sound, and they all needed pause and play stop, so I put it in a function. invaders3.bas in the zip file. invaders.zip |
||||
Print this page |