IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




10Beğeni(ler)
  • 5 Post By YouMyCure
  • 4 Post By Feragat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Kasım 2015, 17:13   #1
Çevrimiçi

-- Sponsor Baglantı --


selam arkadaşlar bilindiği üzere rus ruleti oyunu tcl olarak irc sunucularında oynanabiliyor bu oyunu işine yarayacak arkadaşlar için mirc e döktük

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { mkdir rulet if !$read(rulet/cekme.txt) { write rulet/cekme.txt hizlica tetigi ceker... write rulet/cekme.txt titreyerek elini tetige goturur ve silayi yavasca sakagina dayar.... write rulet/cekme.txt tetigi cekerken, yuzunde soguk ve sakin gulumseme belirir.... write rulet/cekme.txt tabancayi agzina sokar.... write rulet/cekme.txt tabancayi kaslarinin arasina yerlestirir ve sessizce dua eder... write rulet/cekme.txt yavasca silahi kaldirir ve cenesinin altina sabitler.... echo -s 2* Çekme Aliasları Tekrar Yüklendi..... } else { echo -s 2* Çekme Aliasları Yüklendi..... } if !$read(rulet/sans.txt) { write rulet/sans.txt ...klik......Oops..bu silahi doldurmayi mi unuttum ? write rulet/sans.txt ....klik....Bu sansin daha fazla surmeyecek hahaha write rulet/sans.txt .klik........Gelecek sefere kursun ile bir randevun olacak hahaha write rulet/sans.txt .klik....... Seni sansli budala write rulet/sans.txt ......klik....Sanslisin o kursun calismadi...Ping silaha yeni kursun doldurur write rulet/sans.txt ....klik.....Bahse varim sen lotoda da bu kadar sansliydin write rulet/sans.txt ....klik......Cevir ya da ates et umursamiyorum, eger kazanirsan seni kendi ellerimle oldururum write rulet/sans.txt .....klik.....iyi oldugunu saniyorsun.....birdahaki sefere karsina cikmaya curet ediyorum write rulet/sans.txt ....klik......Eger senin gibi bi kafam olsaydi kaybedene kadar devam ederdim write rulet/sans.txt .....klik......Boyle cirkin biri nasil bu kadar sansli olabilir write rulet/kayp.txt kaşlarının ortasına domdom kurşunu değdi :D echo -s 2* Şans Aliasları Tekrar Yüklendi..... } else { echo -s 2* Şans Aliasları Yüklendi..... } if !$read(rulet/sans.txt) { write rulet/kayp.txt aha gafası yarıldı :d write rulet/kayp.txt HeadShoooot echo -s 2* Kayp Aliasları Tekrar Yüklendi..... } else { echo -s 2* Kayp Aliasları Yüklendi..... } unset %sira %r1 %r2 %x hmake puanlar | hload -sbi puanlar puanlar.hash } alias _puan return 1 on *:text:*:#: { if $1 == !rulet { if %r1 || %r2 { msg $chan Şuan %r1 nicki %r2 nicki ile rulet oynuyor.... | return } if !$2 { msg $chan $nick Hatalı Kullanım; Nick Belirtmediniz... "!rulet YouMyCure" | return } if $2 == $me { msg $chan Benimle Rulet Oynayamazsın $nick | return } if $2 == $nick { msg $chan Kendinle Rulet Oynayamazsın $nick | return } if $2 ison $chan { set %r1 $nick set %r2 $2 notice $nick $2 nickine rulet isteğiniz gitmiştir bekleyiniz... notice $2 $nick size rulet isteği gönderdi kabul ediyorsanız !kabul , etmiyorsanız !tavuk yazınız. } else { msg $chan $nick Hatalı Kullanım; $2 Nicki Şuan Kanalda Bulunmuyor.... } } if $1 == !kabul { if $nick == %r2 { msg $chan Meydan okuma kabul edildi msg $chan %r1 << once basliyor. !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir set %sira %r1 } else { msg $chan $nick Size Bir Meydan Okuma Yok...... } } if $1 == !tavuk { if $nick == %r2 { msg $chan $nick Muhtemelen tavuk gibi korktu. unset %sira %r1 %r2 %x } else { msg $chan $nick Size Bir Meydan Okuma Yok...... } } if $1 == !vur { if $nick == %sira { msg $chan $nick $read(rulet/cekme.txt) set -s %x $r(0,30) if $istok(5 10 15 17 20 27 25 8 14 29 30,%x,32) { msg $chan %sira ta ta ta öldün çıq timerCIQ 1 2 /kick $chan %sira $read(rulet/kayp.txt) if !$hget(puanlar) { hmake puanlar 100 } if %sira == %r1 { /a %r2 } | else { /a %r1 } elseif %sira == %r2 { /a %r1 } | else { /a %r2 } unset %sira %r1 %r2 %x } else { msg $chan $read(rulet/sans.txt) if %sira == %r1 { set %sira %r2 } | else { set %sira %r1 } elseif %sira == %r2 { set %sira %r1 } | else { set %sira %r2 } msg $chan sıra >> %sira da. !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir. } } else { msg $chan $nick Sıra Sizde Değil... } } if $1 == !cevir { if $nick == %sira { if %sira == %r1 { set %sira %r2 } | else { set %sira %r1 } elseif %sira == %r2 { set %sira %r1 } | else { set %sira %r2 } msg $chan $nick Sırasını Devretti Sıra Sende >> %sira . !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir. } else { msg $chan $nick Sıra Sizde Değil... } } } alias a { hinc -s puanlar $1 $_puan hsave -i puanlar puanlar.hash } on *:text:*:?: { if $1 == !puan { msg $nick Kazanma Sayınız; $hget(puanlar,$nick) } if $1 == !puanlar { play $nick puanlar.hash 1 } }

Kaynak;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kodun Amacı; Oyun Botu Çevirisi
Yazılış Amacı; Can Sıkıntısı
Kod Hakkında; Kaynaktaki tcl nin mirc e dökülmüş halidir.
!rulet karşınızdaki kişiye rulet isteği sunar
!kabul rulet isteği sunulan kişi tarafından kullanılır istegi kabul eder
!tavuk rulet isteği sunulan kişi tarafından kullanılır istegi red eder
!vur oyun başladıktan sonra tabancayı sıkmak için kullanılır
!cevir sıranızı savmak için kullanılır
selam arkadaşlar bilindiği üzere rus ruleti oyunu tcl olarak irc sunucularında oynanabiliyor bu oyunu işine yarayacak arkadaşlar için mirc e döktük

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { mkdir rulet if !$read(rulet/cekme.txt) { write rulet/cekme.txt hizlica tetigi ceker... write rulet/cekme.txt titreyerek elini tetige goturur ve silayi yavasca sakagina dayar.... write rulet/cekme.txt tetigi cekerken, yuzunde soguk ve sakin gulumseme belirir.... write rulet/cekme.txt tabancayi agzina sokar.... write rulet/cekme.txt tabancayi kaslarinin arasina yerlestirir ve sessizce dua eder... write rulet/cekme.txt yavasca silahi kaldirir ve cenesinin altina sabitler.... echo -s 2* Çekme Aliasları Tekrar Yüklendi..... } else { echo -s 2* Çekme Aliasları Yüklendi..... } if !$read(rulet/sans.txt) { write rulet/sans.txt ...klik......Oops..bu silahi doldurmayi mi unuttum ? write rulet/sans.txt ....klik....Bu sansin daha fazla surmeyecek hahaha write rulet/sans.txt .klik........Gelecek sefere kursun ile bir randevun olacak hahaha write rulet/sans.txt .klik....... Seni sansli budala write rulet/sans.txt ......klik....Sanslisin o kursun calismadi...Ping silaha yeni kursun doldurur write rulet/sans.txt ....klik.....Bahse varim sen lotoda da bu kadar sansliydin write rulet/sans.txt ....klik......Cevir ya da ates et umursamiyorum, eger kazanirsan seni kendi ellerimle oldururum write rulet/sans.txt .....klik.....iyi oldugunu saniyorsun.....birdahaki sefere karsina cikmaya curet ediyorum write rulet/sans.txt ....klik......Eger senin gibi bi kafam olsaydi kaybedene kadar devam ederdim write rulet/sans.txt .....klik......Boyle cirkin biri nasil bu kadar sansli olabilir write rulet/kayp.txt kaşlarının ortasına domdom kurşunu değdi :D echo -s 2* Şans Aliasları Tekrar Yüklendi..... } else { echo -s 2* Şans Aliasları Yüklendi..... } if !$read(rulet/sans.txt) { write rulet/kayp.txt aha gafası yarıldı :d write rulet/kayp.txt HeadShoooot echo -s 2* Kayp Aliasları Tekrar Yüklendi..... } else { echo -s 2* Kayp Aliasları Yüklendi..... } unset %sira %r1 %r2 %x hmake puanlar | hload -sbi puanlar puanlar.hash } alias _puan return 1 on *:text:*:#: { if $1 == !rulet { if %r1 || %r2 { msg $chan Şuan %r1 nicki %r2 nicki ile rulet oynuyor.... | return } if !$2 { msg $chan $nick Hatalı Kullanım; Nick Belirtmediniz... "!rulet YouMyCure" | return } if $2 == $me { msg $chan Benimle Rulet Oynayamazsın $nick | return } if $2 == $nick { msg $chan Kendinle Rulet Oynayamazsın $nick | return } if $2 ison $chan { set %r1 $nick set %r2 $2 notice $nick $2 nickine rulet isteğiniz gitmiştir bekleyiniz... notice $2 $nick size rulet isteği gönderdi kabul ediyorsanız !kabul , etmiyorsanız !tavuk yazınız. } else { msg $chan $nick Hatalı Kullanım; $2 Nicki Şuan Kanalda Bulunmuyor.... } } if $1 == !kabul { if $nick == %r2 { msg $chan Meydan okuma kabul edildi msg $chan %r1 << once basliyor. !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir set %sira %r1 } else { msg $chan $nick Size Bir Meydan Okuma Yok...... } } if $1 == !tavuk { if $nick == %r2 { msg $chan $nick Muhtemelen tavuk gibi korktu. unset %sira %r1 %r2 %x } else { msg $chan $nick Size Bir Meydan Okuma Yok...... } } if $1 == !vur { if $nick == %sira { msg $chan $nick $read(rulet/cekme.txt) set -s %x $r(0,30) if $istok(5 10 15 17 20 27 25 8 14 29 30,%x,32) { msg $chan %sira ta ta ta öldün çıq timerCIQ 1 2 /kick $chan %sira $read(rulet/kayp.txt) if !$hget(puanlar) { hmake puanlar 100 } if %sira == %r1 { /a %r2 } | else { /a %r1 } elseif %sira == %r2 { /a %r1 } | else { /a %r2 } unset %sira %r1 %r2 %x } else { msg $chan $read(rulet/sans.txt) if %sira == %r1 { set %sira %r2 } | else { set %sira %r1 } elseif %sira == %r2 { set %sira %r1 } | else { set %sira %r2 } msg $chan sıra >> %sira da. !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir. } } else { msg $chan $nick Sıra Sizde Değil... } } if $1 == !cevir { if $nick == %sira { if %sira == %r1 { set %sira %r2 } | else { set %sira %r1 } elseif %sira == %r2 { set %sira %r1 } | else { set %sira %r2 } msg $chan $nick Sırasını Devretti Sıra Sende >> %sira . !vur tetigi ceker, !cevir tetigi cekmeden once tabancayi cevirir. } else { msg $chan $nick Sıra Sizde Değil... } } } alias a { hinc -s puanlar $1 $_puan hsave -i puanlar puanlar.hash } on *:text:*:?: { if $1 == !puan { msg $nick Kazanma Sayınız; $hget(puanlar,$nick) } if $1 == !puanlar { play $nick puanlar.hash 1 } }

Kaynak;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kodun Amacı; Oyun Botu Çevirisi
Yazılış Amacı; Can Sıkıntısı
Kod Hakkında; Kaynaktaki tcl nin mirc e dökülmüş halidir.
!rulet karşınızdaki kişiye rulet isteği sunar
!kabul rulet isteği sunulan kişi tarafından kullanılır istegi kabul eder
!tavuk rulet isteği sunulan kişi tarafından kullanılır istegi red eder
!vur oyun başladıktan sonra tabancayı sıkmak için kullanılır
!cevir sıranızı savmak için kullanılır
__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına

Konu Feragat tarafından (02 Kasım 2015 Saat 11:20 ) değiştirilmiştir. Sebep: Birleştirildi.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 02 Kasım 2015, 10:26   #2
Çevrimdışı
Cevap: Rus Ruleti Oyunu mIRC Çevirisi.




Başarılar.

__________________
Tell me. Do you bleed? You will..!
  Alıntı ile Cevapla

Cevapla

Etiketler
çevirisi, mirc, oyunu, ruleti, rus

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Besmelenin İlk Türkçe Çevirisi Elysian İslamiyet 0 05 Mart 2014 18:51
Atatürk Ve Kuran'ın Türkçe Çevirisi Zen Atatürk Köşesi 0 24 Mart 2013 13:54
Rus RuLeti Nedir?(Altıpatlarla Oynanan Ölümcül Bir Şans Oyunu) Sevda Merak Ettikleriniz 0 26 Kasım 2010 19:59
Soru-Cevap oyunu (IRCd, mIRC ile ilgili.) papillon Servisler 32 03 Temmuz 2010 09:53