/ScriptServ

alias numero_mania { 
  var %numero_mania.random = $rand(1,$lines(numero_mania.txt)) 
  var %numero_mania.linea = $read(numero_mania.txt, %numero_mania.random)
  var %numero_mania.domanda = $gettok($read(numero_mania.txt,%numero_mania.random),1,42)
  var %numero_mania.risp = $gettok($read(numero_mania.txt,%numero_mania.random),2-,42)
  set %numero_mania.risposte $replace($gettok(%numero_mania.risp,1-,42),$chr(42),$chr(149)) 
  set %numero_mania.rimanenti %numero_mania.risposte
  set %numero_mania.valore $rand(3,60) $+ 00
  set %numero_mania.numero.risposte $numtok(%numero_mania.risposte,149)
  set %numero_mania.mancanti numero_mania.numero.risposte
  var %numero_mania.punti = $calc(%numero_mania.valore * %numero_mania.numero.risposte)
  .timer_numero_mania_domanda -m 1 100 msg %game_channel  $+ %c1 —[ %trivia.qn $+  $+ %c1 ]— 7  %numero_mania.domanda 
  .timer_numero_mania_domanda-a 1 1 msg %game_channel $trivtalk(Se rispondi subito i punti sono ben: ) $trivtalk9(Valore Per Risposta) 9 %numero_mania.valore 9 $trivtalk11(punti)
  .timer_numero_mania_private -m 1 1250 echo -a 4 $replace(%numero_mania.rimanenti,$chr(149),$chr(32) $+ $chr(45) $+ $chr(32)) 
  .timer_numero_mania_aiuto -m 1 1500 khint0
}

alias aiutonumero_mania {
  var %numero.rimanenti = $numtok(%numero_mania.rimanenti,149)
  var %indice = 1
  while (%indice <= %numero.rimanenti) {
    var %c, %d = $regsub(%numero_mania.rimanenti,/([a-zA-Z0-9])/ig,*,%c) 
    return %c 
    inc %indice
  }
}

alias aiutonumero_mania-a {
  var %numero.rimanenti = $numtok(%numero_mania.rimanenti,149)
  var %indice = 1
  while (%indice <= %numero.rimanenti) {
    var %c, %d = $regsub(%numero_mania.rimanenti,/([aeioucdghklmprsvwyzAEIOUCDGHKLMPRSVWYZ0-35-8])/ig,*,%c) 
    return %c 
    inc %indice
  }
}

alias aiutonumero_mania-b {
  var %numero.rimanenti = $numtok(%numero_mania.rimanenti,149)
  var %indice = 1
  while (%indice <= %numero.rimanenti) {
    var %c, %d = $regsub(%numero_mania.rimanenti,/([aeioudhlpswzAEIOUDHLPSWZ125-7])/ig,*,%c) 
    return %c 
    inc %indice
  }
}

alias aiutonumero_mania-c {
  var %numero.rimanenti = $numtok(%numero_mania.rimanenti,149)
  var %indice = 1
  while (%indice <= %numero.rimanenti) {
    var %c, %d = $regsub(%numero_mania.rimanenti,/([aeouAEU257])/ig,*,%c) 
    return %c 
    inc %indice
  }
}
alias khint0 {
  set %numero_mania.h0 $aiutonumero_mania() {
    msg %game_channel 12risposte $chr(91) $replace(%numero_mania.h0,$chr(149),$chr(32) $+ $chr(93) $+ $chr(91) $+ $chr(32)) $chr(93)
    .timer_numero_mania-aiuto 1 %tempoaiuto khint1
  }
}

alias khint1 {
  set %numero_mania.valore $int($calc((%numero_mania.valore)/2))
  set %numero_mania.h1 $aiutonumero_mania-a() {
    msg %game_channel 9 1° aiuto $chr(91) $replace(%numero_mania.h1,$chr(149),$chr(32) $+ $chr(93) $+ $chr(91) $+ $chr(32)) $chr(93) 14 & 7 %numero_mania.valore punti 
    .timer_numero_mania-aiuto 1 %tempoaiuto khint2
  }
}

alias khint2 {
  set %numero_mania.valore $int($calc((%numero_mania.valore)/2))
  set %numero_mania.h2 $aiutonumero_mania-b() {
    msg %game_channel 12 2° aiuto $chr(91) $replace(%numero_mania.h2,$chr(149),$chr(32) $+ $chr(93) $+ $chr(91) $+ $chr(32)) $chr(93) 14 & 7 %numero_mania.valore punti
    .timer_numero_mania-aiuto 1 %tempoaiuto khint3
  }
}

alias khint3 {
  set %numero_mania.valore $int($calc((%numero_mania.valore)/2))
  set %numero_mania.h3 $aiutonumero_mania-c() {
    msg %game_channel 9 3° aiuto $chr(91) $replace(%numero_mania.h3,$chr(149),$chr(32) $+ $chr(93) $+ $chr(91) $+ $chr(32)) $chr(93) 14 & 7 %numero_mania.valore punti
    .timer_numero_mania-aiuto 1 $calc(%tempoaiuto + 1) nessuna_risposta
  }
}

on *:TEXT:*:%game_channel: { 
  if ($istok(%numero_mania.rimanenti,$1-,149)) {
    var %cerca.parola = $findtok(%numero_mania.rimanenti,$1-,149)
    var %estrai.parola = $gettok(%numero_mania.rimanenti,%cerca.parola,149) 
    set %numero_mania.rimanenti $deltok(%numero_mania.rimanenti,%cerca.parola,149)
    msg %game_channel 7 $nick  $trivtalk(hai dato la risposta esatta) 7 %estrai.parola  $trivtalk(per un valore di) 9 %numero_mania.valore
    var %temp = $calc($triv_read(scoresday, $nick) + %numero_mania.valore)
    triv_write scoresday $nick %temp
    var %temp = $calc($triv_read(Scoresweek, $nick) + %numero_mania.valore)
    triv_write scoresweek $nick %temp
    var %temp = $calc($triv_read(Scoresmonth, $nick) + %numero_mania.valore)
    triv_write scoresmonth $nick %temp
    var %temp = $calc($triv_read(Scoresall, $nick) + %numero_mania.valore)
    triv_write scoresall $nick %temp
    inc %numero_mania.punti.assegnati %numero_mania.valore 
    inc %numero_mania.risposte.trovate
    dec %numero_mania.mancanti
    numero_mania.trovate.tutte
  }
} 
alias nessuna_risposta { 
  if ((%numero_mania.risposte.trovate > 0) && (%numero_mania.risposte.trovate < %numero_mania.numero.risposte)) {
    .timer_numero_mania-end 1 1 msg %game_channel $trivtalk9(Le risposte mancanti erano:) 7 $replace(%numero_mania.rimanenti,$chr(149),$chr(32) $+ $chr(45) $+ $chr(32)) 
    .timer_numero_mania-end2 -m 1 1500 msg %game_channel $trivtalk9(Punti assegnati:) %numero_mania.punti.assegnati
  }
  else {
    .timer_numero_mania-end -m 1 1 msg %game_channel $trivtalk9(nessuna risposta trovata, che Skiappe)
    .timer_numero_mania-end 1 1 msg %game_channel $trivtalk9(Le risposte mancanti erano:) 7 $replace(%numero_mania.rimanenti,$chr(149),$chr(32) $+ $chr(45) $+ $chr(32)) 
  }
  unset %numero_mania*
  inc %trivia.qn
  .timer_numero_mania-trivia 1 %tempodomanda trivia.next
}

alias numero_mania.trovate.tutte {
  if (%numero_mania.risposte.trovate == %numero_mania.numero.risposte) {
    .timer_numero_mania-aiuto off
    .timer_numero_mania-trovate 1 1 msg %game_channel $trivtalk9(complimenti trovate tutte le risposte per un valore di) %numero_mania.punti.assegnati
    .timer_numero_mania-trivia 1 %tempodomanda trivia.next
    inc %trivia.qn
    unset %numero_mania*
    .timer_numero_mania-end* off
  }
}