thunder and lightning : effect tips

BlitzMax Forums/BlitzMax Beginners Area/thunder and lightning : effect tips

tonyg
 #1
Might be close to what you want...
Graphics 640,480
image:TImage=LoadImage("max.png")
While Not KeyHit(KEY_ESCAPE)
  Cls
  DrawImage image,0,0
  If MouseDown(1)
	  SetBlend lightblend
 	  SetAlpha 0.6
	  DrawRect 0,0,640,480
  	  SetBlend maskblend
      SetAlpha 1.0
  EndIf
Flip
Wend