IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Mayıs 2011, 13:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
!21 oyunu (blackjack)




-Blackjack oyunu 2 kişi ile oynanır.
-Oyuna katılmak için kanala !21 yazmalısınız.
-Aynen diğer kişide !21 yazmalıdır.
-Kart istemek için !card
-Kart istemiyorum !comp
-Puan için !puan
-Beraberlik halinde !comp kullanamazsınız kart cekmelisiniz.





«13:20:30» <hArun> !21
«13:20:31» <blackjack> Oyun 2 kişiliktir ve bir kişi daha kanala !21 yazıp oyuna katılmalıdır, please wait ..
«13:20:33» <kil> !21
«13:20:34» -blackjack- 21 oyunu blackjack. 21'e en yakın sayısı olan kazanır.
«13:20:34» <blackjack> Oyun başlıyor, oyuncular şu kişiler : hArun - kil
«13:20:34» <blackjack> hArun sen başlıyorsun hemen kartını çek (!card)
«13:20:38» <hArun> !card
«13:20:39» <blackjack> kil sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın.
«13:20:42» <kil> !card
«13:20:43» -blackjack- kart: [4]
«13:20:43» -blackjack- sayı: 4
«13:20:43» <blackjack> hArun sı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..
«13:20:47» <hArun> !card
«13:20:48» <blackjack> kil sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın.
«13:20:51» <kil> !card
«13:20:52» -blackjack- kart: [4] [8]
«13:20:53» -blackjack- sayı: 12
«13:20:53» <blackjack> hArun sı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..
«13:20:56» <hArun> !comp
«13:20:56» <blackjack> kil kart çekmek için !card yazmalısın , kart çekmemek ve rakibi beklemek için ise !comp yazmalısın canım.
«13:21:02» <kil> !comp
«13:21:03» <blackjack> KAZANAN hArun kart's-> [8] [6] tötal's-> 14
«13:21:03» <blackjack> KAYBEDEN kil kart's -> [4] [8] tötal's-> 12


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;############################################## ;## !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] } }

(hawkee)


Konu hayvan tarafından (26 Mayıs 2011 Saat 13:41 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 26 Mayıs 2011, 15:29   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !21 oyunu (blackjack)




çalışma sizemi ait

 
Alıntı ile Cevapla

Alt 26 Mayıs 2011, 17:07   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !21 oyunu (blackjack)




q0kh4n Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
çalışma sizemi ait


kodun orjinali *

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;##############################################
;## !21 cards game ############################
;######################### by rhasttaff  ######
;##############################################
on *:text:!21:#: {
  
if (%21jog !== on) {
    
set %21jog on
    set 
%21jogador-1 $nick
    
/msg $chan 12This Game Requires 2 12PlayersSomeone needs to type 4!2112 to play against you within 6012 seconds.
    .
timer_encerra-21 1 62 /encerra-21 $chan
    set 
%21para-jog-1 off
    halt
  
}
  if (%
21jog == on) && (!%21jogador-2) {
    /
timer_21-um-so off
    set 
%21jogador-2 $nick
    
/notice %21jogador-1 This is the 21 Cards gameWhomever gets their cards to equal the number21 wins the game
    /
notice %21jogador-2 This is the 21 Cards gameWhomever gets their cards to equal the number21 wins the game!
    /
msg $chan Game Started!! 9-14=[12 %21jogador-1 14]=979-14=[%21jogador-2 14]=9-
    /
msg $chan Player9-14=[12 %21jogador-1 14]=9it is now your turntype 4!card $+ . You have 60 seconds to play...
    
set %21jogada-jog 1
    set 
%21para-jog-2 off
    
.timer_encerra-21 1 62 /encerra-21 $chan
  
}
}
on *:text:!card:#: {
  
if (%21jogada-jog == 1) && ($nick == %21jogador-1) {
    
set %carta-jog-1 $rand(1,13)
    if (!%
cartas-valor-jog-1) {
      
set %cartas-valor-jog-%carta-jog-1
      set 
%cartas-jog-1 $passa-carta(%carta-jog-1)
      
set %21jogada-jog 2
      
/notice $nick Your cards: %cartas-jog-1
      
/notice $nick Your total: %cartas-valor-jog-1
      
/calcula-proxima-oupara %cartas-valor-jog-%21jogador-1 $chan
    
}
    else {
      
set %21jogada-jog 2
      set 
%cartas-valor-jog-1 $calc(%cartas-valor-jog-+ %carta-jog-1)
      
set %cartas-jog-%cartas-jog-1 $passa-carta(%carta-jog-1)
      /
notice $nick Your cards: %cartas-jog-1
      
/notice $nick Your total: %cartas-valor-jog-1
      
/calcula-proxima-oupara %cartas-valor-jog-%21jogador-1 $chan
    
}
  }
  if (%
21jogada-jog == 2)  && ($nick == %21jogador-2) {
    
set %carta-jog-2 $rand(1,13)
    if (!%
cartas-valor-jog-2) {
      
set %cartas-valor-jog-%carta-jog-2
      set 
%cartas-jog-2 $passa-carta(%carta-jog-2)
      
set %21jogada-jog 1
      
/notice $nick Your cards: %cartas-jog-2
      
/notice $nick Your total: %cartas-valor-jog-2
      
/calcula-proxima-oupara %cartas-valor-jog-%21jogador-2 $chan
    
}
    else {
      
set %21jogada-jog 1
      set 
%cartas-valor-jog-2 $calc(%cartas-valor-jog-+ %carta-jog-2)
      
set %cartas-jog-%cartas-jog-2 $passa-carta(%carta-jog-2)
      /
notice $nick Your cards: %cartas-jog-2
      
/notice $nick Your total: %cartas-valor-jog-2
      
/calcula-proxima-oupara %cartas-valor-jog-%21jogador-2 $chan
    
}
  }
}
alias encerra-21 {
  if (%
21jog == on) {
    
quem-ganha-21 $1
  
}
  else {
    
acaba-21
  
}
}
alias calcula-proxima-oupara {
  if ($
21) && ($== %21jogador-1)  { /msg $3 12[4 BOOOOOOOOOOMMMM!!!!129-14=[12 $2 14]=9Explodes with the cards  %cartas-jog-1  Totaling:%cartas-valor-jog-|  /timer_encerra-21 off | /msg $3 Winner  9-14=[%21jogador-2 14]=9with the Cards %cartas-jog-2 Totalizing:%cartas-valor-jog-2  | /acaba-21 halt }
  if ($
== 21) && ($== %21jogador-1)  { /msg $3 Winner9-14=[12 %21jogador-1 14]=9with the cards %cartas-jog-1 Totaling:%cartas-valor-jog-|  /timer_encerra-21 off | /acaba-21 halt }
  if ($
21) && ($== %21jogador-1) {
    if (%
21para-jog-!== on) { /msg $3 9-14=[%21jogador-2 14]=9Your TurnType 4 !card  for one more card or type 4 !compare  To compare the cards and end the gameYou have 60 seconds... }
    if (%
21para-jog-== on) { set %21jogada-jog 1 | /msg $3 9-14=[12 %21jogador-1 14]=9You ruleType 4 !card  for one more card or type 4 !compare  To compare the cards and end the gameYou have 60 seconds...  |  .timer_encerra-21 1 62 /encerra-21 $halt }
  }
  if ($
21) && ($== %21jogador-2) { /msg $3 12[4 BOOOOOOOOOOMMMM!!!!129-14=[$2 14]=9Explodes with the cards %cartas-jog-2 Totaling:%cartas-valor-jog-| /msg $3 Winner 9-14=[12 %21jogador-1 14]=9with the Cards %cartas-jog-1 Totaling:%cartas-valor-jog-1  |  /timer_encerra-21 off | /acaba-21 halt }
  if ($
== 21) && ($== %21jogador-2) { /msg $3 Winner 9-14=[%21jogador-2 14]=9with the cards  %cartas-jog-2 Totaling:%cartas-valor-jog-2  |   /timer_encerra-21 off | /acaba-21 halt }
  if ($
21) && ($== %21jogador-2) {
    if (%
21para-jog-!== on) { /msg $3 9-14=[12 %21jogador-1 14]=9Your TurnType 4 !card  for one more card or type 4 !compare  To compare the cards and end the gameYou have 60 seconds... | halt }
    if (%
21para-jog-== on)  { set %21jogada-jog 2 | /msg $3  9-14=[%21jogador-2 14]=9You ruleType 4 !card  for one more card or type 4 !compare  To compare the cards and end the gameYou have 60 seconds...  |  .timer_encerra-21 1 62 /encerra-21 $halt }
  }
}
alias acaba-21 {
  
set %21jog off
  
unset %21jogador-%21jogador-%cartas-valor-jog-%cartas-jog-%cartas-valor-jog-%cartas-jog-2
}
on *:text:!compare:#: {
  
if (%21jogada-jog == 1) {
    if (
$nick == %21jogador-1) && (%21para-jog-!== on) { /set %21para-jog-1 on set %21jogada-jog 2 | /msg $chan   9-14=[%21jogador-2 14]=9-  You ruleType 4 !card  for one more card or type 4 !compare  To compare the cards and end the gameYou have 60 seconds... |  .timer_encerra-21 1 62 /encerra-21 $chan }
    if (
$nick == %21jogador-1) && (%21para-jog-== on) { /quem-ganha-21 $chan |  /timer_encerra-21 off }
  }
  if (%
21jogada-jog == 2) {
    if (
$nick == %21jogador-2) && (%21para-jog-!== on) { /set %21para-jog-2 on set %21jogada-jog 1 | /msg $chan   9-14=[12 %21jogador-1 14]=9You ruleType 4 !card  for one more card or type 4 !compare  To compare the cards and end the gameYou have 60 seconds... |  .timer_encerra-21 1 62 /encerra-21 $chan }
    if (
$nick == %21jogador-2) && (%21para-jog-== on) { /quem-ganha-21 $chan |  /timer_encerra-21 off }
  }
}
alias quem-ganha-21 {
  
set %21total-jog-1 $calc(21 - %cartas-valor-jog-1)
  
set %21total-jog-2 $calc(21 - %cartas-valor-jog-2)
  if (%
21total-jog-< %21total-jog-2) {  /timer_encerra-21 off | /msg $1 Winner 9-14=[12 %21jogador-1 14]=9with the Cards %cartas-jog-1 Totaling:%cartas-valor-jog-| /msg $1 Against the Cards: %cartas-jog-2 Of 9-14=[%21jogador-2 14]=9Totaling:%cartas-valor-jog-| /acaba-21 halt }
  if (%
21total-jog-> %21total-jog-2) {  .timer_encerra-21 off | /msg $1 Winner  9-14=[%21jogador-2 14]=9with the Cards %cartas-jog-2 Totaling:%cartas-valor-jog-2  | /msg $1 Against the Cards: %cartas-jog-1 Of 9-14=[%21jogador-1 14]=9Totaling:%cartas-valor-jog-1  | /acaba-21 halt }
  if (%
21total-jog-== %21total-jog-2) {  .timer_encerra-21 off | /msg $1 This Game have no winner! | /acaba-21 halt 
}
alias passa-carta {
  
set %21cor  $rand(1,2)
  if (%
21cor == 1) { set %21cort 1 }
  if (%
21cor == 2) { set %21cort 4 }
  if ($
== 1) { return  $+ %21cort $+ ,$+ [A] }
  if ($
== 2) { return  $+ %21cort $+ ,$+ [2] }
  if ($
== 3) { return  $+ %21cort $+ ,$+ [3] }
  if ($
== 4) { return  $+ %21cort $+ ,$+ [4] }
  if ($
== 5) { return  $+ %21cort $+ ,$+ [5] }
  if ($
== 6) { return  $+ %21cort $+ ,$+ [6] }
  if ($
== 7) { return  $+ %21cort $+ ,$+ [7] }
  if ($
== 8) { return  $+ %21cort $+ ,$+ [8] }
  if ($
== 9) { return  $+ %21cort $+ ,$+ [9] }
  if ($
== 10) { return  $+ %21cort $+ ,$+ [10] }
  if ($
== 11) { return  $+ %21cort $+ ,$+ [J] }
  if ($
== 12) { return  $+ %21cort $+ ,$+ [Q] }
  if ($
== 13) { return  $+ %21cort $+ ,$+ [K] }



 
Alıntı ile Cevapla

Alt 28 Mayıs 2011, 01:45   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !21 oyunu (blackjack)




kIL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(hawkee)

diye altına not düşmüştüm ordan alıntı diye.

 
Alıntı ile Cevapla

Alt 28 Mayıs 2011, 13:10   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !21 oyunu (blackjack)




Bazı şeyler söylemek istiyorum ki; BlackJack oyunu 2 kişi arasında oynanmaz. Bir kurpiyer ve bir kişi arasında oynanır. Bu oyunda kkurpiyer ile nick eşit oluyr buda aslında kurpiyer diye birşeyin olmadığını gösteriryor. BlackJack oyununda kurpiyerin bazı kuralları vardır 1 den sonra kart çekememe vs gibi. Bu nedenle kurallara uygun olsun diye aylar önce bir kodlama yapmıştım;

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

 
Alıntı ile Cevapla

Cevapla

Etiketler
21, blackjack, oyunu


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
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
Game - Blackjack xwerswoodx mIRC Scripting Hazır Kodlar 4 26 Şubat 2017 20:08
blackjack.tcl AspavA Eggdrop, NeoStats, BNC 2 21 Nisan 2010 15:51