Şimdi Ara

Yerli Ve Milli Oyunumuz 'MeteorMan'

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
7
Cevap
0
Favori
993
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • 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.

    http://www.mediafire.com/file/chi024ubli8jica/MeteorMan.zip/file


    İyi eğlenceler dileriz.



  • Linux kullanıcıları Kaynak kod'dan derleyebilirler.
    Derlemek için gereksinimler: Yabasic 2.7 veya 2.8 ve ncurses veya curses paketleri.

    MeteorMan.yab
    #!/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"



    < Bu mesaj bu kişi tarafından değiştirildi K110 -- 2 Nisan 2020; 12:20:40 >




  • 200 satırlık oyun için oyun fabrikası?

    < Bu ileti mini sürüm kullanılarak atıldı >
  • Madem yerli ve milli.

    Neden

    Adem-i Şahap değil mesela adı ?
  • Birkaç fotoğraf eklesen hiç fena olmaz.

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • yerli ve milli kelimelerinden tiksindirdiniz vallahi
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.