xTrivia — File Browser
xTriviav1.0 / xTriviav1.0 / xTriviaByRibellina / xtrivia / bot / Addons / Giochi / backjack.mrc
backjack.mrc — 25.19 KB — Download this file
on 1:load: {
set %canaleblackjack %game_channel
echo -a blackjack attivo sul canale %canaleblackjack
}
On 1:Text:!punteggio*:%game_channel: {
msg $chan 8,2 $$2 11,2Vinte:8,2 %bjwins [ $+ [ $$2 ] ] 11,2- Perse:8,2 %bjlosses [ $+ [ $$2 ] ] 11,2- Giocate:8,2 %bjplays [ $+ [ $$2 ] ] 11,2- Vincita:9,2 %Money [ $+ [ $$2 ] ] Euro 11,2- Puntati:9,2 %bethigh [ $+ [ $$2 ] ] $+ $ 11,2- Aveva:9,2 %moneyhigh [ $+ [ $$2 ] ] Euro 11,2- Vittorie consecutive:8,2 %winningstreak [ $+ [ $$2 ] ]
}
On 1:Text:!dona*:%game_channel: {
if (%money [ $+ [ $nick ] ] < $$3) {
msg $chan 0,2 $nick $+ !! Non possiedi $$3 Euro $+ !
Halt
}
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] - $$3 )
set %Money [ $+ [ $$2 ] ] $Calc( %money [ $+ [ $$2 ] ] + $$3 )
msg $chan 0,2 $nick ha donato $$3 $+ $ a $$2
}
On 1:Text:New Key has been set due to [Auto Key Mode]. New key*:%game_channel: {
set %key $$13
}
on 1:text:!carta:%game_channel: {
if (%froze [ $+ [ $Chan ] ] == 1) {
.notice $nick You are trying to use my script from a frozen channel
Halt
}
if (%froze [ $+ [ $nick ] ] == 1) {
.notice $nick You Have Been Frozen From Use Of My Casino
Halt
}
if ($nick == %Playing [ $+ [ $nick ] ] ) {
Set %Cardhit [ $+ [ $nick ] ] $rand(1,52)
Set %hitCard [ $+ [ $nick ] ] $readini($nick, $nick , %Cardhit [ $+ [ $nick ] ] )
while (%hitcard [ $+ [ $nick ] ] == DRAWN) {
inc %hittimes [ $+ [ $nick ] ]
if (%hittimes [ $+ [ $nick ] ] >= 15) {
.notice $nick 11,2 Spiacente, sono finite le carte, cambio il mazzo
/newdeck $nick
}
Set %Cardhit [ $+ [ $nick ] ] $rand(1,52)
Set %hitCard [ $+ [ $nick ] ] $readini($nick, $nick , %Cardhit [ $+ [ $nick ] ] )
unset %hittimes
}
writeini $nick $nick %Cardhit [ $+ [ $nick ] ] DRAWN
if (due isin %hitcard [ $+ [ $nick ] ]) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 20) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 2
}
if (nove isin %hitcard [ $+ [ $nick ] ]) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 13) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 9
}
if (tre isin %hitcard [ $+ [ $nick ] ]) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 19) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 3
}
if (quattro isin %hitcard [ $+ [ $nick ] ]) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 18) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 4
}
if (cinque isin %hitcard [ $+ [ $nick ] ]) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 17) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 5
}
if (sei isin %hitcard [ $+ [ $nick ] ]) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 16) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 6
}
if (sette isin %hitcard [ $+ [ $nick ] ]) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 15) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 7
}
if (otto isin %hitcard [ $+ [ $nick ] ]) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 14) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 8
}
if (dieci isin %hitcard [ $+ [ $nick ] ] || jack isin %hitCard [ $+ [ $nick ] ] || regina isin %hitcard [ $+ [ $nick ] ] || re isin %hitcard [ $+ [ $nick ] ] ) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 12) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 10
}
if (asso isin %hitcard [ $+ [ $nick ] ] && %total [ $+ [ $nick ] ] >= 11) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 20) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 1
}
if ( asso isin %hitcard [ $+ [ $nick ] ] && %total [ $+ [ $nick ] ] <= 10 ) {
if (%asso [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 11) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %asso [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 11
}
Set %Total [ $+ [ $nick ] ] $Calc( %total [ $+ [ $nick ] ] + %hitcardtotal [ $+ [ $nick ] ] )
.notice $nick 11,2 Hai ricevuto un8,2 [ %hitcard [ $+ [ $nick ] ] ] 11,2il totale ora e' di8,2 %Total [ $+ [ $nick ] ]
if (%total [ $+ [ $nick ] ] > 21) {
inc %bjlosses [ $+ [ $nick ] ]
inc %bjplays [ $+ [ $nick ] ]
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] - %bet [ $+ [ $nick ] ] )
unset %winstreak [ $+ [ $nick ] ]
.notice $nick 11,2 Spiacente ma hai sforato, ritenta. Il tuo ammontare e' di9,2 $bytes(%money [ $+ [ $nick ] ],b) Euro 11,2. Se sei a9,2 0 Euro 11,2 $+ , scrivi di nuovo8,2 !blackjack
/Unsetbj $nick
halt
}
}
}
on 1:Text:!sto:%game_channel: {
if (%froze [ $+ [ $Chan ] ] == 1) {
.notice $nick You are trying to use my script from a frozen channel
Halt
}
if (%froze [ $+ [ $nick ] ] == 1) {
.notice $nick You Have Been Frozen From Use Of My Casino
Halt
}
.notice $nick 11,2 Il banco aveva8,2 %Dealname [ $+ [ $nick ] ] 11,2e8,2 %Deal2name [ $+ [ $nick ] ] 11,2per un totale di8,2 %dealtotal [ $+ [ $nick ] ]
while ( %dealtotal [ $+ [ $nick ] ] < 17 ) {
Set %Dealhit [ $+ [ $nick ] ] $rand(1,52)
Set %Dealhitname [ $+ [ $nick ] ] $readini($nick, $nick , %Dealhit [ $+ [ $nick ] ] )
while (%dealhitname [ $+ [ $nick ] ] == DRAWN) {
inc %hittimes [ $+ [ $nick ] ]
if (%hittimes [ $+ [ $nick ] ] >= 50) {
.notice $nick 11,2 Sono finite le carte, cambio il mazzo
/newdeck $nick
}
Set %dealhit [ $+ [ $nick ] ] $rand(1,52)
Set %dealhitname [ $+ [ $nick ] ] $readini($nick, $nick , %Cardhit [ $+ [ $nick ] ] )
unset %hittimes
}
if (due isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 2
}
if (nove isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 9
}
if (tre isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 3
}
if (quattro isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 4
}
if (cinque isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 5
}
if (sei isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 6
}
if (sette isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 7
}
if (otto isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 8
}
if (dieci isin %dealhitname [ $+ [ $nick ] ] || jack isin %dealhitname [ $+ [ $nick ] ] || regina isin %dealhitname [ $+ [ $nick ] ] || re isin %dealhitname [ $+ [ $nick ] ] ) {
Set %dealhitnametotal [ $+ [ $nick ] ] 10
}
if (asso isin %dealhitname [ $+ [ $nick ] ] && %Dealtotal [ $+ [ $nick ] ] >= 11) {
Set %dealhitnametotal [ $+ [ $nick ] ] 1
}
if (asso isin %dealhitname [ $+ [ $nick ] ] && %Dealtotal [ $+ [ $nick ] ] <= 11) {
Set %dealhitnametotal [ $+ [ $nick ] ] 11
}
Set %dealtotal [ $+ [ $nick ] ] $calc(%dealtotal [ $+ [ $nick ] ] + %dealhitnametotal [ $+ [ $nick ] ] )
.notice $nick 11,2 Il banco pesca un8,2 [ %dealhitname [ $+ [ $nick ] ] ] 11,2totalizzando8,2 %dealtotal [ $+ [ $nick ] ]
}
.notice $nick 11,2 Hai8,2 [ %total [ $+ [ $nick ] ] ] 11,2e il banco8,2 %DealTotal [ $+ [ $nick ] ]
if ( %total [ $+ [ $nick ] ] >= %DealTotal [ $+ [ $nick ] ] ) {
if (%winstreak [ $+ [ $nick ] ] == $null) {
set %winstreak 0
}
inc %winstreak [ $+ [ $nick ] ]
inc %bjWins [ $+ [ $nick ] ]
inc %bjplays [ $+ [ $nick ] ]
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] + (%bet [ $+ [ $nick ] ] * 2))
if (%moneyhigh [ $+ [ $nick ] ] == $null) {
set %moneyhigh [ $+ [ $nick ] ] 0
}
if (%money [ $+ [ $nick ] ] > %MoneyHigh [ $+ [ $nick ] ]) {
set %MoneyHigh [ $+ [ $nick ] ] %money [ $+ [ $nick ] ]
}
if (%winningstreak [ $+ [ $nick ] ] == $null) {
set %winningstreak [ $+ [ $nick ] ] 0
}
if (%winstreak [ $+ [ $nick ] ] > %winningstreak [ $+ [ $nick ] ]) {
set %winningstreak [ $+ [ $nick ] ] %winstreak [ $+ [ $nick ] ]
}
.notice $nick 11,2 Congratulazioni, hai vinto! Partite vinte in totale:8,2 %bjWins [ $+ [ $nick ] ] 11,2e ora hai un totale di9,2 $bytes(%money [ $+ [ $nick ] ],b) ] Euro
/Unsetbj $nick
}
if (%DealTotal [ $+ [ $nick ] ] > 21) {
if (%winstreak [ $+ [ $nick ] ] == $null) {
set %winstreak 0
}
inc %winstreak [ $+ [ $nick ] ]
inc %bjWins [ $+ [ $nick ] ]
inc %bjplays [ $+ [ $nick ] ]
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] + (%bet [ $+ [ $nick ] ] * 2))
if (%moneyhigh [ $+ [ $nick ] ] == $null) {
set %moneyhigh [ $+ [ $nick ] ] 0
}
if (%money [ $+ [ $nick ] ] > %MoneyHigh [ $+ [ $nick ] ]) {
set %MoneyHigh [ $+ [ $nick ] ] %money [ $+ [ $nick ] ]
}
if (%winningstreak [ $+ [ $nick ] ] == $null) {
set %winningstreak [ $+ [ $nick ] ] 0
}
if (%winstreak [ $+ [ $nick ] ] > %winningstreak [ $+ [ $nick ] ]) {
set %winningstreak [ $+ [ $nick ] ] %winstreak [ $+ [ $nick ] ]
}
.notice $nick 11,2 Congratulazioni, hai vinto! Partite vinte in totale:8,2 %bjWins [ $+ [ $nick ] ] 11,2e ora hai un totale di9,2 $bytes(%money [ $+ [ $nick ] ],b) ] Euro
/Unsetbj $nick
}
if (%DealTotal [ $+ [ $nick ] ] > %total [ $+ [ $nick ] ] ) {
inc %bjlosses [ $+ [ $nick ] ]
inc %bjplays [ $+ [ $nick ] ]
unset %winstreak [ $+ [ $nick ] ]
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] - %bet [ $+ [ $nick ] ] )
.notice $nick 11,2 Mi spiace, hai perso! Partite perse:8,2 %bjlosses [ $+ [ $nick ] ] 11,2e ora hai un totale di 9,2 $bytes(%money [ $+ [ $nick ] ],b) ] Euro 11,2. Se sei a9,2 0 Euro 11,2 $+ , scrivi di nuovo8,2 !gioca blackjack
/Unsetbj $nick
halt
}
}
on 1:text:!gioca blackjack:%game_channel: {
if (%froze [ $+ [ $chan ] ] == 1) {
.notice $nick You are trying to use my script from a frozen channel
halt
}
if (%froze [ $+ [ $nick ] ] == 1) {
.notice $nick You Have Been Frozen From Use Of My Casino
halt
}
writeini $nick $nick 1 Asso di Cuori
writeini $nick $nick 2 Asso di Picche
writeini $nick $nick 3 Asso di Quadri
writeini $nick $nick 4 Asso di Fiori
writeini $nick $nick 5 Re di Quadri
writeini $nick $nick 6 Re di Cuori
writeini $nick $nick 7 Re di Picche
writeini $nick $nick 8 Re di Fiori
writeini $nick $nick 10 Regina di Quadri
writeini $nick $nick 11 Regina di Cuori
writeini $nick $nick 12 Regina di Picche
writeini $nick $nick 13 Regina di Fiori
writeini $nick $nick 14 Jack di Quadri
writeini $nick $nick 15 Jack di Cuori
writeini $nick $nick 16 Jack di Picche
writeini $nick $nick 17 Jack di Fiori
writeini $nick $nick 18 Dieci di Quadri
writeini $nick $nick 19 Dieci di Cuori
writeini $nick $nick 20 Dieci di Picche
writeini $nick $nick 21 Dieci di Fiori
writeini $nick $nick 22 Nove di Quadri
writeini $nick $nick 23 Nove di Cuori
writeini $nick $nick 24 Nove di Picche
writeini $nick $nick 25 Nove di Fiori
writeini $nick $nick 26 Otto of Quadri
writeini $nick $nick 27 Otto of Cuori
writeini $nick $nick 28 Otto of Picche
writeini $nick $nick 29 Otto of Fiori
writeini $nick $nick 30 Sette di Quadri
writeini $nick $nick 31 Sette di Cuori
writeini $nick $nick 32 Sette di Picche
writeini $nick $nick 33 Sette di Fiori
writeini $nick $nick 34 Sei di Quadri
writeini $nick $nick 35 Sei di Cuori
writeini $nick $nick 36 Sei di Picche
writeini $nick $nick 37 Sei di Fiori
writeini $nick $nick 38 Cinque di Cuori
writeini $nick $nick 39 Cinque di Quadri
writeini $nick $nick 40 Cinque di Picche
writeini $nick $nick 41 Cinque di Fiori
writeini $nick $nick 42 Quattro di Cuori
writeini $nick $nick 43 Quattro di Quadri
writeini $nick $nick 44 Quattro di Picche
writeini $nick $nick 45 Quattro di Fiori
writeini $nick $nick 46 Tre di Cuori
writeini $nick $nick 47 Tre di Quadri
writeini $nick $nick 48 Tre di Picche
writeini $nick $nick 49 Tre di Fiori
writeini $nick $nick 50 Otto di Cuori
writeini $nick $nick 51 Otto di Quadri
writeini $nick $nick 52 Otto di Picche
writeini $nick $nick 9 Otto di Fiori
msg %game_channel 9,2 $nick 11,2comincia una nuova mano a BlackJack
if (%money [ $+ [ $nick ] ] == $null || %money [ $+ [ $nick ] ] == 0) {
Set %money [ $+ [ $nick ] ] 500
.notice $nick 11,2 Per giocare digita8,2 !punto [ammontare]11,2 (es.: !punto 50) per avere un'altra carta e8,2 !sto 11,2per restar in gioco. Ora hai9,2 500 Euro!
/unsetbj $nick
halt
}
.notice $nick 11,2 Per giocare digita8,2 !punto [ammontare]11,2 (es.: !punto 50) per avere un'altra carta e8,2 !sto 11,2per restar in gioco. Ora hai9,2 $bytes(%money [ $+ [ $nick ] ],b) ] Euro
/unsetbj $nick
}
on 1:text:!punto*:%game_channel: {
if (%froze [ $+ [ $Chan ] ] == 1) {
.notice $Nick You are trying to use my script from a frozen channel
Halt
}
if (%froze [ $+ [ $nick ] ] == 1) {
.notice $Nick You Have Been Frozen From Use Of My Casino
Halt
}
Set %bet [ $+ [ $nick ] ] $replace($2-,$chr(44),,-,)
Set %Playing [ $+ [ $nick ] ] $nick
if (%money [ $+ [ $nick ] ] != $null) {
if ($2- == Fun ) {
Set %bet [ $+ [ $nick ] ] 0
}
if ($2- == $null ) {
.notice $nick 4 $+ $nick 9 make a bet or do !play fun
halt
}
if (%bet [ $+ [ $nick ] ] > %Money [ $+ [ $nick ] ] ) {
.notice $nick 4 $+ $nick 9 you dont have that much money
halt
}
if (%bethigh [ $+ [ $nick ] ] == $null) {
set %bethigh [ $+ [ $nick ] ] 0
}
if (%bet [ $+ [ $nick ] ] > %bethigh [ $+ [ $nick ] ]) {
Set %bethigh [ $+ [ $nick ] ] %bet [ $+ [ $nick ] ]
}
:Drawn
inc %times [ $+ [ $nick ] ]
if (%times [ $+ [ $nick ] ] >= 15) {
.notice $nick 11,2 Spiacente, sono finite le carte, cambio il mazzo
/newdeck $nick
}
Set %Card [ $+ [ $nick ] ] $rand(1,52)
Set %Card2 [ $+ [ $nick ] ] $rand(1,52)
Set %Deal [ $+ [ $nick ] ] $rand(1,52)
Set %Deal2 [ $+ [ $nick ] ] $rand(1,52)
While (%Card2 [ $+ [ $nick ] ] == %Card [ $+ [ $nick ] ] || %Card2 [ $+ [ $nick ] ] == %Deal [ $+ [ $nick ] ] || %Card2 [ $+ [ $nick ] ] == %Deal2 [ $+ [ $nick ] ] || %Card [ $+ [ $nick ] ] == %Deal [ $+ [ $nick ] ] || %Card [ $+ [ $nick ] ] == %Deal2 [ $+ [ $nick ] ]) {
Set %Card [ $+ [ $nick ] ] $rand(1,52)
Set %Card2 [ $+ [ $nick ] ] $rand(1,52)
Set %Deal [ $+ [ $nick ] ] $rand(1,52)
Set %Deal2 [ $+ [ $nick ] ] $rand(1,52)
}
Set %Cardname [ $+ [ $nick ] ] $readini($nick, $nick , %Card [ $+ [ $nick ] ])
Set %Card2name [ $+ [ $nick ] ] $readini($nick, $nick , %Card2 [ $+ [ $nick ] ])
Set %Dealname [ $+ [ $nick ] ] $readini($nick, $nick , %Deal [ $+ [ $nick ] ])
Set %Deal2name [ $+ [ $nick ] ] $readini($nick, $nick , %Deal2 [ $+ [ $nick ] ])
While (%Deal2name [ $+ [ $nick ] ] == DRAWN || %Dealname [ $+ [ $nick ] ] == DRAWN || %Cardname [ $+ [ $nick ] ] == DRAWN || %Card2name [ $+ [ $nick ] ] == DRAWN) {
goto Drawn
}
if (due isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 2
}
if (nove isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 9
}
if (tre isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 3
}
if (quattro isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 4
}
if (cinque isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 5
}
if (sei isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 6
}
if (sette isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 7
}
if (otto isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 8
}
if (dieci isin %Cardname [ $+ [ $nick ] ] || jack isin %Cardname [ $+ [ $nick ] ] || regina isin %Cardname [ $+ [ $nick ] ] || re isin %Cardname [ $+ [ $nick ] ] ) {
Set %value [ $+ [ $nick ] ] 10
}
if (asso isin %Cardname [ $+ [ $nick ] ] ) {
Set %asso [ $+ [ $nick ] ] 1
Set %value [ $+ [ $nick ] ] 11
}
if (due isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 2
}
if (nove isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 9
}
if (tre isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 3
}
if (quattro isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 4
}
if (cinque isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 5
}
if (sei isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 6
}
if (sette isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 7
}
if (otto isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 8
}
if (dieci isin %Card2name [ $+ [ $nick ] ] || jack isin %Card2name [ $+ [ $nick ] ] || regina isin %Card2name [ $+ [ $nick ] ] || re isin %Card2name [ $+ [ $nick ] ] ) {
Set %valueb [ $+ [ $nick ] ] 10
}
if (asso isin %Card2name [ $+ [ $nick ] ] && asso isin %Cardname [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 1
goto Jump
}
if (asso isin %Card2Name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 11
Set %asso [ $+ [ $nick ] ]
}
:Jump
if (due isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 2
}
if (nove isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 9
}
if (tre isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 3
}
if (quattro isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 4
}
if (cinque isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 5
}
if (sei isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 6
}
if (sette isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 7
}
if (otto isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 8
}
if (dieci isin %Dealname [ $+ [ $nick ] ] || jack isin %Dealname [ $+ [ $nick ] ] || regina isin %Dealname [ $+ [ $nick ] ] || re isin %Dealname [ $+ [ $nick ] ] ) {
Set %dealvalue [ $+ [ $nick ] ] 10
}
if (asso isin %Dealname [ $+ [ $nick ] ] ) {
Set %dealvalue [ $+ [ $nick ] ] 11
}
if (due isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 2
}
if (nove isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 9
}
if (tre isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 3
}
if (quattro isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 4
}
if (cinque isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 5
}
if (sei isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 6
}
if (sette isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 7
}
if (otto isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 8
}
if (dieci isin %Deal2name [ $+ [ $nick ] ] || jack isin %Deal2name [ $+ [ $nick ] ] || regina isin %Deal2name [ $+ [ $nick ] ] || re isin %Deal2name [ $+ [ $nick ] ] ) {
Set %dealvalueb [ $+ [ $nick ] ] 10
}
if (asso isin %Deal2name [ $+ [ $nick ] ] && asso isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 1
}
Set %DealTotal [ $+ [ $nick ] ] $calc(%dealvalue [ $+ [ $nick ] ] + %dealvalueb [ $+ [ $nick ] ] )
Set %Total [ $+ [ $nick ] ] $Calc(%Value [ $+ [ $nick ] ] + %Valueb [ $+ [ $nick ] ] )
.notice $nick 11,2 Carta 1:8,2 %Cardname [ $+ [ $nick ] ] 11,2- Carta 2:8,2 %Card2name [ $+ [ $nick ] ] 11,2- Totale:8,2 %Total [ $+ [ $nick ] ]
.notice $nick 11,2 Il banco ha8,2 %Dealname [ $+ [ $nick ] ] 11,2e la seconda carta e' nascosta.
writeini $nick $nick %Card [ $+ [ $nick ] ] DRAWN
writeini $nick $nick %Card2 [ $+ [ $nick ] ] DRAWN
writeini $nick $nick %Deal [ $+ [ $nick ] ] DRAWN
writeini $nick $nick %Deal2 [ $+ [ $nick ] ] DRAWN
}
}
On 1:Text:!blocca*:%game_channel: {
if ($$2 isop $chan) {
.notice $nick $$2 e' un operatore, non e' possibile bloccarlo.
}
elseif ($nick isop $chan) && ($$2 !isop $chan) {
msg $chan $$2 non puo' partecipare a BlackJack (impostato da $nick $+ )
freeze $$2
}
}
On 1:Text:!sblocca*:%game_channel: {
if ($nick isop $chan) && (%froze [ $+ [ $$2 ] ] != 1) {
.notice $nick $$2 non era bloccato.
}
elseif ($nick isop $chan) {
msg $chan $$2 puo' giocare a BlackJack (sbloccato da $nick $+ )
unfreeze $$2
}
}
alias Unsetbj {
unset %bet [ $+ [ $$1 ] ]
unset %Playing [ $+ [ $$1 ] ]
unset %times [ $+ [ $$1 ] ]
unset %Card [ $+ [ $$1 ] ]
unset %Card2 [ $+ [ $$1 ] ]
unset %Deal [ $+ [ $$1 ] ]
unset %Deal2 [ $+ [ $$1 ] ]
unset %Cardname [ $+ [ $$1 ] ]
unset %Card2name [ $+ [ $$1 ] ]
unset %Dealname [ $+ [ $$1 ] ]
unset %Deal2name [ $+ [ $$1 ] ]
unset %DealTotal [ $+ [ $$1 ] ]
unset %Total [ $+ [ $$1 ] ]
unset %asso [ $+ [ $$1 ] ]
}
alias freeze {
msg $$1 Spiacente ma sei stato bloccato e quindi escluso dal gioco del BlackJack.
set %froze [ $+ [ $$1 ] ] 1
}
alias unfreeze {
msg $$1 Ora ti e' possibile giocare a BlackJack.
unset %froze [ $+ [ $$1 ] ]
}
alias newdeck {
writeini $$1 $$1 1 Asso di Cuori
writeini $$1 $$1 2 Asso di Picche
writeini $$1 $$1 3 Asso di Quadri
writeini $$1 $$1 4 Asso di Fiori
writeini $$1 $$1 5 Re di Quadri
writeini $$1 $$1 6 Re di Cuori
writeini $$1 $$1 7 Re di Picche
writeini $$1 $$1 8 Re di Fiori
writeini $$1 $$1 10 Regina di Quadri
writeini $$1 $$1 11 Regina di Cuori
writeini $$1 $$1 12 Regina di Picche
writeini $$1 $$1 13 Regina di Fiori
writeini $$1 $$1 14 Jack di Quadri
writeini $$1 $$1 15 Jack di Cuori
writeini $$1 $$1 16 Jack di Picche
writeini $$1 $$1 17 Jack di Fiori
writeini $$1 $$1 18 Dieci di Quadri
writeini $$1 $$1 19 Dieci di Cuori
writeini $$1 $$1 20 Dieci di Picche
writeini $$1 $$1 21 Dieci di Fiori
writeini $$1 $$1 22 Nove di Quadri
writeini $$1 $$1 23 Nove di Cuori
writeini $$1 $$1 24 Nove di Picche
writeini $$1 $$1 25 Nove di Fiori
writeini $$1 $$1 26 Otto of Quadri
writeini $$1 $$1 27 Otto of Cuori
writeini $$1 $$1 28 Otto of Picche
writeini $$1 $$1 29 Otto of Fiori
writeini $$1 $$1 30 Sette di Quadri
writeini $$1 $$1 31 Sette di Cuori
writeini $$1 $$1 32 Sette di Picche
writeini $$1 $$1 33 Sette di Fiori
writeini $$1 $$1 34 Sei di Quadri
writeini $$1 $$1 35 Sei di Cuori
writeini $$1 $$1 36 Sei di Picche
writeini $$1 $$1 37 Sei di Fiori
writeini $$1 $$1 38 Cinque di Cuori
writeini $$1 $$1 39 Cinque di Quadri
writeini $$1 $$1 40 Cinque di Picche
writeini $$1 $$1 41 Cinque di Fiori
writeini $$1 $$1 42 Quattro di Cuori
writeini $$1 $$1 43 Quattro di Quadri
writeini $$1 $$1 44 Quattro di Picche
writeini $$1 $$1 45 Quattro di Fiori
writeini $$1 $$1 46 Tre di Cuori
writeini $$1 $$1 47 Tre di Quadri
writeini $$1 $$1 48 Tre di Picche
writeini $$1 $$1 49 Tre di Fiori
writeini $$1 $$1 50 Otto di Cuori
writeini $$1 $$1 51 Otto di Quadri
writeini $$1 $$1 52 Otto di Picche
writeini $$1 $$1 9 Otto di Fiori
}
alias allowed {
msg $Active guess What $$1 is now allowed to ban people from use of Blackjack! Now Watch out you guys :) :Aware:
set %allowed [ $+ [ $$1 ] ] 1
}
alias deallow {
msg $Active guess What $$1 is no longer allowed to ban people from use of Blackjack!
set %allowed [ $+ [ $$1 ] ] 0
}