Enigma Bot — File Browser

EnigmaBotv1.4 / EnigmaBotv1.4 / Enigma versione1_4 / triviamio.ini

triviamio.ini — 18.16 KB — Download this file

[script]
n0=;;;Trivia by SlipknoT aka StonedStoner;;;
n1=;;;Commands;;;
n2=;!start - Start Trivia game
n3=;!stop - Stop current game
n4=;!classifica - see the top 5 of settimana o mese
n5=;example: !top5 week or !top5 month
n6=;!reset - resets score specified
n7=;example: !reset week or !reset month
n8=:*****DO NOT FORGET TO PUT YOUR NICK WHERE MasterNick IS!*****;
n9=
n10=on *:TEXT:*:%game_channel: {
n11=  set %triv.text $strip($1-,c)
n12=  if (%triv.text == !start) {
n13=    trivia 0
n14=  } 
n15=  if (%trivia == on) {
n16=    if ($1 == !classifica) {
n17=      classifica $2
n18=    }
n19=    if (%triv.text == !stop) {
n20=      set %trivia off
n21=    }
n22=    if (%triv.text == %trivia.a) {
n23=      if (%answered == yes) {
n24=        halt
n25=      }
n26=      set %answered yes
n27=      .timer 1 %tempodomanda  trivia.next
n28=      trivia.answered $nick
n29=      unset %trivia.a
n30=      set %trivia.qn $calc(%trivia.qn + 1)
n31=    } 
n32=  }
n33=
n34=  if ($1 == !punti) {
n35=    punteggi $2
n36=  } 
n37=} 
n38=
n39=
n40=
n41=alias trivia.answered { 
n42=  if ($1 == $null) { halt } 
n43=  else {  
n44=    set %trivia.week.add %trivia.week. [ $+ [ $1 ] ]
n45=    set %trivia.month.add %trivia.month. [ $+ [ $1 ] ]
n46=    set %trivia.week. [ $+ [ $1 ] ] $calc(%trivia.p + %trivia.week.add) 
n47=    set %trivia.month. [ $+ [ $1 ] ] $calc(%trivia.p + %trivia.month.add)
n48=    msg %game_channel $trivtalk(ESATTO!!!!) $+ 4 $1  $trivtalk(Ha dato una risposta:) $+ 4 %trivia.a  $trivtalk(In:) $+ 4 $duration($calc($ctime - %trivia.el))   $+   $+ %c1 $+ ! 4 $1  $trivtalk(Ha Totalizzato:) $+ 4 %trivia.p . $trivtalk(Totale Punti Settimanali:) $+ 4 %trivia.week. [ $+ [ $1 ] ]  $trivtalk(Totale Punti:) $+ 4 %trivia.month. [ $+ [ $1 ] ]
n49=    if (%trivia.week. [ $+ [ $1 ] ] > %trivia.week.1) {
n50=      ;mio
n51=      ; writeini -s triviascore.ini week 1 [ $1 $+ • $+ [ $calc(%trivia.p + %trivia.week.add) ] ]
n52=      ;mio
n53=      ; writeini -s triviascore.ini month 1 [ $1 $+ • $+  [ $calc(%trivia.p + %trivia.month.add) ] ]
n54=      if ($readini(triviascore.ini, week, 1) == $1) {
n55=        set %trivia.week.1 %trivia.week. [ $+ [ $1 ] ]
n56=        goto month
n57=      }
n58=      if ($readini(triviascore.ini, week, 1) != $1) { 
n59=        set %trivia.week.2 %trivia.week.1 
n60=        set %trivia.week.1 %trivia.week. [ $+ [ $1 ] ]
n61=        writeini triviascore.ini week 2 $readini(triviascore.ini, week, 1)
n62=        writeini triviascore.ini week 1 $1
n63=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #1 $trivtalk(di questa settimana!) 
n64=        classifica week 
n65=        goto month 
n66=      }
n67=    }
n68=    if (%trivia.week. [ $+ [ $1 ] ] > %trivia.week.2) {
n69=      if ($readini(triviascore.ini, week, 2) == $1) {
n70=        set %trivia.week.2 %trivia.week. [ $+ [ $1 ] ]
n71=        goto month
n72=      }
n73=      if ($readini(triviascore.ini, week, 1) !== $1) && ($readini(triviascore.ini, week, 2) !== $1) { 
n74=        set %trivia.week.3 %trivia.week.2 
n75=        set %trivia.week.2 %trivia.week. [ $+ [ $1 ] ]
n76=        writeini triviascore.ini week 3 $readini(triviascore.ini, week, 2)
n77=        writeini triviascore.ini week 2 $1
n78=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #2 $trivtalk(di questa settimana!) 
n79=        classifica week 
n80=        goto month
n81=      }
n82=    }
n83=    if (%trivia.week. [ $+ [ $1 ] ] > %trivia.week.3) {
n84=      if ($readini(triviascore.ini, week, 3) == $1) {
n85=        set %trivia.week.3 %trivia.week. [ $+ [ $1 ] ]
n86=        goto month
n87=      }
n88=      if ($readini(triviascore.ini, week, 1) !== $1) && ($readini(triviascore.ini, week, 2) !== $1) && ($readini(triviascore.ini, week, 3) !== $1) { 
n89=        set %trivia.week.4 %trivia.week.3 
n90=        set %trivia.week.3 %trivia.week. [ $+ [ $1 ] ]
n91=        writeini -s triviascore.ini week 4 $readini(triviascore.ini, week, 3)
n92=        writeini -s triviascore.ini week 3 $1
n93=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #3 $trivtalk(di questa settimana!) 
n94=        classifica week 
n95=        goto month
n96=      }
n97=    }
n98=    if (%trivia.week. [ $+ [ $1 ] ] > %trivia.week.4) {
n99=      if ($readini(triviascore.ini, week, 4) == $1) {
n100=        set %trivia.week.4 %trivia.week. [ $+ [ $1 ] ]
n101=        goto month
n102=      }
n103=      if ($readini(triviascore.ini, week, 1) !== $1) && ($readini(triviascore.ini, week, 2) !== $1) && ($readini(triviascore.ini, week, 3) !== $1) && ($readini(triviascore.ini, week, 4) !== $1) {  
n104=        set %trivia.week.5 %trivia.week.4 
n105=        set %trivia.week.4 %trivia.week. [ $+ [ $1 ] ]
n106=        writeini -s triviascore.ini week 5 $readini(triviascore.ini, week, 4)
n107=        writeini -s triviascore.ini week 4 $1
n108=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #4 $trivtalk(di questa settimana!) 
n109=        classifica week 
n110=        goto month
n111=      }
n112=    }
n113=    if (%trivia.week. [ $+ [ $1 ] ] > %trivia.week.5) {
n114=      if ($readini(triviascore.ini, week, 5) == $1) {
n115=        set %trivia.week.5 %trivia.week. [ $+ [ $1 ] ]
n116=        goto month
n117=      }
n118=      if ($readini(triviascore.ini, week, 1) !== $1) && ($readini(triviascore.ini, week, 2) !== $1) && ($readini(triviascore.ini, week, 3) !== $1) && ($readini(triviascore.ini, week, 4) !== $1) && ($readini(triviascore.ini, week, 5) !== $1) {
n119=        set %trivia.week.6 %trivia.week.5  
n120=        set %trivia.week.5 %trivia.week. [ $+ [ $1 ] ]
n121=        writeini -s triviascore.ini week 5 $1
n122=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #5 $trivtalk(di questa settimana!) 
n123=        classifica week 
n124=        goto month
n125=      }
n126=    }
n127=    if (%trivia.week. [ $+ [ $1 ] ] > %trivia.week.6) {
n128=      if ($readini(triviascore.ini, week, 6) !== $1) { 
n129=        set %trivia.week.6 %trivia.week. [ $+ [ $1 ] ]
n130=        goto month
n131=      }
n132=      if ($readini(triviascore.ini, week, 1) !== $1) && ($readini(triviascore.ini, week, 2) !== $1) && ($readini(triviascore.ini, week, 3) !== $1) && ($readini(triviascore.ini, week, 4) !== $1) && ($readini(triviascore.ini, week, 5) !== $1) && ($readini(triviascore.ini, week, 6) !== $1) { 
n133=        set %trivia.week.6 %trivia.week. [ $+ [ $1 ] ]
n134=        writeini -s triviascore.ini week 6 $1 
n135=        goto month 
n136=      }
n137=    }
n138=    :month 
n139=    if (%trivia.month. [ $+ [ $1 ] ] > %trivia.month.1) {
n140=      if ($readini(triviascore.ini, month, 1) == $1) {
n141=        set %trivia.month.1 %trivia.month. [ $+ [ $1 ] ]
n142=        halt
n143=      }
n144=      if ($readini(triviascore.ini, month, 1) !== $1) { 
n145=        set %trivia.month.2 %trivia.month.1 
n146=        set %trivia.month.1 %trivia.month. [ $+ [ $1 ] ]
n147=        writeini triviascore.ini month 2 $readini(triviascore.ini, month, 1)
n148=        writeini triviascore.ini month 1 $1
n149=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #1 $trivtalk(di sempre) 
n150=        classifica month 
n151=        halt 
n152=      }
n153=    }
n154=    if (%trivia.month. [ $+ [ $1 ] ] > %trivia.month.2) {
n155=      if ($readini(triviascore.ini, month, 2) == $1) {
n156=        set %trivia.month.2 %trivia.month. [ $+ [ $1 ] ]
n157=        halt
n158=      }
n159=      if ($readini(triviascore.ini, month, 1) !== $1) && ($readini(triviascore.ini, month, 2) !== $1) { 
n160=        set %trivia.month.3 %trivia.month.2 
n161=        set %trivia.month.2 %trivia.month. [ $+ [ $1 ] ]
n162=        writeini triviascore.ini month 3 $readini(triviascore.ini, month, 2)
n163=        writeini triviascore.ini month 2 $1
n164=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #2 $trivtalk(di sempre) 
n165=        classifica month 
n166=        halt 
n167=      }
n168=    }
n169=    if (%trivia.month. [ $+ [ $1 ] ] > %trivia.month.3) {
n170=      if ($readini(triviascore.ini, month, 3) == $1) {
n171=        set %trivia.month.3 %trivia.month. [ $+ [ $1 ] ]
n172=        halt
n173=      }
n174=      if ($readini(triviascore.ini, month, 1) !== $1) && ($readini(triviascore.ini, month, 2) !== $1) && ($readini(triviascore.ini, month, 3) !== $1) { 
n175=        set %trivia.month.4 %trivia.month.3 
n176=        set %trivia.month.3 %trivia.month. [ $+ [ $1 ] ]
n177=        writeini triviascore.ini month 4 $readini(triviascore.ini, month, 3)
n178=        writeini triviascore.ini month 3 $1
n179=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #3 $trivtalk(di sempre) 
n180=        classifica month 
n181=        halt 
n182=      }
n183=    }
n184=    if (%trivia.month. [ $+ [ $1 ] ] > %trivia.month.4) {
n185=      if ($readini(triviascore.ini, month, 4) == $1) {
n186=        set %trivia.month.4 %trivia.month. [ $+ [ $1 ] ]
n187=        halt
n188=      }
n189=      if ($readini(triviascore.ini, month, 1) !== $1) && ($readini(triviascore.ini, month, 2) !== $1) && ($readini(triviascore.ini, month, 3) !== $1) && ($readini(triviascore.ini, month, 4) !== $1) {  
n190=        set %trivia.month.5 %trivia.month.4 
n191=        set %trivia.month.4 %trivia.month. [ $+ [ $1 ] ]
n192=        writeini triviascore.ini month 5 $readini(triviascore.ini, month, 4)
n193=        writeini triviascore.ini month 4 $1
n194=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #4 $trivtalk(di sempre) 
n195=        classifica month 
n196=        halt 
n197=      }
n198=    }
n199=    if (%trivia.month. [ $+ [ $1 ] ] > %trivia.month.5) {
n200=      if ($readini(triviascore.ini, month, 5) == $1) {
n201=        set %trivia.month.5 %trivia.month. [ $+ [ $1 ] ]
n202=        halt
n203=      }
n204=      if ($readini(triviascore.ini, month, 1) !== $1) && ($readini(triviascore.ini, month, 2) !== $1) && ($readini(triviascore.ini, month, 3) !== $1) && ($readini(triviascore.ini, month, 4) !== $1) && ($readini(triviascore.ini, month, 5) !== $1) {
n205=        set %trivia.month.6 %trivia.month.5  
n206=        set %trivia.month.5 %trivia.month. [ $+ [ $1 ] ]
n207=        writeini triviascore.ini month 5 $1
n208=        msg %game_channel $trivtalk(Congratulazioni!) $+ 4 $1 $trivtalk(sei il N°) $+ 4 #5 $trivtalk(di sempre) 
n209=        classifica month 
n210=        halt 
n211=      }
n212=    }
n213=    if (%trivia.month. [ $+ [ $1 ] ] > %trivia.month.6) {
n214=      if ($readini(triviascore.ini, month, 6) !== $1) { 
n215=        set %trivia.month.6 %trivia.month. [ $+ [ $1 ] ]
n216=        halt
n217=      }
n218=      if ($readini(triviascore.ini, month, 1) !== $1) && ($readini(triviascore.ini, month, 2) !== $1) && ($readini(triviascore.ini, month, 3) !== $1) && ($readini(triviascore.ini, month, 4) !== $1) && ($readini(triviascore.ini, month, 5) !== $1) && ($readini(triviascore.ini, month, 6) !== $1) { 
n219=        set %trivia.month.6 %trivia.month. [ $+ [ $1 ] ]
n220=        writeini -s triviascore.ini month 6 $1 
n221=        halt 
n222=      } 
n223=    } 
n224=  }
n225=}
n226=
n227=alias trivia { 
n228=  if (%trivia == on) { HALT } 
n229=  else { 
n230=    if ($1 == 0) { 
n231=      set %trivia.max un 
n232=      set %trivia on 
n233=      set %trivia.qn 1 
n234=      msg $chan $trivtalk(Trivia Avviato! State Pronti!)    
n235=      .timer 1 %tempodomanda trivia.next 
n236=    } 
n237=  } 
n238=} 
n239=
n240=alias trivia.next { 
n241=  if (%trivia = off) { 
n242=    msg %game_channel $trivtalk(Fine Della Partita! Trivia Fermato.) 
n243=    halt 
n244=  } 
n245=  else { 
n246=    set %trivia.rand $rand(1,$lines(trivia.txt)) 
n247=    set %trivia.n $read(trivia.txt,%trivia.rand) 
n248=    set %trivia.q $gettok($read(trivia.txt,%trivia.rand),1,42) 
n249=    set %trivia.a $gettok($read(trivia.txt,%trivia.rand),2,42) 
n250=    set %trivia.hmio $trivhint(%trivia.a,0,*)
n251=    set %trivia.h1 $trivhint(%trivia.a,1,*) 
n252=    set %trivia.h2 $trivhint(%trivia.a,2,*)
n253=    set %trivia.h3 $trivhint(%trivia.a,3,*) 
n254=    set %trivia.p $rand(15,50)
n255=    unset %trivia.n
n256=    msg %game_channel  $+ %c1 —[ %trivia.qn $+  $+ %c1 ]—[ $+  $+ %c1  %trivia.rand $+  / $+ %c2 $lines(trivia.txt) $+  $+ %c1 ]     —] 0,1 $+ %trivia.q $+  [—     $+ $trivtalk(Risposta Da)  $+ 4 %trivia.p  $trivtalk(Punti)  
n257=    msg %game_channel   $+ %c1 —[ %trivia.qn $+  $+ %c1 ]— $trivtalk(Lettere:)  %trivia.hmio
n258=    set %trivia.el $ctime
n259=    unset %answered
n260=    .timerhint1 1 %tempoaiuto hint1
n261=    .timerhint2 1 $calc((%tempoaiuto)*2) hint2
n262=    .timerhint3 1 $calc((%tempoaiuto)*3) hint3
n263=    .timerq 1 $calc((%tempoaiuto)*4) trivia.unanswered
n264=  } 
n265=}
n266=
n267=alias trivia.unanswered {
n268=  if (%answered == yes) {
n269=    halt
n270=  }
n271=  msg %game_channel   $+ %c1 —[ %trivia.qn $+  $+ %c1 ]— $trivtalk(La Risposta Era:)  %trivia.a
n272=  set %trivia.qn $calc(%trivia.qn + 1)
n273=  set %trivia.a ambarabacciccco
n274=  .timer 1 %tempodomanda trivia.next
n275=}
n276=
n277=alias classifica {
n278=  if ($1 == settimana) {
n279=    msg %game_channel $trivtalk(Classifica settimanale:) $+ 4 $readini(triviascore.ini, week, 1) %trivia.week. [ $+ [ $readini(triviascore.ini, week, 1) ] ]  $+ , $trivtalk(2nd:) $+ 4 $readini(triviascore.ini, week, 2) %trivia.week. [ $+ [ $readini(triviascore.ini, week, 2) ] ]  $+ , $trivtalk(3rd:) $+ 4 $readini(triviascore.ini, week, 3) %trivia.week. [ $+ [ $readini(triviascore.ini, week, 3) ] ]  $+ , $trivtalk(4th:) $+ 4 $readini(triviascore.ini, week, 4) %trivia.week. [ $+ [ $readini(triviascore.ini, week, 4) ] ]  $+ , $trivtalk(5th:) $+ 4 $readini(triviascore.ini, week, 5) %trivia.week. [ $+ [ $readini(triviascore.ini, week, 5) ] ] 
n280=  }
n281=  if ($1 == generale) {
n282=    msg %game_channel $trivtalk(Classifica generale:) $+ $readini(triviascore.ini, month, 1) %trivia.month. [ $+ [ $readini(triviascore.ini, month, 1) ] ] $+ , $trivtalk(2nd:) $+ 4 $readini(triviascore.ini, month, 2) %trivia.month. [ $+ [ $readini(triviascore.ini, month, 2) ] ] $+ , $trivtalk(3rd:) $+ 4 $readini(triviascore.ini, month, 3) %trivia.month. [ $+ [ $readini(triviascore.ini, month, 3) ] ] $+ , $trivtalk(4th:) $+ 4 $readini(triviascore.ini, month, 4) %trivia.month. [ $+ [ $readini(triviascore.ini, month, 4) ] ] $+ , $trivtalk(5th:) $+ 4 $readini(triviascore.ini, month, 5) %trivia.month. [ $+ [ $readini(triviascore.ini, month, 5) ] ]
n283=  }
n284=}
n285=;Made by FiberOptics
n286=alias trivhint { 
n287=  var %a, %b = $regsub($1,/(?<=\S{ $+ $2})\S/g,$replace($$3,\,\\,$,\$),%a) 
n288=  return %a 
n289=}
n290=;
n291=alias hint1 {
n292=  if (%answered == yes) {
n293=    halt
n294=  }
n295=  else {
n296=    msg %game_channel  $+ %c1 —[ %trivia.qn $+  $+ %c1 ]— $trivtalk(Primo Aiuto:)  %trivia.h1
n297=  }
n298=}
n299=alias hint2 {
n300=  if (%answered == yes) {
n301=    halt
n302=  }
n303=  else {
n304=    msg %game_channel  $+ %c1 —[ %trivia.qn $+  $+ %c1 ]— $trivtalk(Secondo Aiuto:)  %trivia.h2
n305=  }
n306=}
n307=alias hint3 {
n308=  if (%answered == yes) {
n309=    halt
n310=  }
n311=  else {
n312=    msg %game_channel  $+ %c1 —[ %trivia.qn $+  $+ %c1 ]— $trivtalk(Terzo Aiuto:)    %trivia.h3
n313=  }
n314=}
n315=;$+ %c1 $+ 
n316=
n317=on *:dialog:stre.bot:sclick:154: { 
n318=  .timerresetweek -o 0 604800 
n319=  unset %trivia.week.*
n320=  set %trivia.week.1 0
n321=  set %trivia.week.2 0
n322=  set %trivia.week.3 0
n323=  set %trivia.week.4 0
n324=  set %trivia.week.5 0
n325=  set %trivia.week.6 0
n326=  writeini triviascore.ini week 1 none
n327=  writeini triviascore.ini week 2 none
n328=  writeini triviascore.ini week 3 none
n329=  writeini triviascore.ini week 4 none
n330=  writeini triviascore.ini week 5 none
n331=  writeini triviascore.ini week 6 none
n332=}
n333=
n334=on *:dialog:stre.bot:sclick:155: { 
n335=  unset %trivia.month.*
n336=  set %trivia.month.1 0
n337=  set %trivia.month.2 0
n338=  set %trivia.month.3 0
n339=  set %trivia.month.4 0
n340=  set %trivia.month.5 0
n341=  set %trivia.month.6 0
n342=  writeini triviascore.ini month 1 none
n343=  writeini triviascore.ini month 2 none
n344=  writeini triviascore.ini month 3 none
n345=  writeini triviascore.ini month 4 none
n346=  writeini triviascore.ini month 5 none
n347=  writeini triviascore.ini month 6 none
n348=}
n349=
n350=;did not make this talker;
n351=;not sure where i got it but if someone knows tell me and i will give credit;
n352=
n353=on *:JOIN:%game_channel: {
n354=  if (%graditrivia == 1) {
n355=    if (%trivia.month. [ $+ [ $nick ] ] <= 1) {
n356=      notice $nick $trivtalk(Benvenuto in $chan $nick $+ . Non hai punteggi Trivia attivi!)
n357=    }
n358=    elseif (%trivia.month. [ $+ [ $nick ] ] > 0) {
n359=      notice $nick $trivtalk(Bentornata $nick $+ . tu hai) $+ 4 %trivia.week. [ $+ [ $nick ] ] $trivtalk(punti settimanali e un totale di) $+ 4 %trivia.month. [ $+ [ $nick ] ] 
n360=      if ($readini(triviascore.ini, week, 1) == $nick) {
n361=        mode # +o $nick
n362=      }
n363=      if ($readini(triviascore.ini, week, 2) == $nick) {
n364=        mode # +v $nick
n365=      }
n366=      if ($readini(triviascore.ini, week, 3) == $nick) {
n367=        mode # +v $nick
n368=      }
n369=      if ($readini(triviascore.ini, week, 4) == $nick) {
n370=        mode # +v $nick
n371=      }
n372=      if ($readini(triviascore.ini, week, 5) == $nick) {
n373=        mode # +v $nick
n374=      }
n375=    }
n376=  }
n377=}
n378=on *:disconnect: {
n379=  set %trivia off
n380=}
n381=on *:exit: {
n382=  set %trivia off
n383=}
n384=
n385=alias punteggio {
n386=  if ($1 == settimana) {
n387=    msg %game_channel $trivtalk(Punti settimana )  $nick : 4 %trivia.week. [ $+ [ $nick ] ]
n388=  }
n389=  if ($1 == generale) {
n390=    msg %game_channel $trivtalk(Punti mese )  $nick : 4  %trivia.week. [ $+ [ $nick ] ]
n391=
n392=  }
n393=}