in the meantine, here's all the code (I think);
Function shatter()
For ps.pic_shard = Each pic_shard
FreeImage ps\im:Delete ps
Next
img=CreateImage(GraphicsWidth(),GraphicsHeight() )
screen_splinter_im=LoadAnimImage(("images\splinter1.png"),128,128,0,4)
MaskImage screen_splinter_im,255,255,255
screen_splinter2_im=LoadAnimImage(("images\splinter2.png"),128,128,0,4)
MaskImage screen_splinter2_im,255,255,255
CopyRect 0,0,GraphicsWidth(),GraphicsHeight(),0,0,FrontBuffer(),ImageBuffer(img)
MaskImage img,255,0,0
Dim matrix(GraphicsWidth()/64,GraphicsHeight()/64)
shardsacross=(GraphicsWidth()/64)+1
shardsdown=(GraphicsHeight()/64)+1
For lp=1 To shardsacross*shardsdown
; a little bit of recursion here, shouldn't be too big a deal
Repeat
lpx=Rnd(1,shardsacross)-1
lpy=Rnd(1,shardsdown)-1
Until matrix(lpx,lpy)=0
matrix(lpx,lpy)=1
tmp=Rand(0,3)
ps.pic_shard=New pic_shard
ps\x=lpx*64
ps\y=lpy*64
ps\my=(Rnd(-2,0)+(lpy-5))*(Float(GraphicsHeight())/480)
ps\mx=(Rnd(-1,1)+(Float((lpx*2)-shardsacross)/shardsacross*5))*(Float(GraphicsWidth())/640)
ps\im=CreateImage(128,128)
CopyRect (lpx*64)-32,(lpy*64)-32,128,128,0,0,ImageBuffer(img),ImageBuffer(ps\im)
MaskImage ps\im,255,0,0
SetBuffer ImageBuffer(img)
DrawImage screen_splinter_im,(lpx*64)-32,(lpy*64)-32,tmp
SetBuffer ImageBuffer(ps\im)
DrawImage screen_splinter2_im,0,0,tmp
Color 255,0,0
If lpy=0 Then Rect 0,0,128,32,1
If lpy=shardsdown-1 Then Rect 0,96,128,32,1
Next
SetBuffer BackBuffer()
FreeImage img:FreeImage screen_splinter_im:FreeImage screen_splinter2_im
End Function
Function update_splinters()
For ps.pic_shard = Each pic_shard
ps\y=ps\y+ps\my:ps\my=ps\my+(0.6*(Float(GraphicsHeight())/480))
ps\x=ps\x+ps\mx
If ps\y>GraphicsHeight()+100 Or ps\x<-100 Or ps\x>GraphicsWidth()+100 Then FreeImage ps\im:Delete ps
Next
End Function
|
