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

Code: Select all

rem Raining Hard
rem iPhone 6 Plus / 8.3
rem I modified my dads fountian code. :)
rem it needs sound...

gosub initialize


loop:
  refresh off
  graphics clear fl/255,fl/255,fl/255

  if fl>0 then fl=max(0,fl-10)
  if fl=0 and int(rnd(100))=1 then fl=int(rnd(100)+155)

  gosub drawrain
  gosub drawsplashes
refresh on
goto loop


drawsplashes:
 for a=1 to numsplash
  if splashy(a)>sh then goto skipsplash
   fill color 200/255,200/255,200/255
   x=splashx(a) ! y=splashy(a)
   fill rect x,y to x+2,y+2

   splashy(a)=splashy(a)+splashyv(a)
   splashx(a)=splashx(a)+splashxv(a)

   splashyv(a)=splashyv(a)+0.4
  skipsplash:
 next a
return

addsplash:
 found=0!b=0
 do
  b=b+1
  if splashy(b)>sh then found=1
 until found=1 or b=numsplash

 if found=0 then return
 splashy(b)=sh-10
 splashyv(b)=-int(rnd(4)+3)
 splashx(b)=x
return

drawrain:
 for a=1 to numrain
  x=rainx(a) ! y=rainy(a) ! s=rains(a)
  b1=br1(s)/255 ! b2=br2(s)/255 ! b3=br3(s)/255
  s1=sr1(s)  ! s2=sr2(s)  ! s3=sr3(s)
  draw color b1,b1,b1 ! draw line x,y-s1 to x,y+s1
  draw color b2,b2,b2 ! draw line x,y-s2 to x,y+s2
  draw color b3,b3,b3 ! draw line x,y-s3 to x,y+s3
  y=y+6*rains(a)
  if y<sh-10 then goto skiprain
  rainx(a)=int(rnd(sw))
  y=-50
  gosub addsplash
  gosub addsplash

  skiprain:
  rainy(a)=y
 next a
return

initialize:
 graphics
 sw=screen_width()
 sh=screen_height()
 pi=3.1415
 dim co(361),si(361)
 for a=0 to 360
  co(a)=cos(a*(pi/180))
  si(a)=sin(a*(pi/180))
 next a

 numrain=50
 dim rainx(numrain+1),rainy(numrain+1),rains(numrain+1)
 for a=1 to numrain
  rainx(a)=int(rnd(sw))
  rainy(a)=int(rnd(sh))
  rains(a)=(a%3)+2
 next a

 numsplash=40
 dim splashx(numsplash+1),splashy(numsplash+1)
 dim splashxv(numsplash+1),splashyv(numsplash+1)
 for a=1 to numsplash
  splashxv(a)=int(rnd(6))-3
  splashy(a)=sh
 next a

 dim br1(5),br2(5),br3(5),sr1(5),sr2(5),sr3(5)
 for a=1 to 4
  br1(a)=a*25
  br2(a)=a*30
  br3(a)=a*50
  sr1(a)=a*10
  sr2(a)=a*8
  sr3(a)=a*5
 next a

return