TheGameCreators - CodeBase - Space invaders clone

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 31st Mar 2006 02:42

Modified: 31st Mar 2006 03:18

Author: laurent mrejen

Summary

This is a simple code of a clone of Space Invaders

Full Description

This is a complete program to make a simple Space invaders game. At last, i have to add those things: - Sound - Make able the enemy to shoot - A menu

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` Space invaders Mars 2006

`#########################################################

`#               Initialisation du jeu                   #

`#########################################################

`On cache la souris

Hide mouse

gosub Init_VarGlobales

gosub Charge_Monstre

gosub Charge_Decor

gosub Charge_Heros

gosub Charge_Tir

GameOver:

gosub Init_VarGlobales

gosub InitSprite_HerosMonstre

show all sprites

`#########################################################

`#               Fin de l'initialisation du jeu          #

`#########################################################

`#               boucle principale                       #

`#########################################################

gosub Anime_Monstre

gosub DetecteCollisionHerosAvecEnemi

`gosub DetecteCollisionHerosAvecTir

gosub DetecteCollisionTirHerosAvecEnemi

gosub DeplaceTirHeros

`gosub Supprime_TirEnemi

`gosub Supprime_TirHeros

gosub GestionHeros

`rafraichissement de l'Ã©cran

sync

loop

`#########################################################

`#               Fin de la boucle principale             #

`#########################################################

`#             MÃ©thodes Gosub                            #

`#########################################################

`MÃ©thode d'initialisation des variables globales

Init_VarGlobales:

`Constantes de couleurs

BLANC = rgb(255,255,255)

`Constante pour le dÃ©cor

Bitmap_Decor=1

`Constante pour l'Ã©cran

Ecran=0

` Constantes pour les monstres

Bitmap_Monstre=20

Monstre_Sprite=100

Monstre_Image=100

Monstre_Speed=2

Monstre_PosX=10

Monstre_PosY=10

Monstre_DistanceX=50

Monstre_DistanceY=50

Monstre_Direction=1

Monstre_AuxLimites=0

`Constante pour le hÃ©ros

Bitmap_Heros=10

Heros_Sprite=10

Heros_Image=10

Heros_Speed=5

Heros_PosX=screen width()/2

Heros_PosY=screen height()-70

`Constantes pour les tirs

Bitmap_TirMonstre=15

TirMonstre_Sprite=200

TirMonstre_Image=200

TirMonstre_Speed=5

Bitmap_TirHeros=16

TirHeros_Sprite=250

TirHeros_Image=250

TirHeros_Speed=5

return

`MÃ©thode pour charger le dÃ©cor

Charge_Decor:

load bitmap "ImagesBackground.bmp", Bitmap_Decor

copy bitmap Bitmap_Decor, Ecran

return

`MÃ©thode pour charger les monstres

Charge_Monstre:

for i=0 to 3

`On charge l'image d'un vaisseau monstre

load bitmap GetNomFichier("ImagesMonstre", i+1, "jpg"), Bitmap_Monstre+i

`On charge l'image dans le sprite

get image Monstre_Image+i, 0,0, bitmap width(), bitmap height()

next i

return

`MÃ©thode pour charger le hÃ©ros

Charge_Heros:

load bitmap "ImagesHeros.jpg", Bitmap_Heros

`On charge l'image dans le sprite

get image Heros_Image, 0,0,bitmap width(), bitmap height()

`On cree le sprite

Sprite Heros_Sprite, Heros_PosX, Heros_PosY , Heros_Image

set sprite Heros_Sprite,1, 1

`on redimensionne le sprite

scale sprite Heros_Sprite, 9

return

`MÃ©thode pour charger les tirs

Charge_Tir:

load bitmap "ImagesTirHeros.bmp", Bitmap_TirHeros

`On charge l'image dans le sprite

get image TirHeros_Image, 0,0,bitmap width(), bitmap height()

load bitmap "ImagesTirEnemi.bmp", Bitmap_TirMonstre

`On charge l'image dans le sprite

get image TirMonstre_Image, 0,0,bitmap width(), bitmap height()

return

`MÃ©thode d'initialisation des sprites Heros et monstre

InitSprite_HerosMonstre:

`On cree le sprite

Sprite Heros_Sprite, Heros_PosX, Heros_PosY , Heros_Image

set sprite Heros_Sprite,1, 1

`on redimensionne le sprite

scale sprite Heros_Sprite, 9

`On initialise les 30 sprites de monstres

for i=0 to 3

for j=0 to 9

set sprite Monstre_Sprite+i*10+j,1, 1

scale sprite Monstre_Sprite+i*10+j, 9

next j

next i

`On initialise la position des monstres

for i=0 to 3

for j=0 to 9

sprite Monstre_Sprite+i*10+j, Monstre_PosX+Monstre_DistanceX*j, Monstre_PosY+Monstre_DistanceY*i, Monstre_Image+i

next j

next i

return

`MÃ©thode pour animer le monstre

Anime_Monstre:

`On regarde si un monstre est au bord de l'Ã©cran

for i=0 to 3

for j=0 to 9

if sprite exist(Monstre_Sprite+i*10+j)

`Si on est au bord

if sprite X(Monstre_Sprite+i*10+j)>screen width() - sprite width(Monstre_Sprite+i*10+j)

Monstre_AuxLimites=1

Monstre_Direction=0-Monstre_Direction

`On sort de la boucle

goto Deplace_Monstre

Endif

if sprite X(Monstre_Sprite+i*10+j)<0

Monstre_AuxLimites=1

Monstre_Direction=0-Monstre_Direction

`On sort de la boucle

goto Deplace_Monstre

Endif

next j

next i

Deplace_Monstre:

`On descend les monstre si on est au bord

for i=0 to 3

for j=0 to 9

if sprite exist(Monstre_Sprite+i*10+j)

`Si on est au bord on descend d'un cran

if Monstre_AuxLimites=1

sprite Monstre_Sprite+i*10+j, sprite X(Monstre_Sprite+i*10+j), sprite Y(Monstre_Sprite+i*10+j)+Monstre_DistanceY, Monstre_Image+i

Endif

next j

next i

`On dit qu'on est pas aux limites de l'Ã©cran

Monstre_AuxLimites=0

`On dÃ©place les monstres

for i=0 to 3

for j=0 to 9

if sprite exist(Monstre_Sprite+i*10+j)

sprite Monstre_Sprite+i*10+j, sprite X(Monstre_Sprite+i*10+j)+ Monstre_Speed*Monstre_Direction, sprite Y(Monstre_Sprite+i*10+j), Monstre_Image+i

EndIf

next j

next i

return

`MÃ©thode de suppression des tirs enemis si ils ne sont plus Ã  l'Ã©cran

Supprime_TirEnemi:

for i=0 to 50

if sprite exist(TirMonstre_Sprite+i)

if sprite Y(TirMonstre_Sprite+i)> screen height()

`On supprime le sprite de la mÃ©moire

delete sprite TirMonstre_Sprite+i

Endif

next i

return

Supprime_TirHeros:

if sprite exist(TirHeros_Sprite)

if sprite Y(TirHeros_Sprite)<0

delete sprite TirHeros_Sprite

Endif

return

DetecteCollisionHerosAvecTir:

for i=0 to 50

if sprite exist(TirMonstre_Sprite+i)

if sprite hit(TirMonstre_Sprite+i, Heros_Sprite)

goto GameOver

Endif

next i

return

DetecteCollisionHerosAvecEnemi:

if sprite hit(Heros_Sprite,0)>=100

if sprite exist(TirHeros_Sprite)

sprite TirHeros_Sprite, -50,-50, TirHeros_Image

Endif

goto GameOver

Endif

return

DetecteCollisionTirHerosAvecEnemi:

if sprite exist(TirHeros_Sprite)

Monstre_Detruit=sprite hit(TirHeros_Sprite,0)

if Monstre_Detruit>=100

`delete sprite TirHeros_Sprite

sprite TirHeros_Sprite, -50,-50, TirHeros_Image

`delete sprite Monstre_Detruit

sprite Monstre_Detruit, 320, -1000, Monstre_Image

Endif

return

HerosTir_Evenement:

if sprite exist(TirHeros_Sprite)=0

sprite TirHeros_Sprite, sprite x(Heros_Sprite)+10, sprite y(Heros_Sprite)-20, TirHeros_Image

Endif

if sprite Y(TirHeros_Sprite)<0

sprite TirHeros_Sprite, sprite x(Heros_Sprite)+10, sprite y(Heros_Sprite)-20, TirHeros_Image

Endif

return

GestionHeros:

if leftKey() AND sprite X(Heros_Sprite)>0 then sprite Heros_Sprite, sprite X(Heros_Sprite)-Heros_Speed, Sprite Y(Heros_Sprite), Heros_Image

if rightKey() AND sprite X(Heros_Sprite)<Screen width()-Sprite width(Heros_Sprite) then sprite Heros_Sprite, sprite X(Heros_Sprite)+Heros_Speed, Sprite Y(Heros_Sprite), Heros_Image

if spacekey() then gosub HerosTir_Evenement

return

DeplaceTirHeros:

if sprite exist(TirHeros_Sprite)

Sprite TirHeros_Sprite, sprite x(TirHeros_Sprite), sprite Y(TirHeros_Sprite)-TirHeros_Speed, TirHeros_Image

Endif

return

`#########################################################

`#               Fonctions utiles                        #

`#########################################################

Function GetNomFichier(NomFichier$, Numero, Extension$)

NomFichierFinal$=NomFichier$ + str$(Numero) + "." + Extension$

EndFunction NomFichierFinal$

Download

Please login to download

Comments

No comments yet.

Author Name:	laurent mrejen
CodeBase Entries:	7

CodeBase - Space invaders clone

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments