Support Forum / Форум поддержки

Code: Select all

REM
REM Particle Explosion v1.0
REM 

'screen area
sw = SCREEN_WIDTH()
sh = SCREEN_HEIGHT()
csw = sw/2
csh = sh/2

particles=100 'number of particles 
force=10 'brutal explosion!
ex=0 'x origin FOR blast
ey=0 'y origin FOR blast
aSET=0 'leave alone
DIM x(particles+1),y(particles+1),xd(particles+1),yd(particles+1)
GRAPHICS

LOOP:
REFRESH OFF
GRAPHICS CLEAR 0,0,0
'IF no explosion on screen set random co-ords
IF aSET=0 THEN 
    ex=RND(sw)
    ey=RND(sh)
END IF 
GOSUB explode
REFRESH ON
GOTO LOOP

explode:
rf=0
IF aSET=0 THEN
    rf=1
    aSET=255
    FOR a=1 TO particles
        x(a)=ex
        y(a)=ey
        xd(a)=-force+RND(force*2)
        yd(a)=-force+RND(force*2)
    NEXT a
END IF 

IF rf=1 THEN 
    RETURN 
END IF 
aSET=aSET-10 ' explosion timing
IF aSET<0 THEN
    aSET=0
END IF 
FOR a=1 TO particles
    FILL COLOR (aSET*a)/255,SET/255,SET/255 ' white to red fade
    FILL RECT x(a)-1,y(a)-1 TO x(a)+RND(5),y(a)+RND(5)
    x(a)=x(a)+xd(a)
    y(a)=y(a)+yd(a)
NEXT a
RETURN