Publié : dim. 24/août/2008 22:42
c'est une procedure a OLIVdjes a écrit :Très sympa le sinusscroll
mais je me la suis adapter en console
mais je me la suis adapter en console
Page 2 sur 4
mais je me la suis adapter en console
Publié : mer. 27/août/2008 9:50
Des punchs sympas sur le forum anglais : http://www.purebasic.fr/english/viewtopic.php?t=33883
Publié : mer. 27/août/2008 17:07
c'est bluffant les choses que vous faites en si peut de ligne 
.
c'est sa le but du "punch" ?
@++
.c'est sa le but du "punch" ?
@++
Publié : mer. 27/août/2008 17:24
oui !! un maximum, dans le minimum !!venom a écrit :c'est bluffant les choses que vous faites en si peut de ligne
c'est sa le but du "punch" ?
@++
Publié : mer. 27/août/2008 18:05
c'est un exercice intéressant mais bon je ne sais pas si j'oserai m'y pencheroui !! un maximum, dans le minimum !!
@++
Publié : mer. 27/août/2008 18:32
Pourquoi pas? Le but n'est pas forcément d'épater la galerie, tu peux faire quelque chose d'utile, ou d'étonnant, ou simplement réussir à condenser quelque chose en très peu d'espace! Il n'y a que l'embarras du choixvenom a écrit :c'est un exercice intéressant mais bon je ne sais pas si j'oserai m'y pencheroui !! un maximum, dans le minimum !!
@++
Publié : mer. 27/août/2008 22:54
Vous me donnez envie. Ca me rappelle mon époque démo sur Amiga. Limite j'ai une larme.
De rage j'en fais un demain soir.
De rage j'en fais un demain soir.
Publié : jeu. 28/août/2008 16:47
Hé hé hé! Je me lance:
C'est vrai que sur le forum anglais ils assurent, il faut leur montrer qu'on peut aussi assurer. 
EDIT: J'ai réduit le code à 6 lignes.
Code : Tout sélectionner
InitSprite():InitKeyboard():OpenScreen(640,480,32,"PB"):For i=0 To 7:CreateSprite(i,1,1):StartDrawing(SpriteOutput(i)):Plot(0,0,RGB((i+1)*24+31,(i+1)*24+31,(i+1)*24+31)):StopDrawing():Next i:CreateSprite(8,16,16):StartDrawing(SpriteOutput(8))
Box(0,0,16,16,RGB(127,127,63)):LineXY(0,0,14,0,RGB(200,200,100)):LineXY(0,1,13,1,RGB(200,200,100)):LineXY(0,0,0,14,RGB(200,200,100)):LineXY(1,0,1,13,RGB(200,200,100)):LineXY(1,15,15,15,RGB(63,63,31)):LineXY(2,14,14,14,RGB(63,63,31))
LineXY(15,1,15,15,RGB(63,63,31)):LineXY(14,2,14,15,RGB(63,63,31)):StopDrawing():Dim x.w(400):Dim y.w(400):Dim z.w(400):For i=1 To 400:x(i)=Random(639):y(i)=Random(479):z(i)=Random(7)+1:Next i:c.f=0.0174532925:Repeat:ClearScreen(0)
ExamineKeyboard():StartDrawing(ScreenOutput()):For i=0 To 97:Box(0,i*5,640,5,i*65536):Next i:StopDrawing():For i=1 To 400:DisplaySprite(z(i)-1,x(i),y(i)):If x(i)<640:x(i)=x(i)+z(i):Else:x(i)=0:y(i)=Random(479):EndIf:Next i:b=b+2:If b>=180:b=0
EndIf:Restore D:For k=0 To 3:For j=0 To 4:For i=0 To 3:Read a:If a=1:DisplaySprite(8,160+(i+5*k)*16,300+j*16+100*Sin((b+180+i)*c.f)):EndIf:Next i:Next j:Next k:FlipBuffers():Until KeyboardPushed(#PB_Key_Escape):End
DataSection:D:Data.l 1,1,1,0,1,0,0,1,1,1,1,0,1,0,0,0,1,0,0,0,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,0,1,1,0,1,1,1,0,1,0,0,1,1,1,1,0,1,0,0,1,1,0,0,1,1,1,1,1,1,0,0,0,1,1,1,0,1,0,0,0,1,1,1,1:EndDataSectionEDIT: J'ai réduit le code à 6 lignes.
Publié : jeu. 28/août/2008 17:43
Excellentissime Gildev 
Publié : jeu. 28/août/2008 18:13
oui !! superbe !!
Publié : jeu. 28/août/2008 20:00
+1Dobro a écrit :oui !! superbe !!
Publié : jeu. 28/août/2008 20:26
clairement que sa assure en 15 lignes 
vous inquiétez pas je guette les façons de faire
@++
Publié : jeu. 28/août/2008 21:32
Merci pour les compliments, c'est grâce à vous, vous m'avez donné envie.
Je cherche à en faire un autre.
Je cherche à en faire un autre.
Publié : jeu. 28/août/2008 21:32
Démo maker dans l'âme! 
Publié : jeu. 28/août/2008 21:38
Ben c'est pas faux, j'ai été un PETIT démomaker il y a 15 ans.
On s'éclatait sur nos Amiga 500.
On s'éclatait sur nos Amiga 500.