*** LES DEUKILOS 2015 ***

Page 4 sur 16 Précédent  1, 2, 3, 4, 5 ... 10 ... 16  Suivant

Voir le sujet précédent Voir le sujet suivant Aller en bas

Le meilleur DEUXKILOS de 2015 est selon vous :

24% 24% 
[ 5 ]
10% 10% 
[ 2 ]
19% 19% 
[ 4 ]
19% 19% 
[ 4 ]
10% 10% 
[ 2 ]
18% 18% 
[ 4 ]
 
Total des votes : 21

Re: *** LES DEUKILOS 2015 ***

Message par rendomizer le Mer 22 Juil 2015 - 20:13

je suis curieux de voir ça drfloyd mais qui va déterminer le gagnant si tu gagne lol ???

rendomizer
Patient contaminé

Nombre de messages : 228
Date d'inscription : 19/04/2015

http://vg5000.webnode.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par drfloyd le Mer 22 Juil 2015 - 20:17

on organisera des votes en fin d'année....

A voir si je trouve un lot à offrir Wink

PS : si je gagne le lot irait bien sur au second Mr. Green

_______________________________________________________


Mon profil Gamopat Advisor de vendeur :
http://www.gamopat-forum.com/t94659-dr-floyd-advisor







avatar
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 126510
Age : 48
Localisation : Dpt 62
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par F.L le Mer 22 Juil 2015 - 21:55

amis de la géométrie, bonsoir
cherchez pas, c'est moi le gagnant Mr. Green . voici mon simili moteur 3D en meme pas 2ko
j'avais commencé à le faire l'année derniere et je l'ai abandonné pour finir..barbarian
https://www.dropbox.com/s/1i6bnbu7r7xrm88/3D2ko.exe?dl=0
dans ce petit monde en 3D, il y a juste un carré au sol. on peut bouger et orienter la camera avec les fleches.
on peut modifier en modifiant les coordonnées x,y et z des ses points 
Code:
DIM distanceZ(8), distanceR AS SINGLE
DIM x(8), y(8), z(8) AS SINGLE
DIM cm(400) AS SINGLE
DIM angle(8) AS SINGLE
ecranL = 640
ecranH = 400
milieuL = (ecranL / 2)
milieuH = (ecranH / 2)
PI = 3.141592654
SCREEN _NEWIMAGE(ecranL, ecranH, 32)
_SCREENMOVE _MIDDLE
screenLine = 400
largeur = 250
FOR distance = 1 TO 400
    cm(distance) = (largeur / 250) * 6 ' calcul du cm
    FOR i = 1 TO distance
        largeur = largeur - .035
        IF largeur < 0 THEN largeur = 0
    NEXT i
NEXT distance
debut:
Xcamera = 25
Ycamera = 20
Zcamera = 0
ANGLEcamera = 0
DO
    CLS
    IF _KEYDOWN(18432) THEN Ycamera = Ycamera - 1
    IF _KEYDOWN(20480) THEN Ycamera = Ycamera + 1
    IF _KEYDOWN(19712) THEN Xcamera = Xcamera - 1
    IF _KEYDOWN(19200) THEN Xcamera = Xcamera + 1
    points:
    x(1) = 1: y(1) = 1: z(1) = 100
    x(2) = 1: y(2) = 1: z(2) = 50
    x(3) = 50: y(3) = 1: z(3) = 50
    x(4) = 1: y(4) = 1: z(4) = 100
    x(5) = 50: y(5) = 1: z(5) = 100
    x(6) = 50: y(6) = 1: z(6) = 50
    calculs:
    FOR i = 1 TO 6
        distanceZ = z(i) - Zcamera
        IF distanceZ < 1 THEN distanceZ = 1
        cm = cm(distanceZ)
        distanceX = x(i) - Xcamera
        x(i) = distanceX * cm
        x(i) = milieuL + x(i)
        distanceY = y(i) - Ycamera
        y(i) = distanceY * cm
        y(i) = milieuH - y(i)
    NEXT i
    FOR i = 1 TO 4 STEP 3
        LINE (x(i), y(i))-(x(i + 1), y(i + 1)), _RGB(255, 0, 0)
        LINE (x(i + 1), y(i + 1))-(x(i + 2), y(i + 2)), _RGB(255, 0, 0)
    NEXT i
    _LIMIT 50
    _DISPLAY
LOOP
avatar
F.L
Docteur *
Docteur *

Masculin Nombre de messages : 2460
Age : 42
Localisation : hérault
Date d'inscription : 11/06/2012

http://fl.basic.free.fr

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Mer 22 Juil 2015 - 23:46

Hannn ... Comment il se la pète !! Mr. Green MDR MDR
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par drfloyd le Mer 22 Juil 2015 - 23:49

il se la pétera moins avec sa géométrie 3D de kéké quand je présenterai mon 2kilos à moi, et j'obtiendrai tous les suffrages

Mr. Green

_______________________________________________________


Mon profil Gamopat Advisor de vendeur :
http://www.gamopat-forum.com/t94659-dr-floyd-advisor







avatar
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 126510
Age : 48
Localisation : Dpt 62
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par F.L le Jeu 23 Juil 2015 - 0:14

c'est pour vous mettre la pression...et ça marche Mr. Green
après ce petit intermede des 2ko, faut quand meme que je retourne à mes barbares sur megadrive, car meme si j'avance bien en ce moment, ça ne se fait pas tout seul
des nouvelles au mois d'aout
@+
avatar
F.L
Docteur *
Docteur *

Masculin Nombre de messages : 2460
Age : 42
Localisation : hérault
Date d'inscription : 11/06/2012

http://fl.basic.free.fr

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Jeu 23 Juil 2015 - 0:26

Attendez que je vous présente mon Rampage Remake de 2Ko ...
( Et oui, j'ai trouvé la parade pour le gameplay ... J'ai presque terminé ! )
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Jeu 23 Juil 2015 - 1:01

                                  RAMPAGE REVENGE Version 2Ko



Et voila !
J'ai réussi le pari fou de réaliser un VRAI jeu amusant avec un code de 1,99 Ko !!
Ne cherchez pas le vainqueur, il est ici !! Mr. Green Mr. Green Mr. Green Mr. Green

Le but du jeu est trés simple : Détruire le chateau Fort des CeplusPlus ! ( Et oui, encore eux ... )


Les Régles :

- Vous avez 50 obus pour démarrer.

- Tous les 100 points, 5 Obus supplémentaires.
- Destruction dynamique du chateau !
- Gestion avancée de la balistique. Un pavillon sur le chateau vous informera du sens du vent et de sa force.
- Réglage de l'angle de tir avec les touches Haut et Bas.
- Tir avec la Touche Espace ! Un appui prolongé augmentera la puissance de feu.
- Affichage graphique et en couleur de la puissance de feu !
- Graphisme 100% Very Old School !  Mr. Green 
- Gameplay simple et addictif.



Le Chateau fort des CePlusPlus doit être DETRUIT !! ACH ...



Le Listing du jeu ( QB64 ) :
Code:
MainScreen = _NEWIMAGE(1024, 768, 32)
SCREEN MainScreen
DIM SHARED Decor(1000, 1000) AS INTEGER
vent = 50
Obus = 50

DO
    _LIMIT 60
    CLS
    PRINT "Obus : " + STR$(Obus)
    PRINT "Score : " + STR$(score)
    FOR i = 1 TO force
        LINE (i, 610)-(i, 625), _RGB(255, 255 - i * 2, 0)
    NEXT
    FOR i = 600 TO 800 STEP 8
        a = a + 1
        IF a < 20 THEN Decor(600 + 8 * a * 2, 400) = 1
        FOR j = 400 TO 590 STEP 8
            IF ABS(i + 4 - X) <= 12 AND ABS(j - Y) <= 12 AND Decor(i, j) = 0 THEN Decor(i, j) = 1: bim = 1: score = score + 10: s = s + 10
            IF Decor(i, j) = 0 THEN _PRINTSTRING (i, j), CHR$(176)
        NEXT
    NEXT
    IF s > 100 THEN Obus = Obus + 5: s = 0
    IF tir = 0 THEN
        IF _KEYDOWN(32) AND tir = 0 THEN force = force + 2
        IF force > 1 AND _KEYDOWN(32) = -0 THEN tir = 1
        IF _KEYDOWN(18432) AND an < 90 THEN an = an + 1
        IF _KEYDOWN(20480) AND an > 0 THEN an = an - 1
        IF force > 250 THEN force = 250
    END IF

    CIRCLE (53, 585), 15
    LINE (66, 574)-((66) + 10 * COS(an * ((3.1416) / 180)), (574) - 10 * SIN(an * ((3.1416) / 180))), _RGB(255, 0, 0)


    IF tir = 1 THEN
        t = t + 0.04
        X = (66) + ((COS(an * ((3.1416) / 180)) * force) * t) + (.5 * (vent / 5) * t ^ 2)
        Y = (568) + ((-1 * ((SIN(an * ((3.1416) / 180)) * force) * t)) + (.5 * 9.8 * t ^ 2)) * (600 / 150)
        _PRINTSTRING (X, Y), "."
        IF Y >= 595 OR bim = 1 OR X > 1100 THEN
            CIRCLE (X, Y), 22
            force = 0
            Obus = Obus - 1
            t = 0
            tir = 0
            RANDOMIZE TIMER
            vent = INT((RND * 100) + 1)
            IF INT((RND * 4)) > 2 THEN vent = -vent
        END IF

    END IF

    LINE (1, 600)-(1024, 600)
    bim = 0
    LINE (800, 400)-(800, 300), _RGB(255, 255, 0)
    LINE (800, 325)-(800 + vent, 350), _RGB(255, 0, 0)
    LINE (800, 375)-(800 + vent, 350), _RGB(255, 0, 0)

    _DISPLAY
LOOP UNTIL (_KEYDOWN(27))



Le JEU :
https://dl.dropboxusercontent.com/u/108143465/RampageRevenge2Ko.zip

Bon ben voila, les carottes sont cuites !!  batman bounce 
Amusez vous bien et annoncez les scores ... C'est pas si évident ! Wink
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par drfloyd le Jeu 23 Juil 2015 - 7:23

j'avoue que là tu mets la pression, mais je pense faire mieux rambo

Mr. Green

_______________________________________________________


Mon profil Gamopat Advisor de vendeur :
http://www.gamopat-forum.com/t94659-dr-floyd-advisor







avatar
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 126510
Age : 48
Localisation : Dpt 62
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Jeu 23 Juil 2015 - 9:21

Oh je n'en doute pas Doc' !! Wink
Aprés je ne connais pas Blitz3D, mon Nirvana, c'est QB64 ...

Mais c'est trés chaud quand même de réaliser un VRAI jeu avec un si petit listing ... Chaque caractère compte et on doit faire des choix d'austérité sans pour autant délaisser le Gameplay et le Design général ...
Bref, un Challenge des plus sympathiques réalisé en moins de quelques heures ... tongue

Merci pour cette idée géniale qui m'a beaucoup amusé ! :)
On attend maintenant la même chose en assembleur pour les Jedis. batman
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par ShiningBZH le Jeu 23 Juil 2015 - 10:21

J'ai testé ton jeu vetea , oeuvre de Satan tout ça ! j'ai galéré à mort sur la fin quand il restait que 10 briques ! 

arrivé à 0 obus , on peut continuer à en tirer , le chiffre passe alors en négatif ! et faudrait mettre un écran de game over ou reset le jeu quand le chateau est détruit 

avatar
ShiningBZH
Guéri miraculeux

Masculin Nombre de messages : 2658
Age : 27
Localisation : Ploubazlanec
Date d'inscription : 03/01/2015

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Jeu 23 Juil 2015 - 10:28

Merci copain !
Le truc c'est que je ne pouvais rien ajouter sous peine de dépasser les 2Ko ! Wink
Mais bon, l'essentiel est la et c'est amusant hein ! Wink
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par F.L le Jeu 23 Juil 2015 - 10:29

comme le concours est maintenant passé à 2ko, j'ai refait mon premier programme
desormais, avec les fleches, on peut incliner la courbe de route et la faire changer de direction
le listing fait moins de 2ko, 1,7 pour etre precis, avec le luxe d'avoir deux lignes de commentaires Mr. Green
2ko c'est beaucoup trop MDR
voici l'exe si vous voulez tester
https://www.dropbox.com/s/ddg8aghi08go2sy/2DROAD2ko.exe?dl=0
et le listing :
Code:
' moteur de jeu de course en pseudo3D
' par lou gorenfeld. optimise par F.L
SCREEN 13
RoadLines = 66
RoadY = -1
DIM ZMap(RoadLines) AS SINGLE
FOR A = 1 TO RoadLines
    ZMap(A) = RoadY / (A - 100)
NEXT A
b = 1 / ZMap(8)
b = b * 300
FOR A = 1 TO RoadLines
    ZMap(A) = ZMap(A) * b
NEXT A
TexOffset = 100
SegY = RoadLines
DX = 0
DDX = -.05
DO
    HalfWidth = 160
    WidthStep = 2.3
    IF _KEYDOWN(19712) THEN DDX = -.05
    IF _KEYDOWN(19200) THEN DDX = .05
    IF _KEYDOWN(20480) THEN SegY = SegY + 1
    IF _KEYDOWN(18432) THEN SegY = SegY - 1
    IF SegY < 0 THEN SegY = 0
    IF SegY > RoadLines THEN SegY = RoadLines
    X = 160: DX = 0: ScreenLine = 199
    FOR A = 1 TO RoadLines
        IF (ZMap(A) + TexOffset) MOD 100 > 50 THEN
            GrassColor = 10
            RoadColor = 7
        ELSE
            GrassColor = 2
            RoadColor = 8
        END IF
        LINE (X - HalfWidth, ScreenLine)-(X + HalfWidth, ScreenLine), RoadColor
        LINE (0, ScreenLine)-(X - HalfWidth, ScreenLine), GrassColor
        LINE (X + HalfWidth, ScreenLine)-(320, ScreenLine), GrassColor
        HalfWidth = HalfWidth - WidthStep: ScreenLine = ScreenLine - 1
        IF A > SegY THEN
            DX = DX + DDX
        END IF
        X = X + DX
    NEXT A
    TexOffset = TexOffset + 5
    WHILE TexOffset >= 100
        TexOffset = TexOffset - 100
    WEND
    LINE (0, 0)-(320, 133), 9, BF
    LOCATE 2, 1: PRINT "haut-bas :  inclinaison du virage"
    LOCATE 3, 1: PRINT "gauche-droite : change la direction"
    LOCATE 7, 10: PRINT "tourne a"
    COLOR 4, 9
    IF DDX = -.05 THEN LOCATE 7, 22: PRINT "droite"
    IF DDX = .05 THEN LOCATE 7, 22: PRINT "gauche"
    _LIMIT 50
    _DISPLAY
LOOP
avatar
F.L
Docteur *
Docteur *

Masculin Nombre de messages : 2460
Age : 42
Localisation : hérault
Date d'inscription : 11/06/2012

http://fl.basic.free.fr

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par ShiningBZH le Jeu 23 Juil 2015 - 10:31

@Vetea a écrit:Merci copain !
Le truc c'est que je ne pouvais rien ajouter sous peine de dépasser les 2Ko ! Wink
Mais bon, l'essentiel est la et c'est amusant hein ! Wink

Oui il est fun et c'est dur à gérer avec le vent ! J'ai hâte de voir le projet secret du Doc' !
avatar
ShiningBZH
Guéri miraculeux

Masculin Nombre de messages : 2658
Age : 27
Localisation : Ploubazlanec
Date d'inscription : 03/01/2015

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par ShiningBZH le Jeu 23 Juil 2015 - 10:34

@F.L a écrit:comme le concours est maintenant passé à 2ko, j'ai refait mon premier programme
desormais, avec les fleches, on peut incliner la courbe de route et la faire changer de direction
le listing fait moins de 2ko, 1,7 pour etre precis, avec le luxe d'avoir deux lignes de commentaires Mr. Green
2ko c'est beaucoup trop MDR
voici l'exe si vous voulez tester
https://www.dropbox.com/s/ddg8aghi08go2sy/2DROAD2ko.exe?dl=0
et le listing :
Code:
' moteur de jeu de course en pseudo3D
' par lou gorenfeld. optimise par F.L
SCREEN 13
RoadLines = 66
RoadY = -1
DIM ZMap(RoadLines) AS SINGLE
FOR A = 1 TO RoadLines
    ZMap(A) = RoadY / (A - 100)
NEXT A
b = 1 / ZMap(8)
b = b * 300
FOR A = 1 TO RoadLines
    ZMap(A) = ZMap(A) * b
NEXT A
TexOffset = 100
SegY = RoadLines
DX = 0
DDX = -.05
DO
    HalfWidth = 160
    WidthStep = 2.3
    IF _KEYDOWN(19712) THEN DDX = -.05
    IF _KEYDOWN(19200) THEN DDX = .05
    IF _KEYDOWN(20480) THEN SegY = SegY + 1
    IF _KEYDOWN(18432) THEN SegY = SegY - 1
    IF SegY < 0 THEN SegY = 0
    IF SegY > RoadLines THEN SegY = RoadLines
    X = 160: DX = 0: ScreenLine = 199
    FOR A = 1 TO RoadLines
        IF (ZMap(A) + TexOffset) MOD 100 > 50 THEN
            GrassColor = 10
            RoadColor = 7
        ELSE
            GrassColor = 2
            RoadColor = 8
        END IF
        LINE (X - HalfWidth, ScreenLine)-(X + HalfWidth, ScreenLine), RoadColor
        LINE (0, ScreenLine)-(X - HalfWidth, ScreenLine), GrassColor
        LINE (X + HalfWidth, ScreenLine)-(320, ScreenLine), GrassColor
        HalfWidth = HalfWidth - WidthStep: ScreenLine = ScreenLine - 1
        IF A > SegY THEN
            DX = DX + DDX
        END IF
        X = X + DX
    NEXT A
    TexOffset = TexOffset + 5
    WHILE TexOffset >= 100
        TexOffset = TexOffset - 100
    WEND
    LINE (0, 0)-(320, 133), 9, BF
    LOCATE 2, 1: PRINT "haut-bas :  inclinaison du virage"
    LOCATE 3, 1: PRINT "gauche-droite : change la direction"
    LOCATE 7, 10: PRINT "tourne a"
    COLOR 4, 9
    IF DDX = -.05 THEN LOCATE 7, 22: PRINT "droite"
    IF DDX = .05 THEN LOCATE 7, 22: PRINT "gauche"
    _LIMIT 50
    _DISPLAY
LOOP

Pas mal ! Maintenant faudrait pouvoir controller un barbu sur des rollers  MDR
avatar
ShiningBZH
Guéri miraculeux

Masculin Nombre de messages : 2658
Age : 27
Localisation : Ploubazlanec
Date d'inscription : 03/01/2015

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Jeu 23 Juil 2015 - 11:07

Je suis en pleine modification du code pour intégrer la limite des Obus.
Et je vais essayer de reseter la partie quand le chateau est détruit ... Wink
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par F.L le Jeu 23 Juil 2015 - 11:27

merci !
je crois que je vais le laisser tel quel. c'est plus une demo qu'un jeu.
sinon, pour mon jeu sur CPC, j'ai fait une vidéo pour ceux qui ont le flemme de lancer un émulateur MDR
avatar
F.L
Docteur *
Docteur *

Masculin Nombre de messages : 2460
Age : 42
Localisation : hérault
Date d'inscription : 11/06/2012

http://fl.basic.free.fr

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Jeu 23 Juil 2015 - 11:58

* Rampage Revenge 2Ko UPDATE *

Voila, j'ai ajouté ce qu'il manquait à ce futur Hit ! Wink
- Correction de la Gestion des Obus.
- Ajout du pourcentage de destruction du Chateau.
- Pavillon plus réaliste.

- Gestion de la fin de partie ( enfin pour ceux qui y arriveront ! rambo)





Le code pèse 2Ko pile ! Mr. Green Mr. Green

Lien identique :
https://dl.dropboxusercontent.com/u/108143465/RampageRevenge2Ko.zip

Listing :

Code:
M = _NEWIMAGE(1024, 768, 32)
SCREEN M
DIM SHARED De(1000, 1000)
v = 50: O = 50

DO
    _LIMIT 60
    CLS

    PRINT "Obus : " + STR$(O)
    PRINT "Score : " + STR$(sc)
    PRINT "Destruction Totale : " + STR$(INT(d * 100 / 612)) + "." + STR$(d * 100 MOD 612) + " %"
    IF d > 612 THEN LOCATE 80, 15: PRINT "BRAVO CHATEAU DETRUIT !!"
    FOR i = 1 TO f
        LINE (i, 610)-(i, 625), _RGB(255, 255 - i * 2, 0)
    NEXT

    LINE (800, 600)-(800, 300), _RGB(255, 255, 0)
    FOR i = 600 TO 800 STEP 8
        a = a + 1
        IF a < 20 THEN De(600 + 8 * a * 2, 400) = 1
        FOR j = 400 TO 590 STEP 8
            IF ABS(i + 4 - X) <= 12 AND ABS(j - Y) <= 12 AND De(i, j) = 0 THEN De(i, j) = 1: e = 1: sc = sc + 10: s = s + 10: d = d + 1
            IF De(i, j) = 0 AND u = 0 THEN _PRINTSTRING (i, j), CHR$(176)
        NEXT
    NEXT
    IF s > 100 THEN O = O + 5: s = 0

    IF tir = 0 THEN
        IF _KEYDOWN(32) AND tir = 0 AND O > 0 AND f < 250 THEN f = f + 2
        IF f > 1 AND _KEYDOWN(32) = -0 THEN tir = 1
        IF _KEYDOWN(18432) AND an < 90 THEN an = an + 1
        IF _KEYDOWN(20480) AND an > 0 THEN an = an - 1
    END IF

    CIRCLE (53, 585), 15
    LINE (66, 574)-(66 + 10 * COS(an * ((3.1416) / 180)), 574 - 10 * SIN(an * ((3.1416) / 180))), _RGB(255, 0, 0)


    IF tir = 1 THEN
        t = t + 0.04
        X = 66 + (COS(an * ((3.1416) / 180)) * f) * t + (.5 * (v / 5) * t ^ 2)
        Y = 568 + (-1 * ((SIN(an * ((3.1416) / 180)) * f * t)) + (.5 * 9.8 * t ^ 2)) * (600 / 150)
        _PRINTSTRING (X, Y), "."
        IF Y >= 595 OR e = 1 OR X > 1100 THEN
            f = 0
            CIRCLE (X, Y), 15
            IF O > 0 THEN O = O - 1
            t = 0
            tir = 0
            RANDOMIZE TIMER
            v = RND * 100
            IF RND * 4 > 2 THEN v = -v
        END IF

    END IF

    LINE (1, 600)-(1024, 600)
    e = 0
    FOR i = 1 TO 35
        LINE (800, 320 + i)-(800 + v, 320 + i), _RGB(255, 0, 0)
    NEXT


    _DISPLAY
LOOP



Amusez vous bien, et votez pour moi !!! Mr. Green Mr. Green Mr. Green
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par F.L le Jeu 23 Juil 2015 - 12:26

2044 octets, ouf c'etait juste !! MDR
avatar
F.L
Docteur *
Docteur *

Masculin Nombre de messages : 2460
Age : 42
Localisation : hérault
Date d'inscription : 11/06/2012

http://fl.basic.free.fr

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Jeu 23 Juil 2015 - 13:01

Je viens juste d'effectuer un correctif !
C'est bon, ça ne dépasse plus 2000 octets.
( Toujours le même lien )
https://dl.dropboxusercontent.com/u/108143465/RampageRevenge2Ko.zip
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par rendomizer le Jeu 23 Juil 2015 - 13:58

je peux pas mieux faire les amis Embarassed 1 845 octets

Code:

Graphics 320,600,16,2
Global x
Global y
Global a

Global r
Global i
Global e
Global xf
WINNER = 10

lose=0

r=20
.debut
e=Int(Rnd(1)*40)
For i=-10 To 610 Step 6
Locate 10,0:Color 255,0,0:Print "WINNER "+winner
Locate 10,10:Color 255,0,0:Print "SCORE HUMAN: "+goal
Locate 10,21:Color 255,0,0:Print "SCORE UFO  : "+UFO

If ufo = winner Then Cls:Locate 50,300:Color 0,0,255:Print "********  YOU LOSE  *********: ":lose=lose+1:WINNER=WINNER+10:Delay 2000
If goal = winner Then Cls:Locate 50,300:Color 0,0,255:Print "********  YOU WIN  *********: ":WINNER=WINNER+10:Delay 2000

If lose =2 Then Locate 50,300:Color 0,0,255:Cls:Print "******** GAME OVER ********":Delay 2000:lose=0:winner=0:goal=0:ufo=0

If (8+yline/60) = i/60 And (xf+150)/8= e-2 Then Delay 100:goal=goal+1:yline=0:fire=0:Goto explode
a=a+8
 If i/60 = 9 Then ufo=ufo+1    

   x = Cos(a) * 20 :xcanon = Cos(a) * 1
        y = i+Sin(a) * 20 :ycanon = i+Sin(a) * 1
        
        xa = Cos(a+120)*20:xcanon2 = Cos(a+120) * 1
        ya = i+Sin(a+120)*20:ycanon2 = i+Sin(a+120) * 1

        xb = Cos(a+120+120)*20 :xcanon3 = Cos(a+240) * 1
        yb = i+Sin(a+120+120)*20 :ycanon3 = i+Sin(a+240) * 1

Color 0,255,0

Line x+e*8 ,  y ,  xa+e*8 ,  ya
Line x+e*8  , y , xb+e*8 ,  yb
Line xb+e*8 ,  yb ,  xa+e*8 ,  ya


Line x+e*8 ,y, xcanon+e*8 , ycanon
Line xa+e*8 ,ya , xcanon2+e*8 , ycanon2
Line xb+e*8, yb , xcanon3+e*8 , ycanon3


Line xf+150 , 499 , xf+160 , 480
Line xf+170 , 499 , xf+160 , 480
Line xf+150 ,499 , xf+170 , 499

If KeyDown(205)=1 Then xf=xf+8
If KeyDown(203)=1 Then xf=xf-8
If KeyDown(200)=1 Then fire=1:yline=0:fr=xf
If fire=1 Then yline = yline-20 :Line fr+160,yline+480 , fr+160 , yline+475
If yline =-600 Then fire=0


Delay 100

Cls
Next
Cls
Goto debut

.explode


i=-10
Goto debut
voici le lien pour l'executable:

https://www.dropbox.com/s/okyvs68ul3uzdla/vectroxplusLIGHT.exe?dl=0
avatar
rendomizer
Patient contaminé

Masculin Nombre de messages : 228
Age : 47
Localisation : montpellier
Date d'inscription : 19/04/2015

http://vg5000.webnode.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par ShiningBZH le Jeu 23 Juil 2015 - 15:44

Le lien ne fonctionne pas rendomizer
avatar
ShiningBZH
Guéri miraculeux

Masculin Nombre de messages : 2658
Age : 27
Localisation : Ploubazlanec
Date d'inscription : 03/01/2015

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par rendomizer le Jeu 23 Juil 2015 - 15:47

@ShiningBZH a écrit:Le lien ne fonctionne pas rendomizer
rrooooo ???

et celui la
https://www.dropbox.com/s/okyvs68ul3uzdla/vectroxplusLIGHT.exe?dl=0
avatar
rendomizer
Patient contaminé

Masculin Nombre de messages : 228
Age : 47
Localisation : montpellier
Date d'inscription : 19/04/2015

http://vg5000.webnode.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par ShiningBZH le Jeu 23 Juil 2015 - 15:50

La direction du lien renvoi vers ton home dropbox , ton répertoire perso , mais en copiant collant ce qui est affiché ça marche : 

https://www.dropbox.com/s/okyvs68ul3uzdla/vectroxplusLIGHT.exe?dl=0

Oui ça marche , pas vu que tu avais édité Very Happy
avatar
ShiningBZH
Guéri miraculeux

Masculin Nombre de messages : 2658
Age : 27
Localisation : Ploubazlanec
Date d'inscription : 03/01/2015

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par rendomizer le Jeu 23 Juil 2015 - 15:53

@ShiningBZH a écrit:La direction du lien renvoi vers ton home dropbox , ton répertoire perso , mais en copiant collant ce qui est affiché ça marche : 

https://www.dropbox.com/s/okyvs68ul3uzdla/vectroxplusLIGHT.exe?dl=0

Oui ça marche , pas vu que tu avais édité Very Happy
merci ShiningBZH !
avatar
rendomizer
Patient contaminé

Masculin Nombre de messages : 228
Age : 47
Localisation : montpellier
Date d'inscription : 19/04/2015

http://vg5000.webnode.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par drfloyd le Jeu 23 Juil 2015 - 18:35

pour mon jeu, je bloque un peu sur l'IA pour l'instant.... ca va etre chaud en 2ko... mais je compte y arriver d'ici la fin de l'été (style je m'y met 15 minutes tous les 5 jours Mr. Green ) C'est mon défi de l'été... plutot que de lire L'Equipe.

_______________________________________________________


Mon profil Gamopat Advisor de vendeur :
http://www.gamopat-forum.com/t94659-dr-floyd-advisor







avatar
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 126510
Age : 48
Localisation : Dpt 62
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Jeu 23 Juil 2015 - 18:58

Oui c'est pas évident de caser un algo d'IA dans un code de 2048 octets ... J'ai séché hier et changer le concept pour garder un intérêt et aussi pour prétendre au podium .. Wink
Conseil : réduire le nom des variables au minimum.
Pour ma part, je vais continuer a bosser sur Rampage Revenge car c'est vraiment un jeu a part entière et non une démo sans intérêt ludique.
Je vais enrichir tout ça et ne pas dépasser les 2048 octets ... C'est vraiment passionnant en fait comme défi ! Merci Doc' 

Peut être que créerait un post sur ce projet, je l'ai fait sur développez.com et ça a plutôt plu même si c'est très simpliste.
On peut prendre plaisir a jouer sans avoir du HD, de la 3D ou de la 2D canon ... C'est un challenge a la hauteur des barbus que nous sommes.
A bientôt pour de nouvelles MaJ de Rampage Revenge !! Very Happy
avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par drfloyd le Jeu 23 Juil 2015 - 20:28

Ouais là je pense que j'ai lancé un concept... de plus à la portée de tous : débutants en programmations, et ceux qui n'ont pas beaucoup de temps libre (car franchement tu peux taper 1ko de prog le temps de boire un café)

Un casse tête qui vaut largement le fun d'une partie de jeu vidéo !

_______________________________________________________


Mon profil Gamopat Advisor de vendeur :
http://www.gamopat-forum.com/t94659-dr-floyd-advisor







avatar
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 126510
Age : 48
Localisation : Dpt 62
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par vingazole le Jeu 23 Juil 2015 - 22:47

Très sympa comme défi en effet ! Je suis en train d'essayer de coder quelque chose en moins de 2 Ko avec QB64, ce n'est pas évident affraid
avatar
vingazole
Infirmier

Masculin Nombre de messages : 4014
Age : 43
Localisation : Les Herbiers (85)
Date d'inscription : 05/01/2012

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par drfloyd le Jeu 23 Juil 2015 - 22:50

cheers plus on est de fous....

_______________________________________________________


Mon profil Gamopat Advisor de vendeur :
http://www.gamopat-forum.com/t94659-dr-floyd-advisor







avatar
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Masculin Nombre de messages : 126510
Age : 48
Localisation : Dpt 62
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Vetea le Ven 24 Juil 2015 - 1:19

* Rampage Revenge 2Ko UPDATE *


Et oui, j'en ai pas encore fini avec ce foutu défi 2048 Octets pour survivre !
Je tire le maximum des possibilités des optimisations que je peux trouver tout en essayant d'améliorer l'intérêt du Gameplay.
Un sacré casse tête comme je les adore !

Voici donc les changements :
- Amélioration de la balistique du projectile.
- Diminution de la force du vent.
- Affichage de l'angle et de la force.
- Suppression du score au bénéfice de l'affichage de l'état du chateau.
- Ajout d'un Mur d'obstacle CePlusPlus qui changera à chaque tir !
- Nouvel agencement du joueur / Chateau.
- Allongement du Canon pour une meilleure apréhension.


Agrandir cette image


Le changement tactique est évident avec l'apparition du Mur magnétique qui force le joueur à mieux utiliser l'angle et la force tout en jouant avec le vent dominant.
Le jeu devient beaucoup plus addictif !

Le Listing ( 2035 Octets ! ):

Code:
M = _NEWIMAGE(1024, 768, 32)
SCREEN M
DIM T(1500, 1500)
O = 50

DO
    _LIMIT 60
    CLS

    PRINT "Obus:" + STR$(O)
    PRINT "Chateau:" + STR$(100 - (d * 100 / 612)) + "%"

    FOR i = 1 TO f
        LINE (i, 610)-(i, 625), _RGB(255, 255 - i * 2, 0)
        _PRINTSTRING (1 + i, 612), STR$(f)
    NEXT

    LINE (800, 600)-(800, 300)

    IF d >= 612 THEN _PRINTSTRING (800, 200), "BOUM"

    FOR i = 750 TO 950 STEP 8
        a = a + 1
        IF a <= 20 THEN T(750 + 8 * a * 2, 400) = 1: LINE (800, 320 + a)-(800 + v, 320 + a), _RGB(255, 0, 0)
        FOR j = 400 TO 590 STEP 8
            IF ABS(i + 4 - X) <= 12 AND ABS(j - Y) <= 12 AND T(i, j) = 0 THEN T(i, j) = 1: e = 1: s = s + 10: d = d + 1
            IF T(i, j) = 0 THEN _PRINTSTRING (i, j), CHR$(177)
        NEXT
    NEXT
    a = 0

    LINE (400, 600)-(400, 600 - r * 2)
    IF ABS(X - 400) <= 12 AND Y >= 602 - r * 2 THEN e = 1

    IF s > 100 THEN O = O + 5: s = 0

    IF H = 0 THEN
        IF _KEYDOWN(32) AND H = 0 AND O > 0 AND f < 250 THEN f = f + 2
        IF f > 1 AND _KEYDOWN(32) = -0 THEN H = 1
        IF _KEYDOWN(18432) AND Q < 90 THEN Q = Q + 1
        IF _KEYDOWN(20480) AND Q > 0 THEN Q = Q - 1
    END IF

    CIRCLE (23, 585), 15

    IF H = 1 THEN
        T = T + 0.06
        X = 52 + (COS(Q * ((3.14) / 180)) * f) * T + (.5 * (v / 5) * T ^ 2)
        Y = 558 + (-1 * ((SIN(Q * ((3.14) / 180)) * f * T)) + (.5 * 9.8 * T ^ 2)) * (200 / 150)
        _PRINTSTRING (X, Y), "."
        IF Y >= 595 OR e = 1 OR X > 1100 THEN
            f = 0
            IF O > 0 THEN O = O - 1
            r = RND * 100
            T = 0
            H = 0
            X = 0
            Y = 0
            K = 1
            v = RND * 60
            IF RND * 4 > 2 THEN v = -v
        END IF

    END IF
    _PRINTSTRING (11, 577), STR$(Q)
    LINE (34, 574)-(34 + 30 * COS(Q * ((3.14) / 180)), 574 - 30 * SIN(Q * ((3.14) / 180)))
    LINE (1, 600)-(1024, 600)

    e = 0


    _DISPLAY
LOOP



Le Lien du jeu ( identique )
https://dl.dropboxusercontent.com/u/108143465/RampageRevenge2Ko.zip

Je pense avoir tiré le maximum de mon code ... A voir si d'autres idées me viennent en tête, mais après ça frise le masochisme !
Amusez vous bien ! Wink


avatar
Vetea
Docteur *
Docteur *

Masculin Nombre de messages : 4490
Age : 46
Localisation : Baillargues
Date d'inscription : 22/06/2012

http://www.rolango.fr/

Revenir en haut Aller en bas

Re: *** LES DEUKILOS 2015 ***

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Page 4 sur 16 Précédent  1, 2, 3, 4, 5 ... 10 ... 16  Suivant

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum