//TUTORIAL 2 //DEFINE VARIABLES Global KEYPRESS$ //DEFINE PROCEDURES DefProc INIT_DISPLAY() DefProc CREATE_SPRITES() //---- START MAIN CODE ---- //CALL THE PROCEDURE TO CREATE THE SCREEN INIT_DISPLAY() //CALL THE PROCEDURE TO CREATE THE SPRITES CREATE_SPRITES() //START LOOP - THIS LOOP WILL REPEAT UNTIL A KEY IS PRESSED Repeat
Update Display //THE INIT_DISPLAY PROCEDURE CREATES A SCREEN AND A PLANE Procedure INIT_DISPLAY()
Set Tile 0,0,1 Using Bank 50 //CREATE A TILE USING A BACKGROUND IMAGE IN BANK 1 Create Plane 1 Using Bank 50 //CREATE PLANE 1 USING THE MAP IN BANK 50 //CHANGE THE TRANSPARENCY OF THE SPRITE TO AN UNUSED OR BACKGROUND COLOUR Set Bitmap 2 Transparency To 0,0,255 //THIS PROCEDURE WILL CREATE THE SPRITE Procedure CREATE_SPRITES()
Sprite On 1 //ENABLE THE SPRITE Sprites On //NOW TURN ON THE SPRITE SYSTEM EndProg |