TheGameCreators - CodeBase - Break Out Level Maker

Return to the CodeBase listing

Category: Basic 2D

Version: 1.0

Information

Uploaded: 22nd May 2006 05:29

Modified: 22nd May 2006 05:30

Author: laurent mrejen

Summary

This is a short way to create a file where the coordonnates of all bricks are for your break out

Full Description

This is a small help to let you make a board of break out with sprites by using your mouse. You have have some functions to make a drag and drop, to write in a file a string. It can be extend to any type of board (pac-man, Zelda...)<br /> <br /> Enjoy it

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`GenLevelCasseBrique

`GÃ©nÃ©rateur de niveau pour le jeu Casse pas des briques

`Mai 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_BoutonSave

gosub Charge_Briques

gosub Charge_Souris

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

`#               fin de l'initialisation du jeu          #

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

`#               MÃ©thodes de gestion du menu             #

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

`#               Fin de la gestion du menu               #

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

`#               boucle principale                       #

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

`Initialisation

gosub Init_PanneauOption

sprite Souris_Sprite, 100, 100, Souris_Image

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

gosub Deplace_Souris

`On dÃ©place la brique sÃ©lectionnÃ©e avec la souris

gosub Deplace_Brique

`On ajoute une brique

gosub Ajoute_Brique

`On active la gestion du clic sur le bouton de sauvegarde

gosub ButtonSave_Clic

sync

Loop

end

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

`#               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

`Constante pour la taille de la zone de jeu

Ecran_PanneauJeuX=screen width()-130

`Constante de bitmap pour les briques

Bitmap_Briques=3

`Les images vont de 3 Ã  6

Brique_Image=3

Brique_Sprite=100

Brique_Ref_Sprite=50

BriqueSelected_Sprite=0

Bitmap_Souris=1

Souris_Image=1

Souris_Sprite=1

Curseur_Lock=0

Curseur_CLic=0

`Bouton de sauvegarde

Bitmap_ButtonSave=10

ButtonSave_Image=10

ButtonSave_Sprite=10

ButtonSave_CLic=0

`Nom du fichier gÃ©nÃ©rÃ©

LevelFile_Number=1

LevelFile_Name$="Level.txt"

`Variable de jeu

NbBriqueMax=40

NbBriqueLeft=40

return

`MÃ©thode d'initialisation du panneau d'affichage des infos du jeu

Init_PanneauOption:

set current bitmap ECRAN

cls

ink ORANGE,BLANC

box Ecran_PanneauJeuX,1,Ecran_PanneauJeuX + 130-1,screen height()-1

`On va Ã©crire les scores

ink NOIR, BLANC

text Ecran_PanneauJeuX +5, 75, "Nombre de briques"

text Ecran_PanneauJeuX +60, 100, str$(NbBriqueLeft)

`On affiche les briques rÃ©fÃ©rences

sprite Brique_Ref_Sprite, Ecran_PanneauJeuX +20, 125, Brique_Image

sprite Brique_Ref_Sprite+1, Ecran_PanneauJeuX +20+55, 125, Brique_Image+1

sprite Brique_Ref_Sprite+2, Ecran_PanneauJeuX +20, 175, Brique_Image+2

sprite Brique_Ref_Sprite+3, Ecran_PanneauJeuX +20+55, 175, Brique_Image+3

for i=0 to 3

scale sprite Brique_Ref_Sprite+i, 60

next i

`On place le bouton de sauvegarde

set sprite ButtonSave_Sprite,0,0

sprite ButtonSave_Sprite, Ecran_PanneauJeuX+50, Screen height() -70, ButtonSave_Image

text Ecran_PanneauJeuX +40, Screen height() -100, "Options"

return

`MÃ©thode de chargement des briques

Charge_Briques:

for i=0 to 3

load bitmap GetNomFichier("ImagesBrique",i+1,"bmp"), Bitmap_Briques+i

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

next i

return

`MÃ©thode de chargement du curseur de la souris

Charge_Souris:

load bitmap "ImagesCurseur.bmp", Bitmap_Souris

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

return

`MÃ©thode de chargement du bouton Save

Charge_BoutonSave:

`Bitmap_ButtonSave

load bitmap "ImagesButtonSave.bmp", Bitmap_ButtonSave

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

return

`MÃ©thode de dÃ©placement de la souris

Deplace_Souris:

`On dÃ©place le curseur de la souris personnalisÃ©e

if Curseur_Lock=0

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

else

FreeMoveObjectWithMouse(Souris_Sprite, 0, Ecran_PanneauJeuX, 0, screen height())

Endif

return

`MÃ©thode de dÃ©placement Ã  la souris d'une brique

Deplace_Brique:

if mouseclick()=1 AND Curseur_Lock=0 AND sprite Collision(Souris_Sprite,0)>=100

`On a cliquÃ© sur une brique de la zone de dÃ©placement et on a pas de brique vÃ©rouillÃ© au curseur de la souris

BriqueSelected_Sprite=sprite Collision(Souris_Sprite,0)

Curseur_Lock=1

Endif

`Si on relache le bouton on dÃ©vÃ©rouille l'objet

if mouseclick()=0 then Curseur_Lock=0

`On dÃ©place la brique vÃ©rouillÃ©e

if Curseur_Lock=1

FreeMoveObjectWithMouse(BriqueSelected_Sprite, 0, Ecran_PanneauJeuX, 0, screen height())

Endif

return

`MÃ©thode d'ajout d'une brique

Ajoute_Brique:

if mouseclick()=1 AND Curseur_Clic=0 AND sprite Collision(Souris_Sprite,0)>=50 AND sprite Collision(Souris_Sprite,0)<60

if BriqueSelected_Sprite=0 AND NbBriqueLeft>0

`On a cliquÃ© sur une brique de la zone de sÃ©lection

BriqueSelected_Sprite=sprite Collision(Souris_Sprite,0)

Curseur_Clic=1

NbBriqueLeft=NbBriqueLeft-1

ShowString(ORANGE,Ecran_PanneauJeuX +60, 100, 20, 50, NOIR, str$(NbBriqueLeft))

sprite Brique_Sprite+(NbBriqueMax-NbBriqueLeft), Ecran_PanneauJeuX/2, Screen height() -50, sprite Image(BriqueSelected_Sprite)

scale sprite Brique_Sprite+(NbBriqueMax-NbBriqueLeft), 60

Endif

`Si on relache le bouton on rÃ©active la fonctionnalitÃ©

if mouseclick()=0

BriqueSelected_Sprite=0

Curseur_Clic=0

Endif

return

`MÃ©thode pour sauvegarder le niveau crÃ©e

ButtonSave_Clic:

if mouseclick()=1 AND ButtonSave_Clic=0 AND sprite collision(Souris_Sprite,ButtonSave_Sprite)=1

`On a cliquÃ© sur le bouton de sauvegarde

ButtonSave_Clic=1

`On ouvre le fichier pour Ã©crire un niveau

open to write LevelFile_Number, LevelFile_Name$

`Pour chaque brique, on va Ã©crire une ligne

for i=40 to 0 step -1

if sprite exist(Brique_Sprite+i)

`Le codage de la ligne est le suivant:

Ligne$=str$(1+sprite image(Brique_Sprite+i)-Brique_Image)+","+str$(sprite X(Brique_Sprite+i))+","+str$(sprite Y(Brique_Sprite+i))

write string LevelFile_Number, Ligne$

Endif

next i

`On ferme le fichier

close file LevelFile_Number

`On confirme l'enregistrement

text Ecran_PanneauJeuX +40, Screen height() -30, "Save OK"

sleep 2000

ClearBox(ORANGE,Ecran_PanneauJeuX +40, Screen height() -30, 60, 25)

Endif

if mouseclick()=0 then ButtonSave_Clic=0

return

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

`#               Fonctions utiles                        #

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

Function GetNomFichier(NomFichier$, Numero, Extension$)

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

EndFunction NomFichierFinal$

Function XMoveObjectWithMouse(Objet, X_Min, X_Max, Image)

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

`On ajuste la position

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

if sprite X(Objet)>X_Max then sprite Objet, X_Max, Sprite Y(Objet), Image

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 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 ShowString(BackColor, X, Y, longueur, largeur,StringColor, mot$)

set current bitmap 0

ink BackColor,rgb(255,255,255)

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

ink StringColor, rgb(255,255,255)

text x,y, mot$

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

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

`#               data des niveaux                        #

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

Download

Please login to download

Comments

No comments yet.

Author Name:	laurent mrejen
CodeBase Entries:	7

CodeBase - Break Out Level Maker

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments