K

Yüzbaşı
28 Aralık 2019
Tarihinde Katıldı
Takip Ettikleri
0 üye
Görüntülenme (?)
130 (Bu ay: 0)
Gönderiler Hakkında
K
3 hafta
CHP Çöküyor mu?
Bazı Milletvekil'lerinin istifasından sonra akla gelen ilk soru.

Bence Kemalist'ler Kemal Kılıçdaroğlu ile CHP de kalırlar.
Mustafa'cılar Mustafa Sarıgül'e katılmak için istifa edebilirler.
Atatürk'çüler de Muharrem İnce'nin meleketim hareketine katılmak üzere yollarını ayırırlar.
Geriye Özgürlükçüler kalıyor. Onlar da Özgür Özer nereye giderse, onun peşinden giderler.

Siz ne düşünüyorsunuz?
K
10 ay
Nemo "Animasyon"
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
K
10 ay
Karun'un Hazinesi (PC Oyunu)
Karun çok zengin bir Kral, ve değerli Hazinesini yağmacılardan korumak için birden fazla yere bölerek saklar. Hazine avcılarını yanıltmak için de sahte gömüler hazırlatır. Gerçek hazineyi bulabilmek için sınırlı gücün var. Ve tüm gücünü yitirmeden önce tüm Hazineyi bulabilmeslisin.

http://www.mediafire.com/file/9uqv0uaqcddf5mw/Karunun_Hazinesi.zip/file
K
11 ay
Yerli Ve Milli Oyunumuz "MeteorMan"
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.
K
12 ay
Milyar Dolarlık Oyun Algoritması
Yerli ve Milli oyunumuz "Las Vegas"ın DH okurlarına özel, ücretsiz, kayıtsız ve key'siz sürümünü sizlerle paylaşmak istiyorum.

Oyun içeriği: Casino'lar da kullanılan ve tek kollu cnavar olarak bilinen, Jeton'lu kumar makinalarından esinlenilmiş bir şans oyunu. Oyuncunun toplam 100 $ kredisi var ve istediği miktarda (1 ile 9 $ arası) bahis yatırabiliyor. Üç top aynı renkte gelirse, yatırdığı miktarın 33 katını kazanıyor. Diğer durumlarda hep kaybediyor.

http://www.mediafire.com/file/rxjmcvbzb95iw92/Las_Vegas.exe.zip/file

Virüs raporu: The linkhttp://www.mediafire.com/file/rxjmcvbzb95iw92/Las_Vegas.exe.zip/file is safe according to the reputation data of Kaspersky

Kaynak Kod:
#!/usr/bin/env yabasic
# Las_Vegas.yab
# Yazar: K110
# Artistic lisans sözleşmesi :https://www.ncftp.com/ncftp/doc/LICENSE.txt

// Derleme koşulları

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

// Oyun Pencersi

open window 500,500

// Diziler

dim renkler$(14)
dim rakam$(14)

// Değişkenler

Dolar=100
Bahis=0
Bahis$="Bahis Girin"
Sistem$=peek$("os")

if Sistem$ = "windows" then
Font$="swiss20"
elsif Sistem$ = "unix" then
Font$ = "9x15"
endif

renk1$="255,0,0" // Kırmızı
renk2$="0,255,0" // Yeşil
renk3$="0,0,255" // Lacivert
renk4$="0,205,205" // Mavi
renk5$="255,255,0" // Sarı
renk6$="255,0,255" // Pembe
renk7$="90,34,0" // Kahve rengi
renk8$="255,127,0" // Turunju
renk9$="90,0,90" // Mor
renk10$="127,127,127" // Gri
renk11$="255,255,255" // Beyaz
renk12$="32,64,127" // Donuk Lacivert
renk13$="30,60,110" // Derin Lacivert
renk14$="0,64,0" // Koyu Yeşil
renk15$="0,0,0" // Siyah

renkler$(0)=renk1$
renkler$(1)=renk2$
renkler$(2)=renk3$
renkler$(3)=renk4$
renkler$(4)=renk5$
renkler$(5)=renk6$
renkler$(6)=renk7$
renkler$(7)=renk8$
renkler$(8)=renk9$
renkler$(9)=renk10$
renkler$(10)=renk11$
renkler$(11)=renk12$
renkler$(12)=renk13$
renkler$(13)=renk14$
renkler$(14)=renk15$

rakam$(0)="1"
rakam$(1)="2"
rakam$(2)="3"
rakam$(3)="4"
rakam$(4)="5"
rakam$(5)="6"
rakam$(6)="7"
rakam$(7)="8"
rakam$(8)="9"
rakam$(9)="10"
rakam$(10)="11"
rakam$(11)="12"
rakam$(12)="13"
rakam$(13)="14"
rakam$(14)="15"

// Oyun Sahası

backcolor renkler$(11)
clear window
clear screen

color renkler$(10)
text 250,90,"L a s V e g a s",Font$,"cc"

color renkler$(12)
fill circle 100,250,60
fill circle 250,250,60
fill circle 400,250,60

color renkler$(13)
fill circle 100,250,52
fill circle 250,250,52
fill circle 400,250,52

// Oyun İşlemleri

while(Dolar > 0)

for x = 0 to 14
gosub SansTopu1
gosub SansTopu2
gosub SansTopu3
sleep 0.1
if x = 14 then
if numaram1 = numaram2 and numaram1 = numaram3 then
Bahis = Bahis * 33
Dolar = Dolar + Bahis
else
Dolar = Dolar - Bahis
endif
Dolar = Dolar
gosub SansiniDene
endif
next x
inkey$

wend

// Alt Yordamlar

label SansTopu1
numaram1=int(ran(9))
color renkler$(numaram1)
fill circle 100,250,50
color renkler$(10)
text 100,250,rakam$(x),Font$,"cc"
sleep 0.1
return

label SansTopu2
numaram2=int(ran(9))
color renkler$(numaram2)
fill circle 250,250,50
color renkler$(10)
text 250,250,rakam$(x),Font$,"cc"
sleep 0.1
return

label SansTopu3
numaram3=int(ran(9))
color renkler$(numaram3)
fill circle 400,250,50
color renkler$(10)
text 400,250,rakam$(x),Font$,"cc"
sleep 0.1
return

label SansiniDene
gosub Param
gosub Bahisler
gosub Gir
return

label Param
color renkler$(11)
fill rectangle 100,50,400,100
color renkler$(10)
text 250,90,"Toplam paraniz "+str$(Dolar)+" $",Font$,"cc"
return

label Bahisler
color renkler$(11)
fill rectangle 200,380,300,425
color renkler$(10)
text 250,410,Bahis$,Font$,"cc"
fill rectangle 190,425,310,450
return

label Gir
if Dolar = 0 then
gosub Son
endif
color renkler$(14)
Gir$=inkey$
if Gir$ = "1" then
Bahis = 1
elsif Gir$ = "2" then
Bahis = 2
elsif Gir$ = "3" then
Bahis = 3
elsif Gir$ = "4" then
Bashis = 4
elseif Gir$ = "5" then
Bahis = 5
elsif Gir$ = "6" then
Bahis = 6
elsif Gir$ = "7" then
Bahis = 7
elsif Gir$ = "8" then
Bahis = 8
elsif Gir$ = "9" then
Bahis = 9
else
gosub Hata1
endif
sleep 0.1
if Bahis > Dolar then
gosub Hata2
endif
sleep 0.1
text 250,440,Gir$+" $",Font$,"cc"
return

label Hata1
color renkler$(0)
text 250,440,"1 - 9 RAKAM",Font$,"cc"
sleep 2
color renkler$(10)
fill rectangle 190,425,310,450
gosub Gir
return

label Hata2
color renkler$(0)
text 250,440,"Son "+str$(Dolar)+" $ Kaldi",Font$,"cc"
sleep 2
color renkler$(10)
fill rectangle 190,425,310,450
gosub Gir
return

label Son
clear window
color renkler$(10)
text 250,250,"Oyun Sonlandi","cc"
return
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.