| iLLeTBey | 24 Ekim 2023 21:41 |
BlackJack
Kod:
alias blackjack {
var %deste = A♠ A♥ A♦ A♣ K♠ K♥ K♦ K♣ Q♠ Q♥ Q♦ Q♣ J♠ J♥ J♦ J♣ 10♠ 10♥ 10♦ 10♣ 9♠ 9♥ 9♦ 9♣ 8♠ 8♥ 8♦ 8♣ 7♠ 7♥ 7♦ 7♣ 6♠ 6♥ 6♦ 6♣ 5♠ 5♥ 5♦ 5♣ 4♠ 4♥ 4♦ 4♣ 3♠ 3♥ 3♦ 3♣ 2♠ 2♥ 2♦ 2♣
var %i = 1, %j, %k, %temp
while (%i <= 208) {
%j = $rand(1,208)
%k = $rand(1,208)
%temp = $gettok(%deste,%j,32)
set %deste $puttok(%deste,$gettok(%deste,%k,32),%j,32)
set %deste $puttok(%deste,%temp,%k,32)
inc %i
}
var %el.$me = $gettok(%deste,1,32) $+ $chr(32) $+ $gettok(%deste,2,32)
var %el.$nick1 = $gettok(%deste,3,32) $+ $chr(32) $+ $gettok(%deste,4,32)
var %el.$nick2 = $gettok(%deste,5,32) $+ $chr(32) $+ $gettok(%deste,6,32)
var %el.$nick3 = $gettok(%deste,7,32) $+ $chr(32) $+ $gettok(%deste,8,32)
var %el.$nick4 = $gettok(%deste,9,32) $+ $chr(32) $+ $gettok(%deste,10,32)
var %sira = 11
var %puan.$me = $calc($deger($gettok(%el.$me,1,32)) + $deger($gettok(%el.$me,2,32)))
var %puan.$nick1 = $calc($deger($gettok(%el.$nick1,1,32)) + $deger($gettok(%el.$nick1,2,32)))
var %puan.$nick2 = $calc($deger($gettok(%el.$nick2,1,32)) + $deger($gettok(%el.$nick2,2,32)))
var %puan.$nick3 = $calc($deger($gettok(%el.$nick3,1,32)) + $deger($gettok(%el.$nick3,2,32)))
var %puan.$nick4 = $calc($deger($gettok(%el.$nick4,1,32)) + $deger($gettok(%el.$nick4,2,32)))
msg $chan $me $+ : $replace(%el.$me,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$me $+ )
msg $chan $nick1 $+ : $replace(%el.$nick1,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$nick1 $+ )
msg $chan $nick2 $+ : $replace(%el.$nick2,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$nick2 $+ )
msg $chan $nick3 $+ : $replace(%el.$nick3,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$nick3 $+ )
msg $chan $nick4 $+ : $replace(%el.$nick4,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$nick4 $+ )
msg $chan $me $+ , kart ister misin? (Evet/Hayır)
msg $chan $nick1 $+ , kart ister misin? (Evet/Hayır)
msg $chan $nick2 $+ , kart ister misin? (Evet/Hayır)
msg $chan $nick3 $+ , kart ister misin? (Evet/Hayır)
msg $chan $nick4 $+ , kart ister misin? (Evet/Hayır)
}
alias deger {
if ($1 == A) return 11
if ($1 == K) return 10
if ($1 == Q) return 10
if ($1 == J) return 10
return $1
}
on *:TEXT:*:#:{
if ($nick == $me || $nick == $nick1 || $nick == $nick2 || $nick == $nick3 || $nick == $nick4) {
if ($1 == Evet) {
var %yeni = $gettok(%deste,%sira,32)
inc %sira
set %el. [ $+ [ $nick ] ] $addtok(%el. [ $+ [ $nick ] ],%yeni,32)
set %puan. [ $+ [ $nick ] ] $calc(%puan. [ $+ [ $nick ] ] + $deger(%yeni))
msg $chan $nick $+ : $replace(%el. [ $+ [ $nick ] ],A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan. [ $+ [ $nick ] ] $+ )
if (%puan. [ $+ [ $nick ] ] > 21) {
msg $chan $nick $+ , 21'i geçtin, kaybettin. :(
}
else {
msg $chan $nick $+ , kart ister misin? (Evet/Hayır)
}
}
if ($1 == Hayır) {
msg $chan $nick $+ , kart istemiyorsun, tamam.
set %bitir. [ $+ [ $nick ] ] 1
if (%bitir.$me == 1 && %bitir.$nick1 == 1 && %bitir.$nick2 == 1 && %bitir.$nick3 == 1 && %bitir.$nick4 == 1) {
blackjackson
}
}
}
}
alias blackjackson {
var %kazanan = $null, %max = 0
var %i = 1, %nick
while (%i <= 5) {
%nick = $gettok($me $nick1 $nick2 $nick3 $nick4,%i,32)
if (%puan. [ $+ [ %nick ] ] <= 21 && %puan. [ $+ [ %nick ] ] > %max) {
set %kazanan %nick
set %max %puan. [ $+ [ %nick ] ]
}
inc %i
}
if (%kazanan == $null) {
msg $chan Kimse kazanamadı, hepiniz 21'i geçtin. :(
}
else {
msg $chan %kazanan $+ , tebrikler, oyunu kazandın. :)
}
; Oyunu sıfırla
unset %deste
unset %el.*
unset %puan.*
unset %bitir.*
unset %sira
}
Blacjack sevenler için en fazla 5 kişiyle oynanir ekleme ve destek talepleriniz için konu altından yardımcı olurum iyi forumlar. |
