Awantura version 0.01 (nie działa)

on *:TEXT:!awantura:#:{
  if (!%awantura) {
    set %awantura 1
    set %awantura.join 1
    set %awantura.join.1 1
    set %awantura.join.2 1
    set %awantura.join.3 1
    set %awantura.t1.name zielony
    set %awantura.t2.name niebieski
    set %awantura.t3.name pomarańczowy
    set %awantura.t1.dop zielonego
    set %awantura.t2.dop niebieskiego
    set %awantura.t3.dop pomarańczowego
    set %awantura.t1.dop.lm zielonych
    set %awantura.t2.dop.lm niebieskich
    set %awantura.t3.dop.lm pomarańczowych
    set %awantura.t1.kto zieloni
    set %awantura.t2.kto niebiescy
    set %awantura.t3.kto pomarańczowi
    set %awantura.kanal $chan
    set %awantura.t1.kolor 3
    set %awantura.t2.kolor 12
    set %awantura.t3.kolor 7
    set %awantura.t1.kasa 5000
    set %awantura.t2.kasa 5000
    set %awantura.t3.kasa 5000
    set %awantura.liczba.graczy.w.teamie 1
    set %awantura.plik.z.kategoriami pliki/kategorie.txt
    set %awantura.bazowa.kasa 200
    msg %awantura.kanal 0,1Awantura rozpoczęta...
    msg %awantura.kanal 9,1Dołączenie - !join [1,2,3] 0,1 $+ $chr(124) 4,1Team 1 - %awantura.t1.name $+ , Team 2 - %awantura.t2.name $+ , Team 3 - %awantura.t3.name
  }
  else {
    msg $chan Gra w toku!
  }
}

on *:TEXT:!join*:#:{
  if ($2) && (%awantura.join == 1) {
    var %a $2
    if (%a !isnum 1-3) { halt }
    if ($istok(%awantura.allteams,$nick,44)) {
      msg $chan 0,1Nie możesz dołączyć dwa razy!
      halt
    }
    if (%awantura.join. [ $+ [ %a ] ] == 0) { halt }
    set %awantura.t [ $+ [ %a ] ] [ $+ [ .sklad ] ] $addtok($nick,%awantura.t [ $+ [ %a ] ] [ $+ [ .sklad ] ],44)
    set %awantura.allteams %awantura.t1.sklad $+ $chr(44) $+ %awantura.t2.sklad $+ $chr(44) $+ %awantura.t3.sklad
    msg %awantura.kanal 0,1 $+ $nick został zapisany do  $+ %awantura.t [ $+ [ %a ] ] [ $+ [ .kolor ] ] $+ ,1 $+ %awantura.t [ $+ [ %a ] ] [ $+ [ .dop ] ] 0,1zespołu.
    if ($numtok(%awantura.t [ $+ %a ] ] [ $+ [ .sklad ] ],44) == %awantura.liczba.graczy.w.teamie) {
      msg %awantura.kanal 0,1Zgłoszenia do teamu  $+ %awantura.t [ $+ [ %a ] ] [ $+ [ .kolor ] ] $+ ,1 $+ %awantura.t [ $+ [ %a ] ] [ $+ [ .dop ] ] 0,1zakończone...
      set %awantura.join. [ $+ [ %a ] ] 0
    }
    if ($numtok(%awantura.allteams,44) == $calc(%awantura.liczba.graczy.w.teamie * 3)) {
      set %awantura.join 0
      msg %awantura.kanal 0,1REJESTRACJA DO ZESPOŁÓW ZAKOŃCZONA
      set %awantura.gra 1
      .signal gra
    }
  }
}
alias aw.k.los {
  msg %awantura.kanal 0,1Losowanie kategorii...
  var %read $read(%awantura.plik.z.kategoriami)
  set %awantura.kategoria $gettok(%read,2,124)
  set %awantura.kategoria.id $gettok(%read,1,124)
  .timer 1 3 msg %awantura.kanal 0,1Wylosowana kategoria to: %awantura.kategoria
  .timer 1 5 aw.licytacja
}
alias aw.p.los {
  msg %awantura.kanal 0,1Losowanie pytania...
  var %read $read(pliki/pytania. [ $+ [ %awantura.kategoria.id ] ] [ $+  [ .txt ] ])
  set %awantura.pytanie $gettok(%read,1,124)
  set %awantura.odpowiedz $gettok(%read,2,124)
  .timer 1 3 msg %awantura.kanal 0,1Pytanie wylosowane...
  .timer 1 3 aw.p.gra
}
alias aw.p.gra {
  set %awantura.o 1
}
alias aw.licytacja {
  msg %awantura.kanal 0,1Biorę po %awantura.bazowa.kasa od każdej drużyny, słucham państwa
  set %awantura.licytacja 1
  set %awantura.pula $calc(3 * %awantura.bazowa.kasa)
  set %awantura.pula.g %awantura.bazowa.kasa
  set %awantura.t1.kasa $calc(%awantura.t1.kasa - %awantura.bazowa.kasa)
  set %awantura.t2.kasa $calc(%awantura.t2.kasa - %awantura.bazowa.kasa)
  set %awantura.t3.kasa $calc(%awantura.t3.kasa - %awantura.bazowa.kasa)
  aw.l.pula %awantura.pula %awantura.t1.kasa %awantura.t2.kasa %awantura.t3.kasa
}

alias aw.l.pula {
  msg %awantura.kanal 0,1Pula: $1 $chr(124) Kasa  $+ %awantura.t1.kolor $+ ,1 $+ %awantura.t1.dop.lm $+ 0,1: $2 $chr(124) Kasa  $+ %awantura.t2.kolor $+ ,1 $+ %awantura.t2.dop.lm $+ 0,1: $3 $chr(124) Kasa  $+ %awantura.t3.kolor $+ ,1 $+ %awantura.t3.dop.lm $+ 0,1: $4 $chr(124) W licytacji prowadzą: $5
}

alias aw.l.koniec {
  msg %awantura.kanal 0,1KONIEC LICYTACJI, PYTANIE MAJĄ  $+ $2 $+ ,1 $+ $upper($1)
  aw.p.los
}

alias aw.reset {
  msg %awantura.kanal RESET
  unset %awantura.*
  unset %awantura
}

on *:SIGNAL:gra:{
  if (%awantura.gra) {
    aw.k.los
  }
}

on *:TEXT:!zasady:#:{
  if ($istok(%awantura.allteams,$nick,44)) {
    .play -q3n $nick zasady.txt 700
  }
}
on *:TEXT:!o *:#:{
  if (%awantura.o == 1 && $istok(%awantura.allteams, $nick, 44)) {
    set %awantura.o 0
    if ($2- == %awantura.odpowiedz) {
      msg %awantura.kanal OMG
    }
    else {
      msg %awantura.kanal OMFG
    }
  }
}