Publié : jeu. 27/mai/2004 21:17
c'était pas moi mais le chat 
ou je simule une animation des caracteres ; car apres revisu de la video
les caracteres en tombant change !!!
alors j'ai pas voulu me casser la tete sur ma carte graphique l'effet animation fonctionne (attention c'est une petite arnaque)
dites moi si sur vos carte graphique l'effet passe bien !
prenez un peut de recul par rapport a votre moniteur pour aprecier
mais faite gaffe derriere vous
ne touchez pas votre souris c'est toujours un extincteur d'ecran
Ps: maintenant tous les abonnée du forum sont dans la matrice !
c'est ilisible mais bon !!
voici le code :
Dim ysprite(1000)
Dim de(1000)
Dim nom$(12)
Dim liste(1000)
Dim index(1000)
Dim y(1000)
sprite=1
#Police=1
;*********** pour le screensaver
Param.s = Left(ProgramParameter(), 2)
If Param = "/p"
End
EndIf
GetCursorPos_(SourisOrigine.POINT)
ShowCursor_(0)
; ***********************************
Resultat = InitSprite()
FontID = LoadFont(#Police, "arial", 18, #PB_Font_Bold )
EcranX = GetSystemMetrics_(#SM_CXSCREEN)
EcranY = GetSystemMetrics_(#SM_CYSCREEN)
;NbSprite = EcranX / 40 * 3
NbSprite =12
OpenWindow(1, 0, 0, EcranX, EcranY, #PB_Window_BorderLess | #PB_Window_Invisible, "Matrix")
SetWindowPos_(WindowID(), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE) ; fenêtre toujours au premier plan
OpenWindowedScreen(WindowID(), 0, 0, EcranX, EcranY, 1, 0, 0)
nom$(1)="F,r,e,d, ,P,o,l,u,x, ,A,r,t,e,m,i,s, ,c,o,m,t,o,i,s, ,y,u,k,i,n, ,P,a,t,r,i,c,k,8,8, ,O,l,i,v, ,V,y,c, ,K,e,p,h, ,h,a,c,k,o,t,e,d,e,l,a,p,l,a,q,u,e, ,C,i,n,d,e,r,e,l,l,a, ,f,i,l,p,e,r,j, ,M,a,c,R,a,i,n,*,"
nom$(2)="B,e,r,n,a,r,d, ,D,e,n,i,s, ,S,n,o,o,z,e, ,M,a,r,c,u,s, ,D,r,., ,D,r,i, ,T,€,r,$,@,k,€,n, ,m,e,l,y,s,o,p,h, ,P,i,e,r,r,e, ,A,r,a,n,o,t,h, ,O,m,b,r,e,s, ,C,h,r,i,s,*,"
nom$(3)="g,a,u,t, ,l,e,o,n,e,o, ,L,u,k,k,y, ,v,i,r,t,u,a,l,y,s, ,P,a,n,e,r,i,c, ,h,t,e,a,m,s,p,y, ,D,E,F, ,b,r,o,s,s,d,e,n, ,-,-,-,f,r,e,d,-,-,-, ,C,r,y,s,t,a,l, ,N,o,i,r, ,c,o,o,k,i,e,*,"
nom$(4)="H,e,i,s, ,S,p,i,t,e,r, ,L,e, ,S,o,l,d,a,t, ,I,n,c,o,n,n,u, ,F,l,y,p,e, ,p,g, ,M,a,r,c, ,j,u,l,i,e,n, ,B,e,r,i,k,c,o, ,T,n,P,z, ,D,i,o,n,y,z,o,s, ,k,i,l,l,e,r,7,*,"
nom$(5)="N,a,d,r,a,k, ,p,h,i,l,i,p,u,s,2,5,1,1,0, ,f,r,e,d,d,i,x, ,r,e,m,r,a,m,4,4, ,c,e,d,e,r,a,v,i,c, ,O,r,l,a,n,t,h, ,G,u,i,m,a,u,v,e, ,T,E,A,L,C, ,n,i,c,o,*,"
nom$(6)="Z,a,p,M,a,n, ,w,e,7,t,h,e,b,o,s,s, ,J,a,c,q,u,e,s, ,S,t,o,p,i,n,s,k,i, ,r,o,l,l,m,o,p,s, ,c,l,a,u,d,e,d,0,7, ,m,g,o,u, ,[,J,B,],T,o,X,-,0,0,7, , ,S,y,s,z,z, ,C,O,R,B,A,S,E,*,"
nom$(7)="g,a,n,s,t,a,9,3, ,F,i,w,i,p, ,K,a,r,L,K,o,X, ,Y,o,o,p, ,p,a,t,m,a,b,a, ,E,l,_,C,h,o,n,i, ,J,e,n,o,v,a, ,N,e,l,l,s, ,f,r,a,n,c,e, ,n,e,w,z,i,g, ,B,a,k,a, ,f,l,o, , ,K,i,W,i,n,*,"
nom$( 8 )="Y,v,e,s, ,R,o,u,q,u,i,e,r, ,l,i,o,n,e,l,_,o,m, ,t,r,i,k,a,r, ,e,r,i,x,1,4, ,v,a,n,a,g,o, ,l,a,z,y, ,L,a,v,a,L,a,v,a, ,S,i,l,v,e,r, ,N,e,c,r,a, ,J,a,c,o,b,u,s, ,S,a,m,m,a,e,l,*,"
nom$(9)="a,b,y,5,6, ,J,e,a,n,-,P,a,u,l, ,t,h,e,d,o,o,r,p, ,s,o,b,r,i,q,u,e,t, ,l,e,_,p,r,o,_,d,u,_,p,u,r,e, ,g,i,l,l,e,s, ,r,o,b,e,r,t, ,C,A,R,T,E,R, ,P,a,t,r,i,c,k, ,c,h,r,o,n,o,m,a,n,c,i,e,n,*,"
nom$(10)="j,b,e,r,n,a,r,d,1,3, ,b,l,u,e, ,M,i,c,k,e,y, ,G,o,o,d,0,7, ,R,e,m,y,X, ,t,i,t,i,m,o,b,y, ,H,e,e,r,o, ,C,r,e,e,p,y, ,j,b,l,a,i,s,e,.,c,s, ,D,o,m,i,n,i,q,u,e,B, ,b,u,g,r,a,n,e,*,"
nom$(11)="P,i,e,r,r,e, ,t,h,e, ,n,o,o,b, ,o,f, ,o,f, ,b,a,s, ,b,l,a,c,k,r,o,c,k, ,r,Y,n,0, ,L,E,_,B,a,s,s,i,s,t,e,_,A,t,i,t,r,é, , ,N,o,T, ,Y,a,m, ,f,w,e,i,l, ,Y,o,u,r,H,e,a,d,[,^,_,-,],*,"
nom$(12)="G,a,l,e,n, ,L,O,U,L,O,U,2,5, ,m,i,c,k,e, ,c,h,a,r,l,y, ,g,a,r,z,u,l, ,B,l,o,u,t,i,o,u,f, ,D,a,r,k,D,r,a,g,o,n, ,n,e,m,o, ,g,i,l,l,e,s,p,e,y,r,i,n, ,y,a,n,n,6,4, ,D,o,b,r,o,*,"
de= Random(EcranX) :; on tire une colonne au hazard
; on crée un sprite
For spr=1 To 12
Resultat = CreateSprite(spr, 24,24*Len(nom$(spr)),0 )
While index(spr)<=Len(nom$(spr))+1
index(spr)=index(spr)+1
car$ = StringField(nom$(spr), index(spr), ",")
y(spr)=y(spr)+24:; pour que le text descende
StartDrawing(SpriteOutput(spr))
BackColor(0, 0,0)
c = c *1.4 :; on eclaircie la couleur !!
If c>255:c=0:EndIf
If car$ = " "
c = 10
EndIf ; on remet la couleur d'origine sur les espaces
;c=255
FrontColor(0, c, 0)
Locate(0, y(spr))
DrawingFont(FontID)
DrawText(car$)
StopDrawing()
Wend
Next spr
;***********************************
For ind=1 To 100
ysprite(ind)=0-Random(900)-900:; on tire une ligne de depart au dessus de l'ecran
de(ind)= Random(EcranX)*24
liste(ind)=de(ind)
Next ind
For ind=1 To 12
Next ind
Repeat
RandomSeed(Random(255))
For ind=1 To 50
; si le sprite sort en bas
If ysprite(ind)>EcranY
ysprite(ind)=-Random(1900)-900:; on tire une ligne de depart au dessus de l'ecran
de(ind)= Random(EcranX)+27 :; on tire une colonne au hazard (on en profite)
EndIf
spr=spr+1
If spr>12
spr=1
EndIf
ysprite(ind)=ysprite(ind)+Random(7)+5
DisplayTransparentSprite(spr, de(ind), ysprite(ind))
Next ind
FlipBuffers()
ClearScreen(0,0,0)
GetCursorPos_(Souris.POINT)
Until WindowEvent() = #PB_Event_CloseWindow Or Souris\x <> SourisOrigine\x Or Souris\y <> SourisOrigine\y
ShowCursor_(1)
@le soldat : Merci !
)
