Re: *** LES DEUKILOS 2015 ***

[rendomizer]

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

[drfloyd]

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

A voir si je trouve un lot à offrir

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

[F.L]

amis de la géométrie, bonsoir
cherchez pas, c'est moi le gagnant . 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


[Invité]

Hannn ... Comment il se la pète !!

[drfloyd]

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

[F.L]

c'est pour vous mettre la pression...et ça marche 
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
@+

[Invité]

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é ! )

[Invité]

                                  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 !!

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 !   
- 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 !!   
Amusez vous bien et annoncez les scores ... C'est pas si évident !

[drfloyd]

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

[Invité]

Oh je n'en doute pas Doc' !!
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 ...

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

[ShiningBZH]

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 

[Invité]

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

[F.L]

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
2ko c'est beaucoup trop
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


[ShiningBZH]

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

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

[ShiningBZH]

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
2ko c'est beaucoup trop
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 

[Invité]

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 ...

[F.L]

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

[Invité]

* Rampage Revenge 2Ko UPDATE *

Voila, j'ai ajouté ce qu'il manquait à ce futur Hit !
- 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 ! )





Le code pèse 2Ko pile !

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 !!!

[F.L]

2044 octets, ouf c'etait juste !!

[Invité]

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

[rendomizer]

je peux pas mieux faire les amis 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

[ShiningBZH]

Le lien ne fonctionne pas rendomizer

[rendomizer]

Le lien ne fonctionne pas rendomizer

rrooooo ???

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

[ShiningBZH]

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é

[rendomizer]

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é

merci ShiningBZH !

[drfloyd]

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 ) C'est mon défi de l'été... plutot que de lire L'Equipe.

[Invité]

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 ..
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 !!

[drfloyd]

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 !

[vingazole]

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

[drfloyd]

plus on est de fous....

[Invité]

* 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 !