SHOW:
|
|
- or go back to the newest paste.
| 1 | on *:text:!ruletka*:#:{
| |
| 2 | if (!$2) || ($2 !isnum 1-20) || (!$3) || ($3 !isnum 1-10) {
| |
| 3 | msg # Składnia: !ruletka <ilość graczy> <ilość komór> | |
| 4 | } | |
| 5 | else {
| |
| 6 | if (!%ruletka) {
| |
| 7 | set %delim 44 | |
| 8 | set %ruletka 1 | |
| 9 | set %kanal $chan | |
| 10 | set %gracze $addtok(%gracze,$nick,%delim) | |
| 11 | set %ilosc.reg $calc($2 - 1) | |
| 12 | - | set %komory $iif($3 < $2,$2,$3) |
| 12 | + | set %komory $3 |
| 13 | msg %kanal $nick chce grać w ruletkę! Jeżeli ty też chcesz, pisz !join. | |
| 14 | } | |
| 15 | } | |
| 16 | } | |
| 17 | ||
| 18 | on *:text:!join:#:{
| |
| 19 | if (%ruletka == 1) {
| |
| 20 | if ($istok(%gracze,$nick,%delim)) {
| |
| 21 | notice $nick Nie możesz dołączyć dwa razy. | |
| 22 | } | |
| 23 | else {
| |
| 24 | set %gracze $addtok(%gracze,$nick,%delim) | |
| 25 | dec %ilosc.reg | |
| 26 | msg %kanal $nick też jest w grze. Pozostało %ilosc.reg rejestracji. | |
| 27 | if (%ilosc.reg == 0) {
| |
| 28 | set %ruletka 2 | |
| 29 | set %nr $r(1,$numtok(%gracze,%delim)) | |
| 30 | set %gracz $gettok(%gracze,%nr,%delim) | |
| 31 | set %liczba.graczy $numtok(%gracze,%delim) | |
| 32 | msg %kanal KONIEC REJESTRACJI | |
| 33 | unset %ilosc.reg | |
| 34 | - | .timer 1 2 msg %kanal Pierwszym graczem jest: %gracz |
| 34 | + | .timer 1 2 msg %kanal Pierwszym graczem jest: %gracz (!strzal) |
| 35 | } | |
| 36 | } | |
| 37 | } | |
| 38 | } | |
| 39 | on *:text:!strzal:#:{
| |
| 40 | if (%ruletka == 2) {
| |
| 41 | if ($nick == %gracz) {
| |
| 42 | if (%liczba.graczy == %nr || %liczba.graczy < %nr) {
| |
| 43 | set %nr 1 | |
| 44 | } | |
| 45 | else {
| |
| 46 | inc %nr | |
| 47 | } | |
| 48 | var %strzal $r(1,%komory) | |
| 49 | - | var %bum 2 |
| 49 | + | var %bum 1 |
| 50 | - | msg %kanal $nick podnosi pistolet, modli się, i pociąga za spust... |
| 50 | + | msg %kanal $nick podnosi pistolet, 4(wyedytowane na żądanie Nagiego XDD), i pociąga za spust... |
| 51 | .notice |Grzechooo| %gracz $+ : Strzal: %strzal Bum: %bum | |
| 52 | if (%strzal == %bum) {
| |
| 53 | set %wynik. [ $+ [ %liczba.graczy ] ] %gracz | |
| 54 | set %gracz $gettok(%gracze,%nr,%delim) | |
| 55 | .timer 1 3 kick %kanal $nick KABOOM! | |
| 56 | set %gracze $remtok(%gracze,$nick,1,%delim) | |
| 57 | set %liczba.graczy $numtok(%gracze,%delim) | |
| 58 | - | .timer 1 3 msg %kanal $nick niestety nie miał farta... |
| 58 | + | |
| 59 | .timer 1 3 msg %kanal $nick niestety nie miał farta... Gra skończona. | |
| 60 | .timer 1 4 msg %kanal KONIEC GRY, ZWYCIĘZCĄ JEST: %gracze $+ !!! | |
| 61 | - | .timer 1 5 .signal wyniki %kanal |
| 61 | + | |
| 62 | .timer 1 5 wyniki %kanal | |
| 63 | unset %ruletka %kanal %gracze %komory %nr %gracz %liczba.graczy %delim | |
| 64 | } | |
| 65 | - | .timer 1 4 msg %kanal $nick niestety nie miał farta... Następny w kolejce: %gracz |
| 65 | + | |
| 66 | .timer 1 4 msg %kanal $nick niestety nie miał farta... Następny w kolejce: %gracz (!strzal) | |
| 67 | } | |
| 68 | } | |
| 69 | else {
| |
| 70 | - | .timer 1 3 msg %kanal (*klik*) $nick ma farta... tym razem. Następny w kolejce jest: %gracz |
| 70 | + | |
| 71 | .timer 1 3 msg %kanal (*klik*) $nick ma farta... tym razem. Następny w kolejce jest: %gracz (!strzal) | |
| 72 | } | |
| 73 | } | |
| 74 | } | |
| 75 | } | |
| 76 | - | on *:SIGNAL:wyniki:{
|
| 76 | + | |
| 77 | alias wyniki {
| |
| 78 | msg $1 TABELA: | |
| 79 | .timer 1 1 msg $1 1. miejsce: %wynik.1 | |
| 80 | .timer 1 2 msg $1 2. miejsce: %wynik.2 | |
| 81 | if (%wynik.3) { .timer 1 3 msg $1 3. miejsce: %wynik.3 }
| |
| 82 | if (%wynik.4) { .timer 1 4 msg $1 4. miejsce: %wynik.4 }
| |
| 83 | if (%wynik.5) { .timer 1 5 msg $1 5. miejsce: %wynik.5 }
| |
| 84 | if (%wynik.6) { .timer 1 6 msg $1 6. miejsce: %wynik.6 }
| |
| 85 | unset %wynik.* | |
| 86 | } |
