Combat de vermine (R,G et B)

kelly · Message par **kelly** » ven. 19/août/2005 21:15

C'est debile, je sais mais j'aime les combats de pseudo virus rongeant l'une des teinte du RGB des pixels (mettez la capture d'ecran de votre bureau (seulement en 1024*768)=) :

Code : Tout sélectionner

InitSprite() 
InitMouse()
InitKeyboard() 
UseJPEGImageDecoder() 
Dim r.w(1024,768)
Dim v.w(1024,768)
Dim b.w(1024,768)
Dim p(1024*768)
Dim rr.b(1024,768)

For i=0 To 100
rr(Random(1023),Random(767))=Random(2)+1
Next

OpenScreen(1024,768,32,"")    

LoadSprite(0,"pic1024*768.jpg")   
DisplaySprite(0,0,0)     
StartDrawing(SpriteOutput(0))

For u=0 To 767
For i=0 To 1023
x=Point(i,u)
r(i,u)=Red(x)
v(i,u)=Green(x)
b(i,u)=Blue(x)
Next
Next
StopDrawing()
FreeSprite(0)
w=-1
w1=1
w2=2
w3=3
www=2000
Repeat
StartDrawing(ScreenOutput())
For u=0 To 767
For i=0 To 1023
Plot(i,u,RGB(r(i,u),v(i,u),b(i,u)))
Next
Next
StopDrawing()
FlipBuffers()

For n=1 To 60000
a=Random(1022)+1
b=Random(766)+1
If rr(a,b)=w1
For i=-1 To 1
For u=-1 To 1
rr(a+i,b+u)=w1
If Random(30)<>0
r(a+i,b+u)+w
If r(a+i,b+u)<0
r(a+i,b+u)=0
EndIf
EndIf
Next
Next
EndIf

If rr(a,b)=w2
For i=-1 To 1
For u=-1 To 1
rr(a+i,b+u)=w2
If Random(30)<>0
v(a+i,b+u)+w
If v(a+i,b+u)<0
v(a+i,b+u)=0
EndIf
EndIf
Next
Next
EndIf

If rr(a,b)=w3
For i=-1 To 1
For u=-1 To 1
rr(a+i,b+u)=w3
If Random(30)<>0
b(a+i,b+u)+w
If b(a+i,b+u)<0
b(a+i,b+u)=0
EndIf
EndIf
Next
Next
EndIf
Next
www-5
If Random(www)<10
w0=w1
w1=w2
w2=w3
w3=w0
www=2000
EndIf

ExamineKeyboard() : Until KeyboardPushed(#PB_Key_Escape): End

djes · Message par **djes** » ven. 19/août/2005 22:34

Ouais! Sors!

Backup · Message par **Backup** » ven. 19/août/2005 22:36

wahoo ! super beau !!

cela peut faire de jolis fond d'ecran !!

Bravo !

Dr. Dri · Message par **Dr. Dri** » ven. 19/août/2005 23:04

il a un problème ton prog, il salit l'écran...

Dri

kelly · Message par **kelly** » sam. 20/août/2005 12:02

C'est encore plus fun si a la place de cette boucle du tout debut :

Code : Tout sélectionner

For i=0 To 100 
rr(Random(1023),Random(767))=Random(2)+1 
Next

vous mettez un petit nombre a la place de 100 (mettez 2 ou 3 et l'ecran se fait ronger localement puis ca se propage)

djes · Message par **djes** » sam. 20/août/2005 15:40

Tu as dû pas mal chercher pour les paramètres

kelly · Message par **kelly** » sam. 20/août/2005 15:49

non, ca a ete tres facile
pkoi ???

djes · Message par **djes** » sam. 20/août/2005 18:12

Oh je dis juste ça comme ça : quand on fait un programme comme ça, on passe toujours un petit moment à changer les variables pour essayer certains motifs, etc. Les variantes sont infinies et personnellement, j'ai toujours du mal à donner une version définitive!

AYBABTU · Message par **AYBABTU** » sam. 20/août/2005 18:13

Pas mal de faire ca en si peu de code. J'ai l'impression que c'est une des grandes particularité de PureBasic.

kelly · Message par **kelly** » sam. 20/août/2005 18:31

La, il y a une histoire :
4 virus grignotent l'image : un mange le R, un mange le V, un mange le B et un equilible le RVB pour faire du gris.
De plus:
Le virus A sait manger le B et assez difficilement le C
Le virus B sait manger le C et assez difficilement le D
Le virus C sait manger le D et assez difficilement le A
Le virus D sait manger le A et assez difficilement le B

Voici le code :

Code : Tout sélectionner

InitSprite() 
InitMouse()
InitKeyboard() 
UseJPEGImageDecoder() 
Dim r.w(1024,768)
Dim v.w(1024,768)
Dim b.w(1024,768)
Dim rr.b(1024,768)

For i=1 To 7
rr(Random(511),Random(380))=1
rr(1023-Random(511),Random(380))=2
rr(Random(511),767-Random(380))=3
rr(1023-Random(511),767-Random(380))=4
Next
rr(Random(511),Random(380))=2
rr(1023-Random(511),Random(380))=3
rr(Random(511),767-Random(380))=4
rr(1023-Random(511),767-Random(380))=1

rr(Random(511),Random(380))=3
rr(1023-Random(511),Random(380))=4
rr(Random(511),767-Random(380))=1
rr(1023-Random(511),767-Random(380))=2

rr(Random(612),Random(380))=4
rr(1023-Random(612),Random(380))=1
rr(Random(612),767-Random(380))=2
rr(1023-Random(612),767-Random(380))=3



OpenScreen(1024,768,32,"")    

LoadSprite(0,"ghost.jpg")   
DisplaySprite(0,0,0)     
StartDrawing(SpriteOutput(0))

For u=0 To 767
For i=0 To 1023
x=Point(i,u)
r(i,u)=Red(x)
v(i,u)=Green(x)
b(i,u)=Blue(x)
Next
Next
StopDrawing()
FreeSprite(0)

Repeat
StartDrawing(ScreenOutput())
For u=0 To 767
For i=0 To 1023
Plot(i,u,RGB(r(i,u),v(i,u),b(i,u)))
Next
Next
StopDrawing()
FlipBuffers()

For n=1 To 80000
a=Random(1022)+1
b=Random(766)+1

For nn=1 To 4
If rr(a,b)=nn

For i=-1 To 1
For u=-1 To 1
w=rr(a+i,b+u)
ww=nn+1
xx=nn+2
If ww=5
ww=1
EndIf
If xx>4
xx=-4
EndIf

If w=0 Or w=ww Or w=nn Or w=xx
If w<>xx
yy=16
Else
w=4
EndIf

If Random(yy)<>0
rr(a+i,b+u)=nn

If nn=1
r(a+i,b+u)-1
If r(a+i,b+u)<0
r(a+i,b+u)=0
EndIf
EndIf

If nn=2
v(a+i,b+u)-1
If v(a+i,b+u)<0
v(a+i,b+u)=0
EndIf
EndIf

If nn=3
b(a+i,b+u)-1
If b(a+i,b+u)<0
b(a+i,b+u)=0
EndIf
EndIf

If nn=4
r=r(a+i,b+u)
v=v(a+i,b+u)
d=b(a+i,b+u)
z=(r+v+d)/3
If r>z
r(a+i,b+u)-1
If r(a+i,b+u)<0
r(a+i,b+u)=0
EndIf
EndIf
If r<z
r(a+i,b+u)+1
If r(a+i,b+u)>255
r(a+i,b+u)=255
EndIf
EndIf
If v>z
v(a+i,b+u)-1
If v(a+i,b+u)<0
v(a+i,b+u)=0
EndIf
EndIf
If v<z
v(a+i,b+u)+1
If v(a+i,b+u)>255
v(a+i,b+u)=255
EndIf
EndIf
If d>z
b(a+i,b+u)-1
If b(a+i,b+u)<0
b(a+i,b+u)=0
EndIf
EndIf
If d<z
b(a+i,b+u)+1
If b(a+i,b+u)>255
b(a+i,b+u)=255
EndIf
EndIf
EndIf

EndIf
EndIf

Next
Next

EndIf
Next nn
Next n

ExamineKeyboard() : Until KeyboardPushed(#PB_Key_Escape): End

Restera t'il quelque chose de l'image ?

bombseb · Message par **bombseb** » ven. 26/août/2005 10:23

hey mais c'est trop marrant votre truc !

c'est con chui au boulot je testerais ca ce soir