Graphics 1024,768,32,0 Global Glo_X Global Glo_Y Global Image=LoadImage("Blend1.png") Global BG_Layer_List:TList=CreateList() Type BG_Layer Field Frame[120] Field X[120] Field Y[120] Field Blend[120] Field Speed[120] Field Rot#[120] Field Scale#[120] Function Create:BG_Layer() Temp:BG_layer=New BG_Layer For times=0 To 119 Temp.Frame[times]=Times Mod 1 Temp.x[times]=Rand(1000) Temp.y[times]=Rand(1000) Temp.rot[times]=Rand(360) Temp.Scale[times]=Rand(1/50) Temp.Blend[times]=Rand(1,3) Temp.Speed[times]=Rand(100/1000) Next ListAddLast BG_Layer_list,temp Return temp End Function Method Draw_Sprites() SetAlpha(.1) SetBlend(LIGHTBLEND) For times=41 To 89 SetColor(times+100,0,0) SetTransform(Rot[times],Scale[times],Scale[times]) DrawImage Image,x[times],y[times],0 Rot[times]:+Speed[times] Next 'SetBlend(SHADEBLEND) For times=0 To 40 'SetColor(0,times+150,0) SetTransform(Rot[times],Scale[times],Scale[times]) DrawImage Image,x[times],y[times],0 Rot[times]:+Speed[times] Next 'SetBlend(ALPHABLEND) For times=90 To 119 'SetColor(0,0,times+100) SetTransform(Rot[times],Scale[times],Scale[times]) DrawImage Image,x[times],y[times],0 Rot[times]:+Speed[times] Next End Method End Type BG_COLL:BG_layer=BG_Layer.create() While Not KeyHit(KEY_ESCAPE) BG_COLL.Draw_Sprites() FlushMem;Flip Cls Wend
Some Hacked up code when working with particals
You Can add layers like that over you detail back ground just some blending concepts replace blend1.png with a alpha image of you choice maybe 400*400
Smoke and cloud images prolly work best