REM 944BASIC 'rain (sprite)'

SETPAGE 2:JPEG "F1:\944BASIC\KALWRNS0.JPG",0,0
SPRITE 2,2,1,0,0,0,0,240,320
MAX=10 :REM 一度に表示する雨の数
DIM X(MAX) :表示開始位置(X)
DIM Y(MAX) :表示開始位置(Y)
DIM L(MAX) :雨の長さ

*LOOP
 FOR I=0 TO MAX
  SYNC
  X(I)=(RND+TIME)%80+(I%3)*80
  Y(I)=(RND+TIME)%300
  L(I)=(RND+TIME)%20+20

  COLORFG 128,128,128
  IF Y(I)+L(I)>320 THEN GOSUB *SPLASH
  LINE X(I),Y(I),X(I),Y(I)+INT(L(I)/2)
  LINE X(I),Y(I)+INT(L(I)/2),X(I),Y(I)+L(I)
  REFRESH 2,2,0,0,240,320
 NEXT I
GOTO *LOOP

*SPLASH
 COLORFG 128,128,128
 PSET X(I)-1,318: PSET X(I)-2,317
 PSET X(I)+1,318: PSET X(I)+2,317
 WAIT 1
 REFRESH 2,2,0,0,240,320
RETURN