Circular Explosions

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

Jayenkai	Created : 13 September 2006 Edited : 13 September 2006 Language : Blitz Circular Explosions Nice Shockwave type explosion effect.
If you use all sorts of Smoke and Flame particles, this might actually look really great. As it is, it's just a nice effect! Click to create an explosion. Graphics 1024,786,32,2 SetBuffer BackBuffer() Type plosion Field x#,y# Field col Field style Field ang# Field amp# Field tick End Type Const Shockwave=1 Const Blast=2 Const BlastFX=3 Const Burn=4 Const BurnFX=5 Const Streamer=6 Const StreamerFX=7 ClsColor 140,80,0 Repeat ;ClsColor 140+l0.5,80+l0.75,l If l>0 Then l=l/2 If l<5 Then l=0 Cls If MouseDown(1) And mudown=0 mudown=1 l=115 ex.plosion=New plosion ex\x=MouseX() ex\y=MouseY() ex\col=1 ex\style=ShockWave ex\ang=0 ex\amp=Rnd(0.2,1.5) ex\tick=30 ex.plosion=New plosion ex\x=MouseX() ex\y=MouseY() ex\col=0 ex\style=ShockWave ex\ang=1 ex\amp=Rnd(1.3,2.3) ex\tick=0 EndIf DoBlast() If MouseDown(1)=0 Then mudown=0 Flip Until KeyDown(1) Function Col(c,tick) Select c Case 0 r=tick g=tick/2 b=0 Color r,g,b Case 1 r=140+(70-(tick/2)) g=80+(70-(tick/2)) b=0 Color r,g,b Case 2 r=140+(100-(tick0.7)) g=80+(100-(tick0.7)) b=0 Color r,g,b Case 3 r=140+(100-(tick0.7)) g=80 b=0 Color r,g,b Case 4 r=255-((tick115)/140) g=255-((tick175)/140) b=255-((tick255)/140) Color r,g,b Case 5 r=140+((140-tick)10) g=80+((140-tick)10) b=0 Color r,g,b Case 6 r=140+((140-tick)10) g=80 b=0 Color r,g,b End Select End Function Function DoBlast() For ex.plosion=Each plosion ex\tick=ex\tick+1 kill=0 Select ex\style Case Shockwave If ex\tick<140 col(ex\col,ex\tick) If ex\ang>0 Then Oval ex\x-(Float(ex\tick)ex\amp#),ex\y-(Float(ex\tick)ex\amp#),Float(ex\tick)ex\amp#2,Float(ex\tick)ex\amp#2,0 If ex\ang=0 Then Oval ex\x-(Float(ex\tick)ex\amp#),ex\y-(Float(ex\tick)ex\amp#),Float(ex\tick)ex\amp#2,Float(ex\tick)ex\amp#2,1 EndIf If ex\tick=4 And ex\ang=1 ;At 4 ticks, set off blast For n=1 To Rand(20,35) ex2.plosion=New plosion ex2\style=Blast ex2\x=ex\x+Rand(-4,4) ex2\y=ex\y+Rand(-4,4) ex2\ang=Rand(-10,10) ex2\amp=Rnd(0.2,0.7) ex2\tick=0 ex2\col=2 Next EndIf If ex\tick=30 And ex\ang=1 ;At 30 ticks, set off 2nd explosion, including streamers For n=1 To Rand(20,35) ex2.plosion=New plosion ex2\style=Burn ex2\x=ex\x+Rand(-4,4) ex2\y=ex\y+Rand(-4,4) ex2\ang=Rand(0,360) ex2\amp=Rnd(0,2) ex2\tick=0 ex2\col=3 Next For n=1 To Rand(4,6) ex2.plosion=New plosion ex2\style=Streamer ex2\x=ex\x+Rand(-4,4) ex2\y=ex\y+Rand(-4,4) ex2\ang=Rand(0,360) ex2\amp=Rnd(3,5) ex2\tick=0 ex2\col=4 Next ex2.plosion=New plosion ex2\x=ex\x ex2\y=ex\y ex2\col=0 ex2\style=ShockWave ex2\ang=2 ex2\amp=ex\amp+Rnd(0.5,1.5) ex2\tick=0 EndIf If ex\tick=140 kill=1 EndIf Case BlastFX col(ex\col,ex\tick) Oval ex\x-ex\tick/32,ex\y-ex\tick/32,ex\tick/16,ex\tick/16,1 ex\y=ex\y-Rand(0,2) ex\x=ex\x+Rand(-2,2) If ex\tick=140 Then kill=1 Case Blast col(ex\col,ex\tick) Oval ex\x-ex\tick/16,ex\y-ex\tick/16,ex\tick/8,ex\tick/8,1 ex\y=ex\y-(Cos(ex\ang)ex\amp) ex\x=ex\x+(Sin(ex\ang)ex\amp) If ex\ang<0 And Rand(0,3)=1 Then ex\ang=ex\ang-1 If ex\ang>0 And Rand(0,3)=1 Then ex\ang=ex\ang+1 If ex\tick=140 Then kill=1 If Rand(1,4)=1 ex2.plosion=New plosion ex2\x=ex\x ex2\y=ex\y+10 ex2\style=BlastFX ex2\col=5 ex2\tick=130 EndIf Case BurnFX col(ex\col,ex\tick) Oval ex\x-ex\tick/32,ex\y-ex\tick/32,ex\tick/16,ex\tick/16,1 ex\y=ex\y-Rand(0,2) ex\x=ex\x+Rand(-2,2) If ex\tick=140 Then kill=1 Case Burn col(ex\col,ex\tick) Oval ex\x-ex\tick/4,ex\y-ex\tick/4,ex\tick/2,ex\tick/2,1 ex\y=ex\y+(Cos(ex\ang)ex\amp) ex\x=ex\x+(Sin(ex\ang)ex\amp) ex\ang=ex\ang-((ex\ang-180)/80) If Rand(1,4)=1 ex2.plosion=New plosion ex2\x=ex\x ex2\y=ex\y+10 ex2\style=BurnFX ex2\col=6 ex2\tick=130 EndIf If ex\tick=140 Then kill=1 Case StreamerFX col(ex\col,ex\tick) Oval ex\x-ex\tick/32,ex\y-ex\tick/32,ex\tick/16,ex\tick/16,1 ex\y=ex\y-Rand(0,2) ex\x=ex\x+Rand(-2,2) If ex\tick=140 Then kill=1 Case Streamer col(ex\col,ex\tick) Oval ex\x-2,ex\y-2,4,4,1 ex\y=ex\y-(Cos(ex\ang)ex\amp) ex\x=ex\x+(Sin(ex\ang)ex\amp) If Rand(1,4)=1 ex2.plosion=New plosion ex2\x=ex\x-(Sin(ex\ang)(ex\amp4)) ex2\y=ex\y+(Cos(ex\ang)(ex\amp*4)) ex2\style=StreamerFX ex2\col=5 ex2\tick=130 EndIf If ex\tick=140 Then kill=1 End Select If kill=1 Then Delete ex.plosion Next End Function --v

Comments
Wednesday, 13 September 2006, 16:32
magicman	I click, and theres no explosion.
Tuesday, 19 September 2006, 18:42
magicman	got it to work, not sure what the problem was. its pretty cool, some what slow, but cool.
Monday, 30 October 2006, 12:18
shroom_monk	Yay!!! Kaboom!!! It looks pretty good, I like it. But as magicman said, it's a bit slow.
Wednesday, 27 December 2006, 18:21
mike_g	Hey this looks really nice A bit slow for games though

Comments