GAMOPAT
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

*** LES DEUKILOS 2015 ***

+21
philip
lulrik
ocin
emultion
shubibiman
jimpqfly
chiss
65c02
goux.m
Violent Ken
Ricco59_59
Brice1612
upsilandre
nemokantio
ShiningBZH
rendomizer
Fabf
Urbinou
vingazole
F.L
drfloyd
25 participants

Page 10 sur 16 Précédent  1 ... 6 ... 9, 10, 11 ... 16  Suivant

Aller en bas

Le meilleur DEUXKILOS de 2015 est selon vous :

*** LES DEUKILOS 2015 *** - Page 10 Vote_lcap24%*** LES DEUKILOS 2015 *** - Page 10 Vote_rcap 24% 
[ 5 ]
*** LES DEUKILOS 2015 *** - Page 10 Vote_lcap10%*** LES DEUKILOS 2015 *** - Page 10 Vote_rcap 10% 
[ 2 ]
*** LES DEUKILOS 2015 *** - Page 10 Vote_lcap19%*** LES DEUKILOS 2015 *** - Page 10 Vote_rcap 19% 
[ 4 ]
*** LES DEUKILOS 2015 *** - Page 10 Vote_lcap19%*** LES DEUKILOS 2015 *** - Page 10 Vote_rcap 19% 
[ 4 ]
*** LES DEUKILOS 2015 *** - Page 10 Vote_lcap10%*** LES DEUKILOS 2015 *** - Page 10 Vote_rcap 10% 
[ 2 ]
*** LES DEUKILOS 2015 *** - Page 10 Vote_lcap18%*** LES DEUKILOS 2015 *** - Page 10 Vote_rcap 18% 
[ 4 ]
 
Total des votes : 21
 
 
Sondage clos

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Jeu 20 Aoû 2015 - 18:54

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

drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

Nombre de messages : 181467
Date d'inscription : 05/12/2004

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par vingazole Jeu 20 Aoû 2015 - 21:16

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

Masculin Nombre de messages : 4522
Age : 50
Localisation : Midian
Date d'inscription : 05/01/2012

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Jeu 20 Aoû 2015 - 23:13

Personne pour le flipper ? Mr. Green

un wargame en 2ko ? What a Face

_______________________________________________________
*** LES DEUKILOS 2015 *** - Page 10 Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

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

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par rendomizer Sam 22 Aoû 2015 - 12:56

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
rendomizer
rendomizer
Patient contaminé

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

https://sergiomaxcomputervg5000.blogspot.com/

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Sam 22 Aoû 2015 - 13:12

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

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.

_______________________________________________________
*** LES DEUKILOS 2015 *** - Page 10 Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

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

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Sam 22 Aoû 2015 - 13:14

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")

_______________________________________________________
*** LES DEUKILOS 2015 *** - Page 10 Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

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

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par rendomizer Sam 22 Aoû 2015 - 13:45

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

sinon pour le flipper c'est quoi le pixel art drfloyd ?
rendomizer
rendomizer
Patient contaminé

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

https://sergiomaxcomputervg5000.blogspot.com/

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Sam 22 Aoû 2015 - 16:30

rendomizer a écrit: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 ! Mr. Green

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 :


_______________________________________________________
*** LES DEUKILOS 2015 *** - Page 10 Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

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

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Sam 22 Aoû 2015 - 23:26

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

_______________________________________________________
*** LES DEUKILOS 2015 *** - Page 10 Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

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

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par rendomizer Mar 25 Aoû 2015 - 18:05

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
rendomizer
rendomizer
Patient contaminé

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

https://sergiomaxcomputervg5000.blogspot.com/

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par ocin Sam 5 Sep 2015 - 10:11

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 ?
ocin
ocin
Patient contaminé

Masculin Nombre de messages : 165
Age : 47
Localisation : 53170
Date d'inscription : 28/08/2014

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Sam 5 Sep 2015 - 10:17

rendomizer a écrit: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


et hop, un jeu de caisse en rab !!!! Ambiance ecrans monochrome ! cheers

_______________________________________________________
*** LES DEUKILOS 2015 *** - Page 10 Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

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

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Sam 5 Sep 2015 - 10:19

ocin a écrit:
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 ?


Je n'ai pas d'émulateur CPC sur mon Mac, j'essaye des que je rebranche le pc !

_______________________________________________________
*** LES DEUKILOS 2015 *** - Page 10 Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

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

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par ocin Sam 5 Sep 2015 - 10:24

Lol, tiens, c'est pa gênant mais la ligne 300 est à supprimer ! oubli :)
ocin
ocin
Patient contaminé

Masculin Nombre de messages : 165
Age : 47
Localisation : 53170
Date d'inscription : 28/08/2014

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par F.L Sam 5 Sep 2015 - 21:23

ocin a écrit:
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 ?

salut ocin
j'ai voulu essayer ton listing mais ça marche pas
j'ai crée une disquette vierge avec diskmanager et j'ai collé ton fichier .bas à l'interieur
ensuite j'ai essayé lancer avec winAPE
mais quadn je fais run ou load, ça me dit "line too long"
peut etre la ligne 400 qui bugge ?
sinon, pourrait tu mettre en ligne ton fichier dsk ?
help !
F.L
F.L
Docteur *
Docteur *

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

http://fl.basic.free.fr

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par vingazole Sam 5 Sep 2015 - 23:01

Un screenshot serait sympa aussi Wink
vingazole
vingazole
Infirmier

Masculin Nombre de messages : 4522
Age : 50
Localisation : Midian
Date d'inscription : 05/01/2012

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par 65c02 Sam 5 Sep 2015 - 23:57

Je me permet de vous soumettre mon petit jeu qb64 en 2048 octets.

C'est un pong se jouant à deux joueurs

Les touches:
-A et Q pour le joueur de gauche
-pavé numérique 9 et pavé numérique 6 pour le joueur de droite
-échappe pour sortir du jeu

*** LES DEUKILOS 2015 *** - Page 10 Pong_g10

Le code est un peu crade car j'ai du un peu optimiser le tout.

Code:
SCREEN _NEWIMAGE(320, 240, 32)
_FULLSCREEN
DIM a(11) AS SINGLE
DIM b(11) AS SINGLE
DIM c(11) AS SINGLE
a(0) = 20: a(1) = 100: a(2) = 20: a(3) = 800: a(4) = 600: a(5) = 8
b(0) = 300: b(1) = 100: b(2) = 20: b(3) = 0: b(4) = 1000: b(5) = 8
c(0) = 160: c(1) = 100: c(2) = 50: c(3) = 800: c(4) = 600: c(5) = 800
p = RND * 6
c(9) = COS(p) * 12
c(10) = SIN(p) * 12
DO
    FOR y = 0 TO 240
        FOR x = 0 TO 320
            CALL lum(x, y, 30, a())
            CALL lum(x, y, 30, b())
            CALL lum(x, y, 0, c())
            g = a(7) + b(7) + c(7)
            v = y * y * y / 10000
            r = a(6) + b(6) + c(6) + v
            b = a(8) + b(8) + c(8) + v / 2
            v = 240 - y
            v = v * v * v / 10000
            r = r + v / 2
            b = b + v + 160 / (ABS(x - 160) + 1) * 5
            PSET (x, y), _RGB(r / 4, g / 4, b / 4)
        NEXT
    NEXT
    IF _KEYDOWN(27) THEN END
    IF _KEYDOWN(113) THEN a(10) = 8
    IF _KEYDOWN(97) THEN a(10) = -8
    IF _KEYDOWN(54) THEN b(10) = 8
    IF _KEYDOWN(57) THEN b(10) = -8
    CALL phys(a(), 0.9, 30)
    CALL phys(b(), 0.9, 30)
    CALL phys(c(), 1, 0)
    IF ABS(c(0) - a(0)) < 10 AND c(1) > a(1) - 10 AND c(1) < a(1) + 40 THEN c(9) = ABS(c(9)): c(2) = 300
    IF ABS(c(0) - b(0)) < 10 AND c(1) > b(1) - 10 AND c(1) < b(1) + 40 THEN c(9) = -ABS(c(9)): c(2) = 300
    c(2) = c(2) * 0.1 + 49
    _DISPLAY
    _LIMIT 60
LOOP
SUB phys (t(), f, s)
t(0) = t(0) + t(9)
t(1) = t(1) + t(10)
t(10) = t(10) * f
IF t(0) < -20 THEN t(0) = 340: t(2) = 500000
IF t(0) > 340 THEN t(0) = -20: t(2) = 500000
IF t(1) < 0 THEN t(10) = ABS(t(10))
IF t(1) > 240 - s THEN t(10) = -ABS(t(10))
END SUB
SUB lum (x, y, s, t())
dx = t(0) - x
IF y < t(1) THEN
    dy = t(1) - y: d = SQR((dx * dx) + (dy * dy)): d = (d * d) / t(2)
ELSEIF y > t(1) + s THEN dy = t(1) - y + s: d = SQR((dx * dx) + (dy * dy)): d = (d * d) / t(2)
ELSE dx = ABS(dx): d = (dx * dx) / t(2)
END IF
d = d + 1
t(6) = t(3) / d
t(7) = t(4) / d
t(8) = t(5) / d
END SUB
65c02
65c02
Guéri miraculeux

Masculin Nombre de messages : 2026
Age : 53
Localisation : Paulhan
Date d'inscription : 23/05/2011

http://65c02.tumblr.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par drfloyd Dim 6 Sep 2015 - 0:32

oula, pareil, pas encore de PC sous la main, mais ca a l'air énorme !!!!!

_______________________________________________________
*** LES DEUKILOS 2015 *** - Page 10 Giphy10





drfloyd
drfloyd
DOYEN ET PROFESSEUR FOU DE L'HOPITAL

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

http://www.gamopat.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par lulrik Dim 6 Sep 2015 - 10:02

Avec quoi je doit exécuter ton code 65c02 ?
lulrik
lulrik
Infirmier

Masculin Nombre de messages : 4882
Age : 27
Localisation : /
Date d'inscription : 11/06/2014

http://ekasilicium.net/

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par vingazole Dim 6 Sep 2015 - 10:13

Il faut compiler le source de 65c02 avec QB64.

Je l'ai fait, voici l'exécutable : https://www.dropbox.com/s/2bk46rft1900wze/pong.exe?dl=0
vingazole
vingazole
Infirmier

Masculin Nombre de messages : 4522
Age : 50
Localisation : Midian
Date d'inscription : 05/01/2012

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par lulrik Dim 6 Sep 2015 - 10:15

Merci Wink
lulrik
lulrik
Infirmier

Masculin Nombre de messages : 4882
Age : 27
Localisation : /
Date d'inscription : 11/06/2014

http://ekasilicium.net/

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par ocin Dim 6 Sep 2015 - 11:22

https://www.dropbox.com/s/8jxymqjuy0neylj/test.txt?dl=0

*** LES DEUKILOS 2015 *** - Page 10 Mini_15090611250416381813559701

Dans le dropbox, c'est un fichier txt, j'arrive pas à faire un dsk...(boulet)
J'ai séparé la ligne 400 au cas où
ocin
ocin
Patient contaminé

Masculin Nombre de messages : 165
Age : 47
Localisation : 53170
Date d'inscription : 28/08/2014

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par F.L Dim 6 Sep 2015 - 19:16

ocin a écrit:https://www.dropbox.com/s/8jxymqjuy0neylj/test.txt?dl=0

*** LES DEUKILOS 2015 *** - Page 10 Mini_15090611250416381813559701

Dans le dropbox, c'est un fichier txt, j'arrive pas à faire un dsk...(boulet)
J'ai séparé la ligne 400 au cas où

salut ocin
je viens de te creer un .dsk
c'est facile avec le logiciel dskmanager, tu y fais "creer dsk" puis tu y ajoute ton listing et ensuite "sauver dsk"
https://www.dropbox.com/s/i7igza9jarkg0mu/ocin.DSK?dl=0
essaye le dsk, maintenant que tu as divisé la ligne 400 ça marche, mais il y a un encore soucis avec ton jeu, surement un probleme de boucle.
au fait, je te conseil renum quand tu as fini ton listing : ça redonne de l'ordre dans tes numeros de lignes tout seul
@+
F.L
F.L
Docteur *
Docteur *

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

http://fl.basic.free.fr

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par Urbinou Dim 6 Sep 2015 - 20:01

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



Joli rendu graphique ! Mais je pige pas... on marque des points en heurtant les autres autos ?
Urbinou
Urbinou
Docteur agrégé **
Docteur agrégé **

Masculin Nombre de messages : 12632
Age : 55
Localisation : Liège, Belgique
Date d'inscription : 12/02/2013

http://cambouisdelatari.wordpress.com

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par vingazole Dim 6 Sep 2015 - 20:11

F.L a écrit:
ocin a écrit:https://www.dropbox.com/s/8jxymqjuy0neylj/test.txt?dl=0

*** LES DEUKILOS 2015 *** - Page 10 Mini_15090611250416381813559701

Dans le dropbox, c'est un fichier txt, j'arrive pas à faire un dsk...(boulet)
J'ai séparé la ligne 400 au cas où

salut ocin
je viens de te creer un .dsk
c'est facile avec le logiciel dskmanager, tu y fais "creer dsk" puis tu y ajoute ton listing et ensuite "sauver dsk"
https://www.dropbox.com/s/i7igza9jarkg0mu/ocin.DSK?dl=0
essaye le dsk, maintenant que tu as divisé la ligne 400 ça marche, mais il y a un encore soucis avec ton jeu, surement un probleme de boucle.
au fait, je te conseil renum quand tu as fini ton listing : ça redonne de l'ordre dans tes numeros de lignes tout seul
@+
Il manque la ligne 410 du fichier TXT d'ocin (l'ancienne ligne 400 séparée en 400 et 410) dans ton fichier DSK, j'ai l'impression...
vingazole
vingazole
Infirmier

Masculin Nombre de messages : 4522
Age : 50
Localisation : Midian
Date d'inscription : 05/01/2012

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par F.L Dim 6 Sep 2015 - 21:38

oui effectivement vingazole, j'avais oublié une ligne en collant ! Embarassed
je viens de rectifier. toujours le meme lien :
https://www.dropbox.com/s/i7igza9jarkg0mu/ocin.DSK?dl=0
faut faire run"ocin
sympa ton jeu ocin, bien meilleur que le mien !
ça fait plaisir de voir que d'autres que moi sur ce concours se prennent la tete sur ce vieux basic !! (par contre pour creer un dsk, va falloir que tu revise un peu tes classiques Mr. Green )
@+
F.L
F.L
Docteur *
Docteur *

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

http://fl.basic.free.fr

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par ocin Lun 7 Sep 2015 - 19:31

Merci FL
Ce bon vieux locomotive était excellent. Dommage que la puissance, la rapidité, etc.. ne suit pas ! Je voulais faire bouger au pixel (avec tag je crois de mémoire) mais bon j'ai fait au plus simple.
La boucle de temps est bancale aussi, le return ça limite.

Ouais les dsk je vais revoir. J'essayais de sauver depuis arnold. Ce doit être ça qui buggait.

Je vais revoir l'omikron sur atari. A l'époque j'avais pas exploré.
ocin
ocin
Patient contaminé

Masculin Nombre de messages : 165
Age : 47
Localisation : 53170
Date d'inscription : 28/08/2014

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par F.L Lun 7 Sep 2015 - 20:20

ocin a écrit:Merci FL
Ce bon vieux locomotive était excellent. Dommage que la puissance, la rapidité, etc.. ne suit pas ! Je voulais faire bouger au pixel (avec tag je crois de mémoire) mais bon j'ai fait au plus simple.
La boucle de temps est bancale aussi, le return ça limite.

Ouais les dsk je vais revoir. J'essayais de sauver depuis arnold. Ce doit être ça qui buggait.

Je vais revoir l'omikron sur atari. A l'époque j'avais pas exploré.

de rien.
voici comment créer facilement un dsk et y integrer un listing fait avec bloc-note, par exemple :
http://amstrad.eu/modules/publisher/item.php?itemid=179
je te le conseille fortement, il n'y a pas plus simple !
@+
F.L
F.L
Docteur *
Docteur *

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

http://fl.basic.free.fr

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par ShiningBZH Lun 7 Sep 2015 - 21:43

Partie 1 des candidats :

rendomizer:

Vetea:

vingazole:

goux.m :


Dernière édition par ShiningBZH le Mar 8 Sep 2015 - 18:12, édité 4 fois
ShiningBZH
ShiningBZH
Infirmier

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

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par ShiningBZH Lun 7 Sep 2015 - 21:46

Partie 2 :
F.L:

drfloyd :

nemokantio:

Nouveau challenger: 65c02" :

Nouveau challenger : ocin" :



Dernière édition par ShiningBZH le Mar 8 Sep 2015 - 19:51, édité 12 fois
ShiningBZH
ShiningBZH
Infirmier

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

Revenir en haut Aller en bas

*** LES DEUKILOS 2015 *** - Page 10 Empty Re: *** LES DEUKILOS 2015 ***

Message par ShiningBZH Lun 7 Sep 2015 - 21:47

Ajout des nouveaux jeux , quelqu'un peux me dire si le projet là de goux.m est toujours d'actualité ou abandonné ? : 

https://www.gamopat-forum.com/t81112p250-les-deukilos#2155711

@ocin , pourrais-tu faire une image plus grande et mettre ton code à jour et le but du jeux s'il-te-plaît ? 

Si vous voyez que j'ai oublié des trucs dites le moi Wink
ShiningBZH
ShiningBZH
Infirmier

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

Revenir en haut Aller en bas

Page 10 sur 16 Précédent  1 ... 6 ... 9, 10, 11 ... 16  Suivant

Revenir en haut

- Sujets similaires

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