View difference between Paste ID: xK9GMeaK and JsyuQ38u
SHOW: | | - or go back to the newest paste.
1
on *:TEXT:!awantura:#:{
2
  if (!%awantura) {
3
    set %awantura 1
4
    set %awantura.join 1
5
    set %awantura.join.1 1
6
    set %awantura.join.2 1
7-
    set %awantura.join.3 1
7+
8
    set %awantura.t2.name niebieski
9
    set %awantura.t1.dop zielonego
10-
    set %awantura.t3.name pomarańczowy
10+
11
    set %awantura.t1.dop.lm zielonych
12
    set %awantura.t2.dop.lm niebieskich
13-
    set %awantura.t3.dop pomarańczowego
13+
14
    set %awantura.t2.kto niebiescy
15
    set %awantura.kanal $chan
16-
    set %awantura.t3.dop.lm pomarańczowych
16+
17
    set %awantura.t2.kolor 12
18
    set %awantura.t1.kasa 5000
19-
    set %awantura.t3.kto pomarańczowi
19+
20
    set %awantura.liczba.graczy.w.teamie 1
21
    set %awantura.plik.z.kategoriami pliki/kategorie.txt
22
    set %awantura.bazowa.kasa 200
23-
    set %awantura.t3.kolor 7
23+
24
    msg %awantura.kanal 9,1Dołączenie - !join [1,2] 0,1 $+ $chr(124) 4,1Team 1 - %awantura.t1.name $+ , Team 2 - %awantura.t2.name
25
  }
26-
    set %awantura.t3.kasa 5000
26+
27
    msg $chan Gra w toku!
28
  }
29
}
30
31-
    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
31+
32
  if ($2) && (%awantura.join == 1) {
33
    var %a $2
34
    if (%a !isnum 1-2) { halt }
35
    if ($istok(%awantura.allteams,$nick,44)) {
36
      msg $chan 0,1Nie możesz dołączyć dwa razy!
37
      halt
38
    }
39
    if (%awantura.join. [ $+ [ %a ] ] == 0) { halt }
40
    set %awantura.t [ $+ [ %a ] ] [ $+ [ .sklad ] ] $addtok($nick,%awantura.t [ $+ [ %a ] ] [ $+ [ .sklad ] ],44)
41-
    if (%a !isnum 1-3) { halt }
41+
    set %awantura.allteams %awantura.t1.sklad $+ $chr(44) $+ %awantura.t2.sklad
42
    msg %awantura.kanal 0,1 $+ $nick został zapisany do  $+ %awantura.t [ $+ [ %a ] ] [ $+ [ .kolor ] ] $+ ,1 $+ %awantura.t [ $+ [ %a ] ] [ $+ [ .dop ] ] 0,1zespołu.
43
    if ($numtok(%awantura.t [ $+ %a ] ] [ $+ [ .sklad ] ],44) == %awantura.liczba.graczy.w.teamie) {
44
      msg %awantura.kanal 0,1Zgłoszenia do teamu  $+ %awantura.t [ $+ [ %a ] ] [ $+ [ .kolor ] ] $+ ,1 $+ %awantura.t [ $+ [ %a ] ] [ $+ [ .dop ] ] 0,1zakończone...
45
      set %awantura.join. [ $+ [ %a ] ] 0
46
    }
47
    if ($numtok(%awantura.allteams,44) == $calc(%awantura.liczba.graczy.w.teamie * 2)) {
48-
    set %awantura.allteams %awantura.t1.sklad $+ $chr(44) $+ %awantura.t2.sklad $+ $chr(44) $+ %awantura.t3.sklad
48+
49
      msg %awantura.kanal 0,1REJESTRACJA DO ZESPOŁÓW ZAKOŃCZONA
50
      set %awantura.gra 1
51
      .signal gra
52
    }
53
  }
54-
    if ($numtok(%awantura.allteams,44) == $calc(%awantura.liczba.graczy.w.teamie * 3)) {
54+
55
alias aw.k.los {
56
  msg %awantura.kanal 0,1Losowanie kategorii...
57
  var %read $read(%awantura.plik.z.kategoriami)
58
  set %awantura.kategoria $gettok(%read,2,124)
59
  set %awantura.kategoria.id $gettok(%read,1,124)
60
  .timer 1 3 msg %awantura.kanal 0,1Wylosowana kategoria to: %awantura.kategoria
61
  .timer 1 5 aw.licytacja
62
}
63
alias aw.p.los {
64
  msg %awantura.kanal 0,1Losowanie pytania...
65
  var %read $read(pliki/pytania. [ $+ [ %awantura.kategoria.id ] ] [ $+  [ .txt ] ])
66
  set %awantura.pytanie $gettok(%read,1,124)
67
  set %awantura.odpowiedz $gettok(%read,2,124)
68
  .timer 1 3 msg %awantura.kanal 0,1Pytanie wylosowane...
69
  .timer 1 3 aw.p.gra
70
}
71
alias aw.p.gra {
72
  set %awantura.o 1
73
}
74
alias aw.licytacja {
75
  msg %awantura.kanal 0,1Biorę po %awantura.bazowa.kasa od każdej drużyny, słucham państwa
76
  set %awantura.licytacja 1
77
  set %awantura.pula $calc(2 * %awantura.bazowa.kasa)
78
  set %awantura.pula.g %awantura.bazowa.kasa
79
  set %awantura.t1.kasa $calc(%awantura.t1.kasa - %awantura.bazowa.kasa)
80
  set %awantura.t2.kasa $calc(%awantura.t2.kasa - %awantura.bazowa.kasa)
81
  aw.l.pula %awantura.pula %awantura.t1.kasa %awantura.t2.kasa
82
}
83
84-
  set %awantura.pula $calc(3 * %awantura.bazowa.kasa)
84+
85
  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 $chr(124) W licytacji prowadzą: $5
86
}
87
88-
  set %awantura.t3.kasa $calc(%awantura.t3.kasa - %awantura.bazowa.kasa)
88+
89-
  aw.l.pula %awantura.pula %awantura.t1.kasa %awantura.t2.kasa %awantura.t3.kasa
89+
90
  aw.p.los
91
}
92
93-
  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
93+
94
  msg %awantura.kanal RESET
95
  unset %awantura.*
96
  unset %awantura
97
}
98
99
on *:SIGNAL:gra:{
100
  if (%awantura.gra) {
101
    aw.k.los
102
  }
103
}
104
105
on *:TEXT:!zasady:#:{
106
  if ($istok(%awantura.allteams,$nick,44)) {
107
    .play -q3n $nick zasady.txt 700
108
  }
109
}
110
on *:TEXT:!o *:#:{
111
  if (%awantura.o == 1 && $istok(%awantura.allteams, $nick, 44)) {
112
    set %awantura.o 0
113
    if ($2- == %awantura.odpowiedz) {
114
      msg %awantura.kanal OMG
115
    }
116
    else {
117
      msg %awantura.kanal OMFG
118
    }
119
  }
120
}
121
122
on *:TEXT:!l *:#:{
123
  if (%awantura.licytacja == 1 && $istok(%awantura.allteams, $nick, 44)) {
124
  }
125
}