newMat(2,100)->coo
0->x
3->y
340->mvt
2->long
0->cycl
3->cyc
0->lo
For i,1,5
rand(30)*5+5->xt
rand(14)*5+5->yt
PxlOn yt,xt ça fait plein de PxlOn, mais ces pour dessinner les petites fleurs.
PxlOn yt+1,xt
PxlOn yt-1,xt
PxlOn yt,xt+1
PxlOn yt,xt-1
EndFor
Loop C'est surtout dans cette boucle que je veux alléger.
If cycl<3 and lo=0
long+1->long
cyc+1->cyc
cycl+1->cycl
If cycl>100
1->cycl:1->lo
If cyc-long>100
long+1->cyc
getKey()->gk
If gk=/0
gk->mvt
Ifmvt=340
x+5->x
If mvt=337
x-5->x
If mvt= 344
y+5->y
If mvt=338
y-5->y
Ifx>155
5->x
Ifx<5
155->x
Ify>73
3->y
If y<3
73->y
If pxlTest(y+2,x)=true Pixel que seul un cercle pourra allumer
Exit
PxlCrcl y,x,2
If pxlTest(y,x)=true Then
long+1->long
rand(30)*5+5->xt
rand(14)*5+3->yt
PxlOn yt,xt:PxlOn yt+1,xt:PxlOn yt-1,xt:PxlOn yt,xt+1:PxlOn yt,xt-1
PxlOff y,x:PxlOff y+1,x:PxlOff y-1,x:PxlOff y,x+1:PxlOff y,x-1
EndIf
x->coo[1,cycl]
y->coo[2,cycl]
coo[1,cyc-long]->xz
coo[2,cyc-long]->yz
PxlCrcl yz,xz,2,0
EndLoop ENFIN !!!