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

Code: Select all

REM Fountain efx
REM iPhone 6 Plus / iOS 10 beta 10
REM enjoy..

GRAPHICS
sw=SCREEN_WIDTH()
sh=SCREEN_HEIGHT()


Fountain:


maxdrops = RND(300)+10
gravity = -(RND(1)/10) 

xcenter  = sw/2
ycenter = sh/2

DIM x(maxdrops+1)
DIM y(maxdrops+1)
DIM vx(maxdrops+1)
DIM vy(maxdrops+1)
DIM t(maxdrops+1)
DIM col(maxdrops+1)

REM Init drops
FOR i=1 TO maxdrops
 x(i) = xcenter+RND(10)-5
 y(i) = ycenter+RND(10)-5
 vx(i) = RND(6)-3
 vy(i) = RND(8)
 t(i) = -RND(100) 
 col(i) = RND(255)
NEXT i


LOOP:
REFRESH OFF
GRAPHICS CLEAR 0,0,0
 FILL CIRCLE sw/2,sh/2 SIZE 5
 FOR i=1 TO maxdrops
  t(i) = t(i) + 1
  IF t(i) > 10000 THEN t(i)=0 
  
  IF t(i) > 0 THEN 
   x(i) = x(i) + vx(i)
   y(i) = y(i) + (vy(i) + (gravity*t(i)*t(i)))/2
   IF y(i) < 0 THEN 
    x(i) = xcenter+RND(10)-5
    y(i) = ycenter+RND(10)-5
    vx(i) = RND(6)-3
    vy(i) = RND(20)
    t(i) =  0
   END IF
   FILL COLOR (200+(ycenter-y(i)))/255,col(i)/255,(200-(xcenter-x(i)))/255
   FILL CIRCLE x(i),y(i) SIZE RND(1)+1
  END IF
 NEXT i
REFRESH ON
GOTO LOOP