Yerli Ve Milli Oyunumuz 'MeteorMan'

#!/usr/bin/env yabasic
# Dosya adı : MeteorMan.yab
# Yazar : K110
# Artistic lisans sözleşmesi :https://www.ncftp.com/ncftp/doc/LICENSE.txt

if peek$("os") = "unix" then
  if not (peek("isbound")) then
    bind "MeteorMan"
    system("chmod +x MeteorMan")
  endif
elsif peek$("os") = "windows" then
  if not (peek("isbound")) then
    bind "MeteorMan.exe"
  endif
endif

open window 500,500

backcolor 0,0,0
clear window
clear screen

yatay = 250
dikey = 250
alev = 2
oyun = 2

while (oyun > 0)
   oyun = oyun
   Bolum(oyun)
   //yatay = 250
   //dikey = 250
   for meteor=1 to 2
     gosub Meteor1
     gosub Meteor2
     gosub Meteor3
     gosub Meteor4
   next meteor
   oyun = oyun - 0.8
wend

goto Son

label Meteor1
y=1
z=int(ran(300))+100
for x = 250 to 750 step y
  color 32,24,0
  y=y
  z=z
  fill circle z,x,5+y
  if (y>8 and yatay<x and dikey>z and z>240 and x>240 and yatay>240 and dikey>240) gosub Patlama
  gosub Uzayli
  sleep oyun/10
  clear window
  y=y+y
  z=z+y
next x
return

label Meteor2
y=1
z=int(ran(300))+100
for x = 250 to -750 step -y
  color 32,8,0
  y=y
  z=z
  fill circle z,x,5+y
  if (y>8 and yatay>x and dikey<z and z<260 and x<260 and yatay<260 and dikey<260) gosub Patlama
  gosub Uzayli
  sleep oyun/10
  clear window
  y=y+y
  z=z-y
next x
return

label Meteor3 
y=1
z=int(ran(300)+100)
for x = 250 to 750 step y
  color 32,16,0
  y=y
  z=z
  fill circle x,z,5+y
  if (y>8 and yatay<x and dikey<z and x>240 and z<260 and yatay>240 and dikey<260) gosub Patlama
  gosub Uzayli
  sleep oyun/10
  clear window
  y=y+y
  z=z-y
next x
return

label Meteor4
y=1
z=int(ran(300)+100)
for x = 250 to -750 step -y
  color 32,4,0
  y=y
  z=z
  fill circle x,z,5+y
  if (y>8 and yatay>x and dikey>z and z>240 and x<260 and yatay<260 and dikey>240) gosub Patlama
  gosub Uzayli
  sleep oyun/10
  clear window
  y=y+y
  z=z+y
next x
return



label Uzayli
      color 200,200,0
      fill triangle yatay,dikey-10, yatay+30,dikey+5, yatay-30,dikey+5
      color 100,100,100
      fill circle yatay,dikey-10,10
      color 50,50,50
      fill circle yatay,dikey-15,5
      color 200,200,0
      fill circle yatay-10,dikey,10
      fill circle yatay+10,dikey,10
      color 255,0,0
      fill circle yatay-10,dikey,5
      fill circle yatay+10,dikey,5

      if alev > 14 then
        alev = 2
      endif
      
      alev = alev + 2
      color alev*10, 0, 0
      circle yatay-10,dikey, alev
      circle yatay+10,dikey, alev
      gosub Kay
return


label Kay
  a$=inkey$(0.001)
  if (dikey > 480) dikey = 480
  if (dikey < 20) dikey = 20
  if (yatay > 480) yatay = 480
  if (yatay < 20) yatay = 20
   
  if a$="left" then // "l" sola
    yatay=yatay-20
  elsif a$="right" then // "r" sağa
    yatay=yatay+20
  elsif a$="up" then // "u" yukarı
    dikey=dikey-20
  elsif a$="down" then // "d" aşağı
    dikey=dikey+20
  else
    yatay=yatay
    dikey=dikey
  endif
return

label Patlama
   for patlama = 0 to 100
     color 100+patlama,ran(50),0
     circle yatay,dikey,patlama
   next patlama

   for patlama = 0 to 100 step 2
     color 0,0,0
     circle yatay,dikey,patlama
   next patlama

   for patlama = 1 to 100 step 2
     color 0,0,0
     circle yatay,dikey,patlama
   next patlama
   //goto Son
return

sub Bolum(oyun)
   for y1 = 0 to 500 step int(ran(135))
     for y2 = 0 to 500 step int(ran(185))
        color 255,255,255
        dot y1,y2
     next y2
   next y1
   
   if oyun = 2 then
     numara = 1
   elsif oyun = 1.2 then
     numara = 2
   elsif oyun = 0.4
     numara = 3
   endif
   
   color 255,0,0
   text 200,200,"Meteor Man","9x15"
   color 0,0,255
   text 215,250,"LEVEL"+str$(numara),"9x15"
   sleep 2
end sub

label Son
  clear window
  color 255,255,0
  text 220,250, "S O N","9x15"