[teremochek]

Недавно играл в "Ys 1&2 COMPLETE"
Увидел там эффект темноты с кругом света.
Захотелось сделать нечто подобное.
Конечно "ничего особенного",но вдруг каму пригодиться...

width=1248
height=1024
depth=0
Graphics width,height,depth
SetMaskColor(255,0,255) ' Newidimiy cwet
SetClsColor(255,255,255)


SetBlend(ALPHABLEND)
'SetBlend(LIGHTBLEND)
AutoMidHandle( enable )
AutoImageFlags( 1 )

image1=LoadImage("sprite/bmax120.png",1)
image2=LoadImage("sprite/ten.png",1)

While Not KeyHit(KEY_ESCAPE)

SetScale(5,5)
SetAlpha(1);DrawImage image1,300,300
SetScale(10,10)
MidHandleImage(image2)

SetAlpha(0.4+s#);SetScale(10,10);DrawImage image2,x,y
SetAlpha(0.4+s#);SetScale(11,11);DrawImage image2,x,y
SetAlpha(0.4+s#);SetScale(12,12);DrawImage image2,x,y
SetAlpha(0.4+s#);SetScale(13,13);DrawImage image2,x,y
SetAlpha(0.4+s#);SetScale(14,14);DrawImage image2,x,y
SetAlpha(0.4+s#);SetScale(15,15);DrawImage image2,x,y

SetAlpha(0.4+s#);SetScale(16,16);DrawImage image2,x,y
SetAlpha(0.5+s#);SetScale(17,17);DrawImage image2,x,y
SetAlpha(0.6+s#);SetScale(18,1;DrawImage image2,x,y
SetAlpha(0.7+s#);SetScale(19,19);DrawImage image2,x,y
SetAlpha(1) ;SetScale(30,30);DrawImage image2,x,y

If shadow=1;s#=s#-0.05;If s#<=0;shadow=0
If shadow=0;s#=s#+0.05;If s#>=0.2;shadow=1

If KeyDown(key_UP)=True; y=y-5
If KeyDown(key_DOWN)=True; y=y+5
If KeyDown(key_LEFT)=True; x=x-5
If KeyDown(key_RIGHT)=True; x=x+5


Flip(50)
Cls
Wend

http://teremochek2008.narod.ru/shadow_circle.rar