In this tutorial we will be creating a multi-functional TOUCH based sprite collision system in a reasonable amount of code.
What's it for?
Most games use sprites as graphics, and making any at least decent game probably will need a menu of some sort. The idea of a TOUCH based sprite selection system is to use no extra invisible sprites, this maybe key to a game that needs lots of sprites on the touch screen.
ACLS 'Resets everything prier to opening the program
XSCREEN 2 'Allows us to use the touch screen
DEF FUNCTION ID
'Whatever you want to do to the touched sprite here. For now we will just color it red and make all the other sprites white
'Colors all sprites that are not the one you touched white
FOR I = 0 TO 1
IF I != ID THEN SPCOLOR I,#WHITE
'Changes the focused display to the touch screen
TOUCH OUT TIME,TX,TY 'Putting the touch output fro the touch screen into variables we can use
'If the time ypu spent touching is spent is more than 1 frame and its not -1(That means there is no sprite) call our function.
IF TIME > 0 && SPHITRC(TX, TY, 1, 1) != -1 THEN
FUNCTION SPHITRC(TX ,TY ,1, 1)
That is the basic engine for anybody needing to use touch based collision. Add sprites with SPSET before the WHILE loop. Remember:You must allow collision to happen with sprites using SPCOL SpriteID or none of this will work.
Please suggest improvements in the comments, it will benefit anybody looking over the page! ^_^