/ScriptServ

;###################################################
;########### Impiccato by -[ {sTReGa} ]- ###########
;###################################################


on *:text:!impiccahelp:%game_channel: { 
  .timerip1 1 1 .msg $chan —] $piccatalk(impiccato - modalità di gioco :) [—
  .timerip2 1 2 .msg $chan   “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
  .timerip3 1 3 .msg $chan    $piccatalk(Così come nel gioco classico, lo scopo è capire la parola segreta.)         
  .timerip4 1 4 .msg $chan    $piccatalk(digitare in canale,Es:) (lettera a,lettera b, ecc)  $piccatalk(per scoprirele lettere mancanti.)
  .timerip5 1 5 .msg $chan    $piccatalk(Se la "lettera" rusilterà contenuta nella parola, il Bot risponderà scoprendo la lettera richiesta,)
  .timerip6 1 6 .msg $chan    $piccatalk(una volta intuita la soluzione basterà scrivere la parola pensata.)
  .timerip7 1 7 .msg $chan    $piccatalk(durante qualsiasi manche si puo' scoprire la soluzione della parola digitando: !soluzione) 
  .timerip8 1 8 .msg $chan    $piccatalk(NB: Usando questo comando perdi punti dal totale)
  .timerip9 1 9 .msg $chan   (IMPORTANTE: Se le lettere finiscono senza aver trovato la soluzione, nessuno guadagna punti)
  .timerip10 1 10 .msg $chan   “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
  .timerip11 1 11 .msg $chan   $piccatalk(Divertiti con il gioco dell' impiccato!) 
}

on *:TEXT:!punti:%game_channel: { 
  if (%impicca == on)  {
    .notice $nick %impic.week. [ $+ [ $nick  ] ] 
  }
  if (%impicca == off) {
    .notice $nick L' impiccato è in OFF 
  }
}

On *:Text:*:%game_channel: { 
  .set %hang $nick
  if ($1 == !impiccaon) && (%impicca == off) {
    impicca0
  }
  if ($1 == !impiccaon) && (%impicca != on) && (%impicca != off) { .set %impicca off | impicca0 }
  if ($1 == !impiccaoff) && (%impicca == on) {
    impicca3
  }
  if ($1 == !soluzione) && (%impicca == on) {
    .set %imp.p3 $calc(%imp.p - 14)
    .set %impic.week. [ $+ [ $nick ] ] $calc(%impic.week. [ $+ [ $nick ] ]  - %imp.p3)
    .msg $chan  $+ %c21 $+ —[ %manche1  $+ %c21 $+ ]— $piccatalk(la soluzione era) 4 %word  $piccatalk(e)  $nick  $piccatalk(perde) 4 %imp.p3  $piccatalk(adesso ha un Totale di:) $+ 4 %impic.week. [ $+ [ $nick  ] ]
    while (%manche1 < %numero.man) { 
      .inc %manche1   
      impicca2  
    }  
    impicca3
  }
  if ($1 == !impicca) {
    if (%impicca == on) {
      .msg $chan  $+ %c21 $+ —] $piccatalk(il gioco è in On)   $+ %c21 $+ [—
    }
    else  {
      .msg $chan   $+ %c21 $+ —] $piccatalk(il gioco è in Off)   $+ %c21 $+ [—
    }
  }
  if ($1 == %word) && (%impicca == on) {
    .set %impic.week.add %impic.week. [ $+ [ $nick ] ]
    .set %impic.week. [ $+ [ $nick ] ] $calc(%imp.p2 + %impic.week.add) 
    .msg $chan   $+ %c21 $+ —[ %manche1   $+ %c21 $+ ]— 4 $nick  $piccatalk( Ha risposto:) $+ 4 %word  $piccatalk(In:) $+ 4 $duration($calc($ctime - %imp.el) ) $piccatalk(e Totalizza:) 4 %imp.p2  $piccatalk(per un Totale di:) $+ 4 %impic.week. [ $+ [ $nick  ] ] 
    .unset %cresci    
    .impicini 
    while (%manche1 < %numero.man) { 
      .inc %manche1    
      impicca2  
    } 
    impicca3
  }
  ;  elseif ($1 == .AddWord) {
  ;    .write wordlist.txt $2
  ;    .notice %hang word $2 $piccatalk(aggiunto alle parole)
  ;  }
  if ($1 == lettera) && (%impicca == on) {
    .set %letter $2
    .set %pos $pos(%word, %letter, 1)
    if (%pos != $null) {
      alias while {
        var %i 1
        while (%i <= $len(%word)) {
          set %pos $pos(%word, %letter, %i)
          if (%pos != $null) {
            set %hint $left(%hint, $calc(%pos - 1)) $+ %letter $+ $mid(%hint, $calc(%pos + 1))
          }
          inc %i
        }       
      }
      .inc %cresci
      .set %imp.p2 $calc(%imp.p - %cresci)
      .msg $chan   $+ %c21 $+ —[ %manche1   $+ %c21 $+ ]— $piccatalk(aiuto N°)   $+ %c21 $+ ] %cresci   $+ %c21 $+ [   %hint     $+ %c21 $+ ] $piccatalk(Ora i punti sono )   $+ %c21 $+ —] 4 %imp.p2    $+ %c21 $+ [—
    }
    ; else { 
    ;  .msg $chan $piccatalk(Questa lettera non c'è nella parola)
    ; }   
  }
  if (%hint == %word) && (%impicca == on) { .msg $chan    $+ %c21 $+ —] $hang $piccatalk(Non ci sono più lettere e nessuno guadagna nulla)   $+ %c21 $+ [— | .inc %manche1 | impicca2 | halt } 
}


alias impicca2 {
  .unset %cresci
  .set %imp.p2 $calc(%imp.p - %cresci)
  .set %imp.p $rand(15,50)
  .set %word $read(Addons\giochi\Dictionary\italiano. $+ $rand(a,z))
  .set %hint $replace(%word ,b,-,c,-,d,-,f,-,g,-,h,-,j,-,k,-,l,-,m,-,n,-,p,-,q,-,r,-,s,-,t,-,u,•,v,-,w,-,x,-,y,-,z,-,a,•,e,•,i,•,o,•)
  .timerpicca0 1 2 msg $chan   $+ %c21 $+ —] $piccatalk( —— $+  $+ %c21 $+ — State pronti —— $+  $+ %c21 $+ — )   $+ %c21 $+ [—
  .timerpicca1 1 4 msg $chan   $+ %c21 $+ —] $piccatalk(Comincia la  manche numero)   $+ %c21 $+ ] 4 %manche1    $+ %c21 $+ [  $piccatalk(da) 4 %imp.p  $piccatalk(PUNTI) 
  .timerpicca2 1 6 msg $chan   $+ %c21 $+ —[ %manche1   $+ %c21 $+ ]—[   %hint     $+ %c21 $+ ]—  $piccatalk(Punti) 4 %imp.p  
  .set %imp.el $ctime
  .halt
}

alias impicca0 {
  .unset %cresci
  .set %impicca on
  .set %manche1 1
  .set %numero.man $rand(5,15)
  .msg $chan  $+ %c21 $+ —] $piccatalk(IMPICCATO by)  {sTrEGa}   $+ %c21 $+ [—
  .msg $chan  $+ %c21 $+ —] $piccatalk(comincia la partita che si svolgerà su)  $+ %c21 $+ ] 4 %numero.man   $+ %c21 $+ [ $piccatalk(manche) 
  impicca2
}

alias impicca3 {
  ;  .impicini
  .msg $chan   $+ %c21 $+ —] $piccatalk(LA CLASSIFICA)   $+ %c21 $+ [—
  if ($readini(impic.ini, week, 1) != none) { .msg $chan   $+ %c21 $+ —] $piccatalk(1° posto)  $+ %c21 $+ —[4 %impic.week. [ $+ [ $readini(impic.ini, week, 1) ] ]  $+ %c21 $+ ]—  $readini(impic.ini, week, 1)  }
  if ($readini(impic.ini, week, 2) != none) { .msg $chan   $+ %c21 $+ —] $piccatalk(2° posto)  $+ %c21 $+ —[4 %impic.week. [ $+ [ $readini(impic.ini, week, 2) ] ]  $+ %c21 $+ ]—  $readini(impic.ini, week, 2)  }
  if ($readini(impic.ini, week, 3) != none) { .msg $chan   $+ %c21 $+ —] $piccatalk(3° posto)  $+ %c21 $+ —[4 %impic.week. [ $+ [ $readini(impic.ini, week, 3) ] ]  $+ %c21 $+ ]—  $readini(impic.ini, week, 3)  } 
  if ($readini(impic.ini, week, 4) != none) { .msg $chan   $+ %c21 $+ —] $piccatalk(4° posto)  $+ %c21 $+ —[4 %impic.week. [ $+ [ $readini(impic.ini, week, 4) ] ]  $+ %c21 $+ ]—  $readini(impic.ini, week, 4)  } 
  if ($readini(impic.ini, week, 5) != none) { .msg $chan   $+ %c21 $+ —] $piccatalk(5° posto)  $+ %c21 $+ —[4 %impic.week. [ $+ [ $readini(impic.ini, week, 5) ] ]  $+ %c21 $+ ]—  $readini(impic.ini, week, 5)  } 
  if (%impic.week. [ $+ [ $readini(impic.ini, week, 1) ] ] > %imp.r) { 
    set %imp.r  %impic.week. [ $+ [ $readini(impic.ini, week, 1) ] ]
    writeini impic.ini record 1 %imp.r
    writeini impic.ini record 2  $readini(impic.ini, week, 1)
    .msg $chan $piccatalk(Complimenti)  $nick  $piccatalk(hai il record di punteggio per una partita, ora il nuovo record è)4 %imp.r
  }
  .msg $chan   $+ %c21 $+ —] $piccatalk(IMPICCATO by)  {sTrEGa}   $+ %c21 $+ [—
  .msg $chan   $+ %c21 $+ —] $piccatalk(terminato)   $+ %c21 $+ [—
  writeini impic.ini week 1 none
  writeini impic.ini week 2 none
  writeini impic.ini week 3 none
  writeini impic.ini week 4 none
  writeini impic.ini week 5 none
  writeini impic.ini week 6 none
  .unset %impic.week*
  .set %impic.week.1 0
  .set %impic.week.2 0
  .set %impic.week.3 0
  .set %impic.week.4 0
  .set %impic.week.5 0
  .set %impic.week.6 0
  .unset %imp.p
  .set %impicca off
  .halt
}

alias impicini {
  if (%impic.week. [ $+ [ $nick ] ] > %impic.week.1) { 
    if ($readini(impic.ini, week, 1) == $nick ) {
      set %impic.week.1 %impic.week. [ $+ [ $nick ] ]
    }
    if ($readini(impic.ini, week, 1) != $nick ) { 
      ;  else {
      set %impic.week.2 %impic.week.1 
      set %impic.week.1 %impic.week. [ $+ [ $nick ] ]
      writeini impic.ini week 2 $readini(impic.ini, week, 1)
      writeini impic.ini week 1 $nick 
      ; msg $chan Congratulazioni! $+ 4 $nick $trivtalk(sei il N°) $+ 4 #1 $trivtalk(di questa settimana!) 
      classifica week 
    }
  }
  if (%impic.week. [ $+ [ $nick ] ] > %impic.week.2) {
    if ($readini(impic.ini, week, 2) == $nick ) {
      set %impic.week.2 %impic.week. [ $+ [ $nick ] ]
    }
    if ($readini(impic.ini, week, 1) !== $nick ) && ($readini(impic.ini, week, 2) !== $nick ) { 
      set %impic.week.3 %impic.week.2 
      set %impic.week.2 %impic.week. [ $+ [ $nick ] ]
      writeini impic.ini week 3 $readini(impic.ini, week, 2)
      writeini impic.ini week 2 $nick 
      ; msg $chan $trivtalk(Congratulazioni!) $+ 4 $nick $trivtalk(sei il N°) $+ 4 #2 $trivtalk(di questa settimana!) 
      classifica week 
    }
  }
  if (%impic.week. [ $+ [ $nick ] ] > %impic.week.3) {
    if ($readini(impic.ini, week, 3) == $nick ) {
      set %impic.week.3 %impic.week. [ $+ [ $nick ] ]
    }
    if ($readini(impic.ini, week, 1) !== $nick) && ($readini(impic.ini, week, 2) !== $nick ) && ($readini(impic.ini, week, 3) !== $nick ) { 
      set %impic.week.4 %impic.week.3 
      set %impic.week.3 %impic.week. [ $+ [ $nick ] ]
      writeini -s impic.ini week 4 $readini(impic.ini, week, 3)
      writeini -s impic.ini week 3 $nick 
      ;  msg $chan $trivtalk(Congratulazioni!) $+ 4 $nick $trivtalk(sei il N°) $+ 4 #3 $trivtalk(di questa settimana!) 
      classifica week 
    }
  }
  if (%impic.week. [ $+ [ $nick ] ] > %impic.week.4) {
    if ($readini(impic.ini, week, 4) == $nick ) {
      set %impic.week.4 %impic.week. [ $+ [ $nick ] ]
    }
    if ($readini(impic.ini, week, 1) !== $nick ) && ($readini(impic.ini, week, 2) !== $nick ) && ($readini(impic.ini, week, 3) !== $nick ) && ($readini(impic.ini, week, 4) !== $nick ) {  
      set %impic.week.5 %impic.week.4 
      set %impic.week.4 %impic.week. [ $+ [ $nick ] ]
      writeini -s impic.ini week 5 $readini(impic.ini, week, 4)
      writeini -s impic.ini week 4 $nick 
      ;  msg $chan $trivtalk(Congratulazioni!) $+ 4 $nick $trivtalk(sei il N°) $+ 4 #4 $trivtalk(di questa settimana!) 
      classifica week 
    }
  }
  if (%impic.week. [ $+ [ $nick ] ] > %impic.week.5) {
    if ($readini(impic.ini, week, 5) == $nick ) {
      set %impic.week.5 %impic.week. [ $+ [ $nick ] ]
    }
    if ($readini(impic.ini, week, 1) !== $nick ) && ($readini(impic.ini, week, 2) !== $nick ) && ($readini(impic.ini, week, 3) !== $nick ) && ($readini(impic.ini, week, 4) !== $nick ) && ($readini(impic.ini, week, 5) !== $nick ) {
      set %impic.week.6 %impic.week.5  
      set %impic.week.5 %impic.week. [ $+ [ $nick ] ]
      writeini -s impic.ini week 5 $nick 
      ;  msg $chan $trivtalk(Congratulazioni!) $+ 4 $nick $trivtalk(sei il N°) $+ 4 #5 $trivtalk(di questa settimana!) 
      classifica week 
    }
  }
  if (%impic.week. [ $+ [ $nick ] ] > %impic.week.6) {
    if ($readini(impic.ini, week, 6) !== $nick ) { 
      set %impic.week.6 %impic.week. [ $+ [ $nick ] ]
    }
    if ($readini(impic.ini, week, 1) !== $nick ) && ($readini(impic.ini, week, 2) !== $nick ) && ($readini(impic.ini, week, 3) !== $nick ) && ($readini(impic.ini, week, 4) !== $nick ) && ($readini(impic.ini, week, 5) !== $nick ) && ($readini(impic.ini, week, 6) !== $nick ) { 
      set %impic.week.6 %impic.week. [ $+ [ $nick ] ]
      writeini -s impic.ini week 6 $nick 
    }
  }
}