Eğlence, Bilgi ve Paylaşım Platformu




Geri git   Eğlence, Bilgi ve Paylaşım Platformu > mIRC Scripting > mIRC Scripting Hazır Kodlar

mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

Forum Duyuruları
» ChatForumlari.Com - Forum Kuralları
» ChatForumlari.Com - Moderatör Başvurusu
» ChatForumlari.Com - Önerileriniz
» ChatForumlari.Com - Şikayetleriniz
» ChatForumlari.Com - Nick Değişimi Hakkında
» ChatForumlari.Com - Avatar Değişim İstekleri
Etiketlenen üyelerin listesi

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 12.01.19, 20:57   #1
Yetkisi
Yetki Bilgisi
Admin
YouMyCure - ait Kullanıcı Resmi (Avatar)
Bilgiler
Üye No: 1
Üyelik tarihi: Jan 2019
Nerden: Dublin
Mesajlar: 169
Toplam Aldığı Beğeni: 29
Toplam Verdiği Beğeni: 48
Rep Puanı: 999999
Kıdemi: YouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsaneYouMyCure bir efsane

Ruh Halim: Kotu Cocuk
Adı geçen: 10 Mesaj
Etiketlenme: 0 Konu
Standart Rus Ruleti Oyunu mIRC Çevirisi.

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:
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;
https://www.ircforumlari.net/mirc-pa...-cevirisi.html


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






Üye imzaları yalnızca kayıtlı üyelerimiz tarafından kullanılmaktadır. Daha iyi hizmet için lütfen Kayıt Olun.
Keyifli Vakitler dileriz.
YouMyCure isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

Etiket Ekle
cevirisi, chatforumlari, eğlence forum, ircforumlari, mirc, mirc scripting, oyunu, ruleti, rus


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler Arama
Stil

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
Cevap gönderemezsiniz
Ekleri gönderemezsiniz
Gönderilerinizi düzenleyemezsiniz

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



Yasal Uyarı
    ChatForumlari.Com Türkiye'nin en renkli arkadaşlık, sohbet, eğlence ve bilgi paylaşım platformudur. Hukuka, yasalara, telif ve kişilik haklarına bağlıdır.5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır.Oluşabilecek yasal sorumluluklar üyelerimize aittir.Gerekli Şikayet Bildirimleri "Şikayet" buradan yapabilirsiniz.
ChatForumlari © 2018 - 201∞
ChatForumlari.Com tescilli bir markadır.




Yukarı Çık


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255