Re: *** LES DEUKILOS 2015 ***

[rendomizer]

INTERESSENT !!!! bravo goux.m

[drfloyd]

graphiquement c'est le jeu le plus impressionnant en tout cas

[drfloyd]

perso grosse pause programmation, j'ai planté totalement mon PC en voulant passer Win 10...

[vingazole]

J'espère que Microsoft te paie bien pour tester ses produits...

[F.L]

Je ne suis pas pres de lacher mon windows 7 

[goux.m]

on pourrait aussi faire un concours de jeu d'aventure textuel 

Je me suis penché un peu sur le sujet, et je vous propose ici le premier résultat obtenu. Il ne s'agit pas d'un jeu complet, pour l'instant on peut uniquement se déplacer dans 16 lieux, et voir les objets qui s'y trouvent.
Je vous ai fait un joli dessin pour vous expliquer le principe de déplacement



Chaque lieu est numéroté ici de 1 à 16 (chiffres en bleu).

Pour tester les directions possible on attribue à chaque direction un chiffre (N=1 / S=2 / W=4 / E=8)
Pour chaque lieu on obtient un chiffre unique en fonction des directions possibles. Par exemple pour le lieu n° 2, directions possibles W/N/E soit 4+1+8=13 (chiffre en noir en bas à gauche de la case)

Il suffit si je veux aller vers le nord à partir du lieu numéro 2 de faire un test sur ce chiffre (chiffre AND 1). si le résultat est égal à 0, pas possible d'aller vers le nord. Si le résultat est 1 (c'est le cas ici), la direction nord est possible. On ajoute donc 4 au numéro de lieu: on se retrouve donc dans le lieu numéro 6.

Tout est stocké dans des chaines de caractères, directions, objets, noms de lieux. avec MID$ et le numéro de lieu, on extrait toutes les informations à afficher

Bien entendu, comme c'est censé être en 2Ko on ne va pas pouvoir mettre des tonnes de descriptions pour les lieux. J'ai limité ici à 6 caractères, et j'ai pour le moment mis tout en Anglais (mots plus courts)
Par exemple GARDEN, WOOD, ROOM, CASTLE..... en Français on pourrait mettre BOIS, JARDIN, FORET...
Pour les objets j'ai limité à 4 caractères: LAMP, KEY ... en Français, LAMPE, CLEF... edit: ben non ça ne marche pas "LAMPE"

Le code source est plutôt court et fait actuellement 516 octets

Code:

r$="081304010111120710060103081214061000000000000000ROOM01ROOM02ROOM03ROOM04ROOM05ROOM06ROOM07ROOM08ROOM09ROOM10ROOM11ROOM12ROOM13ROOM14ROOM15ROOM16":o$="    LAMPBBBBCCCCDDDDEEEEFFFFGGGGHHHHIIII":r=0
do:cls:?"YOU ARE IN "+mid$(r$,49+r*6,6)+chr$(13)+"YOU CAN SEE: "+mid$(o$,1+val(mid$(r$,33+r,1))*4,4):input">";k$:r=r+4*(k$="n")*((val(mid$(r$,1+r*2,2)) and 1)=1)-4*(k$="s")*((val(mid$(r$,1+r*2,2)) and 2)=2)-(k$="w")*((val(mid$(r$,1+r*2,2)) and 4)=4)+(k$="e")*((val(mid$(r$,1+r*2,2)) and 8)=8)
loop until k$="end"


Voici les commandes: n/s/e/w pour se déplacer et end pour quitter

La variable r$ se décompose de la façon suivante:

r$="081304010111120710060103081214061000000000000000ROOM01ROOM02ROOM03ROOM04ROOM05ROOM06ROOM07ROOM08ROOM09
ROOM10ROOM11ROOM12ROOM13ROOM14ROOM15ROOM16"
-> En bleu les déplacements
-> En rouge les numéros d'objets pour chaque lieu (0= pas d'objet, objets n° 1 à 9)
-> En vert les noms de lieux (6 caractères)

La variable  o$ contient les noms des objets (4 caractères):
o$="    LAMPBBBBCCCCDDDDEEEEFFFFGGGGHHHHIIII"

Voilà pour le moment, je ne sais pas si ça peut aboutir à qqchose
Je vais essayer d'implémenter les actions possibles (TAKE, USE, INV) et trouver une sorte de petit scénario en Anglais ou Français.

Mais ceci est une autre histoire ...

[vingazole]

J'ai réduit à 398 octets, ça laissera un peu plus de place pour "tout le reste" :

Code:

r$="8=411;<7:6138<>61000000000000000ROOM01ROOM02ROOM03ROOM04ROOM05ROOM06ROOM07ROOM08ROOM09ROOM10ROOM11ROOM12ROOM13ROOM14ROOM15ROOM16":o$="    LAMPBBBBCCCCDDDDEEEEFFFFGGGGHHHHIIII"
1cls:?"YOU ARE IN "+mid$(r$,33+r*6,6):?"YOU CAN SEE: "+mid$(o$,1+4*(asc(r$,17+r)-48),4):input">";k$:v=asc(r$,1+r)-48:r=r-4*(k$="n")*(1and v)+2*(k$="s")*(2and v)+(k$="w")*(4and v)\4+(k$="e")*(v>7)
if k$<>"end"then 1

[drfloyd]

Génial... et passionnant !!!! Y aurait pas un moyen de generer un nombre super important de lieux via une méthode procédurale ?

En attendant les open world ????

[rendomizer]

peux pas mieux faire sur 2koctets.mais je développe quand même un outrun maison avec ce moteur il y aura même des grands 8 https://www.dropbox.com/s/4f1svc6muvqxd2z/racing%20pseudo%203D%20CBM%202ko.exe?dl=0

Code:

Graphics 640,480,32,2
x1#=340:y1=200:vx1=340:vy1#=200:x2=640:y2=480:vx2=640:vy2=480:sx1=340:sy1=200:svx1=340:svy1=200:sx2=640    
sy2=480:svx2=640:svy2=480:ax1#=300:avx1=300:avx2=0:ax2=0:b=1:l#=.1:tt#=0:speed#=.01:sx2=320:svx2=320:spritex#=320
sx1=x1#-20
.debut
sx1=x1#-20
l#=l#+.4
If l#>5 Then l#=0
sprite#=sprite#+.01
Color 0,255,0

tt#=tt#+.01

If tt#>1 Then

Rect spritex#,430,10,20,0:Rect spritex#+50,430,10,20,0:Line spritex#+10,440,spritex#+50,440:Line spritex#+50,440,spritex+30,390:Line spritex#+30,390,spritex#+10,440
Rect spritex#+10,388,5,15,0:Line spritex#+15,395,spritex#+45,395:Rect spritex#+45,388,5,15,0

tt#=0

If tt2#>.8 Then tt2#=0

Flip:Cls
Color 100,100,100
tt2#=tt2#+speed#
poinbx1# = sx1*(1-tt2)^3 + 3*svx1*(1-tt2)^2*tt2 + 3*svx2*(1-tt2)*tt2^2 + sx2*tt2^3
poinby1# = y1*(1-tt2)^3 + 3*vy1*(1-tt2)^2*tt2 + 3*vy2*(1-tt2)*tt2^2 + y2*tt2^3

Color 0,255,0
Oval poinbx1,poinby1, 10,10,0
If poinby1 <210  Then  sprite#=0:sx2=Int(Rnd(0,640)):svx2=sx2
End If

road=road+1
If road> 100 Then road=0
poinbx1# = x1#*(1-tt)^3 + 3*vx1*(1-tt)^2*tt + 3*vx2*(1-tt)*tt^2 + x2*tt^3
poinby1# = y1*(1-tt)^3 + 3*vy1*(1-tt)^2*tt + 3*vy2*(1-tt)*tt^2 + y2*tt^3

Color 0,100,0
Rect poinbx1,poinby1, 999,l,1
poinbxx1# = ax1*(1-tt)^3 + 3*avx1*(1-tt)^2*tt + 3*avx2*(1-tt)*tt^2 + ax2*tt^3
poinbyy1# = y1*(1-tt)^3 + 3*vy1*(1-tt)^2*tt + 3*vy2*(1-tt)*tt^2 + y2*tt^3

Color 0,100,0
Rect pointbxx1,poinbyy1, poinbxx1,l,1
 
If KeyDown(1)=1 Then End
If KeyDown(203)=1 Then x1#=x1#+.1:ax1#=ax1#+.1:spritex#=spritex# -.1
If KeyDown(205)=1 Then x1#=x1#-.1:ax1#=ax1#-.1:spritex#=spritex# +.1
If KeyDown(20) Then speed#=speed#+.0001
If KeyDown(19) Then speed#=speed#-.0001
If KeyDown(200) Then vy1#=vy1#-.1
If KeyDown(208) Then vy1#=vy1#+.1
If speed#<0 Then speed#=.01

Goto debut


[url=https://www.dropbox.com/s/4f1svc6muvqxd2z/racing pseudo 3D CBM]l'executable[/url]

[goux.m]

J'ai réduit à 398 octets, ça laissera un peu plus de place pour "tout le reste" :

Code:

r$="8=411;<7:6138<>61000000000000000ROOM01ROOM02ROOM03ROOM04ROOM05ROOM06ROOM07ROOM08ROOM09ROOM10ROOM11ROOM12ROOM13ROOM14ROOM15ROOM16":o$="    LAMPBBBBCCCCDDDDEEEEFFFFGGGGHHHHIIII"
1cls:?"YOU ARE IN "+mid$(r$,33+r*6,6):?"YOU CAN SEE: "+mid$(o$,1+4*(asc(r$,17+r)-48),4):input">";k$:v=asc(r$,1+r)-48:r=r-4*(k$="n")*(1and v)+2*(k$="s")*(2and v)+(k$="w")*(4and v)\4+(k$="e")*(v>7)
if k$<>"end"then 1

Tu es le Luky-Luke de l'optimisation
J'ai également gagné quelques octets supplémentaire en "intégrant" le contenu de o$ dans r$...

Je vais voir ce que je peux faire pour la suite

[drfloyd]

peux pas mieux faire sur 2koctets.mais je développe quand même un outrun maison avec ce moteur il y aura même des grands 8 https://www.dropbox.com/s/4f1svc6muvqxd2z/racing%20pseudo%203D%20CBM%202ko.exe?dl=0

Plus de PC actuellement (Win 10 m'a tuer), hate de tester plus tard !!!!

PS : la premiere fois que vous parlez d'un projet 2k précisez quand meme le langage utilié pour ceux qui découvrent le topic.

[rendomizer]

voici mon dernier jet en "blitzplus" le but c'est de ramasser le plus de pneus grisés possible...2020 octets. Content d'avoir participé a ce concours des deukilos.Ce fut tres exitant.J'ai même trouvé des idées pour faire des jeux https://www.dropbox.com/s/8c2zjrwyhgyf65q/outrun%20blitzplus.rar?dl=0

[url=https://www.dropbox.com/s/vhohzvkd6r5v891/wind rendomizer][/url]

Code:

Graphics 640,480,32,2
x1#=340:y1=200:vx1=340:vy1#=200:x2=640:y2=480:vx2=640:vy2=480:sx1=340:sy1=200:svx1=340:svy1=200:sx2=640:sy2=480:svx2=640:svy2=480:ax1#=300:avx1=300:avx2=0:ax2=0:b=1:l#=.1:tt#=0:speed#=.01:speed2#=.011:sx2=320:svx2=320:spritex#=320:sx1=x1#-20
.debut
sx1=x1#-20:ssx1=x1#-20:l#=l#+.4
If l#>5 Then l#=0
Color 0,255,0:tt#=tt#+.01
If tt#>1 Then
Text 1,1," SCORE "+sc
Rect spritex#,430,10,20,0:Rect spritex#+50,430,10,20,0:Line spritex#+10,440,spritex#+50,440:Line spritex#+50,440,spritex+30,390:Line spritex#+30,390,spritex#+10,440
Rect spritex#+10,388,5,15,0:Line spritex#+15,395,spritex#+45,395:Rect spritex#+45,388,5,15,0:tt#=0
If tt2#>.8 Then tt2#=0:If tt3#>.8 Then tt3#=0
Flip:Cls
tt2#=tt2#+speed#
poinbx1# = sx1*(1-tt2)^3 + 3*svx1*(1-tt2)^2*tt2 + 3*svx2*(1-tt2)*tt2^2 + sx2*tt2^3
poinby1# = y1*(1-tt2)^3 + 3*vy1*(1-tt2)^2*tt2 + 3*vy2*(1-tt2)*tt2^2 + y2*tt2^3
tt3#=tt3#+speed2#
poinbx2# = ssx1*(1-tt3)^3 + 3*svx1*(1-tt3)^2*tt3 + 3*ssvx2*(1-tt3)*tt3^2 + ssx2*tt3^3
poinby2# = y1*(1-tt3)^3 + 3*vy1*(1-tt3)^2*tt3 + 3*vy2*(1-tt3)*tt3^2 + y2*tt3^3
Oval poinbx2,poinby2, 10,10,0:Oval poinbx2,poinby2,15,15,0
If poinby2 <210  Then  ssx2=Int(Rnd(0,640)):ssvx2=ssx2
Color 100,255,100:Oval poinbx1,poinby1, 10,10,0:Oval poinbx1,poinby1,15,15,0
If poinby1 <210  Then  sx2=Int(Rnd(0,640)):svx2=sx2
If Int(poinbx1#/60)=Int(spritex#/60) And Int(poinby1#/30)-4=Int(430/30)-4 Then sc=sc+1
End If
road=road+1
If road> 100 Then road=0
poinbx1# = x1#*(1-tt)^3 + 3*vx1*(1-tt)^2*tt + 3*vx2*(1-tt)*tt^2 + x2*tt^3
poinby1# = y1*(1-tt)^3 + 3*vy1*(1-tt)^2*tt + 3*vy2*(1-tt)*tt^2 + y2*tt^3
Rect poinbx1,poinby1, 999,l,1
poinbxx1# = ax1*(1-tt)^3 + 3*avx1*(1-tt)^2*tt + 3*avx2*(1-tt)*tt^2 + ax2*tt^3
poinbyy1# = y1*(1-tt)^3 + 3*vy1*(1-tt)^2*tt + 3*vy2*(1-tt)*tt^2 + y2*tt^3
Rect pointbxx1,poinbyy1, poinbxx1,l,1
If KeyDown(1)=1 Then End
If KeyDown(203)=1 Then x1#=x1#+.1:ax1#=ax1#+.1:spritex#=spritex# -.1
If KeyDown(205)=1 Then x1#=x1#-.1:ax1#=ax1#-.1:spritex#=spritex# +.1
Goto debut



[F.L]

sympa ton jeu en pseudo 3D !
sur ton premier exemple de jeu en pseudo3D, tes effets de montée et descente de route sont tres bien fait. mieux que les miens !!! je suis jaloux
ça serait sympa que tu explique comment tu as fait sur mon topic sur es routes en pseudo3D  

[rendomizer]

ok F.L je ne suis pas tres bon pédagogue mais je vais essailler...

[drfloyd]

Randomizer, en Blitz tu peux virer tous les THEN, ca fait gagner de nombreux octets.

[rendomizer]

Randomizer, en Blitz tu peux virer tous les THEN, ca fait gagner de nombreux octets.

super ça drfloyd !

[drfloyd]

ouais, j'avais quasi gagné 200 octet en virant les THEN de REGATES2K, et 200octet c'est une grosse option en plus dans le jeu  !!!!

[Ricco59_59]

on pourrait aussi faire un concours de jeu d'aventure textuel 

Je me suis penché un peu sur le sujet, et je vous propose ici le premier résultat obtenu. Il ne s'agit pas d'un jeu complet, pour l'instant on peut uniquement se déplacer dans 16 lieux, et voir les objets qui s'y trouvent.
Je vous ai fait un joli dessin pour vous expliquer le principe de déplacement



Chaque lieu est numéroté ici de 1 à 16 (chiffres en bleu).

Pour tester les directions possible on attribue à chaque direction un chiffre (N=1 / S=2 / W=4 / E=8)
Pour chaque lieu on obtient un chiffre unique en fonction des directions possibles. Par exemple pour le lieu n° 2, directions possibles W/N/E soit 4+1+8=13 (chiffre en noir en bas à gauche de la case)

Il suffit si je veux aller vers le nord à partir du lieu numéro 2 de faire un test sur ce chiffre (chiffre AND 1). si le résultat est égal à 0, pas possible d'aller vers le nord. Si le résultat est 1 (c'est le cas ici), la direction nord est possible. On ajoute donc 4 au numéro de lieu: on se retrouve donc dans le lieu numéro 6.

Tout est stocké dans des chaines de caractères, directions, objets, noms de lieux. avec MID$ et le numéro de lieu, on extrait toutes les informations à afficher

Bien entendu, comme c'est censé être en 2Ko on ne va pas pouvoir mettre des tonnes de descriptions pour les lieux. J'ai limité ici à 6 caractères, et j'ai pour le moment mis tout en Anglais (mots plus courts)
Par exemple GARDEN, WOOD, ROOM, CASTLE..... en Français on pourrait mettre BOIS, JARDIN, FORET...
Pour les objets j'ai limité à 4 caractères: LAMP, KEY ... en Français, LAMPE, CLEF... edit: ben non ça ne marche pas "LAMPE"

Le code source est plutôt court et fait actuellement 516 octets

Code:

r$="081304010111120710060103081214061000000000000000ROOM01ROOM02ROOM03ROOM04ROOM05ROOM06ROOM07ROOM08ROOM09ROOM10ROOM11ROOM12ROOM13ROOM14ROOM15ROOM16":o$="    LAMPBBBBCCCCDDDDEEEEFFFFGGGGHHHHIIII":r=0
do:cls:?"YOU ARE IN "+mid$(r$,49+r*6,6)+chr$(13)+"YOU CAN SEE: "+mid$(o$,1+val(mid$(r$,33+r,1))*4,4):input">";k$:r=r+4*(k$="n")*((val(mid$(r$,1+r*2,2)) and 1)=1)-4*(k$="s")*((val(mid$(r$,1+r*2,2)) and 2)=2)-(k$="w")*((val(mid$(r$,1+r*2,2)) and 4)=4)+(k$="e")*((val(mid$(r$,1+r*2,2)) and 8)=8)
loop until k$="end"


Voici les commandes: n/s/e/w pour se déplacer et end pour quitter

La variable r$ se décompose de la façon suivante:

r$="081304010111120710060103081214061000000000000000ROOM01ROOM02ROOM03ROOM04ROOM05ROOM06ROOM07ROOM08ROOM09
ROOM10ROOM11ROOM12ROOM13ROOM14ROOM15ROOM16"
-> En bleu les déplacements
-> En rouge les numéros d'objets pour chaque lieu (0= pas d'objet, objets n° 1 à 9)
-> En vert les noms de lieux (6 caractères)

La variable  o$ contient les noms des objets (4 caractères):
o$="    LAMPBBBBCCCCDDDDEEEEFFFFGGGGHHHHIIII"

Voilà pour le moment, je ne sais pas si ça peut aboutir à qqchose
Je vais essayer d'implémenter les actions possibles (TAKE, USE, INV) et trouver une sorte de petit scénario en Anglais ou Français.

Mais ceci est une autre histoire ...

Olalaaaa,

ca me rappelle un jeu que j'avais fait à l'époque sur pb100 qui reprend ce principe mais plus grand. je dois peut être encore l'avoir sur un vieux cahier kek part. Mais c'est si loin...

Il y avait des culs de sac. Il fallait réunir 5 morceaux d’étoiles pour finir le jeu. On pouvait monter ou descendre un niveau. Mais il y avait des puits sans fond dans lequel tu pouvais tomber, des crocodiles,...

Dans tous les cas, bravo à tous 

[drfloyd]

idée de jeu 2ko : un jeu de flipper !!!

D'ailleurs j'ai tenté plusieurs fois dans le passé de mettre au point un moteur de gestion de balle de flipper dans un décor 2D dessiné quelconque, sans succès....

Style Kirby Pinball...

Bon j'arrivais un peu, mais ce n'etait pas trop réaliste, et j'avais des bugs (balle qui passe a travers le decor, difficulté pour faire rouler la balle sans rebond sur une pente, etc...)


Je passe Docteur celui qui me pond ça un jour, en 2ko ou plus

[goux.m]

2kVenture: je suis en train de coder les actions "p" (prendre) et "d" (déposer) un objet. Dès que j'aurais réussi je posterai le source avec des noms de lieux et d'objets en Français

Il me restera le plus difficile, scénario et interaction (commande "u" -utiliser-) avec monstres, autres objets etc...

J'avance sans savoir si cela va donner quelque chose de valable en 2ko

[drfloyd]

à voir, ca semble difficile pour l'immersion, surprend nous !!!!

[vingazole]

Tu peux éventuellement faire le premier jeu d'aventure textuelle en langage SMS... ça sré tro bi1

[drfloyd]

Personne pour le flipper ?

un wargame en 2ko ?

[rendomizer]

pour le fliper en 2ko ... donne moi en 5 en plus et peut être que a peut ce faire...

voici mon dernier jet de jeux en 2ko plus précisément 2048 octets
https://www.dropbox.com/s/3q4bhvmczk1kzwr/rendomizer%20cars.rar?dl=0

Code:

Graphics 600,400,32,2
.avant
x1#=280:x1=280:vx1=300:sx1#=300:svx1=300:svx2=Rnd(132,600-132):sx2=svx2:ssx1#=300:ssvx1=300:ssvx2=Rnd(132,600-132):ssx2=ssvx2:sssx1#=300:sssvx1=300:sssvx2=Rnd(132,600-132):sssx2=ssvx2
x2=0:vx2=0:y1=200:vy1=200:y2=400:vy2=400:sy1=180:svy1=180:sy2=400:svy2=400:ssy1=180:ssvy1=180:ssy2=400:ssvy2=400:sssy1=180:sssvy1=180:sssy2=400:sssvy2=400:xx1#=320:vxx1=320:vxx2=600:xx2=600
tt2#=1:x#=300:y=360
crash=LoadImage ("pacer2.png"):crash2=LoadImage ("pacer.png"):crash4=LoadImage ("pacer4.png")
.debut
tt#=tt#+.01
h#=h#+.35
If h#>2  h#=0
xa# = x1#*(1-tt)^3 + 3*vx1*(1-tt)^2*tt + 3*vx2*(1-tt)*tt^2 + x2*tt^3
ya# = y1*(1-tt)^3 + 3*vy1*(1-tt)^2*tt + 3*vy2*(1-tt)*tt^2 + y2*tt^3
xb# = xx1#*(1-tt)^3 + 3*vxx1*(1-tt)^2*tt + 3*vxx2*(1-tt)*tt^2 + xx2*tt^3
Color 100,255,100:Rect 0,ya, xa,h,1
Color 100,255,100:Rect xb,ya, 600,h,1
If tt#>1
Color 255,0,0:Text 1,1," CRASH "+Int(sc#)
tt#=0 :Flip:Cls:Color 100,100,255:Rect 0,0,600,200,1
tt2#=tt2#+.01
f=f+1:f2=f2+1
If f>10 f=0
If f=Int(Rnd(10)) ff=1
If ff=1 tt3#=tt3#+.01
If tt3#>1  tt3#=0:ff=0:ssvx2=Rnd(132,600-132):ssx2=ssvx2
If tt2#>1 tt2#=0:svx2=Rnd(132,600-132):sx2=svx2
sxa# = sx1#*(1-tt2)^3 + 3*svx1*(1-tt2)^2*tt2 + 3*svx2*(1-tt2)*tt2^2 + sx2*tt2^3
sya# = sy1*(1-tt2)^3 + 3*svy1*(1-tt2)^2*tt2 + 3*svy2*(1-tt2)*tt2^2 + sy2*tt2^3
DrawImage crash ,sxa,sya
sxa2# = ssx1#*(1-tt3)^3 + 3*ssvx1*(1-tt3)^2*tt3 + 3*ssvx2*(1-tt3)*tt3^2 + ssx2*tt3^3
sya2# = ssy1*(1-tt3)^3 + 3*ssvy1*(1-tt3)^2*tt3 + 3*ssvy2*(1-tt3)*tt3^2 + ssy2*tt3^3
If ff=1 DrawImage crash2 ,sxa2,sya2
DrawImage crash4,x,y
End If
If KeyDown(1)=1 End
If KeyDown(203)=1 x1#=x1#-.1:xx1#=xx1#-.1:sx1#=sx1#-.1:ssx1#=ssx1#-.1:sssx1#=sssx1#-.1:x#=x#-.05
If KeyDown(205)=1 x1#=x1#+.1:xx1#=xx1#+.1:sx1#=sx1#+.1:ssx1#=ssx1#+.1:sssx1#=sssx1#+.1:x#=x#+.05
If Int(sxa#/20)=Int(x#/20) And Int(sya#/20)=Int(y/20) Then sc#=sc#+.01
If Int(sxa2#/20)=Int(x#/20) And Int(sya2#/20)=Int(y/20) Then sc#=sc#+.01
If sc#=>10 Then Cls:sc#=0:For i=0 To 85:Text 150,160,"**** GAME OVER ****":Flip:Next
Goto debut

[drfloyd]

Excellent ! Un clone de Enduro ! Et j'adore la bande son derrière

En dehors de ce topic un jeu de flipper en 5ko je suis preneur !!! Il devra pouvoir gérer n'importe quel décor dessiné en 2D...  La balle devra réagir correctellement à n'importe quelle collision.

Donc un jeu en pixel art, pas en vecteurs.

[drfloyd]

Par contre on a pas le droit de charger des images pour ce concours

Code:


LoadImage ("pacer2.png"):crash2=LoadImage ("pacer.png"):crash4=LoadImage ("pacer4.png")


[rendomizer]

naaaaaaaaaaaaaaaaaaan !!!! j'avais pas fait attention .mais comment faire des sprites dans blitz ?

sinon pour le flipper c'est quoi le pixel art drfloyd ?

[drfloyd]

naaaaaaaaaaaaaaaaaaan !!!! j'avais pas fait attention .mais comment faire des sprites dans blitz ?

sinon pour le flipper c'est quoi le pixel art drfloyd ?

Et oui faut se demerder sans fichier externe !

Je veux dire que ca doit etre un flipper dessiné en 2D (pas des vecteurs). Tu as un decor 2D (voir des sprites qui bougent dedans) et tu dois te demerder pour que le parcours de la bille dedans soit assez réaliste, façon Revenge of the Gator :

[drfloyd]

pour en revenir au sujet, pour l'instant mon préféré à moi reste toujours le remake 2ko de DEFENDER.

[rendomizer]

Voila mon dernier des dernier jeux en moins de 2ko exactement 2042 octets et sans fichiers externes.codé en "blitzplus"

Code:

Graphics 640,480,32,2
x1#=500:y1=0:vx1=500:vy1#=0:x2=640:y2=480:vx2=640:vy2=480:sx1=340:sy1=200:svx1=340:svy1=200:sx2=320:sy2=480:svx2=320:svy2=480:ax1#=300:avx1=300:avx2=0:ax2=0:b=1:l#=.1:tt#=0:speed#=.01:speed2#=.011:spritex#=320:sx1=x1#-20
.debut
l#=l#+.4
If l#>5  l#=0
Color 0,255,0:tt#=tt#+.01
If tt#>1
Text 300,200," SCORE "+sc
Rect spritex#,430,10,20,0:Rect spritex#+50,430,10,20,0:Line spritex#+10,440,spritex#+50,440:Line spritex#+50,440,spritex+30,390:Line spritex#+30,390,spritex#+10,440
Rect spritex#+10,388,5,15,0:Line spritex#+15,395,spritex#+45,395:Rect spritex#+45,388,5,15,0:tt#=0
If tt2#>.8  tt2#=0:If tt3#>.8  tt3#=0
Flip:Cls
tt2#=tt2#+speed#
poinbx1# = sx1*(1-tt2)^3 + 3*svx1*(1-tt2)^2*tt2 + 3*svx2*(1-tt2)*tt2^2 + sx2*tt2^3
poinby1# = y1*(1-tt2)^3 + 3*vy1*(1-tt2)^2*tt2 + 3*vy2*(1-tt2)*tt2^2 + y2*tt2^3
Rect poinbx1-z,poinby1-z,10-z,20-z,0:Rect poinbx1+50-z,poinby1-z,10-z,20-z,0:Line poinbx1+10-z,poinby1+10-z,poinbx1+50-z,poinby1+10-z:Line poinbx1+50-z,poinby1+10-z,poinbx1+30-z,poinby1-40-z:Line poinbx1+30-z,poinby1-40-z,poinbx1+10-z,poinby1+10-z
Rect poinbx1+10-z,poinby1-42-z,5-z,15-z,0:Line poinbx1+15-z,poinby1-35-z,poinbx1+45-z,poinby1-35-z:Rect poinbx1+45-z,poinby1-42-z,5-z,15-z,0
If poinby1 >434  sx2=Int(Rnd(x2,ax2)):svx2t=sx2:sx1=Int(Rnd(x1,ax1)):svx1t=sx1
If Int(poinbx1#/60)=Int(spritex#/60) And Int(poinby1#/30)-4=Int(430/30)-4  sc=sc+1
If sc>30 For i=0 To 80:Text 250,200,"YOU LOSE":Flip:Cls:Next:sc=0
End If
road=road+1
If road> 100  road=0
poinbx1# = x1#*(1-tt)^3 + 3*vx1*(1-tt)^2*tt + 3*vx2*(1-tt)*tt^2 + x2*tt^3
poinby1# = y1*(1-tt)^3 + 3*vy1*(1-tt)^2*tt + 3*vy2*(1-tt)*tt^2 + y2*tt^3
Rect poinbx1,poinby1, 999,l,1
poinbxx1# = ax1*(1-tt)^3 + 3*avx1*(1-tt)^2*tt + 3*avx2*(1-tt)*tt^2 + ax2*tt^3
poinbyy1# = y1*(1-tt)^3 + 3*vy1*(1-tt)^2*tt + 3*vy2*(1-tt)*tt^2 + y2*tt^3
Rect pointbxx1,poinbyy1, poinbxx1,l,1
If KeyDown(1)=1  End
If KeyDown(203)=1  x1#=x1#+.1:ax1#=ax1#+.1:spritex#=spritex# -.1
If KeyDown(205)=1  x1#=x1#-.1:ax1#=ax1#-.1:spritex#=spritex# +.1
Goto debut

https://www.dropbox.com/s/folpj1mksg821ot/GAMOPAT%20ROAD%20RACING.exe?dl=0

[ocin]

Code:

1 dim b(25,25)
5 symbol 240,24,126,219,219,255,195,102,24:symbol 241,254,254,254,0,239,239,239,0:symbol 242,0,56,92,190,250,124,56,16
10 cls:MODE 0: BORDER 0:t=int(time/300):w=5:Z=5:x=10:y=10:gosub 240:sc=0:s=0
20 pen 7:for i=1 to 22:locate 1,i:print chr$(241):locate 20,i:print chr$(241):b(1,i)=2:b(20,i)=2:next i
21 for z=1 to 19:mx=int(18*rnd(1))+2:my=int(20*rnd(1))+2:locate mx,my:print chr$(241):b(mx,my)=2:next
24 for i=1 to 22:locate i,1:print chr$(241):locate i,22:print chr$(241):b(i,1)=2:b(i,22)=2:next i
25 after 3000 gosub 350
30 t1=int(time/300)-t:locate 1,23: pen 1:print"Chrono:";61-t1
40 s=s+1
50 if s>3 then goto 400
60 IF INKEY(0)<>-1 THEN w=x:z=y:GOsub 120
70 IF INKEY(2)<>-1 THEN w=x:z=y:GOsub 130
80 IF INKEY(8)<>-1 THEN w=x:z=y:GOsub 140
90 IF INKEY(1)<>-1 THEN w=x:z=y:GOsub 150
100 if b(x,y)=1 then b(x,y)=0:sc=sc+1
110 FRAME:LOCATE x,y:PRINT CHR$(240):s=s+1:locate 1,24:print "Score:";sc:goto 30
120 y=y-1:if b(x,y)=2 then y=y+1:return else 240
130 y=y+1:if b(x,y)=2 then y=y-1:return else 240
140 x=x-1:if b(x,y)=2 then x=x+1:return else 240
150 x=x+1:if b(x,y)=2 then x=x-1:return else 240
240 LOCATE x,y:pen 1:PRINT CHR$(240):locate w,z:print" ":return
300 return
350 cls:locate 1,11: pen 2:print"Votre score:";sc:print:end
400 w=int(18*rnd(1))+2:Z=int(20*rnd(1))+2:if b(w,z)=0 then locate w,z:pen int(13*rnd(1))+1:print chr$(242):s=0:b(w,z)=1:goto 30 else goto 400


Ma contribution. Emulateur en cpc6128. Le listing en txt fait 1,38ko.
Copier coller le code dans un txt, convertissez-le en SNA avec cpctoken, puis load snapshot avec arnold (en mode 6128)
C'est bon ?