explosion.CB

InitSparks:

Type SPARKS
    Field x As Float
    Field y As Float
    Field v As Float
    Field a As Float
    Field f As Float
    Field s As Float
EndType

Return

CalcSparks:

If isku2<>wisku2 Then
    Explosion(Rand(sw),Rand(sh))
    c# = 255
Else
    c# = smooth(0,c,20)
EndIf 

For spark.SPARKS = Each SPARKS
    spark\x = spark\x + Cos(spark\a)*spark\v
    spark\y = spark\y - Sin(spark\a)*spark\v
    If spark\s>0 Then spark\s = spark\s - 0.5
    If spark\x<0 Or spark\x>sw Then del_spark = 1
    If (spark\y<0 Or spark\y>sh) Or del_spark Then 
        Delete spark
        del_spark = 0
    EndIf
Next spark

Return

DrawSparks:
cbeSetBlendMode(CBE_BLEND_ADDITIVE)
For spark.SPARKS = Each SPARKS
    'For w# = 1 To RoundUp(Sqrt(swra#^2+shra#^2))
    '    Line spark\x+w,spark\y+w, spark\x+Cos(spark\a)*24+w,spark\y-Sin(spark\a)*24+w
    'Next w#
    cbeColor(0,c#,255,50)
    Box spark\x-spark\s/2, spark\y-spark\s/2, spark\s*swra, spark\s*shra
    'sc = 1 + (s / 100)
    'cbeTriangle(spark\x + 14 * Cos(runTime) * swra, spark\y, spark\x + 16 * sc * swra, spark\y + 6 * sc + 10 * Sin(runTime) * shra, spark\x - 8 * sc * swra, spark\y + 13 * sc * shra, 2, ON)    
Next spark

Return

Function Explosion(x,y)
    For i = 0 To 359
        spark.SPARKS = New(SPARKS)
        spark\x = x
        spark\y = y
        spark\v = Rnd(0.5,3)
        spark\a = i
        spark\s = 96
    Next i
EndFunction