DXC Companion

Tutorial 2 Part 3

Right, lets get the mouse doing something!

Download this zip file containing 2 icons (tutorial2c_icons.zip (3kb)) and extract the file into the same directory as the files for the previous parts of this tutorial.

In the same project, create a new image in the banks window and select the first icon file (dance_but.bmp). Create a new sequence, select the icon and enter the values : Sprite X = 125, Sprite Y = 25, Sprite Count = 1, X Count = 1

Now do the same with the second icon file (dance2_but.bmp). The sequence values are the same.

In the CREATE_SPRITES() procedure add a Create Sprite statement using the icon sequence in bank 7 (Create Sprite 3,10,215 Using Bank 7) and turn the sprite on.

Create a new variable called HIT which will keep record of whether or not the mouse is touching the icon and another variable called DANCING which will tell us whether or not the baby is currently dancing. Set DANCING to equal 0 and in the CREATE_SPRITES() procedure turn off the animation for sprite 1 (Sprite Animate 1 Off).

At the beginning of the Repeat Until loop check for a sprite collision with sprite 3 (the icon) and assign the result to HIT (HIT = SpriteCollide(3)).

If there is a collision then change the icon sprite to the lit icon. This can be done by changing the sprite sequence to bank 9 (If HIT > 0 Then : Set Sprite Sequence 3 To Bank 9).

Now check to see if the mouse button is being pressed (If MouseButton(1) Then). If it has then check to see if the baby is not dancing (If DANCING = 0 Then). If it isn't then animate sprite 2 (Sprite Animate 1 On), play the midi file (SynthCommand(MIDI_Play)) and set DANCING to equal 1. You may find that you will also need to add a delay so that the program only registers one mouse click (Delay(200)) .

If the baby is not dancing then turn off the music (SynthCommand(MIDI_Stop)), turn off the animation (Sprite Animate 1 Off), set DANCING back to 0 and add another delay.

If the icon is not being collided then set the sprite sequence back to bank 7.

Remember to take out the SynthCommand(MIDI_Play) from above the Repeat Until loop.

Your code should look like this :

NOTE: If you do not wish to type the code below you may download or open this text file and simply copy and paste the code into your project.

//TUTORIAL 2 PART 3

//DEFINE VARIABLES
Global KEYPRESS$, HIT, DANCING

//DEFINE PROCEDURES
DefProc INIT_DISPLAY()
DefProc CREATE_SPRITES()
DefProc LOAD_MUSIC()
DefProc MOUSE_POINTER()

//---- START MAIN CODE ----

//CALL THE PROCEDURE TO CREATE THE SCREEN
INIT_DISPLAY()

//CALL THE PROCEDURE TO CREATE THE SPRITES
CREATE_SPRITES()

//CALL THE PROCEDURE TO LOAD THE MUSIC
LOAD_MUSIC()

//CALL THE PROCEDURE TO CREATE THE MOUSE POINTER
MOUSE_POINTER()

DANCING = 0

//START LOOP - THIS LOOP WILL REPEAT UNTIL A KEY IS PRESSED
Repeat

//CHECK FOR A COLLISION WITH SPRITE 3 (THE DANCE BUTTON)

//IF A COLLIDE HAS OCCURRED...

//CHANGE THE BUTTON TO THE LIT IMAGE

//HAS THE LEFT MOUSE BUTTON BEEN PRESSED AS WELL?

//IF THE BABY IS NOT DANCING...

//PLAY THE LOADED MIDI FILE

//ANIMATE THE BABY

// CREATE A SMALL DELAY SO THAT ONLY 1 MOUSE CLICK IS REGISTERED

//STOP THE LOADED MIDI FILE

//TURN OFF THE ANIMATION

// CREATE A SMALL DELAY SO THAT ONLY 1 MOUSE CLICK IS REGISTERED

//IF THE MOUSE IS NOT ON THE BUTTON THEN CHANGE THE IMAGE TO UNLIT ONE

//THE INIT_DISPLAY PROCEDURE CREATES A SCREEN AND A PLANE

//CREATE A MAP IN BANK 50

//CREATE A TILE USING A BACKGROUND IMAGE IN BANK 1

//CREATE PLANE 1 USING THE MAP IN BANK 50

//CHANGE THE TRANSPARENCY OF THE SPRITES TO AN UNUSED OR BACKGROUND COLOUR

//THIS PROCEDURE WILL CREATE THE SPRITE

//CREATE SPRITE #1 AT 256,176 USING THE SEQUENCE IN BANK 3

//ENABLE THE SPRITES

//NOW TURN ON THE SPRITE SYSTEM

//TURN OFF ANIMATION ON SPRITE 1

//LOAD MIDI MUSIC

//LOAD THE MID FILE INTO MEMORY

//CREATE MOUSE POINTER

//CHANGE THE DEFAULT POINTER TO THE SPRITE

//TURN ON THE MOUSE (BY DEFAULT IT IS TURNED OFF)