Basic Particals

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|688\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Engines

magicman	Created : 14 September 2006 Language : Blitz Basic Particals The most basic partical effects you can get
This is pretty simple, hopefully someone will get some benifit out of it. ;These are the most basic of particals you can make, if you can make them more basic, please tell me ;how. Hopefully you will learn somthing from this, that is, if you have never done particals before ;if you have done somthing with particals, go away. ENJOY!!!! ;YEY SOCODER!!!!!!!!!!! ;set graphics mode, buffer, apptitle, yey. AppTitle "The Most Basic Of Basic Particals" Graphics 800,600,16,2 SetBuffer BackBuffer() ;here we set up the partical type, its pretty simple, x pos, y pos, xvelocity, y velocity, red,green,and blue values Type part Field x#,y#,xv#,yv#,r,g,b End Type ;set up the main loop While Not KeyDown(1) Cls ;Here is were we create the particals at the mouses position If MouseHit(1);<<<<The left mouse button For i = 0 To 15;<<<create 16 particals, its 16 becasue i started with 0, if i started with 1 it would be diffrent p.part = New part;<<<new partical p\x = MouseX();<<<<<particals x = the mouses x p\y = MouseY();<<<<<particals y = the mouses y p\xv = Rnd(-1,1);<<<particals x velocity = a random number between -1,1 p\yv = Rnd(-1,-3);<<<particals y velocity = a random number between -1,-3 making it go up p\r = 255;<<<Set the particals red value to 255 p\g = 255;<<<Set the particals green value to 255 p\b = 255;<<<Set the particals blue value to 255. 255,255,255 = white Next;<<<ends the for loop EndIf For p.part = Each part ;set color for each partical Color p\r,p\g,p\b ;draw a rectange that is 2x2 pixels at the particals x and y Rect p\x#,p\y#,2,2 ;move the partical p\x = p\x + p\xv p\y = p\y + p\yv ;apply gravity to the partical p\yv = p\yv + 0.09 ;lower the color values of the partical to make it appear as though its fading p\r = p\r - 3 p\g = p\g - 3 p\b = p\b - 3 ;if the particales red value is equal to or less than 5 delete it, basicly when it turns black ;why 5? just becasue i say so, and there are reasons, wich you will find if you make it 0. If p\r =< 5 Delete p Next ;end the main loop Flip Wend End --v

Comments

Comments