Şimdi Ara

Nemo 'Animasyon'

Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
11
Cevap
0
Favori
991
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Nemo bir zamanlar çok meşhur bir Holluwood yıldızı olan bir balık'tı.
    Zamanla kendisi yaşlanır ve de artık Balık kahramanların da modası geçer, ve
    Nemo özel hayatına geri çekilir. Manhattan'den kendisine lüx bir Akvaryum satın alır ve eski bir hayranı olan Nemissa adında bir başka Balık ile de evlenir. İki de Nimik ve Nimita isimli çocukları olur. Çocukların babaya hiç benzememesi bazen aile içinde gerginliklere sebep olur. Nimita'nın gizlice Akvaryum'a erkek arkadaşını getirdiğinin duyulması da aile içi anlaşmazlıkları iyice artırır. Peki daha sonra neler mi yaşanıyor ... ?

    http://www.mediafire.com/file/3gasms809tirgew/Nemo.zip/file



    < Bu mesaj bu kişi tarafından değiştirildi K110 -- 11 Mayıs 2020; 14:45:16 >



  • Linux ve Bsd kullanıcıları Animasyonu kaynak kod'dan kendileri derleyebilirler. Gereksinimler, Yabasic 2.76.5 veya üste ve ncurses yada curses paketleri.

    Mac kullanıcılarına da bir bardak soğuk su içmek düşer.

    #!/usr/bin env yabasic
    # Yabasic sürüm 2.78.0
    # Yazar : K110
    # Dosya : Nemo.yab
    # Olay : Akvaryum Animasyonu
    # Lisans: Artistic
    # Önsöz : Tüm, bu proje çalışmalarım esnasında beni destekleyen ve bana anlayış
    # gösteren, aileme, kedimize, köpeğimize, teşekkürlerimi sunarım.


    // Akvaryum ---------------------------------------------------------------------

    open window 960,600

    backcolor 170,160,250
    clear window

    // Akvaryum zemini --------------------------------------------------------------

    color 120,80,0
    fill rectangle 0,530,960,600
    for x = 0 to 960 step 5+ran(10)
    fill circle x,530,ran(5)
    next x
    color 70,70,70
    for x = 10 to 950 step 20+ran(20)
    fill circle x,540,5+ran(5)
    next x
    color 130,90,0
    fill rectangle 0,540,960,600
    for x = 0 to 960 step 5+ran(12)
    fill circle x,540,ran(6)
    next x
    color 90,90,90
    for x = 10 to 950 step 30+ran(20)
    fill circle x,555,6+ran(5)
    next x
    color 140,100,0
    fill rectangle 0,555,960,600
    for x = 0 to 960 step 5+ran(15)
    fill circle x,555,ran(7)
    next x
    color 100,100,100
    for x = 10 to 950 step 50+ran(30)
    fill circle x,580,10+ran(10)
    next x
    color 110,70,0
    fill rectangle 0,570,960,600
    for x = 0 to 960 step 10+ran(20)
    fill circle x,570,ran(8)
    next x
    color 100,60,0
    for x = 0 to 960 step 20+ran(10)
    fill circle x,580+ran15,ran(8)
    next x

    // Değişkenler ------------------- Değişkenler -------------------- Değişkenler

    Oynat=0
    y=0
    x=100
    my=0
    mx=0
    c=0
    d=0
    yy=700
    xx=0
    cx=0
    cy=0
    ny=840
    n=0
    oran=0.5
    buran=0.5
    suran=0.5
    neren=0.5
    kopuk1=520

    // Ana Program ****************** Ana Program ********************** Ana Program

    while(Oynat <> -100)
    Nimik()
    Nemo()
    Nemissa()
    Nimita()
    Kopuk()
    sleep 0.05
    clear fill rectangle 0,0,960,525
    wend


    // Nemo -------------- Nemo ---------------- Nemo ------------------------ Nemo

    Sub Nemo()

    Son=ran(300)
    Don=ran(50)
    goto Nemo1

    Label Ara2
    x=c
    y=d
    Son=ran(300)
    Don=ran(50)
    goto Nemo1

    Label Nemo1

    if x > 500+Son then
    goto Ara1
    endif

    if y > 200+Don then
    oran = -0.5
    elsif y < -50
    oran = 0.5
    endif
    y=y+oran
    x=x+2

    color 250,250,0
    fill triangle x+30,y+90, x+50,y+70, x+90,y+110
    fill triangle x+30,y+110, x+50,y+130, x+90,y+90
    fill triangle x+12,y+100, x+30,y+100, x+0,y+65
    fill triangle x+12,y+100, x+30,y+100, x+0,y+135
    color 210,210,0
    fill triangle x+12,y+100, x+30,y+100, x+12,y+83
    fill triangle x+12,y+100, x+30,y+100, x+12,y+117
    color 25,25,0
    fill triangle x+40,y+82, x+40,y+118, x+18,y+100
    fill circle x+40,y+100,15
    color 230,230,0
    fill circle x+50,y+100,20
    color 25,25,0
    fill circle x+60,y+100,25
    color 50,50,0
    fill circle x+50,y+100,18
    color 230,230,0
    fill circle x+70,y+100,25
    color 250,250,0
    fill circle x+60,y+100,18
    color 25,25,0
    fill circle x+80,y+100,20
    color 50,50,0
    fill circle x+70,y+100,15
    color 230,230,0
    fill circle x+90,y+100,15
    color 250,250,0
    fill circle x+85,y+100,10
    color 170,160,250
    fill triangle x+97,y+90, x+105,y+100, x+101,y+90
    fill triangle x+97,y+110, x+105,y+100, x+101,y+110
    color 0,0,0
    fill circle x+90,y+95,3
    line x+95,y+105, x+100,y+105
    color 200,200,0
    fill triangle x+62,y+99, x+45,y+85, x+50,y+99
    fill triangle x+62,y+101, x+45,y+115, x+50,y+101
    c=x
    d=y
    Return

    Label Ara1
    mx=c
    my=d
    Son=ran(300)
    Don=ran(50)
    x=800
    goto Nemo2

    Label Nemo2

    if mx < 6+Son then
    goto Ara2
    endif

    if my > 200+Don then
    oran = -0.5
    elsif my < -50
    oran = 0.5
    endif
    my=my+oran
    mx=mx-2
    color 250,250,0
    fill triangle mx+75,my+90, mx+55,my+70, mx+5,my+110
    fill triangle mx+75,my+110, mx+55,my+130, mx+5,my+90
    fill triangle mx+93,my+100, mx+75,my+100, mx+105,my+65
    fill triangle mx+93,my+100, mx+75,my+100, mx+105,my+135
    color 210,210,0
    fill triangle mx+93,my+100, mx+75,my+100, mx+93,my+83
    fill triangle mx+93,my+100, mx+75,my+100, mx+93,my+117
    color 25,25,0
    fill triangle mx+65,my+82, mx+65,my+118, mx+87,my+100
    fill circle mx+65,my+100,15
    color 230,230,0
    fill circle mx+55,my+100,20
    color 25,25,0
    fill circle mx+45,my+100,25
    color 50,50,0
    fill circle mx+55,my+100,18
    color 230,230,0
    fill circle mx+35,my+100,25
    color 250,250,0
    fill circle mx+45,my+100,18
    color 25,25,0
    fill circle mx+25,my+100,20
    color 50,50,0
    fill circle mx+35,my+100,15
    color 230,230,0
    fill circle mx+15,my+100,15
    color 250,250,0
    fill circle mx+20,my+100,10
    color 170,160,250
    fill triangle mx+6,my+90, mx+0,my+100, mx+2,my+90
    fill triangle mx+6,my+110, mx+0,my+100, mx+2,my+110
    color 0,0,0
    fill circle mx+15,my+95,3
    line mx+10,my+105, mx+5,my+105
    color 200,200,0
    fill triangle mx+43,my+99, mx+60,my+85, mx+55,my+99
    fill triangle mx+43,my+101, mx+60,my+115, mx+55,my+101
    c=mx
    d=my
    Return

    End Sub

    // Nemissa --------------- Nemissa --------------- Nemissa ------------- Nemissa

    Sub Nemissa()

    Sonra=ran(300)
    Daha=ran(50)
    goto Nemissa1

    Label Tekrar2
    xx=cx
    yy=cy
    Sonra=ran(300)
    Daha=ran(50)
    goto Nemissa1

    Label Nemissa1

    if yy<6+Sonra then
    goto Tekrar1
    endif

    if xx > 100+Daha then
    buran = -0.5
    elsif xx < -100
    buran = 0.5
    endif

    yy=yy-2
    xx=xx+buran

    color 250,250,0
    fill triangle yy+75,xx+190, yy+55,xx+170, yy+5,xx+210
    fill triangle yy+75,xx+210, yy+55,xx+230, yy+5,xx+190
    fill triangle yy+93,xx+200, yy+75,xx+200, yy+105,xx+165
    fill triangle yy+93,xx+200, yy+75,xx+200, yy+105,xx+235
    color 210,210,0
    fill triangle yy+93,xx+200, yy+75,xx+200, yy+93,xx+183
    fill triangle yy+93,xx+200, yy+75,xx+200, yy+93,xx+217
    color 25,25,0
    fill triangle yy+65,xx+182, yy+65,xx+218, yy+87,xx+200
    fill circle yy+65,xx+200,15
    color 230,230,0
    fill circle yy+55,xx+200,20
    color 25,25,0
    fill circle yy+45,xx+200,25
    color 50,50,0
    fill circle yy+55,xx+200,18
    color 230,230,0
    fill circle yy+35,xx+200,25
    color 250,250,0
    fill circle yy+45,xx+200,18
    color 25,25,0
    fill circle yy+25,xx+200,20
    color 50,50,0
    fill circle yy+35,xx+200,15
    color 230,230,0
    fill circle yy+15,xx+200,15
    color 250,250,0
    fill circle yy+20,xx+200,10
    color 170,160,250
    fill triangle yy+6,xx+190, yy+0,xx+200, yy+2,xx+190
    fill triangle yy+6,xx+210, yy+0,xx+200, yy+2,xx+210
    color 0,0,0
    fill circle yy+15,xx+195,3
    line yy+10,xx+205, yy+5,xx+205
    color 200,200,0
    fill triangle yy+43,xx+199, yy+60,xx+185, yy+55,xx+199
    fill triangle yy+43,xx+201, yy+60,xx+215, yy+55,xx+201
    cy=yy
    cx=xx
    Return

    Label Tekrar1
    cxx=cx
    cyy=cy
    Sonra=ran(300)
    Daha=ran(50)
    yy=6
    goto Nemissa2

    Label Nemissa2

    if cyy > 500+Sonra then
    goto Tekrar2
    endif

    if cxx > 100+Daha then
    buran = -0.5
    elsif cxx < -100
    buran = 0.5
    endif

    cyy=cyy+2
    cxx=cxx+buran

    color 250,250,0
    fill triangle cyy+30,cxx+190, cyy+50,cxx+170, cyy+90,cxx+210
    fill triangle cyy+30,cxx+210, cyy+50,cxx+230, cyy+90,cxx+190
    fill triangle cyy+12,cxx+200, cyy+30,cxx+200, cyy+0,cxx+165
    fill triangle cyy+12,cxx+200, cyy+30,cxx+200, cyy+0,cxx+235
    color 210,210,0
    fill triangle cyy+12,cxx+200, cyy+30,cxx+200, cyy+12,cxx+183
    fill triangle cyy+12,cxx+200, cyy+30,cxx+200, cyy+12,cxx+217
    color 25,25,0
    fill triangle cyy+40,cxx+182, cyy+40,cxx+218, cyy+18,cxx+200
    fill circle cyy+40,cxx+200,15
    color 230,230,0
    fill circle cyy+50,cxx+200,20
    color 25,25,0
    fill circle cyy+60,cxx+200,25
    color 50,50,0
    fill circle cyy+50,cxx+200,18
    color 230,230,0
    fill circle cyy+70,cxx+200,25
    color 250,250,0
    fill circle cyy+60,cxx+200,18
    color 25,25,0
    fill circle cyy+80,cxx+200,20
    color 50,50,0
    fill circle cyy+70,cxx+200,15
    color 230,230,0
    fill circle cyy+90,cxx+200,15
    color 250,250,0
    fill circle cyy+85,cxx+200,10
    color 170,160,250
    fill triangle cyy+97,cxx+190, cyy+105,cxx+200, cyy+101,cxx+190
    fill triangle cyy+97,cxx+210, cyy+105,cxx+200, cyy+101,cxx+210
    color 0,0,0
    fill circle cyy+90,cxx+195,3
    line cyy+95,cxx+205, cyy+100,cxx+205
    color 200,200,0
    fill triangle cyy+62,cxx+199, cyy+45,cxx+185, cyy+50,cxx+199
    fill triangle cyy+62,cxx+201, cyy+45,cxx+215, cyy+50,cxx+201
    cy=cyy
    cx=cxx
    Return

    End Sub

    // Nimik -------------- Nimik -------------------- Nimik ----------------- Nimik

    Sub Nimik()

    Sonradan=ran(300)
    Dondu=ran(50)
    goto Nimik1

    Label Arada2
    nx=cnx
    xy=axy
    Sonradan=ran(300)
    Dondu=ran(50)
    goto Nimik1

    Label Nimik1

    if nx > 500+Sonradan then
    goto Arada1
    endif
    if xy > 100+Dondu then
    suran = -0.5
    elsif xy < -150
    suran = 0.5
    endif

    xy=xy+suran
    nx=nx+2

    color 250,200,0
    fill triangle nx+70,xy+285, nx+70,xy+315, nx+88,xy+300
    fill triangle nx+20,xy+280, nx+50,xy+300, nx+32,xy+300
    fill triangle nx+20,xy+320, nx+50,xy+300, nx+32,xy+300
    fill triangle nx+40,xy+275, nx+50,xy+300, nx+55,xy+290
    fill triangle nx+40,xy+325, nx+50,xy+300, nx+55,xy+310
    color 220,80,0
    fill circle nx+60,xy+300,15
    color 250,90,0
    fill circle nx+50,xy+300,10
    color 220,80,0
    fill circle nx+65,xy+300,15
    color 250,90,0
    fill circle nx+55,xy+300,10
    fill triangle nx+56,xy+285, nx+56,xy+315, nx+35,xy+298
    fill triangle nx+56,xy+285, nx+56,xy+315, nx+35,xy+302
    color 220,180,0
    fill circle nx+72,xy+300,10
    color 250,200,0
    fill circle nx+68,xy+300,8
    fill triangle nx+55,xy+295, nx+55,xy+305, nx+60,xy+300
    color 0,0,0
    fill circle nx+77,xy+297,2
    color 250,90,0
    line nx+84,xy+300, nx+86,xy+300
    cnx=nx
    cxy=xy
    Return

    Label Arada1
    anx=cnx
    axy=cxy
    Sonradan=ran(300)
    Dondu=ran(50)
    nx=840
    goto Nimik2

    Label Nimik2

    if anx<8+Sonradan then
    goto Arada2
    endif

    if axy > 100+Dondu then
    suran = -0.5
    elsif axy < -150
    suran = 0.5
    endif

    axy=axy+suran
    anx=anx-2

    color 250,200,0
    fill triangle anx+38,axy+285, anx+38,axy+315, anx+20,axy+300
    fill triangle anx+88,axy+280, anx+58,axy+300, anx+76,axy+300
    fill triangle anx+88,axy+320, anx+58,axy+300, anx+76,axy+300
    fill triangle anx+68,axy+275, anx+58,axy+300, anx+53,axy+290
    fill triangle anx+68,axy+325, anx+58,axy+300, anx+53,axy+310
    color 220,80,0
    fill circle anx+48,axy+300,15
    color 250,90,0
    fill circle anx+48,axy+300,10
    color 220,80,0
    fill circle anx+43,axy+300,15
    color 250,90,0
    fill circle anx+53,axy+300,10
    fill triangle anx+52,axy+285, anx+52,axy+315, anx+73,axy+298
    fill triangle anx+52,axy+285, anx+52,axy+315, anx+73,axy+302
    color 220,180,0
    fill circle anx+36,axy+300,10
    color 250,200,0
    fill circle anx+40,axy+300,8
    fill triangle anx+53,axy+295, anx+53,axy+305, anx+48,axy+300
    color 0,0,0
    fill circle anx+31,axy+297,2
    color 250,90,0
    line anx+24,axy+300, anx+22,axy+300
    cnx=anx
    cxy=axy
    Return

    End Sub

    // Nimita ---------------- Nimita ----------------- Nimita --------------- Nimita

    Sub Nimita()

    DahaSonra=ran(300)
    Dahanereyekadar=ran(50)
    goto Nimita1

    Label Tekrarla2
    ny=cc
    n=nc
    DahaSonra=ran(300)
    Dahanereyekadar=ran(50)
    goto Nimita1

    Label Nimita1

    if ny<12+DahaSonra then
    goto Tekrarla1
    endif

    if n > 40+Dahanereyekadar then
    neren = -0.5
    elsif n < -250
    neren = 0.5
    endif

    ny=ny-2
    n=n+neren

    color 250,200,0
    fill triangle ny+38,n+385, ny+38,n+415, ny+20,n+400
    fill triangle ny+88,n+380, ny+58,n+400, ny+76,n+400
    fill triangle ny+88,n+420, ny+58,n+400, ny+76,n+400
    fill triangle ny+68,n+375, ny+58,n+400, ny+53,n+390
    fill triangle ny+68,n+425, ny+58,n+400, ny+53,n+410
    color 220,80,0
    fill circle ny+48,n+400,15
    color 250,90,0
    fill circle ny+48,n+400,10
    color 220,80,0
    fill circle ny+43,n+400,15
    color 250,90,0
    fill circle ny+53,n+400,10
    fill triangle ny+52,n+385, ny+52,n+415, ny+73,n+398
    fill triangle ny+52,n+385, ny+52,n+415, ny+73,n+402
    color 220,180,0
    fill circle ny+36,n+400,10
    color 250,200,0
    fill circle ny+40,n+400,8
    fill triangle ny+53,n+395, ny+53,n+405, ny+48,n+400
    color 0,0,0
    fill circle ny+31,n+397,2
    color 250,90,0
    line ny+24,n+400, ny+22,n+400
    cc=ny
    nc=n
    Return

    Label Tekrarla1
    bny=cc
    bn=nc
    DahaSonra=ran(300)
    Dahanereyekadar=ran(50)
    ny=8
    goto Nimita2

    Label Nimita2

    if bny > 500+DahaSonra then
    goto Tekrarla2
    endif
    if bn > 40+Dahanereyekadar then
    neren = -0.5
    elsif bn < -250
    neren = 0.5
    endif

    bny=bny+2
    bn=bn+neren

    color 250,200,0
    fill triangle bny+70,bn+385, bny+70,bn+415, bny+88,bn+400
    fill triangle bny+20,bn+380, bny+50,bn+400, bny+32,bn+400
    fill triangle bny+20,bn+420, bny+50,bn+400, bny+32,bn+400
    fill triangle bny+40,bn+375, bny+50,bn+400, bny+55,bn+390
    fill triangle bny+40,bn+425, bny+50,bn+400, bny+55,bn+410
    color 220,80,0
    fill circle bny+60,bn+400,15
    color 250,90,0
    fill circle bny+50,bn+400,10
    color 220,80,0
    fill circle bny+65,bn+400,15
    color 250,90,0
    fill circle bny+55,bn+400,10
    fill triangle bny+56,bn+385, bny+56,bn+415, bny+35,bn+398
    fill triangle bny+56,bn+385, bny+56,bn+415, bny+35,bn+402
    color 220,180,0
    fill circle bny+72,bn+400,10
    color 250,200,0
    fill circle bny+68,bn+400,8
    fill triangle bny+55,bn+395, bny+55,bn+405, bny+60,bn+400
    color 0,0,0
    fill circle bny+77,bn+397,2
    color 250,90,0
    line bny+84,bn+400, bny+86,bn+400
    cc=bny
    nc=bn
    Return

    End Sub

    // Kabarcıklar ................... Kabarcıklar .................... Kabarcıklar

    Sub Kopuk()

    Label Baloncuk1
    if kopuk1<100 kopuk1=520
    kopuk1=kopuk1-2
    color 250,250,250
    circle 200-ran(3),kopuk1-ran(3),4
    circle 260-ran(3),kopuk1-10-ran(3),4
    circle 230-ran(3),kopuk1-20-ran(3),4
    Return

    End Sub

  • koda bakinca ilk goze carpan anlamsiz variable isimleri. ayrica turkce kullanma bence.
  • İsimlendirme konusunda ilham perisi hiç yardımcım olmuyor. Ben de anlamsız bir şeyler uyduruyorum.
  • K110 kullanıcısına yanıt
    Yabasic ve ncurses paketlerini kim yapmış acaba?
  • quote:

    Orijinalden alıntı: Tuğkan-0153

    Yabasic ve ncurses paketlerini kim yapmış acaba?
    Yabasic'i Marc Oliver İhm adında bir mühendis yapmış 25 sene önce. O zamanlar programcılar bol bol kendi kodlarını yazarmış. İnternet'ten bul, kopyala yapıştır yokmuş. Hey gidi eski zamanlar, neydi? ne oldu? github çıktı, mertlik bozuldu.
  • K110 kullanıcısına yanıt
    github'ı kim yaptı?
  • Mac'te Yabasic derleniyor mu? denesene bi.
  • Mac'te derlenmeyen birşey yoktur. Compiler source tarball 'ını gönder 2dk 'da derlerim.
  • github'dan indir.
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.