Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[QB64] Gorilla Hunt
Auteur Message
Répondre en citant
Message [QB64] Gorilla Hunt 
Bonjour Mr. Green

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

@+ Okay




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [QB64] Gorilla Hunt 
Je teste ça !
Sinon tu as compilé avec quel logiciel ?




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message [QB64] Gorilla Hunt 
.

salut,

@Skywalker, regarde ici : http://www.qb64.net



Répondre en citant
Message [QB64] Gorilla Hunt 
Skywalker a écrit:
Je teste ça !
Sinon tu as compilé avec quel logiciel ?


L'éditeur QB64 qui est avec le language quand on le telecharge Very Happy Okay




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message [QB64] Gorilla Hunt 
Mdr comme jeu, mais met une marge de noir sur l'image autour de la tête du gorille pour éviter les "résidus" !




______________________________________________________
Visiter le site web du posteur
Message [QB64] Gorilla Hunt 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch