Caos

Di più
14 Anni 5 Mesi fa - 14 Anni 5 Mesi fa #2730 da con
Caos è stato creato da con
Salve a Tutti sono new ho un piccolo probl, su Caos.
vorrei togliere il team1 e team2 senza squadre giocando anke da solo/a e la valutazione della classifica.
vi imposto come lo fatto io ma per giocare senza il team.Ma non piace come va.Spero son stato chiaro della mia spiegazione, vi allego il Caos modificato da me spero di aiutarmi grz mille!!!
on 1:TEXT:!spiegacaos:#:{ msg $chan 0,2 Regole 4CAOS0,2. Scopo del gioco: trovare il + alto numero di parole della categoria 0,4indicata0,2. All'avvio iscriversi in una squadra.Le risposte vanno scritte SUL CANALE e 0,5UNA PER RIGA0,2. Se la risposta corrisponde a una di quelle previste e se sarai il + veloce a scriverla, ti verrà assegnato il punto.Ogni partita dura0,4 50,2round.Se cambi0,4 nick 0,2durante il gioco non terrà più conto delle tue risposte. }
on 1:TEXT:!gioca caos:#:{
  if %game_in_progress == $null { set %game_in_progress 0,23mIR4C6A7o4S }
  else { notice $nick Spiacente $nick, devi attendere. C'è già una partita di %game_in_progress in corso. | halt }
  if $nick(0,$chan) < 3 { msg $chan 0,4Spiacente $nick. 0,2E' necessario che tu abbia almeno un avversario per giocare a Caos | unset %game_in_progress | halt }
  unset %chaos* | chaoscount | set %chaosteam1score 0 | set %chaosteam2score 0
  .enable #chaosjoin | .enable #chaosteams | .disable #chanprot
  msg $chan 1,0mIR4C6A7o4S4 Avviato1,0! 1,0Per giocare devi iscriverti digitando sul chan, 4entro 30 secondi, 1,0!gioco
  msg $chan 0,5Il round0,5 10,5 partirà tra 30 secondi...1,0[ PER LE REGOLE DEL GIOCO BASTA DGT IN CHAN 4!spiegacaos1,0]
  set %chaosround 0 | .timer 1 35 start_chaos
}

#chaosjoin off
on 1:JOIN:#:{
  if $nick(0,$chan) < 2 && %game_in_progress == 3mIR4C6A7o4S { disable #chaosjoin | unset %game_in_progress }
  if $nick(0,$chan) > 2  { .notice $nick 0,2 C'è una partita di 3mIR4C6A7o4S0,2 in corso, 0,2 Per giocare devi iscriverti digitando sul chan 0,2!gioco }
}
#chaosjoin end

#chaosteams off
on 1:TEXT:!gioco:*:{
  if $nick !isin %chaosteam2 && $nick !isin %chaosteam1 { set %chaosteam1 $nick %chaosteam1 | .msg $chan 4 $nick 1,0Sei iscritto al gioco }
}

alias start_chaos {
  if %chaosteam1 == $null { msg $comchan($me,1) 0,4ERRORE:0,5 Nessun iscritto al gioco. }
  if %chaosteam1 == $null { unset %game_in_progress | .disable #chaosjoin | .disable #chaosteams | .disable #chaosanswers | .enable #floodprot | halt }
  unset %chaos_correct_answers | unset %chaos_current_round_winners | inc %chaosround
  :round1to5
  set %chaos_current  $r(1,%chaos_categories)
  if $exists($mircdirplayed.cat) == $true && $lines($mircdirplayed.cat) == %chaos_categories { remove $mircdirplayed.cat }
  if $exists($mircdirplayed.cat) == $true { set %chaos_cat_check $lines($mircdirplayed.cat) }
  else { set %chaos_cat_check 0 }
  :fileloop
  if %chaos_cat_check < 1 { goto fileend }
  set %chaos_fileline $read -l $+ %chaos_cat_check $mircdirplayed.cat
  if %chaos_current == %chaos_fileline { goto round1to5 }
  dec %chaos_cat_check | goto fileloop
  :fileend
  write $mircdirplayed.cat %chaos_current
  msg $comchan($me,1) 8,2Round0,2 %chaosround 0,2- 9,2Categoria: $+ %chaosround [ 0,2 $read -l1 [ $mircdir [ $+ [ %chaos_current ] ] ] ]
  if %chaosround == 5 { msg $comchan($me,1) 0,4(Ultimo 0,2Round!0,2Le risposte valgono 0,4 30,2 punti!) }
  echo $comchan($me,1) Current File In Use:0,2 $scriptdir $+ %chaos_current | .enable #chaosanswers
  .timer 1 35 msg $comchan($me,1) 1,0 4Attenzione!1,0 Mancano4 10 1,0secondi alla fine del tempo
  .timer 1 45 .disable #chaosanswers
  .timer 1 46 chaos_success
  chaosanswers | halt
}
on 1:TEXT:!comandicaos:#:.msg $chan 0,2Comandi Caos: 0,2!teams (per conoscere le squadre) 0,2!spiegacaos 0,2(per vedere le regole del gioco)
on 1:TEXT:!spiegacaos:#: { msg $chan Regole 0,2CAOS0,2. Scopo del gioco: trovare il 0,4+0,2 alto numero di parole della categoria indicata. All'avvio iscriversi in una squadra. Le risposte vanno scritte 0,3SUL CANALE0,2 e UNA PER RIGA0,2. Se la risposta 0,4 corrisponde0,2 a una di quelle previste e se sarai il + 0,4veloce0,2 a scriverla, ti verrà assegnato il punto. Ogni partita dura4 50,2 round. Se cambi nick durante il gioco non terrà più conto delle tue risposte. }
on 1:TEXT:!teams:#:.msg $chan 0,2Composizione squadre: 0,4 Team10,2:0,2 %chaosteam1 0......0,4Team20,2:0,2 %chaosteam2
#chaosteams end

#chaosanswers off
on 1:TEXT:*:#:{
  if $nick isin %chaosteam1 {
    if " $+ $1- $+ " isin %chaos_correct_answers && $1- !isin %chaos_current_round_winners {
      set %chaos_current_round_winners $nick $+ , $+ $1- $+ , $+ %chaos_current_round_winners
      set %chaostempanswer " $+ $1- $+ "
      set %chaos_correct_answers $remove(%chaos_correct_answers,%chaostempanswer)
      if $nick isin %chaosteam1 { inc %chaosteam1score 2
        if %chaosround == 5 { inc %chaosteam1score 1 }
      }

} } } }

#chaosanswers end

alias chaoscount {
  set %chaos_categories 1
  :loop
  set %chaos_file $scriptdir $+ %chaos_categories
  if $exists(%chaos_file) == $true { inc %chaos_categories | goto loop }
  if $exists(%chaos_file) == $false { dec %chaos_categories }
}

alias chaosanswers {
  set %chaos_counter 1
  :loop
  if %chaos_counter > $calc($lines(%chaos_current) -1) { goto end }
  inc %chaos_counter | set %chaos_temp3 $read -l $+ %chaos_counter %chaos_current 
  set %chaos_correct_answers " $+ %chaos_temp3 $+ " %chaos_correct_answers | goto loop
  :end
}

alias chaos_success {
  msg $comchan($me,1) 1,0Risposte esatte:
  set %chaos_temp2 1
  :loop
  if $gettok(%chaos_current_round_winners,%chaos_temp2,44) == $null { goto end }
  msg $comchan($me,1) 0,2 $+ $gettok(%chaos_current_round_winners,$calc(%chaos_temp2 + 1),44) 0,2di:0,2 $gettok(%chaos_current_round_winners,%chaos_temp2,44)
  inc %chaos_temp2 2
  goto loop  
  :end
  msg $comchan($me,1) 0,2Risposte NON trovate:0,2 %chaos_correct_answers
  msg $comchan($me,1) 1,0 4Punteggi: %chaosteam1score 1,01,00.............
  if %chaosround < 5 {
    msg $comchan($me,1) 1,0 4 pronti... via!
    unset %chaos_correct_answers | unset %chaos_current_round_winners | inc %chaosround
    :round1to5
    set %chaos_current  $r(1,%chaos_categories)
    if $exists($mircdirplayed.cat) == $true && $lines($mircdirplayed.cat) == %chaos_categories { remove $mircdirplayed.cat }
    if $exists($mircdirplayed.cat) == $true { set %chaos_cat_check $lines($mircdirplayed.cat) }
    else { set %chaos_cat_check 0 }
    :fileloop
    if %chaos_cat_check < 1 { goto fileend }
    set %chaos_fileline $read -l $+ %chaos_cat_check $mircdirplayed.cat
    if %chaos_current == %chaos_fileline { goto round1to5 }
    dec %chaos_cat_check | goto fileloop
    :fileend
    write $mircdirplayed.cat %chaos_current
    msg $comchan($me,1) 8,2Round0,2 %chaosround 0,2- 9,2Categoria: $+ %chaosround [ 0,2 $read -l1 [ $mircdir [ $+ [ %chaos_current ] ] ] ]
    if %chaosround == 5 { msg $comchan($me,1) 0,4Ultimo 0,2Round!0,2Le risposte valgono 0,4 3 0,2punti! }
    echo $comchan($me,1) Current File In Use:0,2 $scriptdir $+ %chaos_current | .enable #chaosanswers
    .timer 1 35 msg $comchan($me,1) 0,4Attenzione!0,2 Mancano0,4 10 0,2secondi0,2 alla fine del tempo
    .timer 1 45 .disable #chaosanswers
    .timer 1 46 chaos_success
    chaosanswers | halt
  }
  if %chaosround >= 5 {
    msg $comchan($me,1) 0,4Gioco Terminato.0,2 Questa partita di 3mIR4C6A7o4S0,2è finita! 
    if %chaosteam1score {
      msg $comchan($me,1) 0,2Vince il Giocatore :0,2 %chaosteam1 
    }
    if %chaosteam1score > %chaosteam2score { msg $comchan($me,1) 0,5Bravissimo $nick0,5!!! | msg $comchan($me,1) $read  $mircdirCaoswin.txt }
    msg $comchan($me,1) 0,2 Vince il giocatore :0,2 %chaosteam1
    msg $comchan($me,1) 1,0Aiutaci a costruire il database delle domande. Invia la tua categoria a un 4 operatore
    .timer 1 5 msg $comchan($me,1) 0,23mIR4C6A7o4S0,2 2.0 -
    .disable #chaosjoin | .disable #chaosteams | .enable #chanprot
    .timer 1 6 unset %game_in_progress
} }

#chaosanswers off
on 1:TEXT:*:#:{
  if $nick isin %chaosteam1 {
    if " $+ $1- $+ " isin %chaos_correct_answers && $1- !isin %chaos_current_round_winners {
      set %chaos_current_round_winners $nick $+ , $+ $1- $+ , $+ %chaos_current_round_winners
      set %chaostempanswer " $+ $1- $+ "
      set %chaos_correct_answers $remove(%chaos_correct_answers,%chaostempanswer)
      if $nick isin %chaosteam1 { inc %chaosteam1score 2
        if %chaosround == 5 { inc %chaosteam1score 1 }
      }

} } } }

#chaosanswers end

alias chaoscount {
  set %chaos_categories 1
  :loop
  set %chaos_file $scriptdir $+ %chaos_categories
  if $exists(%chaos_file) == $true { inc %chaos_categories | goto loop }
  if $exists(%chaos_file) == $false { dec %chaos_categories }
}

alias chaosanswers {
  set %chaos_counter 1
  :loop
  if %chaos_counter > $calc($lines(%chaos_current) -1) { goto end }
  inc %chaos_counter | set %chaos_temp3 $read -l $+ %chaos_counter %chaos_current 
  set %chaos_correct_answers " $+ %chaos_temp3 $+ " %chaos_correct_answers | goto loop
  :end
}
Ultima Modifica 14 Anni 5 Mesi fa da AnyWay.
Di più
14 Anni 5 Mesi fa #2734 da sorrisomaligno
Risposta da sorrisomaligno al topic Re:Caos
mè un gioco che hai inventato, o c'era già? :P
Di più
14 Anni 5 Mesi fa #2767 da con
Risposta da con al topic Re:Caos
No e un gioco che esiste gia',non lo inventato io, volevo alcune modifiche sul gioco senza giocare a squadre e volevo che qualcuno mi aiutasse a come impostarlo ed in fine con la classifica di ogni singole giocatore.Grazie per la vostra collaborazione
Di più
14 Anni 5 Mesi fa #2771 da LaDea
Risposta da LaDea al topic Re:Caos
sorrisomaligno possibile che te non conosca questo gioco :ohmy:
Di più
14 Anni 5 Mesi fa #2774 da sorrisomaligno
Risposta da sorrisomaligno al topic Re:Caos
no laDea non ci ho mai giocato :dry:
Tempo creazione pagina: 0.089 secondi