#############################################################
##
##               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
  }
}