TheGameCreators - CodeBase - Shoot your boss

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 6th Jun 2006 11:37

Modified: 6th Jun 2006 11:39

Author: laurent mrejen

Summary

A small game where you can shoot your collegues at the office. Enjoy it.

Full Description

A small shooting game. Kill all your collegues.<br /> <br /> In this, you have a simple way to use the mouse cursor. I hope it will be helpful to anyone.<br /> <br /> See you next time

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Jeu de tir avec une cible

`Juin 2006

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

`#               Initialisation du jeu                   #

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

`On cache le curseur de la souris

hide mouse

`On initialise les variables

gosub Init_VarGlobales

`On charge les objets

gosub Charge_Objets

gosub Charge_SonEtMusique

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

`#               fin de l'initialisation du jeu          #

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

`#               MÃ©thodes de gestion du menu             #

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

Show_Menu:

`On affiche le menu

gosub Affiche_Menu

`On joue la musique du menu

loop music Musique_Menu

`On vÃ©rifie que la touche appuyÃ© est Espace ou escape

repeat

`Si on appuie sur Echappe alors on termine le programme

if escapekey() then end

until spacekey()

return

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

`#               Fin de la gestion du menu               #

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

`#               boucle principale                       #

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

Jeu:

`Changement de la musique

stop music Musique_Menu

loop music Musique_Jeu

`Affichage du niveau

level=1

Vies=5

Score=0

for i=1 to 5

Guy(i,1)=0

Guy(i,2)=0

sprite Guy_Sprite+i-1, screen width(), screen height(), Guy_Image+i-1

next i

ShowAllSprite(Guy_Sprite+4)

ElapseTime=Timer()

gosub DisplayLevel

`On intialise la position de la cible

sprite Souris_Sprite, screen width()/2, screen height()/2, Souris_Image

sprite Pointe_Sprite, screen width()/2, screen height()/2, Pointe_Image

`On gÃ¨re le dÃ©placement de la souris

CurseurSouris_Move(Souris_Sprite, Pointe_Sprite, 1, 0, screen width(), 0, Ecran_PanneauJeuY)

gosub Choisir_Guy

gosub Move_Guy

gosub Shoot_Guy

gosub Escape_Guy

`ArrÃªt du jeu

if Vies=0

gosub Game_Over

goto Show_Menu

EndIf

sync

Loop

return

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

`#               Fin de la boucle principale             #

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

`#             MÃ©thodes Gosub                            #

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

`MÃ©thode d'initialisation des variables globales

Init_VarGlobales:

`Constantes des couleurs

GRIS = rgb(168,168,168)

BLANC = rgb(255,255,255)

ORANGE = rgb(250,100,20)

NOIR = rgb(0,0,0)

`Constante indiquant l'Ã©cran

ECRAN=0

Bitmap_Menu=1

create bitmap Bitmap_Menu, screen width(), screen height()

Ecran_PanneauJeuY=screen Height()-80

`Souris

Souris_Image=1

Souris_Sprite=1

Pointe_Image=2

Pointe_Sprite=2

`Constante d'image pour le dÃ©cor

Decor_Image=100

`Constantes d'images pour les personnages

`Les images vont de 10 Ã  14

Guy_Image=10

Guy_Sprite=100

Guy_Son=1

`Vies

Vie_Image=3

Vie_Sprite=10

`Constante pour les variables Shot

Shot_Image=30

Shot_Son=2

`Constantes pour les musiques

Musique_Menu=1

Musique_Jeu=2

Musique_GameOver=3

`Variable de jeu

Score=0

Vies=5

NewGuy=0

ElapseTime=0

Dim Guy(5,2)

return

`MÃ©thode de chargement des diffÃ©rents objets

Charge_Objets:

for i=0 to 4

LoadSpriteImage(GetNomFichier("ImagesGuy",i+1,"bmp"), Guy_Image+i)

next i

LoadSpriteImage("ImagesCurseur.bmp", Souris_Image)

LoadSpriteImage("ImagesPointe.bmp", Pointe_Image)

`On charge le dÃ©cor

LoadSpriteImage("ImagesDecor.bmp", Decor_Image)

`On charge l'image Vie

LoadSpriteImage("ImagesVie.bmp", Vie_Image)

`On crÃ©e toutes les personnages en dehors de l'Ã©cran pour ne aps qu'elles soient visibles

for i=4 to 0 step -1

sprite Guy_Sprite+i, screen width(), screen height(), Guy_Image

next i

return

`MÃ©thode de chargement des son et musique

Charge_SonEtMusique:

load sound "MusiquesTaunt.wav", Guy_Son

load sound "MusiquesShot.wav", Shot_Son

load music "MusiquesIntro.mid", Musique_Menu

Load music "MusiquesJeu.mid", Musique_Jeu

`Load music "MusiquesGameOver.mid", Musique_GameOver

return

`MÃ©thode d'affichage du panneau de jeu

Init_PanneauJeu:

`On affiche le score

ink NOIR,NOIR

box 1,Ecran_PanneauJeuY,screen width()-1, screen height()-1

ShowString3(ECRAN, 50, Ecran_PanneauJeuY + 20, BLANC, 20, "Comic Sans MS", "Score", 1)

ShowString3(ECRAN, 100, Ecran_PanneauJeuY + 20, BLANC, 20, "Comic Sans MS", str$(Score), 1)

`On affiche le nombre de fois que l'on peut Ãªtre touchÃ©

ShowString3(ECRAN, 300, Ecran_PanneauJeuY + 20, BLANC, 20, "Comic Sans MS", "Vies", 1)

for i=0 to Vies-1

sprite Vie_Sprite+i, 400 + 25*i, Ecran_PanneauJeuY + 20, Vie_Image

next i

return

`MÃ©thode d'affichage du nouveau tableau

DisplayLevel:

set current bitmap ECRAN

cls

` Affichage du panneau de jeu

gosub Init_PanneauJeu

`On affiche le dÃ©cor

DisplayBackground(Decor_Image, 0, 0)

return

`Affichage de l'Ã©cran Menu

Affiche_Menu:

cls

`On Ã©crit le nom du jeu

ShowString3(Bitmap_Menu, screen width()/2, screen height()/2-40, BLANC, 60, "Comic Sans MS", "Shoot your BOSS", 1)

ShowString3(Bitmap_Menu, screen width()/2, screen height()-200, BLANC, 20, "Comic Sans MS", "Jouer.........Espace",1)

ShowString3(Bitmap_Menu, screen width()/2, screen height()-180, BLANC, 20, "Comic Sans MS", "Quitter.......Echappe",1)

ShowString3(Bitmap_Menu, screen width()/2, screen height()-120, BLANC, 20, "Comic Sans MS", "ProgrammÃ© par Laurent Mrejen Juin 2006",1)

ShowString3(Bitmap_Menu, screen width()/2, screen height()-70,  BLANC, 20, "Comic Sans MS", "Version 1",1)

copy bitmap Bitmap_Menu, ECRAN

return

`Selection d'un personnage Ã  l'Ã©cran

Choisir_Guy:

`On affiche un nouveau personnage chaque demi seconde

if ElapseTime+500<Timer()

ElapseTime=Timer()

`On transforme la liste des personnages affichÃ©s en chaine de caractÃ¨re

ListeNbInterdits$=str$(Guy(1,1))

for i=2 to 5

ListeNbInterdits$=ListeNbInterdits$+","+str$(Guy(i,1))

next i

`On dÃ©termine le nouveau personnage

NewGuy=RandomNumber(ListeNbInterdits$, ",")

if NewGuy<>0

`On a dÃ©terminÃ© un personnage

gosub Affiche_Guy

Guy(NewGuy,1)=1

Guy(NewGuy,2)=Timer()

Endif

EndIf

return

`Affichage d'un personnage

Affiche_Guy:

if NewGuy=1 then sprite Guy_Sprite, 140, 175, Guy_Image

if NewGuy=2 then sprite Guy_Sprite+1, 415,185, Guy_Image+1

if NewGuy=3 then sprite Guy_Sprite+2, 520, 62, Guy_Image+2

if NewGuy=4 then sprite Guy_Sprite+3, 620, 10, Guy_Image+3

if NewGuy=5 then sprite Guy_Sprite+4, 330, 40, Guy_Image+4

return

`On dÃ©place les personnages

Move_Guy:

`On dÃ©place les personnages 4 et 5 si ils sont Ã  l'Ã©cran

if sprite X(Guy_Sprite+3)<screen width() AND sprite X(Guy_Sprite+3)>300

sprite Guy_Sprite+3, sprite X(Guy_Sprite+3)-5, Sprite Y(Guy_Sprite+3), Sprite image(Guy_Sprite+3)

EndIf

if sprite X(Guy_Sprite+4)<screen width() AND sprite X(Guy_Sprite+4)>300

sprite Guy_Sprite+4, sprite X(Guy_Sprite+4)+7, Sprite Y(Guy_Sprite+4), Sprite image(Guy_Sprite+4)

EndIf

return

`On tire sur les "types" en cliquant sur la souris

Shoot_Guy:

if mouseclick()=1

play sound Shot_Son

`Si un type est touchÃ©, il disparait

if sprite collision(Pointe_Sprite,0)>=Guy_Sprite AND sprite collision(Pointe_Sprite,0)<=Guy_Sprite+4

Guy_Shot=Sprite collision(Pointe_Sprite,0)

sprite Guy_Shot, screen width(), screen height(), sprite image(Guy_Shot)

Decalage=Guy_Sprite-1

Rang_Sprite=Guy_Shot-Decalage

`On autorise de nouveau qu'il apparaisse

Guy(Rang_Sprite,1)=0

`On augmente le score

Score=Score+1

ClearBox(NOIR,90, Ecran_PanneauJeuY + 20, 30, 20)

ShowString3(ECRAN, 100, Ecran_PanneauJeuY + 20, BLANC, 20, "Comic Sans MS", str$(Score), 1)

EndIf

Endif

return

`MÃ©thode pour gÃ©rer les fois oÃ¹ les types s'en sortent vivant

Escape_Guy:

for i=1 to 3

if Guy(i,1)=1 AND Guy(i,2)+2000<Timer()

`On cache le sprite

Saved_Sprite=Guy_Sprite+i-1

sprite Saved_Sprite, screen width(), screen height(), sprite image(Saved_Sprite)

`On retire une vie au joueur

Vies=Vies-1

play sound Guy_Son

hide sprite Vie_Sprite + Vies

Guy(i,1)=0

endif

next i

`Les personnage 4 et 5 s'Ã©vadent lorsqu'ils sont au bout de leur courses

if sprite X(Guy_Sprite+3)<=300

Vies=Vies-1

play sound Guy_Son

hide sprite Vie_Sprite + Vies

sprite Guy_Sprite+3, screen width(), screen height(), sprite image(Guy_Sprite+3)

Guy(4,1)=0

EndIf

if sprite X(Guy_Sprite+4)>=screen width() AND Guy(5,1)=1

Vies=Vies-1

play sound Guy_Son

hide sprite Vie_Sprite + Vies

sprite Guy_Sprite+4, screen width(), screen height(), sprite image(Guy_Sprite+4)

Guy(5,1)=0

EndIf

return

`MÃ©thode de gestion du Game Over

Game_Over:

ShowString3(ECRAN, screen width()/2, screen height()/2, BLANC, 60, "Comic Sans MS", "Game Over", 1)

sleep 2000

stop music Musique_Jeu

`On cache tous les sprites

HideAllSprite(Guy_Sprite+4)

return

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

`#               Fin des mÃ©thodes Gosub                  #

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

`#               Fonctions utiles                        #

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

`Fonction renvoyant un nombre alÃ©atoirement entre 1 et un nombre max en ne tirant jamis un nombre dans une liste triÃ©e en paramÃ¨tre (si un nombre de la liste est zÃ©ro, le nombre est permis)

Function RandomNumber(ListeNbInterdits$, Sep$)

NbMax=GetWordCount(ListeNbInterdits$, Sep$)

NbNombresPermis=0

` On compte le nombre de nombres permis

for i=1 to NbMax

`Si le nombre est Ã©gale Ã  zÃ©ro

if GetWord(ListeNbInterdits$, Sep$, i)="0" then NbNombresPermis=NbNombresPermis+1

next i

`On tire un nombre au hasard entre 1 et NbNombresPermis

Randomize timer()

if NbNombresPermis>0

Nombre=rnd(NbNombresPermis)

rang=0

for i=1 to NbMax

if rang=Nombre

Nombre=rang

exit

endif

if GetWord(ListeNbInterdits$, Sep$, i)="0" then rang =rang+1

next i

else

Nombre=0

Endif

endFunction Nombre

`Fonction du framework

Function HideAllSprite(iDernierSprite)

for i=1 to iDernierSprite

if sprite exist(i) then hide sprite i

next i

EndFunction

Function ShowAllSprite(iDernierSprite)

for i=1 to iDernierSprite

if sprite exist(i) then show sprite i

next i

EndFunction

Function GetWordCount(Chaine$, Sep$)

NbMots=1

for i=1 to len(Chaine$)

if Sep$=mid$(Chaine$, i) then NbMots=NbMots+1

next i

EndFunction NbMots

`Renvoie -1 si umbe est plus grand que le nombre de mots

Function GetWord(Chaine$,Sep$, Number)

Mot$=""

`Obtention du nombre de mots

NbMots=GetWordCount(Chaine$, Sep$)

if Number<=NbMots

j=1

`On parcours la chaine jusqu'Ã  arriver au premier caractÃ¨re du mot Ã  prendre

for i=1 to len(Chaine$)

if mid$(Chaine$,i)=Sep$

j=j+1

i=i+1

EndIf

if j>Number then exit

if j=Number then Mot$=Mot$+ mid$(Chaine$, i)

next i

EndIf

EndFunction Mot$

Function LoadSpriteImage(Bitmap_path$, Image)

Bitmap_Number=31

`On charge l'image

load bitmap Bitmap_path$, Bitmap_Number

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

delete bitmap Bitmap_Number

EndFunction

Function GetNomFichier(NomFichier$, Numero, Extension$)

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

EndFunction NomFichierFinal$

Function DisplayBackground(Image, X, Y)

set current bitmap 0

`Le level commence Ã  1

paste image Image, x, y

EndFunction

Function FreeMoveObjectWithMouse(Objet, X_Min, X_Max, Y_Min, Y_Max)

sprite Objet, sprite X(objet)+MouseMoveX(), Sprite Y(Objet)+MouseMoveY(), sprite Image(Objet)

`On ajuste la position

if sprite X(Objet)<=X_Min then sprite Objet, X_Min, Sprite Y(Objet), sprite Image(Objet)

if sprite X(Objet)>=X_Max-sprite width(Objet)

sprite Objet, X_Max-sprite width(Objet), Sprite Y(Objet), sprite Image(Objet)

Endif

if sprite Y(Objet)<=Y_Min then sprite Objet, Sprite X(Objet), Y_Min, sprite Image(Objet)

if sprite Y(Objet)>=Y_Max-sprite height(Objet)

sprite Objet, Sprite X(Objet), Y_Max-sprite height(Objet), sprite Image(Objet)

Endif

EndFunction

Function ShowString3(Bitmap, X, Y, StringColor, StringSize, StringPolice$, mot$, Flag_Center)

set current bitmap Bitmap

ink StringColor, rgb(255,255,255)

if text background type()<>1 then set text transparent

if text size()<>StringSize then set text size StringSize

if text font$()<>StringPolice$ then set text font StringPolice$

if Flag_Center=1

center text x,y, mot$

else

text x,y, mot$

Endif

EndFunction

Function ClearBox(BackColor, x, y, longueur, largeur)

set current bitmap 0

ink BackColor,rgb(255,255,255)

box X,Y,X+longueur,Y+largeur

EndFunction

`Fonction de MyObjects

Function CurseurSouris_Move(Souris_Sprite, Pointe_Sprite,Curseur_Locked, X_Min, X_Max, Y_Min, Y_Max)

if Curseur_Locked=0

FreeMoveObjectWithMouse(Souris_Sprite, 0, Screen width(), 0, Screen height())

FreeMoveObjectWithMouse(Pointe_Sprite, 0, Screen width(), 0, Screen height())

else

FreeMoveObjectWithMouse(Souris_Sprite, X_Min, X_Max, Y_Min, Y_Max)

FreeMoveObjectWithMouse(Pointe_Sprite, X_Min, X_Max, Y_Min, Y_Max)

Endif

EndFunction

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

`#               data des niveaux                        #

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

Download

Please login to download

Comments

No comments yet.

Author Name:	laurent mrejen
CodeBase Entries:	7

CodeBase - Shoot your boss

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments