Nemo 'Animasyon' | DonanımHaber Forum

K110

Yüzbaşı

Konu Sahibi

2 yıl

0

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 >

Sonraki Mesaj

K110

Yüzbaşı

Konu Sahibi

2 yıl

0

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

Sonraki Mesaj

Buna gelen 1 yanıtı gör.

G

Guest-E41040413

Yarbay

2 yıl

0

koda bakinca ilk goze carpan anlamsiz variable isimleri. ayrica turkce kullanma bence.

Sonraki Mesaj

K110

Yüzbaşı

Konu Sahibi

2 yıl

0

İsimlendirme konusunda ilham perisi hiç yardımcım olmuyor. Ben de anlamsız bir şeyler uyduruyorum.

Sonraki Mesaj

Tuğkan-0153

Yarbay

2 yıl

0

Yabasic ve ncurses paketlerini kim yapmış acaba?

Bahsedilenler: @K110

< Bu ileti mini sürüm kullanılarak atıldı >

Eski kullanıcı adı: vonderplanitz

Sonraki Mesaj

Buna gelen 2 yanıtı gör.

K110

Yüzbaşı

Konu Sahibi

2 yıl

0

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.