Voici mon premier Jeu en QB64
Code:
SCREEN _NEWIMAGE(500, 350, 32)_FULLSCREEN
r:
_PUTIMAGE (110, 90), _LOADIMAGE("a.jpg")
_PUTIMAGE (-20, -29), _LOADIMAGE("gh.jpg")
LOCATE 20, 22
PRINT "PRESS SPACE TO PLAY"
menu:
DO
keycode = _KEYHIT
IF keycode <> 0 THEN displaykeycode = keycode
IF displaykeycode = 32 GOTO start
LOOP
GOTO menu
start:
CLS
SOUND 392, 8
time = 4000
score = 0
Gsp = 1
x = 0
y = 0
opx = 1
opy = 1
mouseXlast = 0
mouseYlast = 0
cartouche = 2
reload = 0
rltm = 0
gohere:
LOCATE 1, 22
PRINT "SCORE :"; score; " TIME :"; time; " AMMO :"; cartouche
IF cartouche = 0 THEN
LOCATE 1, 22
PRINT "SCORE :"; score; " TIME :"; time; " AMMO : RELOADING";
END IF
IF time = 0 THEN GOTO gameover
time = time - 1
Gsp = score + 1
IF cartouche = 0 AND reload = 0 THEN
reload = 1
_SNDPLAY _SNDOPEN("rld.mp3", "sync,vol")
END IF
IF reload = 1 THEN
rltm = rltm + 1
END IF
IF reload = 1 AND rltm = 200 THEN
CLS
cartouche = 2
reload = 0
rltm = 0
_SNDPLAY _SNDOPEN("rld.mp3", "sync,vol")
END IF
mouseWheel = 0
DO WHILE _MOUSEINPUT
mouseX = _MOUSEX
mouseY = _MOUSEY
mouseLeftButton = _MOUSEBUTTON(1)
mouseRightButton = _MOUSEBUTTON(2)
mouseMiddleButton = _MOUSEBUTTON(3)
mouseWheel = mouseWheel + _MOUSEWHEEL
LOOP
_PUTIMAGE (mouseXlast - 30, mouseYlast - 20), _LOADIMAGE("targum.bmp")
mouseXlast = mouseX
mouseYlast = mouseY
_PUTIMAGE (mouseX - 30, mouseY - 20), _LOADIMAGE("targ.bmp")
_PUTIMAGE (x, y), _LOADIMAGE("Gorrille.jpg")
IF reload = 0 THEN dist = 120 ELSE dist = 200
_PUTIMAGE (mouseX, mouseY + dist), _LOADIMAGE("gun.jpg")
gmaxx = x + 41
gmaxy = y + 45
IF mouseLeftButton = -1 THEN
_SNDPLAY _SNDOPEN("clic.mp3", "sync,vol")
IF cartouche = 0 THEN
GOTO lol
END IF
_SNDPLAY _SNDOPEN("shot.mp3", "sync,vol")
_PUTIMAGE (mouseX, mouseY + 100), _LOADIMAGE("fire.jpg")
cartouche = cartouche - 1
IF mouseX < gmaxx AND mouseX > x AND mouseY > y AND mouseY < gmaxy THEN
LOCATE 5, 24
PRINT "HEADSHOOT !"
score = score + 1
_PUTIMAGE (x, y), _LOADIMAGE("splash.jpg")
SOUND 196, 8
x = RND * 400 + 10
y = RND * 50 + 25
CLS
GOTO gohere
END IF
_PUTIMAGE (mouseX, mouseY + 100), _LOADIMAGE("fire.jpg")
LOCATE 5, 24
PRINT "BAD SHOOT !"
SOUND 39, 12
CLS
END IF
lol:
y = y + (opy * Gsp)
x = x + (opx * Gsp)
IF y >= 100 THEN opy = -1
IF y <= -5 THEN opy = 1
IF x >= 450 THEN opx = -1
IF x <= 0 THEN opx = 1
GOTO gohere
gameover:
CLS
_PUTIMAGE (110, 90), _LOADIMAGE("a.jpg")
LOCATE 5, 24
PRINT "GAME OVER"
LOCATE 20, 24
PRINT "SCORE :"; score
DO
keycode = _KEYHIT
IF keycode <> 0 THEN displaykeycode = keycode
IF displaykeycode = 32 GOTO r
LOOP
Voila
@+
______________________________________________________
Youtube