Нуждающийся
Регистрация: 11.01.2009
Сообщений: 56
Написано 10 полезных сообщений (для 29 пользователей)
|
Ответ: Эффекты из 2Д игр.
Недавно играл в "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
Последний раз редактировалось teremochek, 06.07.2010 в 17:12.
|