xTrivia — File Browser
xTriviav1.0 / xTriviav1.0 / xTriviaByRibellina / xtrivia / bot / C920 / SeTTeeMeZZo.mrc
SeTTeeMeZZo.mrc — 30.29 KB — Download this file
#############################################################
##
## Gioco del Sette e Mezzo Versione 1.5
##
## Istruzioni
##
## By "Condor920"
##
#############################################################
########
######
####
## Lo scopo del gioco è quello di realizzare il punteggio più alto possibile senza mai sballare
## vale a dire senza superare il 7 e mezzo.
## Il mazziere deve cercare di eguagliare o superare il punteggio dei giocatori senza sballare.
## Il punteggio di ciascun giocatore si calcola sommando i punti di tutte le carte che possiede.
## Le carte dall'asso al 7 valgono tanti punti quanto è il loro valore numerico.
## L'asso vale 1 punto, il 2 vale 2 punti, ecc. Le figure valgono mezzo punto.
## Il re di denari è la matta può cioè assumere il punteggio di una qualsiasi altra carta
## da 1 a 7, escludendo dunque il mezzo punto.
####
######
########
######
##azzeramento variabili
######
on *:load: {
echo -a ----------------------------------
echo -a ........ SeTTe e MeZZo ... V.1.5 .
echo -a ..................................
echo -a ...... Avviato con successo ......
echo -a ..................................
echo -a 9 Buon Divertimento
echo -a 11 By "Condor920"
echo -a ---------------------------------- {
if ( !$exists(C920\SeTTeeMeZZo.ini) ) { write -n C920\SeTTeeMeZZo.ini }
set %settemez off
set %setteinsgio off
}
}
on *:join:#:{
if ($nick == $me) {
set %settemez off
set %setteinsgio off
unset %sette_*
}
if ($nick != $me) { halt }
}
######
##Attivazione/Disattivazione gioco
######
menu channel,menubar {
-
Giochi
.SeTTe e MeZZo
..aTTiVa SeTTe e MeZZo : game_on
..DiSaTTiVa SeTTe e MeZZo : game_off
..Inserisci il nome del Chan : set %game_channel $?"Inserisci il nome del chan compreso #"
..Pubblicita'
...Attiva Messaggio Pubblicitario su %game_channel : {
var %i3 = $$?="Ogni quanti minuti vuoi visualizzare l'avviso?"
var %delay3 = $calc( 60 * %i3 )
..timerpubl1 0 %delay3 msg %game_channel 8 :::.......................:::
..timerpubl2 0 %delay3 msg %game_channel 4 SeTTe e MeZZo 0 By 11 Condor920
..timerpubl3 0 %delay3 msg %game_channel 8 :::.......................:::
..timerpubl4 0 %delay3 msg %game_channel 9 PeR aTTiVaRe il GIOCO del 8 7.5 0 DiGiTaTe 11 !sette on
..timerpubl5 0 %delay3 msg %game_channel 8 PeR DiSaTTiVaRe il GIOCO del 9 7.5 0 DiGiTaTe 11 !sette off
}
...$iif(!$timer(publ5),$style(2)) Disattiva Messaggio Pubblicitario su %game_channel : .timerpubl* off
-
}
on *:text:!settestart:%game_channel: {
if (($nick !isop %game_channel) && ($nick !ishop %game_channel)) { notice $nick $scaratalk(Devi essere almeno % per attivare SeTTeeMeZZo) | halt }
game_on
}
alias game_on {
if (%settemez == off) && ($chan == %game_channel) {
/write -c C920\SeTTeeMeZZo.ini
unset %sette_*
set %settemez on
msg %game_channel 8 :::.......................::: :::....... V. 1.5 .....::: :::.......................:::
.timerinizio1 1 1 msg %game_channel 8 SeTTe e MeZZo Attivato su 3 %game_channel
.timerinizio2 1 2 msg %game_channel 11 By "Condor920"
.timerinizio3 1 3 msg %game_channel 9 Buon Divertimento
.timerinizio4 1 4 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerinizio5 1 4 avvio
halt
}
if (%settemez == on) { msg %game_channel GioCo Gia AttiVo... PReMeRe 11 A V V I O 0 per iniziare } { halt }
}
on *:text:!setteend:%game_channel: {
if (($nick !isop %game_channel) && ($nick !ishop %game_channel)) { notice $nick $scaratalk(Devi essere almeno % per fermare SeTTeeMeZZo) | halt }
game_off
}
alias game_off {
if (%settemez == off) && ($chan == %game_channel) {
msg %game_channel GioCo nOn AttiVo...
halt
}
if (%settemez == on) {
set %settemez off
set %setteinsgio off
.timerMsg* off
.timercontrollo* off
.timerpartenza1* off
unset %sette_*
msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerdisatt1 1 1 msg %game_channel 6 SeTTe e MeZZo Disattivato su 3 %game_channel
.timerdisatt2 1 2 msg %game_channel 8 :::.....................::: 11 By " Condor920 " 8 :::......................:::
}
halt
}
on *:text:avvio:%game_channel: {
if (%sette_start == on) && (%settemez == on) {
avvio
}
}
alias avvio {
/write -c C920\SeTTeeMeZZo.ini
unset %sette_*
set %sette_start off
set %setteinsgio on
set %sette_me off
set %sette_maxgio 5
set %sette_numgio 1
.timerpartenza1 1 1 msg %game_channel 0 ___.....----°°°° AtteNzioNe IsCrZioNi ApErtE .°°°°----.....___
.timerpartenza2 1 1 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerpartenza3 1 2 msg %game_channel digitare 11 ... g i o c o ... 0 PeR iSCRiVeRSi !!!! ..... massimo 5 giocatori
.timerpartenza4 1 2 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerpartenza7 1 4 msg %game_channel 11 ... s o l o ... 0 PeR FaRe uNa PaRTiTa Con Me ..!!!
.timerpartenza8 1 4 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerpartenza9 1 5 msg %game_channel 11 ... ReGoLe ... 0 PeR le regole del gioco ..!!!
.timerpartenza10 1 6 msg %game_channel 11 By "Condor920"
.timerpartenza11 1 7 msg %game_channel 11 ............... rimangono 30 secondi per iscriversi ...............
.timerpartenza12 1 6 set %sette_gioco on
.timerpartenza13 1 31 msg %game_channel 7 tra 7.5 secondi si parte
.timerpartenza14 1 38 verifica_inizio
halt
}
######
##Partenza gioco
######
####
## 1) Iscrizioni giocatori
###
on *:text:gioco:%game_channel: {
if (%sette_gioco == on) {
if (%settemez == on) && (%setteinsgio == off) {
msg %game_channel LOL lol LOL 8 Limite Massimo raggiunto Aspettare il Prossimo Turno 13 $nick } { halt }
if ( $istok($readini(C920\SeTTeeMeZZo.ini,giocatori,iscritti),$nick,32) ) {
{ msg %game_channel 4 WWee $nick sei gia' iscritto non fare il furbo } { halt }
}
if ($chan == %game_channel) && (%settemez == on) && (%setteinsgio == on) {
msg %game_channel 7 $nick 15 In CoRsa ........... %sette_numgio ° GioCatoRe
.timergioco1 1 1 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
/writeini C920\SeTTeeMeZZo.ini giocatori iscritti $readini(C920\SeTTeeMeZZo.ini,giocatori,iscritti) $nick
/writeini C920\SeTTeeMeZZo.ini giocatori gio $+ %sette_numgio $nick
/writeini C920\SeTTeeMeZZo.ini attivi $nick on
set %sette_gio $+ %sette_numgio $nick
inc %sette_numgio +1
.timerpartenza13 1 1 msg %game_channel 7 tra 7.5 secondi si parte
.timerpartenza14 1 10 verifica_inizio
if (%sette_numgio > %sette_maxgio) {
inizio
}
halt
}
}
}
alias solo {
if (%sette_gioco == on) {
if (%settemez == on) && (%setteinsgio == on) && (%sette_numgio >= 3) {
msg %game_channel 4 mi dispiace non è possibile fare un solitario in tre hahahahahahahahahaah
verifica_inizio
}
if (%sette_gio1 == $nick) && (%settemez == on) && (%setteinsgio == on) && (%sette_numgio >= 2) {
msg %game_channel 4 VaDa Per il SoLiTaRio ...
mescolamento
}
if (%settemez == on) && (%setteinsgio == on) && (%sette_numgio <= 1) {
/writeini C920\SeTTeeMeZZo.ini giocatori iscritti $readini(C920\SeTTeeMeZZo.ini,giocatori,iscritti) $nick
/writeini C920\SeTTeeMeZZo.ini giocatori gio $+ %sette_numgio $nick
/writeini C920\SeTTeeMeZZo.ini attivi $nick on
inc %sette_numgio +1
set %sette_gio1 $nick
msg %game_channel 4 VaDa Per il SoLiTaRio ...
mescolamento
}
}
halt
}
on *:text:solo:%game_channel: {
if (%sette_gioco == on) {
.timerpartenza1* off
solo
}
}
alias verifica_inizio {
if (%sette_gioco == on) {
if (%settemez == on) && (%setteinsgio == on) && (%sette_numgio >= 3) {
inizio
}
if (%settemez == on) && (%setteinsgio == on) && (%sette_numgio == 2) {
msg %game_channel 4 sei da solo???
msg %game_channel 7 se vuoi fare una partita con me digita s o l o
.timerverifini3 1 10 game_off
}
if (%settemez == on) && (%setteinsgio == on) && (%sette_numgio == 1) {
msg %game_channel 9 nessuno che mi vuol sfidare????
.timerverifini2 1 1 msg %game_channel 4 ok riposiamoci un po
.timerverifini3 1 3 game_off
}
}
halt
}
alias inizio {
if (%sette_gioco == on) {
if (%sette_numgio <= 2) {
.timerandiamo1 1 1 msg %game_channel 7 MMmm cosi ad occhio e croce mi sembrate un po pochini ..
.timerandiamo2 1 2 msg %game_channel 10 bisogna essere almeno in due.. altrimenti se vuoi giocare solo contro di me digita 11 S o L o ..
}
if (%sette_numgio >= 3) {
set %sette_gio $+ %sette_numgio $me
/writeini C920\SeTTeeMeZZo.ini giocatori iscritti $readini(C920\SeTTeeMeZZo.ini,giocatori,iscritti) $me
/writeini C920\SeTTeeMeZZo.ini giocatori gio $+ %sette_numgio $me
/writeini C920\SeTTeeMeZZo.ini attivi $me on
.timerandiamo1 1 1 msg %game_channel 11 .... PaRteNZaAaAaAa ....
.timerandiamo2 1 1 mescolamento
}
}
}
alias mescolamento {
set %sette_gioco off
set %setteinsgio off
.timerinizio 1 1 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerinizio1 1 1 msg %game_channel 11 .-.-.-.-.-.-.-.-. 8 Ok AnDiaMo 11 .-.-.-.-.-.-.-.-.
.timerinizio2 1 2 msg %game_channel 9 AttEnzIOnE StA PeR PaRtIrE il Gioco
.timerinizio3 1 2 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerinizio4 1 3 msg %game_channel 9 Ma PriMa UnA BeLLa MeScoLaTiNa
.timerinizio5 1 3 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timermesc1 1 3 msg %game_channel 11 Sto Mescolando Le Carte 1,1 ..... 7 Prrrr Prrrr Prrrr
.timermesc3 1 4 msg %game_channel 11 Sto Mescolando Le Carte 1,1 ..... 7 Prrrr Prrrr Prrrr Prrrr Prrrr Prrrr
.timermesc6 1 5 msg %game_channel 11 Sto Mescolando Le Carte 1,1 ..... 7 Prrrr Prrrr Prrrr
.timermesc7 1 5 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timermesc8 1 5 verifica_giocatori
}
alias verifica_giocatori {
if (%sette_numgio == 2) {
set %sette_gio2 $me
/writeini C920\SeTTeeMeZZo.ini giocatori iscritti $readini(C920\SeTTeeMeZZo.ini,giocatori,iscritti) $me
/writeini C920\SeTTeeMeZZo.ini giocatori gio $+ %sette_numgio $me
/writeini C920\SeTTeeMeZZo.ini attivi $me on
.timerverifica2 1 1 msg %game_channel 8 mmmm ... sei solo ... ok giocherai con me. 11 HiHiHi
.timerverifica3 1 2 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerverifica4 1 2 msg %game_channel 7 Giocatori in GaRa " 9 %sette_gio1 -- %sette_gio2 7 "
.timerverifica5 1 2 msg %game_channel 8 ::::......................::: :::.......................::: :::.......................:::
.timerverifica6 1 3 msg %game_channel CoNtRoLLa La CarTa SeGreTa cHe Ti è aRRiVaTa iN PriVaTo
.timerverifica7 1 3 msg %game_channel 8 ::::......................::: :::.......................::: :::.......................:::
.timerverifica8 1 3 partenza
halt
}
if (%sette_numgio >= 3) {
.timerverifica1 1 1 msg %game_channel 7 " Giocatori in GaRa 9 %sette_gio1 %sette_gio2 %sette_gio3 7 "
.timerverifica2 1 1 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
if (%sette_numgio >= 4) {
.timerverifica3 1 2 msg %game_channel 7 " Giocatori in GaRa 9 %sette_gio4 %sette_gio5 %sette_gio6 7 "
.timerverifica4 1 2 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
}
.timerverifica5 1 3 msg %game_channel CoNtRoLLaTe La CarTa SeGreTa cHe Vi è aRRiVaTa iN PriVaTo
.timerverifica6 1 3 msg %game_channel 8 ::::......................::: :::.......................::: :::.......................:::
}
.timerverifica7 1 3 partenza
halt
}
alias partenza {
set %sette_me off
set %sette_giotot %sette_numgio
set %sette_scelta off
set %sette_sceltacarta off
set %sette_giro 1
set %sette_segreta on
set %sette_numgio 1
set %sette_totale 0
set %sette_totale+ 0
set %sette_gio+ 0
set %sette_punteggio 0
.timercarte 1 1 carte
}
####
##Routine Carte
####
alias carte {
if (%sette_giro > 40) {
msg %game_channel 4 CarTe TerMiNaTe .....
halt
}
:rifai
set %sette_valore $rand(1,40)
if ( $istok($readini(C920\SeTTeeMeZZo.ini,opzioni,mazzo),%sette_valore,32) ) {
goto rifai
halt
}
/writeini C920\SeTTeeMeZZo.ini opzioni mazzo $readini(C920\SeTTeeMeZZo.ini,opzioni,mazzo) %sette_valore
if (%sette_valore <= 10) { set %sette_colore 4 | set %sette_seme 4 CoPPe }
if (%sette_valore >= 11) { set %sette_colore 7 | set %sette_seme 7 BaSToNi }
if (%sette_valore >= 21) { set %sette_colore 8 | set %sette_seme 8 DeNaRi }
if (%sette_valore >= 31) { set %sette_colore 11 | set %sette_seme 11 SPaDe }
if (%sette_valore == 1) { set %sette_valore 1 | set %sette_carta Asso }
if (%sette_valore == 2) { set %sette_valore 2 | set %sette_carta Due }
if (%sette_valore == 3) { set %sette_valore 3 | set %sette_carta Tre }
if (%sette_valore == 4) { set %sette_valore 4 | set %sette_carta Quattro }
if (%sette_valore == 5) { set %sette_valore 5 | set %sette_carta Cinque }
if (%sette_valore == 6) { set %sette_valore 6 | set %sette_carta Sei }
if (%sette_valore == 7) { set %sette_valore 7 | set %sette_carta Sette }
if (%sette_valore == 8) { set %sette_valore 0.5 | set %sette_carta Fante }
if (%sette_valore == 9) { set %sette_valore 0.5 | set %sette_carta Cavallo }
if (%sette_valore == 10) { set %sette_valore 0.5 | set %sette_carta RE }
if (%sette_valore == 11) { set %sette_valore 1 | set %sette_carta Asso }
if (%sette_valore == 12) { set %sette_valore 2 | set %sette_carta Due }
if (%sette_valore == 13) { set %sette_valore 3 | set %sette_carta Tre }
if (%sette_valore == 14) { set %sette_valore 4 | set %sette_carta Quattro }
if (%sette_valore == 15) { set %sette_valore 5 | set %sette_carta Cinque }
if (%sette_valore == 16) { set %sette_valore 6 | set %sette_carta Sei }
if (%sette_valore == 17) { set %sette_valore 7 | set %sette_carta Sette }
if (%sette_valore == 18) { set %sette_valore 0.5 | set %sette_carta Fante }
if (%sette_valore == 19) { set %sette_valore 0.5 | set %sette_carta Cavallo }
if (%sette_valore == 20) { set %sette_valore 0.5 | set %sette_carta RE }
if (%sette_valore == 21) { set %sette_valore 1 | set %sette_carta Asso }
if (%sette_valore == 22) { set %sette_valore 2 | set %sette_carta Due }
if (%sette_valore == 23) { set %sette_valore 3 | set %sette_carta Tre }
if (%sette_valore == 24) { set %sette_valore 4 | set %sette_carta Quattro }
if (%sette_valore == 25) { set %sette_valore 5 | set %sette_carta Cinque }
if (%sette_valore == 26) { set %sette_valore 6 | set %sette_carta Sei }
if (%sette_valore == 27) { set %sette_valore 7 | set %sette_carta Sette }
if (%sette_valore == 28) { set %sette_valore 0.5 | set %sette_carta Fante }
if (%sette_valore == 29) { set %sette_valore 0.5 | set %sette_carta Cavallo }
if (%sette_valore == 30) { set %sette_valore 0.5 | set %sette_carta RE }
if (%sette_valore == 31) { set %sette_valore 1 | set %sette_carta Asso }
if (%sette_valore == 32) { set %sette_valore 2 | set %sette_carta Due }
if (%sette_valore == 33) { set %sette_valore 3 | set %sette_carta Tre }
if (%sette_valore == 34) { set %sette_valore 4 | set %sette_carta Quattro }
if (%sette_valore == 35) { set %sette_valore 5 | set %sette_carta Cinque }
if (%sette_valore == 36) { set %sette_valore 6 | set %sette_carta Sei }
if (%sette_valore == 37) { set %sette_valore 7 | set %sette_carta Sette }
if (%sette_valore == 38) { set %sette_valore 0.5 | set %sette_carta Fante }
if (%sette_valore == 39) { set %sette_valore 0.5 | set %sette_carta Cavallo }
if (%sette_valore == 40) { set %sette_valore 0.5 | set %sette_carta RE }
set %sette_cartatt %sette_colore %sette_carta
if (%sette_me == on) scelta_me
if (%sette_segreta == on) segreta
if (%sette_segreta == off) scelta
halt
}
###
##Distribuzione carta segreta
###
alias segreta {
if (%sette_numgio <= %sette_giotot) && (%sette_segreta == on) {
set %sette_gioatt $readini(C920\SeTTeeMeZZo.ini,giocatori,gio $+ %sette_numgio)
/writeini C920\SeTTeeMeZZo.ini %sette_gioatt cartasegreta %sette_valore
{ msg %sette_gioatt Questa è la tua carta segreta .. %sette_cartatt di %sette_seme 0 il suo VaLoRe è 7 %sette_valore }
inc %sette_giro +1
inc %sette_numgio +1
.timercart1 1 1 carte
halt
}
if (%sette_numgio > %sette_giotot) && (%sette_segreta == on) {
set %sette_numgio 1
set %sette_segreta off
set %sette_sceltacarta on
set %sette_numcart 1
scelta
}
}
alias scelta {
set %sette_gioatt $readini(C920\SeTTeeMeZZo.ini,giocatori,gio $+ %sette_numgio)
if (%sette_gioatt !ison %game_channel) {
msg %game_channel %sette_gioatt RiTiRaTo
msg %game_channel 7 aVaNTi iL PRoSSiMo
/writeini C920\SeTTeeMeZZo.ini punteggi %sette_gioatt 4 RiTiRaTo
inc %sette_numgio +1
if (%sette_numgio != %sette_giotot) {
.timerscelta2 1 1 scelta
halt
}
if (%sette_numgio == %sette_giotot) {
set %sette_totale 0
set %sette_gioatt $me
set %sette_me on
set %sette_sceltacarta off
set %sette_punteggio 0
set %sette_cartasegreta $readini(C920\SeTTeeMeZZo.ini,%sette_gioatt,cartasegreta)
.timercalcola1 1 1 msg %game_channel La Mia CaRTa SeGReTa è 13 %sette_cartasegreta
.timercalcola2 1 1 scelta_me
halt
}
}
if (%sette_gioatt ison %game_channel) {
if (%sette_segreta == off) && (%sette_sceltacarta == on) {
.timerscelta3 1 3 set %sette_scelta on
.timerscelta4 1 1 msg %game_channel 13 %sette_gioatt 7 che fai?? 11 DiGiTa 9 c a r t a 8 per proseguire e 9 s t o 8 per fermarsi
.timercontrollo1 1 1 controllo
.timercontrollo2 1 30 msg %game_channel 4 Ei 9 %sette_gioatt 4 ci sei ancora?
.timercontrollo3 1 40 msg %game_channel 9 %sette_gioatt 4 mi dispiace ma se non fai la tua scelta ti devo eliminare dal gioco...
.timercontrollo4 1 45 msg %game_channel ok.. avanti il prossimo
.timercontrollo5 1 46 elimina
}
halt
}
}
alias elimina {
if (%sette_sceltacarta == on) {
msg %game_channel %sette_gioatt eLiMiNaTo
msg %game_channel 7 aVaNTi iL PRoSSiMo
/writeini C920\SeTTeeMeZZo.ini punteggi %sette_gioatt 4 eLiMiNaTo
inc %sette_numgio +1
if (%sette_numgio == %sette_giotot) {
set %sette_totale 0
set %sette_gioatt $me
set %sette_me on
set %sette_sceltacarta off
set %sette_punteggio 0
set %sette_cartasegreta $readini(C920\SeTTeeMeZZo.ini,%sette_gioatt,cartasegreta)
.timercalcola1 1 1 msg %game_channel La Mia CaRTa SeGReTa è 13 %sette_cartasegreta
.timercalcola2 1 1 scelta_me
halt
}
.timerscelta5 1 1 scelta
halt
}
}
alias controllo {
if (%sette_sceltacarta == on) {
if (%sette_gioatt == $null) {
halt
}
if (%sette_gioatt !ison %game_channel) {
msg %game_channel %sette_gioatt RiTiRaTo
msg %game_channel 7 aVaNTi iL PRoSSiMo
/writeini C920\SeTTeeMeZZo.ini punteggi %sette_gioatt 4 RiTiRaTo
inc %sette_numgio +1
if (%sette_numgio == %sette_giotot) {
set %sette_totale 0
set %sette_gioatt $me
set %sette_me on
set %sette_sceltacarta off
set %sette_punteggio 0
set %sette_cartasegreta $readini(C920\SeTTeeMeZZo.ini,%sette_gioatt,cartasegreta)
.timercalcola1 1 1 msg %game_channel La Mia CaRTa SeGReTa è 13 %sette_cartasegreta
.timercalcola2 1 1 scelta_me
halt
}
.timerscelta5 1 1 scelta
halt
}
}
}
####
##Scelta carte
####
on *:text:carta:%game_channel: {
if (%sette_gioatt != $nick) && (%sette_segreta == off) && (%sette_scelta == on) { msg %game_channel errore $nick non è il tuo turno } halt
if (%sette_gioatt == $nick) && (%sette_segreta == off) && (%sette_scelta == on) {
.timercontrollo? off
set %sette_scelta off
msg %game_channel 3 %sette_gioatt 0 Questa e la tua carta %sette_cartatt di %sette_seme 0 il suo VaLoRe è 7 %sette_valore
/writeini C920\SeTTeeMeZZo.ini %sette_gioatt carta $+ %sette_numcart %sette_valore
inc %sette_giro +1
inc %sette_numcart +1
verifica_punteggio
}
halt
}
on *:text:sto:%game_channel: {
if (%sette_gioatt != $nick) && (%sette_segreta == off) && (%sette_scelta == on) { msg %game_channel errore $nick non è il tuo turno } halt
if (%sette_gioatt == $nick) && (%sette_segreta == off) && (%sette_scelta == on) {
.timercontrollo? off
msg %game_channel 8 %sette_gioatt 0 il tuo punteggio è 4 %sette_punteggio 9 + la tua carta segreta 7 BuoNa FoRTuNa
if (%sette_totale == 0) {
set %sette_totale $readini(C920\SeTTeeMeZZo.ini,%sette_gioatt,cartasegreta)
}
msg %sette_gioatt 0 il tuo punteggio è 9 %sette_totale 7 BuoNa FoRTuNa
/writeini C920\SeTTeeMeZZo.ini punteggi %sette_gioatt %sette_totale
inc %sette_numgio +1
.timersto2 1 2 calcola_punteggio
}
halt
}
alias scelta_me {
.timercontrollo? off
if (%sette_me == on) {
set %sette_sceltacarta off
set %sette_totale $calc(%sette_punteggio + %sette_cartasegreta)
if (%sette_totale > 7.5) {
.timerme9 1 1 msg %game_channel 4 Hai Hai Ho SBALLATO il mio punteggio totale è %sette_totale
/writeini C920\SeTTeeMeZZo.ini attivi $me off
.timerme10 1 1 fine
halt
}
if (%sette_totale >= %sette_totale+) {
set %sette_cartasegreta $readini(C920\SeTTeeMeZZo.ini,%sette_gioatt,cartasegreta)
set %sette_totale $calc(%sette_punteggio + %sette_cartasegreta)
/writeini C920\SeTTeeMeZZo.ini punteggi %sette_gioatt %sette_totale
unset %sette_gio+*
set %sette_gio+ $me
msg %game_channel 3 ::::::::::::::::::::: ViTToRiAaaaaaaaaaa :::::::::::::::::::::
.timerme10 1 1 fine
halt
}
if (%sette_totale < %sette_totale+) {
/writeini C920\SeTTeeMeZZo.ini %sette_gioatt carta $+ %sette_numcart %sette_valore
.timerme2 1 1 msg %game_channel 8 mmmmmmm 5 ................. 9 VeDiaMo uN Po ChE Si Puo FaRe
.timerme3 1 1 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timerme4 1 2 msg %game_channel 11 iL Mio PuNteGGio ToTaLe è %sette_totale
.timerme5 1 3 msg %game_channel 13 OK RiScHiaMo ....... 0 C a R t A
set %sette_punteggio $calc(%sette_punteggio + %sette_valore)
set %sette_totale $calc(%sette_punteggio + %sette_cartasegreta)
.timerme6 1 4 msg %game_channel Questa e la mia CaRTa %sette_cartatt di %sette_seme 0 il suo VaLoRe è 7 %sette_valore
.timerme7 1 4 msg %game_channel il Mio Punteggio Totale è 4 %sette_totale
/writeini C920\SeTTeeMeZZo.ini punteggi %sette_gioatt %sette_totale
inc %sette_giro +1
inc %sette_numcart +1
.timerme8 1 4 carte
halt
}
}
}
alias calcola_punteggio {
if (%sette_totale+ == %sette_totale) {
set %sette_gio+ $+ %sette_numgio %sette_gio+
set %sette_gio+ %sette_gioatt
}
if (%sette_totale+ < %sette_totale) {
set %sette_totale+ %sette_totale
set %sette_gio+ %sette_gioatt
}
if (%sette_numgio == %sette_giotot) {
set %sette_totale 0
set %sette_gioatt $me
set %sette_me on
set %sette_sceltacarta off
set %sette_punteggio 0
set %sette_cartasegreta $readini(C920\SeTTeeMeZZo.ini,%sette_gioatt,cartasegreta)
.timercalcola1 1 1 msg %game_channel La Mia CaRTa SeGReTa è 13 %sette_cartasegreta
.timercalcola2 1 1 scelta_me
halt
}
if (%sette_numgio < %sette_giotot) {
set %sette_punteggio 0
set %sette_totale 0
.timercalcola3 1 1 scelta
}
}
alias verifica_punteggio {
set %sette_punteggio $calc(%sette_punteggio + %sette_valore)
msg %game_channel 13 %sette_gioatt 0 il tuo Punteggio attuale è 4 %sette_punteggio 9 + la tua carta segreta
set %sette_cartasegreta $readini(C920\SeTTeeMeZZo.ini,%sette_gioatt,cartasegreta)
set %sette_totale $calc(%sette_punteggio + %sette_cartasegreta)
if (%sette_totale <= 7.5) {
/writeini C920\SeTTeeMeZZo.ini punteggi %sette_gioatt %sette_totale
carte
halt
}
if (%sette_totale > 7.5) {
/writeini C920\SeTTeeMeZZo.ini punteggi %sette_gioatt %sette_totale
/writeini C920\SeTTeeMeZZo.ini attivi %sette_gioatt off
inc %sette_numgio +1
.timerverifica1 1 1 msg %game_channel 4 Hai Hai %sette_gioatt HaI SBALLATO il tuo punteggio totale è %sette_totale
if (%sette_numgio == %sette_giotot) {
set %sette_me on
set %sette_gioatt $me
set %sette_sceltacarta off
set %sette_punteggio 0
set %sette_totale 0
set %sette_cartasegreta $readini(C920\SeTTeeMeZZo.ini,%sette_gioatt,cartasegreta)
.timercalcola1 1 2 msg %game_channel La Mia CaRTa SeGReTa è 13 %sette_cartasegreta
.timerverifica2 1 2 scelta_me
halt
}
if (%sette_numgio <= %sette_giotot) {
set %sette_punteggio 0
set %sette_totale 0
.timerverifica3 1 4 carte
halt
}
fine
}
}
####
##Finale
####
alias fine {
.timerfine0 1 1 msg %game_channel 11 :::....... 9 CLaSSiFiCa FiNaLe 11 .......:::
.timerfine1 1 1 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio1) == on) {
.timerfine2 1 2 msg %game_channel 8 :::.. %sette_gio1 il tuo PunteGGio è 7 $readini(C920\SeTTeeMeZZo.ini,punteggi,%sette_gio1) 8..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio1) == off) {
.timerfine2 1 2 msg %game_channel 9 :::.. %sette_gio1 4 Hai SBaLLaTo 9 ..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio2) == on) {
.timerfine3 1 3 msg %game_channel 8 :::.. %sette_gio2 il tuo PunteGGio è 7 $readini(C920\SeTTeeMeZZo.ini,punteggi,%sette_gio2) 8..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio2) == off) {
.timerfine3 1 3 msg %game_channel 9 :::.. %sette_gio2 4 Hai SBaLLaTo 9 ..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio3) == on) {
.timerfine4 1 4 msg %game_channel 8 :::.. %sette_gio3 il tuo PunteGGio è 7 $readini(C920\SeTTeeMeZZo.ini,punteggi,%sette_gio3) 8..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio3) == off) {
.timerfine4 1 4 msg %game_channel 9 :::.. %sette_gio3 4 Hai SBaLLaTo 9 ..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio4) == on) {
.timerfine5 1 5 msg %game_channel 8 :::.. %sette_gio4 il tuo PunteGGio è 7 $readini(C920\SeTTeeMeZZo.ini,punteggi,%sette_gio4) 8..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio4) == off) {
.timerfine5 1 5 msg %game_channel 9 :::.. %sette_gio4 4 Hai SBaLLaTo 9 ..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio5) == on) {
.timerfine6 1 6 msg %game_channel 8 :::.. %sette_gio5 il tuo PunteGGio è 7 $readini(C920\SeTTeeMeZZo.ini,punteggi,%sette_gio5) 8..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio5) == off) {
.timerfine6 1 6 msg %game_channel 9 :::.. %sette_gio5 4 Hai SBaLLaTo 9 ..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio6) == on) {
.timerfine7 1 7 msg %game_channel 8 :::.. %sette_gio6 il tuo PunteGGio è 7 $readini(C920\SeTTeeMeZZo.ini,punteggi,%sette_gio6) 8..::: }
if ($readini(C920\SeTTeeMeZZo.ini,attivi,%sette_gio6) == off) {
.timerfine7 1 7 msg %game_channel 9 :::.. %sette_gio6 4 Hai SBaLLaTo 9 ..::: }
.timerfine8 1 8 vincitore
halt
}
alias vincitore {
.timervincitore1 1 1 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timervincitore2 1 1 msg %game_channel 11 CoMpLiMeNtI 7 %sette_gio+ %sette_gio+1 %sette_gio+2 %sette_gio+3 %sette_gio+4 %sette_gio+5
.timervincitore3 1 2 msg %game_channel 9 mo brevv
.timervincitore4 1 2 msg %game_channel 8 :::.......................::: :::.......................::: :::.......................:::
.timeravvio1 1 3 msg %game_channel 4 PRoNTi PeR UnA NuoVa PaRTiTa ?
.timeravvio2 1 4 msg %game_channel 11 Se Si DiGiTaRe 11 ... A V V I O ...
.timeravvio3 1 4 msg %game_channel 11 By "Condor920"
set %sette_start on
halt
}
on *:text:regole:%game_channel: {
if (%sette_gioco == on) {
msg $nick ####
msg $nick ## Lo scopo del gioco è quello di realizzare il punteggio più alto possibile senza mai sballare
.timerregole1 1 1 msg $nick ## vale a dire senza superare il 7 e mezzo.
.timerregole2 1 1 msg $nick ## Il mazziere deve cercare di eguagliare o superare il punteggio dei giocatori senza sballare.
.timerregole3 1 2 msg $nick ## Il punteggio di ciascun giocatore si calcola sommando i punti di tutte le carte che possiede.
.timerregole4 1 2 msg $nick ## Le carte dall'asso al 7 valgono tanti punti quanto è il loro valore numerico.
.timerregole5 1 3 msg $nick ## L'asso vale 1 punto, il 2 vale 2 punti, ecc. Le figure valgono mezzo punto.
.timerregole6 1 3 msg $nick ## al momento la matta cioe il re di denari vale come le figure normali cioe' 0.5
.timerregole7 1 4 msg $nick ####
halt
}
}