Tamamen yerli ve milli imkânlarla Başakşehir de kurulu olan oyun fabrikamızda üretimine başladığımız yerli ve milli oyunumuz MeteorMan ilk olarak Donanım Haber okurlarının beğenisine sunulmuştur.
Tanıtım ve reklam amaçlı olarak Donanım Haber okurlarına tamamen ücretsizdir.
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"
< Bu mesaj bu kişi tarafından değiştirildi K110 -- 2 Nisan 2020; 12:20:40 >
Tanıtım ve reklam amaçlı olarak Donanım Haber okurlarına tamamen ücretsizdir.
http://www.mediafire.com/file/chi024ubli8jica/MeteorMan.zip/file
İyi eğlenceler dileriz.