static int allua_sample_instance_get_length(lua_State * L)
{
ALLUA_sample_instance si = allua_check_sample_instance(L, 1);
lua_pushnumber(L, al_get_sample_instance_length(si));
return 1;
}
int main(void)
{
// don't forget to put allegro-5.0.10-monolith-md-debug.lib
//primitive variable
bool done = false;
bool redraw = true;
const int FPS = 60;
bool isGameOver = false;
//object variables
spaceShip ship;
Bullet bullets[NUM_BULLETS];
Comet comets[NUM_COMETS];
Explosion explosions[NUM_EXPLOSIONS];
//Allegro variables
ALLEGRO_DISPLAY *display = NULL;
ALLEGRO_EVENT_QUEUE *event_queue = NULL;
ALLEGRO_TIMER *timer = NULL;
ALLEGRO_FONT *font18 = NULL;
ALLEGRO_BITMAP *shipImage;
ALLEGRO_BITMAP *cometImage;
ALLEGRO_BITMAP *expImage;
ALLEGRO_SAMPLE * sample = NULL;
ALLEGRO_SAMPLE * sample2 = NULL;
ALLEGRO_SAMPLE * sample3 = NULL;
ALLEGRO_SAMPLE_INSTANCE * instance1 = NULL;
ALLEGRO_SAMPLE_INSTANCE * instance2 = NULL;
ALLEGRO_SAMPLE_INSTANCE * instance3 = NULL;
//Initialization Functions
if(!al_init()) //initialize Allegro
return -1;
display = al_create_display(WIDTH, HEIGHT); //create our display object
if(!display) //test display object
return -1;
al_init_primitives_addon();
al_install_keyboard();
al_init_font_addon();
al_init_ttf_addon();
al_init_image_addon();
al_install_audio(); // always initialize audio before the codecs
al_init_acodec_addon();
al_reserve_samples(10); // reserves numbers of samples/ channels or voices
sample = al_load_sample("chirp.ogg");
sample2 = al_load_sample("static.ogg");
sample3 = al_load_sample("JSS - Our Song.ogg");
instance1 = al_create_sample_instance(sample);
instance2 = al_create_sample_instance(sample2);
instance3 = al_create_sample_instance(sample3);
al_set_sample_instance_playmode(instance3, ALLEGRO_PLAYMODE_LOOP);
al_attach_sample_instance_to_mixer(instance1, al_get_default_mixer());
al_attach_sample_instance_to_mixer(instance2, al_get_default_mixer());
al_attach_sample_instance_to_mixer(instance3, al_get_default_mixer());
event_queue = al_create_event_queue();
timer = al_create_timer(1.0 / FPS);
cometImage = al_load_bitmap("asteroid-1-96.png");
//above does not need convert_mask_to_alpha because it is tranparent background in sprite sheet
shipImage = al_load_bitmap("Spaceship_by_arboris.png");
al_convert_mask_to_alpha(shipImage,al_map_rgb(255,0,255));
expImage = al_load_bitmap("explosion_3_40_128.png");
srand(time(NULL));
InitShip(ship, shipImage);
InitBullet(bullets, NUM_BULLETS);
InitComet(comets, NUM_COMETS, cometImage);
InitExplosions(explosions, NUM_EXPLOSIONS, expImage);
font18 = al_load_font("arial.ttf", 18, 0);
al_register_event_source(event_queue, al_get_keyboard_event_source());
al_register_event_source(event_queue, al_get_timer_event_source(timer));
al_register_event_source(event_queue, al_get_display_event_source(display));
al_play_sample_instance(instance3);
al_start_timer(timer);
while(!done)
{
ALLEGRO_EVENT ev;
al_wait_for_event(event_queue, &ev);
if(ev.type == ALLEGRO_EVENT_TIMER)
{
redraw = true;
int soundX = ship.x;
int soundY = ship.y;
if(keys[UP])
MoveShipUp(ship);
else if(keys[DOWN])
MoveShipDown(ship);
else
ResetShipAnimation(ship,1);
if(keys[LEFT])
MoveShipLeft(ship);
else if(keys[RIGHT])
MoveShipRight(ship);
else
ResetShipAnimation(ship, 2);
if(soundX != ship.x || soundY != ship.y){
//al_play_sample(sample, 1,0,1, ALLEGRO_PLAYMODE_ONCE, NULL);
al_play_sample_instance(instance1);
}
if (ship.x -10 < 0 || ship.x + 10 > WIDTH || ship.y - 10 < 0 || ship.y + 10 > HEIGHT){
al_play_sample_instance(instance2);
}
if(!isGameOver)
{
UpdateExplosions(explosions, NUM_EXPLOSIONS);
UpdateBullet(bullets, NUM_BULLETS);
StartComet(comets, NUM_COMETS);
UpdateComet(comets, NUM_COMETS);
CollideBullet(bullets, NUM_BULLETS, comets, NUM_COMETS, ship, explosions, NUM_EXPLOSIONS);
CollideComet(comets, NUM_COMETS, ship, explosions, NUM_BULLETS);
if(ship.lives <= 0)
isGameOver = true;
}
}
else if(ev.type == ALLEGRO_EVENT_DISPLAY_CLOSE)
{
done = true;
}
else if(ev.type == ALLEGRO_EVENT_KEY_DOWN)
{
switch(ev.keyboard.keycode)
{
case ALLEGRO_KEY_ESCAPE:
done = true;
break;
case ALLEGRO_KEY_UP:
keys[UP] = true;
break;
case ALLEGRO_KEY_DOWN:
keys[DOWN] = true;
break;
case ALLEGRO_KEY_LEFT:
keys[LEFT] = true;
break;
case ALLEGRO_KEY_RIGHT:
keys[RIGHT] = true;
break;
case ALLEGRO_KEY_SPACE:
keys[SPACE] = true;
FireBullet(bullets, NUM_BULLETS, ship);
break;
}
}
else if(ev.type == ALLEGRO_EVENT_KEY_UP)
{
switch(ev.keyboard.keycode)
{
case ALLEGRO_KEY_ESCAPE:
done = true;
break;
case ALLEGRO_KEY_UP:
keys[UP] = false;
break;
case ALLEGRO_KEY_DOWN:
keys[DOWN] = false;
break;
case ALLEGRO_KEY_LEFT:
keys[LEFT] = false;
break;
case ALLEGRO_KEY_RIGHT:
keys[RIGHT] = false;
break;
case ALLEGRO_KEY_SPACE:
keys[SPACE] = false;
break;
}
}
if(redraw && al_is_event_queue_empty(event_queue))
{
redraw = false;
if(!isGameOver)
{
DrawShip(ship);
if(al_get_sample_instance_playing(instance1)){
al_draw_text(font18, al_map_rgb(255,255,255),5,30,0, "Instance 1 is playing");
}
if(al_get_sample_instance_playing(instance2)){
al_draw_text(font18, al_map_rgb(255,255,255),WIDTH - 5,30,ALLEGRO_ALIGN_RIGHT, "Instance 2 is playing");
}
if(al_get_sample_instance_playing(instance3)){
al_draw_textf(font18, al_map_rgb(255,255,255),5,HEIGHT - 30,0, "Instance 3 is playing: %.1f %%", al_get_sample_instance_position(instance3) / (float)al_get_sample_instance_length(instance3) * 100);
}
DrawBullet(bullets, NUM_BULLETS);
DrawComet(comets, NUM_COMETS);
DrawExplosions(explosions, NUM_EXPLOSIONS);
al_draw_textf(font18, al_map_rgb(255, 0, 255), 5, 5, 0, "Player has %i lives left. Player has destroyed %i objects", ship.lives, ship.score);
}
else
{
al_draw_textf(font18, al_map_rgb(0, 255, 255), WIDTH / 2, HEIGHT / 2, ALLEGRO_ALIGN_CENTRE, "Game Over. Final Score: %i", ship.score);
}
al_flip_display();
al_clear_to_color(al_map_rgb(0,0,0));
}
}
al_destroy_sample_instance(instance1);
al_destroy_sample_instance(instance2);
al_destroy_sample_instance(instance3);
al_destroy_sample(sample);
al_destroy_sample(sample2);
al_destroy_sample(sample3);
al_destroy_bitmap(expImage);
al_destroy_bitmap(shipImage);
al_destroy_bitmap(cometImage);
al_destroy_event_queue(event_queue);
al_destroy_timer(timer);
al_destroy_font(font18);
al_destroy_display(display); //destroy our display object
return 0;
}