mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Like Tree1Teşekkür
  • 1 Post By Che
Cevapla
 
LinkBack Seçenekler
  #1  
Alt 16 Temmuz 2017, 12:08
Che - ait Kullanıcı Resmi (Avatar)
Che Che isimli Üye şimdilik offline konumundadır

mS Puan: 1
mS Derece: Che
 
Üyelik tarihi: 19 Ağustos 2015
Bulunduğu yer: Ankara
Mesajlar: 38
Konular: 38
Eklentiler: 1
Alınan Teşekkür: 4
Yapılan Teşekkür: 2
Post mIRC 21( Blackjack ) Oyunu

Kod:
;##############################################
;## !21 cards game ############################
;#########################   by cabadak  ######
;##############################################
on *:text:!21:#: {
  if !$timer(21cardgame) { set %chan21game $chan | .timer21cardgame 0 180 puansirala }
  if (%21jog != on) {
    set %21jog on
    set %21player-1 $nick
    msg $chan Oyun 2 kişiliktir ve bir kişi daha kanala !21 yazıp oyuna katılmalıdır, please wait ..
    .timer_21-onlyone 1 30 player-me $chan
    set %21para-jog-1 off
    halt
  }
  if (%21jog == on) && (!%21player-2) && ($nick != %21player-1) {
    .timer_21-onlyone off
    set %21player-2 $nick
    set %21game-starts ok
    .notice %21player-1 " !puan " yazın.. 21 sayıya ulaşan ve en yaklaşan kazanır.  
    .notice %21player-2 21 oyunu blackjack. 21'e en yakın sayısı olan kazanır. 
    msg $chan 1Oyun başlıyor, oyuncular şu kişiler :  4 %21player-1 1-4 %21player-2 
    msg $chan 4 %21player-1 1 sen başlıyorsun hemen kartını çek (!card)
    set %21jogada-jog 1
    set %21para-jog-2 off
    .timer_end-21 1 62 encerra-21 $chan
  }
}
on *:text:!puan*:#: {
  if $1 == !puanreset && $nick isop $chan {  unset %wins* | msg # blackjack puan listesi sıfırlandı. (4reset1) | .timer21cardgame off | return }
  if !$2 && $($+(%,wins,$nick)) { msg #  $+(,$nick,) : 2 $($+(%,wins,$nick),2) 1puanınız var ve2 $calc($($+(%,wins,$nick),2) / 5 ) 1kez kazandınız.  } 
  if !$2 && !$($+(%,wins,$nick)) { msg # $+(,$nick,) : 2 0 puanınız var malesef hiç kazanamadınız. }
}
alias puansirala {
  var %i 1
  while $var(%wins*,%i) {
    var %ml $var(%wins*,%i).value 
    var %gl $remove($var(%wins*,%i),%,wins)
    var %kazanan %kazanan $+(%ml,.,%gl)
    inc %i
  }
  var %kaz $sorttok(%kazanan,32,nr) 
  tokenize 32 %kaz
  msg %chan21game 4Blackjack En iyi ilk 5 : 1) $+(10,$gettok($1,2,46),) -> $gettok($1,1,46) $+(13,$chr(124),) 2) $+(10,$gettok($2,2,46),) -> $gettok($2,1,46) $+(13,$chr(124),) 3) $+(10,$gettok($3,2,46),) : $gettok($3,1,46) $+(13,$chr(124),) 4) $+(10,$gettok($4,2,46),) -> $gettok($4,1,46) $+(13,$chr(124),) 5) $+(10,$gettok($$5,2,46),) -> $gettok($$5,1,46)
}
 
alias player-me {
  msg $1 4  %21player-1 $+   1ikimiz oynuyoruz ..
  set %21player-2 $me
  set %21jogada-jog 1
  set %21para-jog-2 off
  msg $1 1Oyun başlıyor, oyuncular şu kişiler :4 %21player-1 1-4 %21player-2
  msg $1 4 %21player-1 1sen başlıyorsun, kanala !card yazarak kartını çek.
  .timer_end-21 1 62 encerra-21 $1
}
alias me-play {
  if (%21jogada-jog == 2)  && ($me == %21player-2) {
    set %carta-jog-2 $rand(1,13)
    if (!%21cards-value-2) {
      set %21cards-value-2 %carta-jog-2
      set %21cards-player-2 $pass-to-card(%carta-jog-2)
      set %21jogada-jog 1
      msg $1 !card
      calc-next-orstop %21cards-value-2 %21player-2 $1
    }
    else {
      set %21jogada-jog 1
      set %21cards-value-2 $calc(%21cards-value-2 + %carta-jog-2)
      set %21cards-player-2 %21cards-player-2 $pass-to-card(%carta-jog-2)
      var %21me-play = %21cards-value-2
      if (%21me-play isnum 15-18) {
        var %me-play = $rand(1,2)
        if (%me-play == 1) {
          msg $1 !card
          calc-next-orstop %21cards-value-2 %21player-2 $1
          .timer_end-21 1 62 encerra-21 $1
          halt
        }
        if (%me-play == 2) {
          set %21para-jog-2 on
          msg $1 !comp
          if (%21para-jog-1 !== on) {
            calc-next-orstop %21cards-value-2 %21player-2 $1
            .timer_end-21 1 62 encerra-21 $1
            halt
          }
          if (%21para-jog-1 == on) {
            who-winns-21 $1
          }
        }
        halt
      }
      if (%21me-play isnum 1-14) {
        msg $1 !card
        calc-next-orstop %21cards-value-2 %21player-2 $1
        .timer_end-21 1 62 encerra-21 $1
        halt
      }
      if (%21me-play isnum 19-20) {
        set %21para-jog-2 on
        msg $1 !comp
        if (%21para-jog-1 !== on) {
          calc-next-orstop %21cards-value-2 %21player-2 $1
          .timer_end-21 1 62 encerra-21 $1
        }
        if (%21para-jog-1 !== on) {
          calc-next-orstop %21cards-value-2 %21player-2 $1
          .timer_end-21 1 62 encerra-21 $1
          halt
        }
        if (%21para-jog-1 == on) {
          who-winns-21 $1
          halt
        }
        halt
      }
      if (%21me-play == 21) {
        msg $1 !card
        calc-next-orstop %21cards-value-2 %21player-2 $1
      }
      if (%21me-play isnum 22-1000) {
        calc-next-orstop %21cards-value-2 %21player-2 $1
        .timer_end-21 off
        halt
      }
    }
  }
}
on *:text:!card:#: {
  if (%21jogada-jog == 1) && ($nick == %21player-1) && (%21player-2 != $me) {
    set %carta-jog-1 $rand(1,13)
    if (!%21cards-value-1) {
      set %21cards-value-1 %carta-jog-1
      set %21cards-player-1 $pass-to-card(%carta-jog-1)
      set %21jogada-jog 2
      .notice $nick 14kart:3 %21cards-player-1
      .notice $nick 14sayı:3 %21cards-value-1
      calc-next-orstop %21cards-value-1 %21player-1 $chan
      .timer_end-21 1 62 encerra-21 $chan
      halt
    }
    else {
      set %21jogada-jog 2
      set %21cards-value-1 $calc(%21cards-value-1 + %carta-jog-1)
      set %21cards-player-1 %21cards-player-1 $pass-to-card(%carta-jog-1)
      .notice $nick 14kart:3 %21cards-player-1
      .notice $nick 14sayı:3 %21cards-value-1
      calc-next-orstop %21cards-value-1 %21player-1 $chan
      halt
    }
  }
  if (%21jogada-jog == 1) && ($nick == %21player-1) && (%21player-2 == $me) {
    set %carta-jog-1 $rand(1,13)
    if (!%21cards-value-1) {
      set %21cards-value-1 %carta-jog-1
      set %21cards-player-1 $pass-to-card(%carta-jog-1)
      set %21jogada-jog 2
      .notice $nick 14kart:3 %21cards-player-1
      .notice $nick 14sayı:3 %21cards-value-1
      calc-next-orstop %21cards-value-1 %21player-1 $chan
      .timer_end-21 1 62 encerra-21 $chan
      halt
    }
    else {
      set %21jogada-jog 2
      set %21cards-value-1 $calc(%21cards-value-1 + %carta-jog-1)
      set %21cards-player-1 %21cards-player-1 $pass-to-card(%carta-jog-1)
      .notice $nick 14kart:3 %21cards-player-1
      .notice $nick 14sayı:3 %21cards-value-1
      calc-next-orstop %21cards-value-1 %21player-1 $chan
      .timer_end-21 1 62 encerra-21 $chan
      halt
    }
  }
  if (%21jogada-jog == 2)  && ($nick == %21player-2) {
    set %carta-jog-2 $rand(1,13)
    if (!%21cards-value-2) {
      set %21cards-value-2 %carta-jog-2
      set %21cards-player-2 $pass-to-card(%carta-jog-2)
      set %21jogada-jog 1
      .notice $nick 14kart:3 %21cards-player-2
      .notice $nick 14sayı:3 %21cards-value-2
      calc-next-orstop %21cards-value-2 %21player-2 $chan
      .timer_end-21 1 62 /encerra-21 $chan
      halt
    }
    if (%21cards-value-2) {
      set %21jogada-jog 1
      set %21cards-value-2 $calc(%21cards-value-2 + %carta-jog-2)
      set %21cards-player-2 %21cards-player-2 $pass-to-card(%carta-jog-2)
      .notice $nick 14kart:3 %21cards-player-2
      .notice $nick 14sayı:3 %21cards-value-2
      calc-next-orstop %21cards-value-2 %21player-2 $chan
      .timer_end-21 1 62 encerra-21 $chan
      halt
    }
  }
}
alias encerra-21 {
  if (%21jog == on) {
    who-winns-21 $1
  }
  else {
    acaba-21
  }
}
alias calc-next-orstop {
  if (%21player-2 != $me) {
    if ($1 > 21) && ($2 == %21player-1)  { msg $3 1BOOOOOOOOOOMMMM!!  4  $2  1çektiğin kart ile 21'i geçtin, oyunu kaybettin.  %21cards-player-1  1Toplam %21cards-value-1 |  .timer_end-21 off | msg $3  KAZANAN4 %21player-2  1çektiği kartlar-> %21cards-player-2  1Kartların toplamı-> %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | acaba-21 | halt }
    if ($1 == 21) && ($2 == %21player-1)  { msg $3 4KAZANAN4  %21player-1  1çektiği kartlar, %21cards-player-1 toplam, %21cards-value-1 | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }
    if ($1 < 21) && ($2 == %21player-1) {
      if (%21para-jog-2 !== on) { msg $3 4  %21player-2 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın. }
      if (%21para-jog-2 == on) { set %21jogada-jog 1 | msg $3 4 %21player-1 4sıra sende. Kanala !card yaz ve kartını çek. Eğer kart istemiyorsan !comp yaz.  |  .timer_end-21 1 62 encerra-21 $3 | halt }
    }
    if ($1 > 21) && ($2 == %21player-2) { msg $3  1BOOOOOOOOOOMMMM! !4  $2 1çektiğin kart ile oyunu kaybettin. -> %21cards-player-2 1toplam->  %21cards-value-2 1 | msg $3  1KAZANAN ->4 %21player-1 1çektiği kartlar->  %21cards-player-1 1Elinin toplamı-> %21cards-value-1  | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }
    if ($1 == 21) && ($2 == %21player-2) { msg $3 1KAZANAN 4 %21player-2 1kartlar->  %21cards-player-2 1toplamı-> %21cards-value-2  | inc $+(%,wins,%21player-2) 5 |  .timer_end-21 off | acaba-21 | halt | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) }
    if ($1 < 21) && ($2 == %21player-2) {
      if (%21para-jog-1 !== on) { msg $3 4 %21player-1 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et..   | halt }
      if (%21para-jog-1 == on)  { set %21jogada-jog 2 | msg $3 4 %21player-2 1sıra sende dostum. Kanala !card yaz ve kartını çek, elindeki kartlar yeterliyse !comp yaz ve rakibini bekle..  |  .timer_end-21 1 62 /encerra-21 $3 | halt }
    }
  }
  if (%21player-2 == $me) {
    if ($1 > 21) && ($2 == %21player-1)  { msg $3  1BOOOOOOOOOOMMMM!!!!4 $2 1kaybettin. Kartların ->  %21cards-player-1  1toplamda -> %21cards-value-1 sayı. |  .timer_end-21 off | msg $3  1KAZANAN OYUNCU -> 4 %21player-2 1elindeki kartlar-> %21cards-player-2 1toplamda ise-> %21cards-value-2 1sayı. | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | acaba-21 | halt }
    if ($1 == 21) && ($2 == %21player-1)  { msg $3 1KAZANAN4 %21player-1 1ÇEKTİĞİ TÜM KARTLAR ->  %21cards-player-1 1ÇEKTİĞİ TÜM KARTLARİN TOPLAM SAYISI ->4 %21cards-value-1 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }
    if ($1 < 21) && ($2 == %21player-1) {
      if (%21para-jog-2 !== on) { msg $3  SIRA BENDE ! | me-play $3 }
      if (%21para-jog-2 == on) { set %21jogada-jog 1 | msg $3 4 %21player-1 1oyna aslan parçası.. Kartını çekmek için !card yaz. Eğer elindeki sayılar yeterli ise !comp yaz ama acele et..  |  .timer_end-21 1 62 encerra-21 $3 | halt }
    }
    if ($1 > 21) && ($2 == %21player-2) { /msg $3 1BOOOOOOOOOOMMMM  4 $2 1oyunu kaybettin. Senin kartların ->  %21cards-player-2 1kartlarin toplamı ->  %21cards-value-2  | inc $+(%,wins,%21player-1) 5 | msg $3 KAZANAN4 %21player-1  1İŞTE ŞU KARTLARI ÇEKTİ ->  %21cards-player-1 1 VE ÇEKTİĞİ KARTLARIN TOPLAMI ->  %21cards-value-1  ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }
    if ($1 == 21) && ($2 == %21player-2) { msg $3 1KAZANAN 4 %21player-2 1 KARTLARI->  %21cards-player-2 1TOPLAMI->  %21cards-value-2  | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) |   .timer_end-21 off | acaba-21 | halt }
    if ($1 < 21) && ($2 == %21player-2) {
      if (%21para-jog-1 !== on) { msg $3 4 %21player-1 1sıra sende gençoğlan. Kanala !card yaz ve  çek. kart istemiyore !comp yaziyore.. | halt }
      if (%21para-jog-1 == on)  { set %21jogada-jog 2 | msg $3 1şimdi ise ben çekiyorum ve çektimm.. ! | .timer_end-21  off | .timer_only-me-play 1 2 me-play $3 |  halt }
    }
  }
}
alias acaba-21 {
  set %21jog off
  unset %21player-1 %21player-2 %21cards-value-1 %21cards-player-1 %21cards-value-2 %21cards-player-2 %21game-starts
}
on *:text:!comp:#: {
  if (%21jog == on) && (%21player-2) {
    if ($var(%21cards-player*,0) > 1) {
      if (%21player-2 != $me) {
        if (%21jogada-jog == 1) {
          if ($nick == %21player-1) && (%21para-jog-2 !== on) { set %21para-jog-1 on | set %21jogada-jog 2 | msg $chan 4 %21player-2 1kart çekmek için !card yazmalısın , kart çekmemek ve rakibi beklemek için ise !comp yazmalısın canım.  |  .timer_end-21 1 62 encerra-21 $chan | halt }
          if ($nick == %21player-1) && (%21para-jog-2 == on) { who-winns-21 $chan |  .timer_end-21 off }
        }
        if (%21jogada-jog == 2) {
          if ($nick == %21player-2) && (%21para-jog-1 !== on) { set %21para-jog-2 on | set %21jogada-jog 1 | msg $chan 4 %21player-1 1oyna koçum! Yapacağın şey basit? Kart istiyorsan !card yazıyorsun, kart istemiyorsan !comp yazıyorsun.. understand me?   |  .timer_end-21 1 62 encerra-21 $chan  | halt }
          if ($nick == %21player-2) && (%21para-jog-1 == on) { who-winns-21 $chan |  .timer_end-21 off }
        }
      }
      if (%21player-2 == $me) {
        if (%21jogada-jog == 1) {
          if ($nick == %21player-1) && (%21para-jog-2 !== on) { set %21para-jog-1 on | set %21jogada-jog 2 | msg $chan ŞİMDİ DE BEN ÇEKİYORUM, ALLAH ÇEKTİRMESİN HOPPA.. Rule! | .timer_end-21 off | .timer_only-me-play 1 2 me-play $chan | halt }
          if ($nick == %21player-1) && (%21para-jog-2 == on) { who-winns-21 $chan |  .timer_end-21 off }
        }
        if (%21jogada-jog == 2) {
          if ($nick == %21player-2) && (%21para-jog-1 !== on) { set %21para-jog-2 on | set %21jogada-jog 1 | msg $chan 4 %21player-1 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et..   |  .timer_end-21 1 62 encerra-21 $chan  | halt }
          if ($nick == %21player-2) && (%21para-jog-1 == on) { who-winns-21 $chan |  .timer_end-21 off }
        }
      }
    }
    else { msg $chan 1ilk önce bi kart çek ondan sonra compla uyanıkmısın nesin ak :4 !card }
  }
}
alias who-winns-21 {
  if ($var(%21cards-player*,0) > 1) {
    set %21total-jog-1 $calc(21 - %21cards-value-1)
    set %21total-jog-2 $calc(21 - %21cards-value-2)
    if (%21total-jog-1 < %21total-jog-2) {  .timer_end-21 off | msg $1  1KAZANAN4 %21player-1 1 kart's-> %21cards-player-1 tötal's->  %21cards-value-1  | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) | msg $1  1KAYBEDEN4 %21player-2 1kart's -> %21cards-player-2 1tötal's-> %21cards-value-2  | acaba-21 | halt }
    if (%21total-jog-1 > %21total-jog-2) {  .timer_end-21 off | msg $1  1KAZANAN4 %21player-2 1elindeki kartlar-> %21cards-player-2 1Toplamı-> %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | msg $1 1KAYBEDEN 4 %21player-1 1elindeki kartları-> %21cards-player-1 1toplamı-> %21cards-value-1  | acaba-21 | halt }
    if (%21total-jog-1 == %21total-jog-2) && ($var(%cartas-jog*,0) = 2) {  .timer_end-21 off | msg $1 Oyun Bitti.. !  | msg $1    %21player-1  KARTLAR-> %21cards-player-1 TOPLAM-> %21cards-value-1 | msg $1  %21player-2  1kart's-> %21cards-player-2 1toplam-> %21cards-value-2  | acaba-21 | halt } 
  }
  else { msg $1 oyun bitti ve kazanan yok.!  | acaba-21 }
}
alias pass-to-card {
  set %21cor  $rand(1,2)
  if (%21cor == 1) { set %21cort 1 }
  if (%21cor == 2) { set %21cort 4 }
  if ($1 == 1) { return  $+ %21cort $+ ,0 $+ [A] }
  if ($1 == 2) { return  $+ %21cort $+ ,0 $+ [2] }
  if ($1 == 3) { return  $+ %21cort $+ ,0 $+ [3] }
  if ($1 == 4) { return  $+ %21cort $+ ,0 $+ [4] }
  if ($1 == 5) { return  $+ %21cort $+ ,0 $+ [5] }
  if ($1 == 6) { return  $+ %21cort $+ ,0 $+ [6] }
  if ($1 == 7) { return  $+ %21cort $+ ,0 $+ [7] }
  if ($1 == 8) { return  $+ %21cort $+ ,0 $+ [8] }
  if ($1 == 9) { return  $+ %21cort $+ ,0 $+ [9] }
  if ($1 == 10) { return  $+ %21cort $+ ,0 $+ [10] }
  if ($1 == 11) { return  $+ %21cort $+ ,0 $+ [J] }
  if ($1 == 12) { return  $+ %21cort $+ ,0 $+ [Q] }
  if ($1 == 13) { return  $+ %21cort $+ ,0 $+ [K] }
  if ($1 == 21) { return  $+ %21cort $+ ,0 $+ [G] }
}
Alıntıdır.
ZaLiM1979 buna teşekkür etti.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
blackjack, mirc, oyunu

Seçenekler

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 Açık
Pingbacks are Açık
Refbacks are Açık



Yasal Uyarı

    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 yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76