#CLASS {BATTLE}
#VAR pomocb_walka { F1 lub * - z cel ataku F4 - wyjdz zza zaslony
 F2 - k wszystkich przelam obrone celu ataku
 F3 - k druzyny z cel ataku
 F4 - przelam
 F5 - wesprzyj
 F7 - wl/wyl speca 
 F8 - opcje grupa 1/2/4}
#CLASS 0
#CLASS {BATTLE|Szyk}
#TRIGGER {przekazuje ci prowadzenie druzyny.$} {#cw 13}
#TRIGGER {wskazuje (*) jako cel obrony.} {#SA %ansi( 269) WSKAZANO CEL OBRONY!} "" {disable}
#TRIGGER {(*) przymierza sie do odciecia ci drogi ucieczki.} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(12) PROBA BLOKU CIEBIE ! ! !};#play Sounds\Malefice.mp3;#alarm +3 {#SA %ansi( 9)2 SEKUNDY WYLAZ ! ! !};#alarm +6 {PO BLOKU}}
#TRIGGER {(*) przymierza sie do odciecia {^ci}} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(12) PRE BLOK"  ===> " }}
#TRIGGER {(*) zajmuje pozycje umozliwiajaca odciecie ci drogi ucieczki.} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(524) --->> B L O K U J E C I E ! ! ! <<---}} "" {disable}
#TRIGGER {(*) zajmuje pozycje umozliwiajaca odciecie {^ci}} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(12) B L O K"  " }}
#TRIGGER {^{|> }Zajmujesz pozycje umozliwiajaca odciecie} {#sub {%ansi(12)%repeat(" ",37) TY B L O K" "}}
#TRIGGER {^{|> }Juz walczysz z } {#GAG}
#TRIGGER {(*) silnym ciosem * oglusza cie. Powoli osuwasz sie na ziemie.} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(516) O G L U S Z A C I E ! ! !}}
#TRIGGER {Powoli dochodzisz do siebie.} {#sub {%repeat(" ",39)%ansi(11)TY %ansi(8)KONIEC OGLUSZENIA}}
#TRIGGER {(*) powoli dochodzi do siebie.} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(8) KONIEC OGLUSZENIA}}
#REGEX {^(?:> )?([A-Z][a-z]{2,}|[A-Z][a-z]+(?:(y|i)|(a|e))\s[a-z]{2,}(?(2)(?:y|i)|\3)\s[a-z]{3,}(?:\s[a-z]{3,})?) atakuje (?!cie)} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(12) A T A K"  ===> "}} "" {case}
#TRIGGER {Helm rozjarza sie niebieskim, zimnym swiatlem.} {#cw 13}
#MENU {Zablokuj %proper(@odmien_mb(%selword))} {#if (@odmien_mb(%selword)) {zablokuj @odmien_mb(%selword)}} ""
#CLASS 0
#CLASS {BATTLE|Rozkazy}
#ALIAS wc {wskaz na %-1 jako cel ataku;z cel ataku}
#ALIAS wcz {wskaz na %-1 jako cel ataku;z cel ataku;rozkaz wszystkim zaslonic ciebie}
#ALIAS wcg {wskaz goblina jako cel ataku;z cel ataku}
#ALIAS wco {wskaz orka jako cel ataku;z cel ataku}
#ALIAS wcco {wskaz czarnego orka jako cel ataku;z cel ataku}
#ALIAS wcoo {wskaz ozywienca jako cel ataku;z cel ataku}
#ALIAS ro {rozkaz %-1 zaatakowac cel ataku}
#ALIAS wcf {wskaz fimira jako cel ataku;zabij cel ataku}
#ALIAS wccoz {wskaz czarnego orka jako cel ataku;zabij cel ataku;rozkaz wszystkim zaslonic ciebie}
#ALIAS wcoz {wskaz orka jako cel ataku;zabij cel ataku;rozkaz wszystkim zaslonic ciebie}
#ALIAS wch {wskaz hobgoblina jako cel ataku;zabij cel ataku}
#ALIAS wcsz {wskaz skavena jako cel ataku;zabij cel ataku;rozkaz wszystkim zaslonic ciebie}
#TRIGGER {^{|> }{Wydajesz rozkaz|Glosno wypowiadasz rozkaz}} {#sub { %ansi(5)ROZKAZUJESZ => %ansi(2) };#alarm +10 {#SA %ansi( 5)ROZKAZ GOTOWY}}
#CLASS 0
#CLASS {BATTLE|Zaslony}
#ALIAS zs {gzzaslon}
#ALIAS zs1 {opcje grupa 1}
#ALIAS zs2 {opcje grupa 2}
#ALIAS zs4 {opcje grupa 4}
#TRIGGER {^{|> }Zrecznie zaslaniasz} {#sub {%ansi(5)%repeat("-",37)-->> ZASLONA"  ===> "};#alarm +4.7 {#SA %ansi(9)ZASLONA GOTOWA}} "" {case}
#COND {przed ciosami} {#sub <<--} {reparse}
#TRIGGER {(*) zrecznie zaslania {^cie}} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(5) ZASLONA"   ===> "}} "" {case}
#COND {przed ciosami} {#sub <<--} {reparse}
#TRIGGER {(*) zrecznie zaslania cie } {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(11) ZASLONA"  ===>" CIEBIE!" "}}
#COND {przed ciosami} {#sub <<--} {reparse}
#TRIGGER {^{|> }(Z wprawa stajesz pomiedzy )(*)( a )(*)(, przyjmujac na siebie nadchodzace ciosy).$} {#psub {%ansi(5)%repeat("-",37)-->> ZASLONA"   "} %x1;#psub {%ansi(5)%repeat(" ",10-%len(%2))" <=== ""["%ansi(15)%numitems(%replace(%replace("%4",", ","|")," i ","|"))%ansi(5)"]: "} %x3;#psub {""} %x5;#alarm +5 {#SA %ansi(9)ZASLONA GOTOWA}} "" {notrig}
#TRIGGER {przestan zaslaniac} {#gag}
#TRIGGER {(*) wychodzi zza twojej zaslony.} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(8) ---PKZ--> CIEBIE!}}
#TRIGGER {^{|> }Wychodzisz zza zaslony} {#sub {%repeat(" ",39)%ansi(8)"TY  ---PKZ-->"}}
#TRIGGER {(*) wychodzi zza zaslony} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(8) "---PKZ-->"}} "" {case}
#COND {przed ciosami} {#sub <<--} {reparse}
#TRIGGER {(*) przestaje zaslaniac} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(8) ---PZ--->}}
#TRIGGER {(*) przestaje cie zaslaniac} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(8) ---PZ---> CIEBIE!}}
#COND {przed ciosami wrogow.} {#sub {}} {reparse}
#TRIGGER {^{|>}Przestajesz zaslaniac } {#sub {%repeat(" ",37)%ansi(8) TY ---PZ--->" "}}
#TRIGGER {(*) rzuca sie na (*) przebijajac sie przez %w ochrone.} {#play Sounds\BashSlardar.mp3}
#COND {(*) rzuca sie na} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(4) -->> ZASLONA PRZEBITA <<--" "}} {reparse}
#COND { przebijajac sie przez %w ochrone.} {#sub {.}} {reparse}
#TRIGGER {(*) rzuca sie na (*), bezskutecznie probujac przebic sie przez %w ochrone.} {}
#COND {(*) rzuca sie na} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(8) BRAK PRZEBICIA" "}} {reparse}
#COND {, bezskutecznie probujac przebic sie przez jego ochrone.} {#sub {.}} {reparse}
#TRIGGER {(*) rzuca sie na ciebie usilujac przebic sie przez twoja ochrone.} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(8) BRAK PRZEBICIA"  "CIEBIE!}}
#TRIGGER {{|> }Rzucasz sie na (*) przebijajac sie przez %w ochrone.} {#sub {%repeat(" ",38) %ansi(4)TY -->> ZASLONA PRZEBITA <<--"  "%ansi(reset)%1};#play Sounds\BashSlardar.mp3}
#TRIGGER {probuje zaslonic cie } {#sub {%ansi(8) NIEUDANA" " CIEBIE!" "}}
#COND {przed ciosami} {#sub <<--} {reparse}
#COND {, jednak nie jest w stanie tego uczynic.} {#sub {}} {reparse}
#TRIGGER {probuje zaslonic {^cie}} {#sub {%1 %ansi(8) NIEUDANA"  "}}
#COND {przed ciosami} {#sub <<--} {reparse}
#COND {, jednak nie jest w stanie tego uczynic.} {#sub {}} {reparse}
#TRIGGER {^probujesz zaslonic} {#sub {%ansi(8)NIEUDANA TWOJA ZASLONA};#alarm +5 {#SA %ansi(9)ZASLONA GOTOWA}}
#COND {przed ciosami} {#sub <<--} {reparse}
#COND {, jednak nie jestes w stanie tego uczynic.} {#sub {}} {reparse}
#TRIGGER {(*) unosi swoja * i szybko przesuwa sie za {^ciebie}} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(5) WYCOFANIE" "}}
#COND {, kryjac sie przed atakami} {#sub {" "<<--}} {reparse}
#TRIGGER {(*) unosi swoja * i szybko przesuwa sie za ciebie} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(5) WYCOFANIE CIEBIE!}}
#COND {, kryjac sie przed atakami} {#sub " "<<--} {reparse}
#TRIGGER {^{|> }Stajesz u boku *, gotowa w kazdej chwili zaslonic {ja|go} przed nadchodzacym niebezpieczenstwem.} {#alarm +4.7 {#SA %ansi(9)ZASLONA GOTOWA}} "" {case}
#TRIGGER {^{|> }Na rozkaz * zaslaniasz } {#sub {%ansi(5)%repeat("-",27-%len(%1))*NA ROZKAZ*->> ZASLONA"   "};#alarm +4.7 {#SA %ansi(9)ZASLONA GOTOWA}}
#COND {przed ciosami} {#sub <<--} {reparse}
#TRIGGER {^{|> }Na rozkaz (*) zaslania {^cie}} {#sub {%repeat(" ",40-%len(%1)) %1 %ansi(5) *ZASLONA*" "}}
#COND {przed ciosami} {#sub <<--} {reparse}
#TRIGGER {unosi swoja * i szybko przesuwa sie w strone} {#sub {%ansi(8) NIEUDANE WYCOFANIE ZA" "}}
#COND {, bezskutecznie probujac skryc sie za %w przed atakami} {#sub " "<<--} {reparse}
#TRIGGER {unosi swoja* i szybko przesuwa sie w twoja strone} {#sub {%ansi(8) NIEUDANE WYCOFANIE ZA CIEBIE!" "}}
#COND {, bezskutecznie probujac skryc sie za toba przed atakami} {#sub <<--} {reparse}
#CLASS 0
#CLASS {BATTLE|Ucieczki}
#ALIAS u_polnocny-zachod {#sa %repeat(" ",45)%ansi(15)"......      ";#sa %repeat(" ",45)%ansi(15)";;;:;       ";#sa %repeat(" ",45)%ansi(15)";::;;;.     ";#sa %repeat(" ",45)%ansi(15)";`':;;;;.   ";#sa %repeat(" ",45)%ansi(15)"    ':;;;;  "~<b> @u_kto ~</b>;#sa %repeat(" ",45)%ansi(15)"      ':;   ";#sa " "}
#ALIAS u_polnocny-wschod {#sa %repeat(" ",43)%ansi(15)"      ......   ";#sa %repeat(" ",43)%ansi(15)"       ;;;:;   ";#sa %repeat(" ",43)%ansi(15)"     .::;;;;   ";#sa %repeat(" ",43)%ansi(15)"   .:;;:;'';   ";#sa %repeat(" ",43)%ansi(15)" .::;;;'       ";#sa %repeat(" ",43)%ansi(15)" '';;'        "~<b> @u_kto ~</b>;#sa %repeat(" ",43)%ansi(15)"   '           ";#sa " "}
#ALIAS u_poludniowy-wschod {#sa %repeat(" ",43)%ansi(15)"  ,.       ";#sa %repeat(" ",43)%ansi(15)".;;;;.     ";#sa %repeat(" ",43)%ansi(15)" :;;;;.   .";#sa %repeat(" ",43)%ansi(15)"  `:;;;;.,;";#sa %repeat(" ",43)%ansi(15)"    `:;;;;;";#sa %repeat(" ",43)%ansi(15)"      ;;;;;   "~<b> @u_kto ~</b>;#sa %repeat(" ",43)%ansi(15)"    .:::::;";#sa " "}
#ALIAS u_poludniowy-zachod {#sa %repeat(" ",43)%ansi(15)"        ,.   ";#sa %repeat(" ",43)%ansi(15)"      .;;;;. ";#sa %repeat(" ",43)%ansi(15)".   .;;;;;'  ";#sa %repeat(" ",43)%ansi(15)";..;;;;;'    ";#sa %repeat(" ",43)%ansi(15)";;;;;;'      ";#sa %repeat(" ",43)%ansi(15)";;;;;.        "~<b> @u_kto ~</b>;#sa %repeat(" ",43)%ansi(15)";:::::.      ";#sa " "}
#ALIAS u_poludnie {#sa %repeat(" ",46)%ansi(15)"  ;;;;; ";#sa %repeat(" ",46)%ansi(15)"  ;;;;; ";#sa %repeat(" ",46)%ansi(15)"  ;;;;; ";#sa %repeat(" ",46)%ansi(15)"  ;;;;; ";#sa %repeat(" ",46)%ansi(15)"..;;;;;.. ";#sa %repeat(" ",46)%ansi(15)" ':::::'   "~<b> @u_kto ~</b>;#sa %repeat(" ",46)%ansi(15)"   ':` ";#sa " "}
#ALIAS u_polnoc {#sa %repeat(" ",46)%ansi(15)"    .      ";#sa %repeat(" ",46)%ansi(15)"  .:;:.    ";#sa %repeat(" ",46)%ansi(15)".:;;;;;:.  ";#sa %repeat(" ",46)%ansi(15)"  ;;;;;    ";#sa %repeat(" ",46)%ansi(15)"  ;;;;;    ";#sa %repeat(" ",46)%ansi(15)"  ;;;;;    "~<b> @u_kto ~</b>;#sa %repeat(" ",46)%ansi(15)"  ;;;;;    ";#sa " "}
#ALIAS u_wschod {#sa %repeat(" ",43)%ansi(15)"        .     ";#sa %repeat(" ",43)%ansi(15)"........;;.   ";#sa %repeat(" ",43)%ansi(15)"::::::::;;;;. ";#sa %repeat(" ",43)%ansi(15)"::::::::;;:'  "~<b> @u_kto ~</b>;#sa %repeat(" ",43)%ansi(15)"        :'    ";#sa " "}
#ALIAS u_zachod {#sa %repeat(" ",43)%ansi(15)"    .        ";#sa %repeat(" ",43)%ansi(15)"  .;;........";#sa %repeat(" ",43)%ansi(15)".;;;;::::::::";#sa %repeat(" ",43)%ansi(15)" ':;;:::::::: "~<b> @u_kto ~</b>;#sa %repeat(" ",43)%ansi(15)"   ':        ";#sa " "}
#ALIAS u_gore {#sa %repeat(" ",43)%ansi(15)"      *       ";#sa %repeat(" ",43)%ansi(15)"     ***       ";#sa %repeat(" ",43)%ansi(15)"    * * *      ";#sa %repeat(" ",43)%ansi(15)"   *  *  *     ";#sa %repeat(" ",43)%ansi(15)"      *      ";#sa %repeat(" ",43)%ansi(15)"      *       "~<b> @u_kto ~</b>;#sa %repeat(" ",43)%ansi(15)"      *       ";#sa " "}
#ALIAS u_dol {#sa %repeat(" ",43)%ansi(15)"      +       ";#sa %repeat(" ",43)%ansi(15)"      +       ";#sa %repeat(" ",43)%ansi(15)"      +       ";#sa %repeat(" ",43)%ansi(15)"   +  +  +     ";#sa %repeat(" ",43)%ansi(15)"    + + +    ";#sa %repeat(" ",43)%ansi(15)"     +++      "~<b> @u_kto ~</b>;#sa %repeat(" ",43)%ansi(15)"      *       ";#sa " "}
#VAR u_kto {Przerazajacy siwowlosy ozywieniec}
#VAR u_wyjscia {polnoc|polnocny-wschod|wschod|poludniowy-wschod|poludnie|poludniowy-zachod|zachod|polnocny-zachod|gore|dol}
#TRIGGER {&u_kto uciekl{|a|o} ci.} {}
#COND {*@u_kto* {podaza|podazaja|w panice umyka} na (*).} {#if (%ismember( %1, @u_wyjscia)) {%exec( u_%1)}} {within|param=1}
#CLASS 0
#CLASS {BATTLE|Ataki_ciebie}
#TRIGGER {atakuje cie!$} {#sub "ATAKUJE CIE!!!";#cw orangered;#beep} "" {case}
#TRIGGER {wykrzywiajac twarz w okrutnym grymasie rzuca sie na ciebie.$} {#sub "ATAKUJE CIE!!!";#cw orangered;#beep}
#TRIGGER {z pelnym przebieglosci blyskiem w oku rzuca sie na ciebie!$} {#sub "ATAKUJE CIE!!!";#cw orangered;#beep}
#TRIGGER {{mruzac drapieznie oczy rusza do ataku na ciebie.|wydajac z siebie zlowrogie warkniecie rusza do walki z toba.}$} {#sub "ATAKUJE CIE!!!";#cw orangered;#beep}
#CLASS 0
#CLASS {BATTLE|Ciosy}
#CLASS 0
#CLASS {BATTLE|Ciosy|Zwykle}
#TRIGGER {^{|> }Ledwo muskasz} {#SUB {<----TY %ansi(11)1/6}} "" {case}
#COND {{lokciem|stopa|kolanem|piescia}} {#play Sounds\brakbroni.wav} {reparse}
#COND {, trafiajac %w w *.} {#sub {}} {reparse}
#REGEX {^(?:> )?Lekko ranisz(?=[^,]+,)} {#SUB {<----TY %ansi(11)2/7}} "" {case}
#COND {{lokciem|stopa|kolanem|piescia}} {#play Sounds\brakbroni.wav} {reparse}
#COND {, trafiajac %w w *.} {#sub {}} {reparse}
#TRIGGER {^{|> }Ranisz} {#SUB {<----TY %ansi(11)3/7}} "" {case}
#COND {{lokciem|stopa|kolanem|piescia}} {#play Sounds\brakbroni.wav} {reparse}
#COND {, trafiajac %w w *.} {#sub {}} {reparse}
#TRIGGER {^{|> }Powaznie ranisz} {#SUB {<----TY %ansi(11)4/6}} "" {case}
#COND {{lokciem|stopa|kolanem|piescia}} {#play Sounds\brakbroni.wav} {reparse}
#COND {, trafiajac %w w *.} {#sub {}} {reparse}
#TRIGGER {^{|> }Bardzo ciezko ranisz} {#SUB {<----TY %ansi(11)5/6}} "" {case}
#COND {{lokciem|stopa|kolanem|piescia}} {#play Sounds\brakbroni.wav} {reparse}
#COND {, trafiajac %w w *.} {#sub {}} {reparse}
#TRIGGER {^{|> }Masakrujesz} {#SUB {<----TY %ansi(11)6/6}} "" {case}
#COND {{lokciem|stopa|kolanem|piescia}} {#play Sounds\brakbroni.wav} {reparse}
#COND {, trafiajac %w w *.} {#sub {}} {reparse}
#REGEX "cios_kogos_w_ciebie" {^(?:> )?([A-Z][a-z]{2,}\s(?:[a-z]{3,}\s){0,3}?)(ledwo muska|lekko rani|powaznie rani|bardzo ciezko rani|masakruje|rani) cie ([^,]+), trafiajac cie w [^\.]+\.$} {#SUB {"--> CIE "<color #800000>%ismember(%2,ledwo muska|lekko rani|powaznie rani|bardzo ciezko rani|masakruje|rani)"/6 "</color>%1%ansi(2)-> %3 }} "" {case}
#REGEX "cios_kogos_w_kogos" {^(?:> )?([A-Z][a-z]{2,}\s(?:[a-z]{3,}\s){0,3}?)(ledwo muska|lekko rani|powaznie rani|bardzo ciezko rani|masakruje|rani) (?!cie)([A-Z][a-z]{2,}\s|(?:[a-z]{3,}\s){3})[^.]+.$} {#SUB {<color #008000><-----D </color>%ismember(%2,ledwo muska|lekko rani|powaznie rani|bardzo ciezko rani|masakruje|rani)/6 %1%ansi(reset)-> %3 }} "" {case}
#TRIGGER {^{|> }Nie udaje ci sie trafic} {#GAG}
#TRIGGER {nie udaje sie trafic ciebie} {#GAG}
#CLASS 0
#CLASS {BATTLE|Ciosy|Zwykle|Parowanie}
#REGEX {^(?:> )?Wyprowadzasz (?:zamaszyste ciecie|szybkie pchniecie) .*? mierzac w ([^,]+), lecz (?:ten|ta) zbija je z linii ataku .*} {#sub {PAROWANIE %1}}
#TRIGGER {^{|> }Szybkim pchnieciem * zbijasz na bok niespodziewany cios} {#sub {%ansi(10)PAROWANIE}}
#REGEX "moje_parowanie" {^(?:> )?((?:[a-z]{3,}\s){1,4})(?:wyprowadza|wykonuje) (?:zamach|zamaszyste ciecie|szybkie pchniecie) [^,]+? w ciebie, lecz tobie udaje sie (?:(?:zbic je|je zbic) z linii ataku|go sparowac).*} {#sub {<color #00FE00>PAROWANIE</color> %1}}
#REGEX "moje_parowanie" {^(?:> )?((?:[a-z]{3,}\s){1,4})(?:wyprowadza|wykonuje) (?:zamaszysty cios|zamach|zamaszyste ciecie|szybkie pchniecie) [^,]+? w (?!ciebie)([^,]+), lecz (?:ten|ta) (?:paruje go|zbija je z linii ataku).*} {#sub {PAROWANIE %2 <- %1}}
#CLASS 0
#CLASS {BATTLE|Ciosy|Zwykle|Uniki}
#REGEX {^(?:> )?Probujesz trafic ([A-Z][a-z]{2,}\s|(?:[a-z]{3,}\s){3})[^,]+, lecz (?:ten|ta) unika twojego ciosu.$} {#sub {<color #00FE00>UNIK</color> %1}} "" {case}
#REGEX {^(?:> )?((?:[a-z]{3,}\s){1,4})probuje cie trafic [^,]+, lecz tobie udaje sie uniknac tego ciosu\.$} {#sub {<color #00FE00>UNIK</color> %1}}
#REGEX {^(?:> )?((?:[a-z]{3,}\s){1,4})wykonuje zamaszysty cios [^,]+, lecz tobie udaje sie go uniknac\.$} {#sub {<color #00FE00>UNIK</color> %1}}
#TRIGGER {^(?:> )?((?:[a-z]{3,}\s){1,4})probuje trafic ([A-Z][a-z]{2,}\s|(?:[a-z]{3,}\s){3})[^,]+, lecz ten uskakuje przed tym ciosem\.$} {#SUB {UNIK %2 <- %1}}
#CLASS 0
#CLASS {BATTLE|Ciosy|Zwykle|Brzdek}
#REGEX {^(?:> )?Trafiasz ((?:[a-z]{3,}\s){1,4}) w [^,]+, lecz caly impet uderzenia zostaje wyparowany przez (.*)\.} {#sub {<color #00FE00>BRZDEK</color> o %2 <- %1}}
#REGEX {^(?:> )?((?:[a-z]{3,}\s){1,4})trafia cie [^,]+, lecz caly impet uderzenia zostaje wyparowany przez (.*)\.} {#sub {<color #00FE00>BRZDEK</color> o %2 <- %1}}
#REGEX {^(?:> )?Z gardla ((?:[a-z]{3,}\s){1,4})wydobywa sie porazajacy ryk, gdy (?:jej|jego) uderzenie zeslizguje sie po (?:twym|twych|twoim|twoich|twej) (.*)\.} {#sub {<color #00FE00>BRZDEK</color> o %2 <- %1}}
#REGEX {^(?:> )?((?:[a-z]{3,}\s){1,4})trafia ([A-Z][a-z]{2,}\s|(?:[a-z]{3,}\s){3})[^,]+, lecz caly impet uderzenia zostaje wyparowany przez .*\.$} {#SUB {BRZDEK %2 <- %1}}
#CLASS 0
#CLASS {BATTLE|Ciosy|Zwykle|Tarcza}
#REGEX {^(?:> )(?:Wykonujesz zamaszyste ciecie|Wyprowadzasz szybkie pchniecie) .*? w ([^,]+), lecz (?:ten|ta) oslania sie (.*)\.} {#sub {TARCZA %1 %2}}
#CLASS 0
#CLASS {BATTLE|Ciosy|Spec_Straznik}
#TRIGGER {^{|> }Slamazarnym wymachem} {#GAG}
#REGEX {^(?:> )?Wykorzystujac brak broni u przeciwnika, (?:z wyuczona wprawa|w mgnieniu oka|blyskawicznie) wyprowadzasz cios .*? mierzac w(?= [^.]+\. Wypracowanym uderzeniem trafiasz (?:go|ja) w [^,]+, lecz impet uderzenia wyparowany zostaje przez ([^.]+)\.)} {#SUB {<--SPEC BRZDEK o %1}}
#COND {. Wypracowanym uderzeniem trafiasz *} {#sub {}} {reparse}
#REGEX {^(?:> )?Wykorzystujac brak broni u przeciwnika, (?:z wyuczona wprawa|w mgnieniu oka|blyskawicznie) wyprowadzasz cios .*? mierzac w(?= [^.]+\. Wypracowane uderzenie zostaje jednak sparowane przez (?:niego|nia) ([^.]+)\.)} {#SUB {<--SPEC TARCZA %1 }}
#COND {. Wypracowane uderzenie *} {#sub {}} {reparse}
#REGEX {^(?:> )?Wykorzystujac brak broni u przeciwnika, (?:z wyuczona wprawa|w mgnieniu oka|blyskawicznie) wyprowadzasz cios .*? mierzac w(?= [^.]+\. Wypracowanym uderzeniem trafiasz (?:ja|go) w [^,]+, (pozostawiajac ledwie sinca|ledwie zahaczajac|pozostawiajac krwawiace zadrapanie|lekko raniac|mocno raniac|pozostawiajac dluga, poszarpana rane|bardzo mocno raniac|pozostawiajac gleboka rane z wystajacymi na wierzchu tkankami|zadajac smiertelne obrazenia)\.)} {#SUB {<--SPEC %ansi(11)%eval((%ismember(%1,pozostawiajac ledwie sinca|ledwie zahaczajac|pozostawiajac krwawiace zadrapanie|lekko raniac|mocno raniac|pozostawiajac dluga, poszarpana rane|bardzo mocno raniac|pozostawiajac gleboka rane z wystajacymi na wierzchu tkankami|zadajac smiertelne obrazenia)+1)/2)/5}}
#COND {. Wypracowanym uderzeniem trafiasz *.$} {#sub {}} {reparse}
#CLASS 0
#CLASS {BATTLE|Ciosy|Kosa}
#REGEX {^(?:> )?Lekko ranisz(?=.*?finezyjnym cieciem swojej srebrzystej kosy bojowej\.$)} {#SUB {<--KOSA %ansi(11)1/6}}
#COND {w .*? finezyjnym cieciem swojej srebrzystej kosy bojowej\.$} {#sub {}} {reparse|regex}
#REGEX {^(?:> )?Kaleczysz lekko} {#SUB {<--KOSA %ansi(11)1/6}}
#COND {w .*? swoja srebrzysta kosa bojowa\.$} {#sub {}} {reparse|regex}
#REGEX {^(?:> )?Kaleczysz(?! lekko)} {#SUB {<--KOSA %ansi(11)2/6}}
#COND { (?:zamaszystym cieciem swojej srebrzystej kosy bojowej|w .*? swoja srebrzysta kosa bojowa)\.$} {#sub {}} {reparse|regex}
#REGEX {^(?:> )?Wykonujesz potezny cios srebrzysta kosa bojowa, raniac} {#SUB {<--KOSA %ansi(11)3/6}}
#COND {w .*\.$} {#sub {}} {reparse|regex}
#REGEX {^(?:> )?Wyrywasz krwawe kawalki ciala} {#SUB {<--KOSA %ansi(11)4/6}}
#COND {, tnac go w .*? ostrzem swojej srebrzystej kosy bojowej\.$} {#sub {}} {reparse|regex}
#REGEX {^(?:> )?Potezne uderzenie twojej srebrzystej kosy bojowej dosiega} {#SUB {<--KOSA %ansi(11)5/6}}
#COND {, zostawiajac krwawe bruzdy na jego ciele\.$} {#sub {}} {reparse|regex}
#CLASS 0
#CLASS {BATTLE|Ciosy|Spece skavenskie}
#TRIGGER {Nagle (*) wykonuje zamaszysty cios (*), ktory ledwo muska cie w (*).} {#SUB {-> SPEC %ansi(4)1/5 %ansi(2)%1 %2 %3}}
#TRIGGER {Nagle (*) wykonuje zamaszysty cios (*), ktory lekko rani cie w (*).} {#SUB {-> SPEC %ansi(4)2/5 %ansi(2)%1 %2 %3}}
#TRIGGER {Nagle (*) wykonuje zamaszysty cios (*), ktory rani cie w (*).} {#SUB {-> SPEC %ansi(4)3/5 %ansi(2)%1 %2 %3}}
#REGEX {^(?:> )?Nagle(?= .*? wykonuje zamaszysty cios [^,]+, lecz sprawnie parujesz go .*)} {#sub {%ansi(10)PAROWANIE}}
#COND {wykonuje zamaszysty cios [^,]+, lecz sprawnie parujesz go .*} {#sub {}} {reparse|regex}
#REGEX {^(?:> )?Nagle (.*?) wykonuje zamaszysty cios .*? celujac w ([^,]+), lecz (?:temu|tej|jej) udaje sie go uniknac\.$} {#SUB {UNIK %2 <- %1}}
#REGEX {^(?:> )?Nagle ((.?:[a-z]+(?:3,)\\s)(?:1,4))wykonuje zamaszysty cios [^,]+, lecz uderzenie zatrzymuje sie na (?:twym|twoim|twej) (.*)\.} {#sub {BRZDEK o %2 %1}}
#CLASS 0
#CLASS {BATTLE|Ciosy|Spece goblinoidow}
#TRIGGER {^{|> }W slepiach (*) pojawia sie nienawistny blysk, gdy zdecydowanym uderzeniem (*) kaleczy ci *.} {#SUB {-> SPEC %ansi(4)1/5 %ansi(2)%1 %2 }}
#TRIGGER {^{|> }W slepiach (*) pojawia sie nienawistny blysk, gdy zdecydowanym uderzeniem (*) rozkrwawia ci *.} {#SUB {-> SPEC %ansi(4)2/5 %ansi(2)%1 %2 }}
#TRIGGER {^{|> }W slepiach (*) pojawia sie nienawistny blysk, gdy zdecydowanym uderzeniem (*) przecina powietrze tuz przed twoja glowa.} {#SUB {SPEC PUDLO %1 %2 }}
#TRIGGER {^{|> } Nagle * wykonuje zamaszysty cios *, ktory powaznie rani cie w glowe.} {#SUB {-> SPEC %ansi(4)1/5 %ansi(2)%1 %2 }}
#REGEX {^(?:> )?Nagle ((?:[a-z]+\s){3})wykonuje zamaszysty cios ([^,]+), ktory (ledwo muska|lekko rani|rani|powaznie rani|masakruje) (cie\s|(?:[a-z]+\s){1,3})w ([^.]+).} {#SUB {SPEC--> %ansi(11)%eval((%ismember(%1,ledwo muska|lekko rani|rani|powaznie rani|masakruje)+1)/2)/5}} "" {disable}
#CLASS 0
#CLASS {BATTLE|kolorki potworki}
#TRIGGER {troll} {#cw 9} "" {case}
#TRIGGER {{czarny ork|Zardzewialy duzy klucz.|gwiazda z mosiadzu}} {#cw 8}
#TRIGGER {Postawny nocny goblin} {#cw 1}
#CLASS 0
#CLASS {BATTLE|Walka_bindy}
#VAR wb_cios {0}
#VAR wb_zaslona {1}
#KEY F7 {#if (@wb_cios) {wb_cios=0} {wb_cios=1};opcje cios %if( @wb_cios, "+", "-")}
#KEY F8 {#case @wb_zaslona {wb_zaslona=2} {wb_zaslona=4} {} {wb_zaslona=1};opcje grupa @wb_zaslona}
#KEY F1 {#sh %ansi(14) Vrrrrr!;#GAGON;z cel ataku;#GAGOFF}
#KEY F2 {kd_resetuj_buttony;kw_resetuj_buttony;#gagon;kondycja wszystkich;#gagoff}
#KEY F3 {kd_resetuj_buttony;#gagon;kondycja druzyny;#gagoff}
#KEY F4 {#gagon;pkz;przelam obrone celu ataku;z cel ataku;#gagoff}
#KEY F5 {wes}
#KEY MULT {kd_resetuj_buttony;kw_resetuj_buttony;#gagon;kondycja wszystkich;#gagoff}
#CLASS 0
#CLASS {BATTLE|Stat_bar}
#VAR sb_db {zaslona1przed2spec1}
#TRIGGER {^{|> }ZASLANIANIE na rozkaz przy:             '(*)'$} {#if ("%1"="W swietnej kondycji") {sb_db.zaslona=0} {sb_db.zaslona=1}}
#TRIGGER {^{|> }Cios SPECJALny:                         (%w)$} {#if ("%1"="Wylaczony") {sb_db.spec=0} {sb_db.spec=1}}
#TRIGGER {^{|> }Zaslona przed GRUPA:                    (*)$} {#if ("%1"="Wylaczona") {sb_db.przed=1} {sb_db.przed=%1}}
#STAT {%ansi(reset)Zaslona: %ansi(red)%if(@sb_db.zaslona,ON,OFF)%ansi(reset) przed %ansi(red) @sb_db.przed%ansi(reset). Spec %ansi(red)%if(@sb_db.spec,ON,OFF)%ansi(reset)}
#CLASS 0
#CLASS {Pozostae}
#ALIAS jw {jedz na %1}
#VAR lazik_db {polnocny-wschodnepoludniowy-wschodsepoludnieswschodepoludniowy-zachodswpolnocnpolnocny-zachodnwzachodwpolnocnego-wschoduswpoludniowego-wschodunwpoludnianwschoduwpoludniowego-zachodunepolnocyspolnocnego-zachodusezachodue}
#TRIGGER { rozpada sie!$} {#SA %ansi( 655) ZBROJA ROZPADA SIE !;#play Sounds\blade.mp3}
#TRIGGER { peka!$} {#SA %ansi( 655) BRON PEKA !;#play Sounds\blade.mp3}
#TRIGGER {^{|> }{Slyszysz jakies dziwne odglosy przypominajace dzwiek wydawany przez spadajace kamienie.|Dostrzegasz potezna lawine kamieni sunaca w dol gorskich stokow, wprost na ciebie!|Toczace sie z ogromna predkoscia kamienie sa juz prawie przy tobie!}} {#SA %ansi( 5) UWAGA SCHODZI LAWINA !!}
#TRIGGER {^{|> }Z rozprutego brzucha * trolla tryska strumien syczacego kwasu, ktory opryskuje (*)!$} {#SA %ansi( 13) TROLL BRYZGNAL NA "%1"}
#TRIGGER {^{|> }Wydaje ci sie, ze twoja wiedza o (*) wzrosla} {#SA %ansi( 13) UCZYSZ SIE O "%1"}
#TRIGGER {^{|> }Walczac z tym przeciwnikiem moglabys dowiedziec sie czegos wiecej o (*).$} {#SA %ansi( 13) ZRODLO WIEDZY O "%1"}
#TRIGGER {^{|> }Uderzenie jest tak silne, ze (*) bezwiednie opuszcza (*).} {#SUB {%ansi(11)ROZBROJENIE PRZECIWNIKA %ansi(2) "%1 %2 " }}
#TRIGGER {^{|> }Szybkim niczym mysl ruchem * wytracasz (*) {z rak|z reki} (*).} {#SUB {%ansi(11)ROZBROJENIE PRZECIWNIKA %ansi(2) "%1 %2 " }}
#TRIGGER {^Gubisz gdzies za soba (*).} {#sub {""%ansi(14)GUBISZ GDZIES %upper(%1)!}}
#TRIGGER { przybywa } {#cw 11}
#TRIGGER {^{|> }Siegasz do pasa po * i pijesz z niego troche wodki. W srodku nie zostala juz chyba ani kropla...$} {#SA %ansi( 655) KONIEC WODKI !!!}
#REGEX {^(?:> )?Napelniasz [^,]+, oprozniajac zupelnie .*\.$} {#SA %ansi( 655) KONIEC OLEJU !!!}
#REGEX {^(?:> )?Pijesz troche wodki z [^,]+, oprozniajac go zupelnie\.$} {#SA %ansi( 655) KONIEC WODKI !!!}
#TRIGGER {{przybija do brzegu|powoli zatrzymuje sie}.$} {#cw 11}
#TRIGGER {({urna|plecak|torba|skrzynia|plecak z byczej skory|urna ofiarna}) zawiera (*)} {#sub {%1 zawiera: %char( 13)-> %replace( %replace( "%2", ", ", "&#269~;-> "), " i ", "&#269~;-> ")}}
#TRIGGER {^{|> }Dostrzegasz na nim jeszcze (*)} {#sh %char( 13);#sh -> %replace( %replace( "%1", ", ", "&#269~;-> "), " i ", "&#269~;-> ")}
#TRIGGER {^{|> }Uwaznie ogladasz zawartosc (*). W srodku dostrzegasz (*)} {#sub {W srodku %1 dostrzegasz: %char( 13)-> %replace( %replace( "%2", ", ", "&#269~;-> "), " i ", "&#269~;-> ")}}
#TRIGGER {^{|> }Wykonuje komende 'idz} {}
#COND {^Ruszasz .* na ([^\.]+)\.$|przybywa(?:ja)? za toba z ([^\.]+)\.$} {#if (%len( "%1")) {#mo %db( @lazik_db, "%1")} {#mo %db( @lazik_db, "%2")}} {regex}
#TRIGGER {bierze} {#cw 3}
#TRIGGER {^{|> }Czujesz fale zimna, ktora blyskawicznie rozchodzi sie po calym twym ciele,} {#cw 9}
#TRIGGER {^Witaj, (%w). Podaj swe haslo:} {#LO {%time( "yyyy-mm-dd")_%1}}
#TRIGGER {^{|> }Dowiadujesz sie czegos wiecej o (%1).$} {#SA %ansi( 13) UCZYSZ SIE O "%1"}
#TRIGGER {^{|> }Masz wrazenie, ze tutaj nie dowiesz sie juz niczego wiecej o (*).} {#SA %ansi( 13) --- MAKSIMUM WIEDZY O "%1" !!! ----}
#TRIGGER {podazasz {|skradajac sie }za * na (*).} {#MOVE %1}
#TRIGGER {^{|> }Masz nowa poczte od (*).} {#sub {""%ansi(white)POCZTA OD %upper(%1)!};#play Sounds\Lich_wards_01.mp3}
#TRIGGER {w panice umyka} {#cw 11}
#TRIGGER {w panice wybiega} {#cw 11}
#TRIGGER {^{|> }Ucieklas} {#cw 12}
#TRIGGER {dobywa} {#cw 13}
#TRIGGER {^{|> }List zostal pomyslnie wyslany.} {#cw 10}
#TRIGGER {^{|> }Zauwazasz na (*) nieprzeczytane przez ciebie notki.} {#cw 10}
#TRIGGER {jedziesz %w %w %w na (*).} {#move %1}
#TRIGGER {Wydaje ci sie, ze (*) ci brakuje, zebys mogl{|a} wyzej ocenic sw{oj|a}} {#sub { SUBLEVEL %ismember(%1,{bardzo duzo|duzo|troche|niewiele|bardzo niewiele})/5 }}
#TRIGGER {Wolnym krokiem kierujesz sie na poludnie. Nagle rozlegl sie szczek i cos przecielo ze swistem powietrze, raniac cie dotkliwie!} {#te 91529 19;#SH { P U L A P K A};#play Sounds\Malefice.mp3}
#TRIGGER {Widzisz jak szkielko * peka, a cale urzadzenie po prostu rozpada ci sie w rekach.} {#sh K O M P A S}
#CLASS 0
#CLASS {Pozostae|Paczka}
#VAR paczka {}
#TRIGGER {^Wypisano na niej duzymi literami: &{paczka}{.|- PILNE!}$} {}
#TRIGGER {^{|> }Oddajesz pocztowa paczke} {paczka=%null}
#TRIGGER {przekazuje ci jakas paczke.$} {F7_dodaj_komende_widoczna ob paczke}
#STAT {%if(@paczka,%ansi(0)Paczka do: %ansi(4)@paczka)}
#CLASS 0
#CLASS {Cofanie}
#TRIGGER {^{|> }Chcesz wpasc do rozpadliny? Taka decyzje musisz potwierdzic.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {^{|> }Kierujesz sie ku drzwiom znajdujacej sie na polnocnym wschodzie chaty, jednak stwierdzasz, ze sa zamkniete. Szybko oceniajac wszelakie 'za' i 'przeciw' rezygnujesz z wejscia i wracasz na droge.} {#mo @reverse_last_dir}
#TRIGGER {^{|> }Niestety, kamienna plyta blokuje droge do wnetrza krypty.} {#co 7;#mo u}
#TRIGGER {^{|> }Drabina w tej chwili jest zajmowana przez kogos innego, musisz chwile poczekac, az sie zwolni.} {#co 7;#mo u}
#TRIGGER {^{|> }Tylko Krasnoludy Mahakamu moga tam wejsc.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {^{|> }Nie dasz rady podazyc w tym kierunku.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {(*) zastawia ci droge.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {^{|> }Nie masz dalej wstepu.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {^{|> }Ogromny stwor blokuje dojscie do bramy.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {^{|> }Zbyt szybko probujesz ruszyc dalej, momentalnie tracac rownowage na waskim przejsciu. Widok ziejacej pod toba bezkresnej otchlani uswiadamia ci, ze most trzeba pokonac powoli i z najwieksza ostroznoscia.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {(*) blokuje ci droge.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {^{|> }Aby kierowac lodzia, musisz usiasc przy wioslach.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Przejscie w tym kierunku jest dla ciebie zbyt waskie, nie potrafisz przecisnac sie (*)} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Jestes tak zmeczon?, ze nie mozesz isc w tym kierunku.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Kierujesz sie w strone krzakow porastajacych zachodnia czesc kotliny, lecz bezradnie zatrzymujesz sie przed zwarta sciana kolcow i galezi. Nie znajdujesz sposobu, jak wejsc w chaszcze.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Kierujesz sie w strone krzakow porastajacych polnocno-wchodnia czesc kotliny, lecz bezradnie zatrzymujesz sie przed zwarta sciana kolcow i galezi. Nie znajdujesz sposobu, jak wejsc w chaszcze.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Probujesz wejsc w zakryte pajeczynami przejscie, lecz (*) odpycha cie brutalnie.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Probujesz wspiac sie na sciane, ale twoja noga slizga sie na mchu i spadasz, tlukac sobie siedzenie.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Jestes tak zmeczon{y|a}, ze nie mozesz dalej podazac w tym kierunku.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Probujesz otworzyc (*) ale nie udaje ci sie to.} {F7_dodaj_komende_widoczna zapukaj w brame;#mo @reverse_last_dir}
#TRIGGER {Nie jestes w stanie wymknac sie stad niezauwazenie.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Probujesz przekroczyc brame, ale potezny umiesniony straznik zastepuje ci droge.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Nie mozesz sie tam udac, gdyz} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Niestety, mieszkancy najwyrazniej zamykaja sie na noc. Chyba lepiej bedzie sprobowac za dnia.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Odpadasz od sciany i lecisz w dol, jednak dzieki niewielkiej wysokosci udaje ci sie zgrabnie wyladowac na ziemi.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Probujesz otworzyc zeliwne wrota, lecz one nawet nie drgna.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {stoi ci na drodze.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {nie jest w stanie wymknac sie stad niezauwazenie.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Nie wejdziesz w przepasc!} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Wyjscie z krypty zablokowane jest przez kamienna plyte.} {#co 7;#mo @reverse_last_dir;F7_dodaj_komende_widoczna odsun plyte}
#TRIGGER {Niestety, o tej porze (*) jest juz zamkniety.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {lecz po kilku krokach grzezniesz w krzakach.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Ochlon chociaz chwile od walki...} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Nie jestes dowodca zadnej druzyny.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Przeciez drzwi do domu sa zamkniete!} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Jestes zmuszon{a|y} zawrocic.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Nie masz sily dluzej wioslowac, odpocznij chwile.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Wchodzisz pomiedzy kamieniczki, jednak po kilku minutach krazenia ciasnymi alejkami ze zdumieniem zauwazasz, ze dotarlas z powrotem do miejsca, z ktorego skrecilas z glownej ulicy!} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Wspinasz sie po pionowej scianie skalnej, jednak w polowie drogi twoja noga zeslizguje sie, a ty, nie mogac zlapac sie niczego mogacego powstrzymac twe obsuniecie, spadasz spowrotem na dol.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Podazasz przed siebie, jednak panujace wokol ciemnosci i twa nieostroznosc powoduja, iz nagle uderzasz o jedna ze scian.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Najpierw musisz zejsc z wozu!} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Nie mozesz plynac, gdy lodz jest zacumowana.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {Probujesz sie ruszyc na (*), jednak pajecze sieci, w ktore sie w miedzyczasie zaplatalas, uniemozliwiaja ci to.} {#co 7;#mo @reverse_last_dir}
#TRIGGER {mowi do ciebie: Nikt z bronia nie wejdzie na teren Uniwersytetu. Prosze zostawic ja na stojaku.} {#co 7;#mo @reverse_last_dir}
#CLASS 0
#CLASS {Kierunki}
#VAR ki_wyjscia_db {polnocNpolnocny-wschodNEwschodEpoludniowy-wschodSEpoludnieSpoludniowy-zachodSWzachodWpolnocny-zachodNWgoraUdolD}
#VAR ki_autor {Skrypt stworzony przez Cerdina.} {Skrypt stworzony przez Cerdina.}
#VAR ki_kierunki {polnoc|polnocny_wschod|wschod|poludniowy_wschod|poludnie|poludniowy_zachod|zachod|polnocny_zachod|gora|dol}
#VAR pomocb_kierunki {   0   - [numpad] pierwsze niestandardowe wyjscie z lokacji}
#KEY KEY0 {@ki_db.spec}
#BUTTON 27 {\|    %cr x---} {#if (%trigger(ki_A)) {#t- ki_A;#t+ ki_NONE;#noo %btncol(switch_kierunki2,3,0)} {#t+ ki_A;#t- ki_NONE;#noo %btncol(switch_kierunki2,2,0)}} {} {#t- Roza_wiatrow} {} {} {} {Size} {29} {32} {Pos} {1} {1256} {32} {32} {} {} "" {Explore|Inset} {Rysowanie wyjsc} {switch_kierunki2} {4}
#CLASS 0
#CLASS {Kierunki|ki_A}
#ALIAS ki_arrows_reset2 {ki_db.NW1="    ";ki_db.NW2="    ";ki_db.NE1="    ";ki_db.NE2="    ";ki_db.SW1="    ";ki_db.SW2="    ";ki_db.SE1="    ";ki_db.SE2="    ";ki_db.W="    ";ki_db.E="    ";ki_db.N1=" ";ki_db.N2=" ";ki_db.S1=" ";ki_db.S2=" ";ki_db.U1="";ki_db.U2="";ki_db.D1="";ki_db.D2="";ki_db.BASE=""}
#VAR ki_db {spec}
#VAR ki_db_s {SW1    SW2    SE1    SE2    W    E    N1 N2 S1 S2 U1U2D1D2BASENW1    NW2    NE1    NE2    }
#VAR ki_db_f {"N1[0;30;47mN[0;30;40mN2[0;57;40m|NE1  [0;30;47mNE[0;30;40mNE2[0;57;40m /  E[0;57;40m---[0;30;47mE[0;30;40mSE2[0;57;40m \  S1[0;30;47mS[0;30;40mS2[0;57;40m|SW1[0;30;47mSW[0;30;40m  SW2[0;57;40m  / W[0;30;47mW[0;57;40m---NW1[0;30;47mNW[0;30;40m  NW2[0;57;40m  \ SE1[0;30;40m  [0;30;47mSE[0;30;40m"}
#VAR ki_rysuj_db {%if(!("%2")&!("%1"),%stripq(%3),@ki_rysuj_db(%delnitem(%1,1), %item(%1,1), %if(%ismember(%2,@ki_kierunki),@ki_rys_%2(%3),%if(!@ki_db.spec,%exec(ki_db.spec=%2))%3)))}
#VAR ki_rysujt_db {%if(!("%2")&!("%1"),%stripq(%3),@ki_rysujt_db(%delnitem(%1,1), %item(%1,1), %if(%ismember(%2,@ki_kierunki),@ki_ryst_%2(%3),%if(!@ki_db.spec,%exec(ki_db.spec=%2))%3)))}
#VAR ki_rysuj {%lf%lf"     "%db( %1, NW1)%db( %1, N1)%db( %1, NE1)"   "%db( %1, U1)%lf"     "%db( %1, NW2)%db( %1, N2)%db( %1, NE2)"   "%db( %1, U2)%lf"     "%db( %1, W)%ansi( 11)"X"%db( %1, E)"   "%db( %1, BASE)%lf"     "%db( %1, SW2)%db( %1, S2)%db( %1, SE2)"   "%db( %1, D2)%lf"     "%db( %1, SW1)%db( %1, S1)%db( %1, SE1)"   "%db( %1, D1)%if( @ki_db.spec, %ansi( 15)"   [0: "%ansi( 112)@ki_db.spec%ansi( 15)"]")%lf}
#VAR ki_rys {%exec( ki_db.spec="")@ki_rysuj(@ki_rysuj_db(%replace(%replace(%replace(%replace("%1",", ","|")," i ","|"),"-","_"),".","|"),,@ki_db_s))}
#VAR ki_rysl {%exec(ki_db.spec="")@ki_rysuj(@ki_rysuj_db(%replace(%replace(%replace("%1",", ","|")," lub ","|"),"-","_"),,@ki_db_s))}
#VAR ki_ryst {%exec(ki_db.spec="")@ki_rysuj(@ki_rysuj_db(%replace(%replace(%replace(%right(%item("%1",2),3),", ","|")," i ","|"),"-","_"),,@ki_rysujt_db(%replace(%replace(%replace(%item("%1",1),", ","|")," i ","|"),"-","_"),,@ki_db_s)))}
#VAR ki_rysf {@ki_rysuj(@ki_rysuj_db(%replace(%replace(%replace("%1",", ","|")," i ","|"),"-","_"),,@ki_db_s))}
#VAR ki_rys_polnocny_zachod {%addkey(%addkey(%1,NW1,%ansi(112)"NW"%ansi(0)"  "),NW2,%ansi(15)"  \ ")}
#VAR ki_rys_polnoc {%addkey(%addkey(%1,N1,%ansi(112)"N"%ansi(0)),N2,%ansi(15)"|")}
#VAR ki_rys_polnocny_wschod {%addkey(%addkey(%1,NE1,"  "%ansi(112)"NE"%ansi(0)),NE2,%ansi(15)" /  ")}
#VAR ki_rys_zachod {%addkey(%1,W,%ansi(112)"W"%ansi(15)"---")}
#VAR ki_rys_wschod {%addkey(%1,E,%ansi(15)"---"%ansi(112)"E"%ansi(0))}
#VAR ki_rys_poludniowy_zachod {%addkey(%addkey(%1,SW1,%ansi(112)"SW"%ansi(0)"  "),SW2,%ansi(15)"  / ")}
#VAR ki_rys_poludnie {%addkey(%addkey(%1,S1,%ansi(112)"S"%ansi(0)),S2,%ansi(15)"|")}
#VAR ki_rys_poludniowy_wschod {%addkey(%addkey(%1,SE1,%ansi(0)"  "%ansi(112)"SE"%ansi(0)),SE2,%ansi(15)" \  ")}
#VAR ki_rys_gora {%addkey(%addkey(%addkey(%1,U1,%ansi(112)"U"%ansi(0)),U2,%ansi(15)"    |"),BASE,%ansi(11)"o")}
#VAR ki_rys_dol {%addkey(%addkey(%addkey(%1,D1,%ansi(112)"D"%ansi(0)),D2,%ansi(15)"|"),BASE,%ansi(11)"o")}
#VAR ki_ryst_polnocny_zachod {%addkey(%addkey(%1,NW1,%ansi(48)"NW"%ansi(0)"  "),NW2,%ansi(15)"  \ ")}
#VAR ki_ryst_polnoc {%addkey(%addkey(%1,N1,%ansi(48)"N"%ansi(0)),N2,%ansi(15)"|")}
#VAR ki_ryst_polnocny_wschod {%addkey(%addkey(%1,NE1,"  "%ansi(48)"NE"%ansi(0)),NE2,%ansi(15)" /  ")}
#VAR ki_ryst_zachod {%addkey(%1,W,%ansi(48)"W"%ansi(15)"---")}
#VAR ki_ryst_wschod {%addkey(%1,E,%ansi(15)"---"%ansi(48)"E"%ansi(0))}
#VAR ki_ryst_poludniowy_zachod {%addkey(%addkey(%1,SW1,%ansi(48)"SW"%ansi(0)"  "),SW2,%ansi(15)"  / ")}
#VAR ki_ryst_poludnie {%addkey(%addkey(%1,S1,%ansi(48)"S"%ansi(0)),S2,%ansi(15)"|")}
#VAR ki_ryst_poludniowy_wschod {%addkey(%addkey(%1,SE1,%ansi(0)"  "%ansi(48)"SE"%ansi(0)),SE2,%ansi(15)" \  ")}
#VAR ki_ryst_gora {%addkey(%addkey(%addkey(%1,U1,%ansi(48)"U"%ansi(0)),U2,%ansi(15)"|"),BASE,%ansi(11)"o")}
#VAR ki_ryst_dol {%addkey(%addkey(%addkey(%1,D1,%ansi(48)"D"%ansi(0)),D2,%ansi(15)"|"),BASE,%ansi(11)"o")}
#VAR ki_rysuj_OLD {%cr%cr"     "%db( %1, NW1)%db( %1, N1)%db( %1, NE1)"   "%db( %1, U1)%cr"     "%db( %1, NW2)%db( %1, N2)%db( %1, NE2)"   "%db( %1, U2)%cr"     "%db( %1, W)%ansi( 11)"X"%db( %1, E)"   "%db( %1, BASE)%cr"     "%db( %1, SW2)%db( %1, S2)%db( %1, SE2)"   "%db( %1, D2)%cr"     "%db( %1, SW1)%db( %1, S1)%db( %1, SE1)"   "%db( %1, D1)%if( @ki_db.spec, %ansi( 15)"   [0: "%ansi( 112)@ki_db.spec%ansi( 15)"]")%cr}
#TRIGGER {^{Jest|Sa} tutaj %w widoczn{ych|e} wyjsc{ia|ie|}: (*).$} {#su {"|Wyjscia|==>   "%ansi(10)%replace(%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", "),". "," - ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Trakt {wiedzie|rozgalezia sie} na (*).$} {#su {"|TRAKT|==>   "%ansi(3)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace(%replace(%replace("%1",". Mozna jednak z niego zejsc i udac sie do obozu",%concat(",",%ansi(10)) oboz),". Mozna jednak z niego zejsc i udac sie na",%concat(",",%ansi(10))), poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_ryst(%replace("%t1",". Mozna jednak z niego zejsc i udac sie","|"))} {reparse}
#TRIGGER {^W gestych ciemnosciach dostrzegasz{, ze trakt rozgalezia sie| trakt wiodacy} na (*).$} {#su {"|TRAKT|==>   "%ansi(3)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace(%replace("%1",". Mozna jednak z niego zejsc i udac sie na",%concat(",",%ansi(10))), poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_ryst(%replace("%t1",". Mozna jednak z niego zejsc i udac sie","|"))} {reparse}
#TRIGGER {^W mroku nocy dostrzegasz %w widoczn{ych|e} wyjsc{ia|ie|}: (*).$} {#su {"|NOC|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Wsrod mgly dostrzegasz %w widoczn{ych|e} wyjsc{ia|ie|}: (*).$} {#su {"|MGLA|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Wedrowke przez rozlegle laki mozesz kontynuowac udajac sie na (*).$} {#su {"|LAKI|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " lub ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rysl("%t1")} {reparse}
#TRIGGER {^Wedrowke przez rozlegle laki mozesz kontynuowac w dowolnie wybranym kierunku.$} {#sub {"|LAKI|==>   "%ansi(10)S, N, E, W, SW, SE, NE, NW %cr%cr"     "%ansi(112)NW%ansi(0)"  "%ansi(112)N%ansi(0)"  "%ansi(112)NE%ansi(0) %cr"   "%ansi(15)"    \ | /  "%cr"     "%ansi(112)W%ansi(15)---%ansi(11)X%ansi(15)---%ansi(112)E%cr%ansi(15)"       / | \  "%cr"     "%ansi(112)SW%ansi(0)"  "%ansi(112)S%ansi(0)"  "%ansi(112)SE%ansi(0)%cr }}
#TRIGGER {^Tunel{|e} ciagn{ie|a} sie na (*).$} {#su {"|TUNEL|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^W gestych ciemnosciach dostrzegasz tunel {rozwidlajacy sie|wiodacy} na (*).$} {#su {"|TUNEL|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace(%replace("%1",. Inna droga prowadzi stad przez skalne osypisko na, ","),. Inna droga prowadzi stad przez otwor w scianie,", otwor"), poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys(%replace(%replace("%t1",". Inna droga prowadzi stad przez skalne osypisko na","|"),". Inna droga prowadzi stad przez otwor w scianie","|otwor")} {reparse}
#TRIGGER {^{Korytarze jaskini|Jaskinie} ciagna sie na (*).$} {#su {"|PAJAKI|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Mozesz stad poplynac na (*).$} {#su {"|PLYWANIE|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Mozesz skierowac lodz na (*).$} {#su {"|LODZ|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Szlak prowadzi tutaj w %w kierunk{ach|u}: (*).$} {#su {"|SZLAK|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Sciezka prowadzi tutaj w %w kierunk{ach|u}: (*).$} {#su {"|SCIEZKA|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Sciezka {wiedzie|rozgalezia sie} na (*).$} {#su {"|SCIEZKA|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Mozesz sie stad udac na (*).$} {#su {"|PUSTKI|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " lub ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rysl("%t1")} {reparse}
#TRIGGER {^Mozesz stad wyruszyc w dowolnie wybranym kierunku.$} {#sub {"|PUSTKI|==>   "%ansi(10)S, N, E, W, SW, SE, NE, NW %cr%cr"     "%ansi(112)NW%ansi(0)"  "%ansi(112)N%ansi(0)"  "%ansi(112)NE%ansi(0) %cr"   "%ansi(15)"    \ | /  "%cr"     "%ansi(112)W%ansi(15)---%ansi(11)X%ansi(15)---%ansi(112)E%cr%ansi(15)"       / | \  "%cr"     "%ansi(112)SW%ansi(0)"  "%ansi(112)S%ansi(0)"  "%ansi(112)SE%ansi(0)%cr }}
#TRIGGER {^Mozesz podazac traktem na (*) albo (*). Natomiast aby zejsc z wytyczonej drogi wystarczy udac sie w dowolnym innym kierunku.$} {#su {"|DROGA CZASZEK|==>   "%ansi(3)%db(@ki_wyjscia_db,%1)%ansi(10), %ansi(3)%db(@ki_wyjscia_db,%2)%ansi(10)%remove(%concat(", ",%db(@ki_wyjscia_db,%2)),%remove(%concat(", ",%db(@ki_wyjscia_db,%1)),", S, N, E, W, SW, SE, NE, NW"))%ansi(0)"."}}
#COND {.} {#sub @ki_rysuj(@ki_rysujt_db(%replace(%t1,"-","_")|%replace(%t2,"-","_"),,@ki_db_f))} {reparse}
#TRIGGER {^Mozesz podazac traktem na poludniowy-wschod albo na polnoc, w strone fortu.$} {#sub {"|PUSTKI|==>   "%ansi(3)SE, N %cr%cr"         "%ansi(48)N%ansi(0)%cr"   "%ansi(15)"      |    "%cr"         "%ansi(11)X%cr%ansi(15)"           \  "%cr"            "%ansi(48)SE%ansi(0)%cr }}
#TRIGGER {^Przed soba zauwazasz brame. Mozesz sie stad udac na (*).$} {#su {"|PUSTKI|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " lub ", ", ")", brama"%ansi(0)"."}}
#COND {.} {ki_db.spec=brama;#sub @ki_rysf("%t1")} {reparse}
#TRIGGER {^Wyjscia prowadza tutaj w %w kierunk{ach|u}: (*).$} {#su {"|KRYPTA|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Korytarz jaskini prowadzi na polnocny-wschod, a na zewnatrz mozna sie wydostac przez otwor.$} {ki_db.spec=otwor;#su {"|PAJAKI|==> "%ansi(10)"NE, otwor "%cr%cr"             "%ansi(112)NE%ansi(0) %cr"   "%ansi(15)"        /  "%cr"         "%ansi(11)X%cr%ansi(15)"                    [0: "%ansi(112)@ki_db.spec%ansi(15)"]"%cr}}
#COND {.} {#sub @ki_rys("%t1")} {reparse}
#TRIGGER {^Mozesz podazac traktem na (*). Natomiast jesli chcesz zejsc z wytyczonej drogi mozesz udac sie na (*).$} {#su {"|TRAKT|==>   "%ansi(3)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace("%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " albo ", ", "), %ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace("%2", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " albo ", ", ")%ansi(0)"."}}
#COND {.} {#sub %exec(ki_db.spec="")@ki_rysuj(@ki_rysuj_db(%replace(%replace(%replace("%t2",",","|")," albo ","|"),"-","_"),,@ki_rysujt_db(%replace(%replace(%replace("%t1",",","|")," albo ","|"),"-","_"),,@ki_db_s)))} {reparse}
#CLASS 0
#CLASS {Kierunki|ki_NONE}
#TRIGGER {^{Jest|Sa} tutaj %w widoczn{ych|e} wyjsc{ia|ie|}: (*).$} {#su {"|Wyjscia|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Trakt {wiedzie|rozgalezia sie} na (*).$} {#su {"|TRAKT|==>   "%ansi(3)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace(%replace(%replace("%1",". Mozna jednak z niego zejsc i udac sie do obozu",%concat(",",%ansi(10)) oboz),". Mozna jednak z niego zejsc i udac sie na",%concat(",",%ansi(10))), poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^W gestych ciemnosciach dostrzegasz{, ze trakt rozgalezia sie| trakt wiodacy} na (*).$} {#su {"|TRAKT|==>   "%ansi(3)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace(%replace("%1",". Mozna jednak z niego zejsc i udac sie na",%concat(",",%ansi(10))), poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^W mroku nocy dostrzegasz %w widoczn{ych|e} wyjsc{ia|ie|}: (*).$} {#su {"|NOC|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Wsrod mgly dostrzegasz %w widoczn{ych|e} wyjsc{ia|ie|}: (*).$} {#su {"|MGLA|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Wedrowke przez rozlegle laki mozesz kontynuowac udajac sie na (*).$} {#su {"|LAKI|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " lub ", ", ")%ansi(0)"."}}
#TRIGGER {^Wedrowke przez rozlegle laki mozesz kontynuowac w dowolnie wybranym kierunku.$} {#sub {"|LAKI|==>   "%ansi(10)S, N, E, W, SW, SE, NE, NW }}
#TRIGGER {^Tunel{|e} ciagn{ie|a} sie na (*).$} {#su {"|TUNEL|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^W gestych ciemnosciach dostrzegasz tunel {rozwidlajacy sie|wiodacy} na (*).$} {#su {"|TUNEL|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace(%replace("%1",. Inna droga prowadzi stad przez skalne osypisko na, ","),. Inna droga prowadzi stad przez otwor w scianie,", otwor"), poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^{Korytarze jaskini|Jaskinie} ciagna sie na (*).$} {#su {"|PAJAKI|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Mozesz stad poplynac na (*).$} {#su {"|PLYWANIE|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Mozesz skierowac lodz na (*).$} {#su {"|LODZ|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Szlak prowadzi tutaj w %w kierunk{ach|u}: (*).$} {#su {"|SZLAK|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Sciezka prowadzi tutaj w %w kierunk{ach|u}: (*).$} {#su {"|SCIEZKA|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Sciezka {wiedzie|rozgalezia sie} na (*).$} {#su {"|SCIEZKA|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Mozesz sie stad udac na (*).$} {#su {"|PUSTKI|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " lub ", ", ")%ansi(0)"."}}
#TRIGGER {^Mozesz stad wyruszyc w dowolnie wybranym kierunku.$} {#sub {"|PUSTKI|==>   "%ansi(10)S, N, E, W, SW, SE, NE, NW }}
#TRIGGER {^Mozesz podazac traktem na (*) albo (*). Natomiast aby zejsc z wytyczonej drogi wystarczy udac sie w dowolnym innym kierunku.$} {#su {"|DROGA CZASZEK|==>   "%ansi(3)%db(@ki_wyjscia_db,%1)%ansi(10), %ansi(3)%db(@ki_wyjscia_db,%2)%ansi(10)%remove(%concat(", ",%db(@ki_wyjscia_db,%2)),%remove(%concat(", ",%db(@ki_wyjscia_db,%1)),", S, N, E, W, SW, SE, NE, NW"))%ansi(0)"."}}
#TRIGGER {^Mozesz podazac traktem na poludniowy-wschod albo na polnoc, w strone fortu.$} {#sub {"|PUSTKI|==>   "%ansi(3)SE, N }}
#TRIGGER {^Przed soba zauwazasz brame. Mozesz sie stad udac na (*).$} {#su {"|PUSTKI|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " lub ", ", ")", brama"%ansi(0)"."}}
#TRIGGER {^Wyjscia prowadza tutaj w %w kierunk{ach|u}: (*).$} {#su {"|KRYPTA|==>   "%ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace( "%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " i ", ", ")%ansi(0)"."}}
#TRIGGER {^Korytarz jaskini prowadzi na polnocny-wschod, a na zewnatrz mozna sie wydostac przez otwor.$} {#su {"|PAJAKI|==> "%ansi(10)"NE, otwor }}
#TRIGGER {^Mozesz podazac traktem na (*). Natomiast jesli chcesz zejsc z wytyczonej drogi mozesz udac sie na (*).$} {#su {"|TRAKT|==>   "%ansi(3)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace("%1", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " albo ", ", "), %ansi(10)%replace( %replace( %replace( %replace( %replace( %replace( %replace( %replace("%2", poludniowy, S), polnocny, N), wschod, E), zachod, W), polnoc, N), poludnie, S), "-", ""), " albo ", ", ")%ansi(0)"."}}
#CLASS 0
#CLASS {Ziola}
#ALIAS -addziolo {zi_temp=%null;#noop %regex( "%-1", "((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasol|owoc|ziol|ziel|cebul|me?ch|kapelusz|kwiatostan|rur|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)", zi_temp.opis, zi_temp.a, zi_temp.b, zi_temp.c);zi_temp.bkonc = %lower( %if( @zi_temp.a, %concat( @zi_temp.a, " "))@zi_temp.b %replace( @zi_temp.c, mech, mch));zi_temp.input = %replace( %replace( "%-1", "-->", ""), @zi_temp.opis, "");#noop %regex( @zi_temp.input , "([a-z]{3,}(?:(?! (?:powachaj|przezuj|przyloz|rozetrzyj|rozgryz|spal|sproszkuj|zjedz))\s[a-z]{3,})?)", zi_temp.nazwa);zi_temp.input = %subregex( %replace( @zi_cleanback( @zi_temp.input, @zi_temp.nazwa), "-", ""), "[^a-z+ ]", "");zi_temp.input = %subregex( %trim( @zi_temp.input), "(?:,\s*)?(powachaj|przezuj|przyloz|rozetrzyj|rozgryz|spal|sproszkuj|zjedz)", "|%%1:");#if (%begins( @zi_temp.input, |)) {zi_temp.input=%right( @zi_temp.input, 1)};#if (@zi_temp.opis) {#if (@zi_temp.input) {#addkey zi_baza {%lower( @zi_temp.opis)} {%upper( @zi_temp.nazwa)%ansi( reset)%if( @zi_temp.input, " ("%replace( %lower( @zi_temp.input), "|", "  ")")")};#addkey %if( %numwords( @zi_temp.bkonc)=2, zi_baza2w, zi_baza3w) {@zi_temp.bkonc} {%addkey( %addkey( , name, %upper( @zi_temp.nazwa)), use, @zi_temp.input)}} {#if (%db( @zi_baza, %lower( @zi_temp.opis))) {#addkey zi_baza {%lower( @zi_temp.opis)} {%subregex( %db( @zi_baza, %lower( @zi_temp.opis)), ".*\[0m", %upper( @zi_temp.nazwa)%ansi( reset))}} {#addkey zi_baza {%lower( @zi_temp.opis)} {%upper( @zi_temp.nazwa)%ansi( reset)}};#addkey %if( %numwords( @zi_temp.bkonc)=2, zi_baza2w, zi_baza3w) {@zi_temp.bkonc} {%addkey( , name, %upper( @zi_temp.nazwa))}};#sh --> Dodano do bazy ziol - Mianownik: %ansi( 7)%lower( @zi_temp.opis)%ansi( reset) Bez koncowek: %ansi( 7)@zi_temp.bkonc%ansi( reset) Nazwa: %ansi( 10)%upper( @zi_temp.nazwa)%ansi( reset) Uzycie: %ansi( 7)%replace( @zi_temp.input, "|", " -> ")%ansi( reset)} {#sh --> Zeby dodac ziolo potrzebujesz przynajmniej podac jego prawidlowy opis. -?addziolo po dodatkowe informacje.}}
#ALIAS -komziolo {zi_temp=%null;#noop %regex( "%-1", "((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasolk|owoc|ziol|ziel|cebul|mech|kapelusz|kwiatostan|rurk|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)", zi_temp.opis);#noop %regex( %db( @zi_baza, %lower( @zi_temp.opis)), "(.*).\[0m", zi_temp.nazwa);zi_temp.input = %replace( %replace( "%-1", "-->", ""), @zi_temp.opis, "");zi_temp.input = %subregex( %replace( @zi_cleanback( @zi_temp.input, @zi_temp.nazwa), "-", ""), "[^a-z+ ]", "");zi_temp.input = %subregex( %trim( @zi_temp.input), "(?:,\s*)?(powachaj|przezuj|przyloz|rozetrzyj|rozgryz|spal|sproszkuj|zjedz)", "|%%1:");#if (%begins( @zi_temp.input, |)) {zi_temp.input=%right( @zi_temp.input, 1)};#if (@zi_temp.opis and %db( @zi_baza, %lower( @zi_temp.opis))) {#addkey zi_baza {%lower( @zi_temp.opis)} {%upper( @zi_temp.nazwa)%ansi( reset)%if( @zi_temp.input, " ("%replace( %lower( @zi_temp.input), "|", "  ")")")};#addkey %if( %numwords( @zi_temp.bkonc)=2, zi_baza2w, zi_baza3w) {@zi_temp.bkonc} {%addkey( %addkey( , name, %upper( @zi_temp.nazwa)), use, @zi_temp.input)};#sh --> Dodano do bazy ziol - Mianownik: %ansi( 7)%lower( @zi_temp.opis)%ansi( reset) Bez koncowek: %ansi( 7)@zi_temp.bkonc%ansi( reset) Nazwa: %ansi( 10)%upper( @zi_temp.nazwa)%ansi( reset) Uzycie: %ansi( 7)%replace( @zi_temp.input, "|", " -> ")%ansi( reset)} {#sh --> Opisu ziola do ktorego chcesz dodac komentarz nie ma w bazie. Dodaj je przez -addziolo. Wpisz -?komziolo po dalsza pomoc.}}
#ALIAS zi_sortbaza {zi_baza=%replace( %sort( %replace( @zi_baza, %char( 29), "|")), "|", %char( 29));zi_temp=%null;#loopdb @zi_baza2w {#addkey zi_temp {%key} {%val};#addkey zi_baza2w {%key} {}};zi_baza2w=%replace( %sort( %replace( @zi_baza2w, %char( 29), "|")), "|", %char( 29));#loopdb @zi_temp {#addkey zi_baza2w {%key} {%val}};#loopdb @zi_baza3w {#addkey zi_temp {%key} {%val};#addkey zi_baza3w {%key} {}};zi_baza3w=%replace( %sort( %replace( @zi_baza3w, %char( 29), "|")), "|", %char( 29));#loopdb @zi_temp {#addkey zi_baza3w {%key} {%val}};zi_temp=%null}
#VAR zi_sub {%ansi( reset)%if( "%2", %1%ansi( 10)%upper( %db( %2, name))%ansi( reset)%replace( %db( %2, use), |, %ansi( 10)%ansi( reset)), %if( "%3", %ansi( 7)%insert( %ansi( reset), %1, %eval( %4+3))%ansi( 10)%upper( %db( %3, name))%ansi( reset)%replace( %db( %3, use), |, %ansi( 10)%ansi( reset)), %ansi( 13)%1))%ansi( 7)}
#VAR zi_subb {%ansi( reset)%if( "%2", %ansi( 10)%upper( %db( %2, name))%ansi( reset), %if( "%3", %ansi( 7)%if( %numwords( %1)=3, %word( %1, 1)" ")%ansi( 10)%upper( %db( %3, name))%ansi( 10), %ansi( 13)%1))%ansi( 7)}
#VAR zi_temp {}
#VAR zi_subregex {%subregex( %1, "(%2)", %ansi( 6)"%%1"%ansi( reset))}
#VAR zi_cleanback {%subregex("%1","^[^a-z]*%2","")}
#VAR search_name {%if( %4>%5, 1, %if( %pos( %3, %1), @search_name(%1,%2,[%item(%2,%eval(%4+1))],[%eval(%4+1)],%5), 0))}
#VAR zi_rep_baza {maly szorstki liscADANATszary kolczasty korzenARALIAzlocistopomaranczowy duzy kwiatARNIKArozetkowaty lancetowaty liscBABKAbrudnobrazowa cuchnaca galazkaBAGNOfioletowy lejkowaty kwiatBARWINEKjasnobrunatna popekana galazkaBEZduzy bialy kwiatBIELUNczarna blyszczaca fasolkaBOBOTRUTKAszarozielony szorstki liscBOLDOAgruby brazowy grzybBOROWIK KROLEWSKIgruby szarawy grzybBOROWIK SZATANSKIwysoki jasnobrazowy grzybBOROWIK SZLACHETNYtwardy czerwony owocBOROWKAdelikatna dluga lodygaBOZE DRZEWKOczarne aromatyczne ziarenkoBULAWINKArurkowaty oliwkowobrunatny kwiatBYLICA CYTWAROWAgaleziasta szaroowlosiona lodygaBYLICA PIOLUNkanciasta rozgaleziona lodygaBYLICA POSPOLITAmazisty bulwiasty grzybCASURzlociste spore zioloCEBULAsmukla jasnozielona lodygaCENTURIAwysoki blekitny kwiatCHABERmala zoltozielona szyszkaCHMIELdlugi bialy korzenCHRZANciemny splatany korzenCIEMIERNIKzielony miesisty kwiatCIEMIEZYCAniewielki brunatny koszyczekCZARNUSZKAulistniona aromatyczna galazkaCZEREMCHAbiala pachnaca cebulkaCZOSNEKzolty jasny kwiatDELIONAlsniacy czerwony owocDERENzielone postrzepione galazkiDRABIKsoczysty karminowy mechDRATHczterokanciasta rozgaleziona lodygaDZIURAWIECczteroplatkowy zolty kwiatekGLISTNIKbialy maly kwiatGLOGbrazowawy fosforyzujacy mechGRABIOROGpachnacy snieznobialt kwiatGRZYBIENgrzybi suchy kapeluszHUBKAzielona kwitnaca krzewinkaHYZOPmaly fioletowy owocJAGODAwiotka kwitnaca galazkaJANOWIECrozgaleziona wzniesiona lodygaJASKIERoliwkowozielona gietka galazkaJEMIOLAmaly czarny owocJEZYNAkosmatoowlosiony kwiatostanKASZTANOWIECwzniesiona owlosiona lodygaKOCIMIETKAbrazowe okragle nasionkoKOLAmacznistoowlosiona szarawa roslinaKOMOSAdluga lodygaKONOPIAwonny dzwonkowaty kwiatekKONWALIAwysoki czerwonawy grzybKOZLARZpachnacy jasnozielony liscKRASNODRZEWcienka ukwiecona galazkaKRUSZYNAzdrewniala zwinieta rurkaKRUSZYNAukwiecona lodygaKRWAWNIKzoltawy powyginany korzenKRZYZOWNICAdziwne zoltoszare nasionkoKULCZYBAwiotka drobna lodyzkaKURZYSLADsztywna smukla lodygaLAK POSPOLITYfioletowy zwarty kwiatostanLAWENDAszary aromatyczny korzenLUBCZYKsztywny rozgaleziony korzenLUKRECJAjasnozielona nieowlosiona lodygaLULECZNICABrudnozolty fioletowo-zylkowany kwiatLULEKzdrewniala rozgaleziona krzewinkaMACZNICAokazaly pachnacy kwiatMAK LEKARSKIpiekny czerwony kwiatMAK POLNYniewielki fioletowy kwiatMAKOWNIKmaly czerwony owocMALINAbialy rozgaleziony korzenMANDRAGORArozwiniety korzenMARZANNAnieduzy brazowy grzybMASLAKowlosiony aromatyczny liscMELISAokraglawy aromatyczny liscMIETAzlocistozolty kwiatMNISZEKmiedzianozielony fosforyzujacy grzybMUCHOMOR CESARSKIdelikatny czerwony grzybMUCHOMOR CZERWONYdelikatny jasny grzybMUCHOMOR SROMOTNIKOWYjasnopomaranczowy kwiatNAGIETEKsrebrzystoszary owlosiony liscNAPARSTNICAjasnobrazowa ulistniona lodygaNAWLOCsmukla zielona lodygaNOSTRZYK ZOLTYeliptyczny zaostrzony liscOGORECZNIKgrube klaczeOMANkolczasta wysuszona roslinaOSETduzy fioletowy kwiatOSTROZECZKAgalezista sinozielona lodygaOSTROZENciemne poskrecane klaczePIECIORNIKciemnoniebieski sluzowaty grzybPIERSCIENIAKmiedziany sluzowaty grzybPIERSCIENIAKniebieski sluzowaty grzybPIERSCIENIAKzielony sluzowaty grzybPIERSCIENIAKjasnozielony sluzowaty grzybPIERSCIENIAK GRYNSZPANOWYrozdeta aromatyczna lodygaPIETRUSZKAdluga pachnaca lodygaPIOLUNszarozielony gabczasty porostPLUCNICAzolty jaskrawy kwiatPODBIALsredni kasztanowobrazowy grzybPODGRZYBEKczarna lsniaca jagodaPOKRZYKgrube walcowate klaczePOKRZYK WILCZA JAGODAkanciasta parzaca lodygaPOKRZYWApierzasty ogonkowy liscPOTOSLINszorstka ciemnozielona galazkaPOZIEWNIKniewielki czerwony owocPOZIOMKAkremowy owlosiony kwiatPRZELOTrozgowata zoltozielona galazkaPRZESLczerwonawy duzy liscRABARBARzoltoszary niepozorny korzenRANOGszarawe pogiete klaczeRAUWOLFIAzielony galezisty pedRDEST PTASIgrube wygiete klaczeRDEST WEZOWNIKciemnozielona rozwarta rozyczkaROJNIKbialokwitnaca drobna roslinkaROSICZKAdrobny bialy kwiatekRUMIANEKmaly czerwony kwiatSERCE KAPITANAduza granatowa jagodaSIEZYGRONzielona trzeszczaca galazkaSKRZYPczarny niewielki owocSLIWAwysoki zolty kwiatSTARZECbialy zmutowany grzybekSTROCZEKrozgaleziona owlosiona lodygaSTROICZKAjaskrawozolty drobny kwiatSTULICHAdrobna ukwiecona galazkaSWIETLIKjasnofioletowy delikatny kwiatSZAFRANpomaranczowy maly korzenSZALEJzaostrzony podluzny liscSZALWIAstrzalkowaty aromatyczny liscSZCZAWaromatyczne klaczeTATARAKwzniesiona ukwiecona lodygaTOJADzielone lancetowate liscieTRAWAniepozorna sinozielona roslinkaURZETzolty rurkowaty kwiatWROTYCZjasnofioletowy dlugi kwiatZIMOWIT}
#VAR odmienz_typy_bkb {cebulcebulkifasolfasolkigalazgalazkigrzybgrzybyjagodjagodykapeluszkapeluszeklaczklaczakorzenkorzeniekoszyczkoszyczkikrzewinkrzewinkikwiatkwiatykwiatostankwiatostanyliscliscielodyglodygilodyzlodyzkimchmchynasionnasionaowocowocepedpedyporostporostyroslinroslinyrozyczrozyczkirurrurkiszyszszyszkiziarenziarenkazielzielaziolziola}
#VAR odmienz_wyjatki_bkb {drobn bial kwiatdrobne biale kwiatkiwonn dzwonkowat kwiatwonne dzwonkowate kwiatkibialokwitnaca drobna roslinbialokwitnace drobne roslinkiniepozorna sinozielona roslinniepozorne sinozielone roslinki}
#VAR odmienz_przym_bkb {%if(%ends(%1,b) or %ends(%1,k), %1ie, %1e)}
#VAR odmienz_bkb {%if( %db( @odmienz_wyjatki_bkb, %1), %db( @odmienz_wyjatki_bkb, %1), %if( %numwords( %1)=3, @odmienz_przym_bkb(%word(%1,1)) @odmienz_przym_bkb(%word(%1,2)) %db( @odmienz_typy_bkb, %word( %1, 3)), @odmienz_przym_bkb(%word(%1,1)) %db( @odmienz_typy_bkb, %word( %1, 2))))}
#VAR pomoc_ziola {   -ziolo         - wyszukaj ziolo w bazie;   -addziolo      - dodaj ziolo do bazy}
#REGEX {^(?:> )?Rozwiazujesz na chwile rzemyk, sprawdzajac zawartosc swojego ((?>[^.]+))\. W srodku dostrzegasz ((?>[^.]+))\.$} {#sub {Rozwiazujesz na chwile rzemyk, sprawdzajac zawartosc swojego %1. W srodku dostrzegasz: %char(13)%ansi( 7)-> %replace(%replace(%subregex("%2","((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasol|owoc|ziol|ziel|cebul|me?ch|kapelusz|kwiatostan|rur|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)(?=$|, | i )","@zi_sub(%%1,%db(@zi_baza3w,%%2 %%3 %replace(%%4,mech,mch)),%db(@zi_baza2w,%%3 %%4),%len(%%2))"),", ", "&#269~;-> ")," i ", "&#269~;-> ")}}
#TRIGGER {^{|> }Znajdujesz (*).$} {#sub {Znajdujesz %subregex("%1","^((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasol|owoc|ziol|ziel|cebul|me?ch|kapelusz|kwiatostan|rur|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)(?=$|, | i )","@zi_sub(%%1,%db(@zi_baza3w,%%2 %%3 %replace(%%4,mech,mch)),%db(@zi_baza2w,%%3 %%4),%len(%%2))").}}
#TRIGGER {{sloik|woreczek} zawiera (*).$} {#sub {sloik zawiera: %char(13)-> %replace(%replace(%subregex("%1","((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasol|owoc|ziol|ziel|cebul|me?ch|kapelusz|kwiatostan|rur|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)(?=$|, | i )","@zi_sub(%%1,%db(@zi_baza3w,%%2 %%3 %replace(%%4,mech,mch)),%db(@zi_baza2w,%%3 %%4),%len(%%2))"),", ", "&#269~;-> ")," i ", "&#269~;-> ").}}
#REGEX {((?:wacha|przezuwa|przyklada|rozciera|rozgryza|spala|proszkuje|zjada)(?:sz)?) ([a-z\s-]+)\.} {#sub {%1 %subregex("%2","((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasol|owoc|ziol|ziel|cebul|me?ch|kapelusz|kwiatostan|rur|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)(?=$|, | i )","@zi_sub(%%1,%db(@zi_baza3w,%%2 %%3 %replace(%%4,mech,mch)),%db(@zi_baza2w,%%3 %%4),%len(%%2))").}}
#REGEX {((?:bierze|wklada)(?:sz)?) ((?>(?>[a-z,-]{3,} |i )+))((?:z|do) (?:(?>[a-z]+\s)){1,3}(?:woreczka|sloiczka)(?: ze?(?:\s[a-z]+)? skory(?:\s[a-z]+)?)?)\.} {#sub {%1 %ansi(7)%subregex("%2","((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasolk|owoc|ziol|ziel|cebul|mech|kapelusz|kwiatostan|rur|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)(?= $|, | i )","@zi_subb(%%1,%db(@zi_baza3w,%%2 %%3 %%4),%db(@zi_baza2w,%%3 %%4))")%3.}}
#CLASS 0
#CLASS {Ziola|zi_wpis}
#ALIAS -ziolo {#if (!"%-1") {zi_temp=""} {zi_temp = %replace( %subregex( %lower( %replace( "%-1" , " ", "|")), "\|(?=\|)", ""), "-", "")};#sh "";#sh "            "---- Wyszukuje ---- %ansi( 7)%replace( @zi_temp, |, " ")%ansi( reset) ---- w %ansi( 7)ziolach%ansi( reset);#loopdb @zi_baza {#if (@search_name(%lower(%val %key),[@zi_temp],[%item(@zi_temp,1)],1,%numitems(@zi_temp))) {#mxp -~<send "zi_pokaz %key" "Edytuj %key"~>~#~</send~>-> @zi_subregex(%key%repeat( " ", 40-%len( %key))%ansi( 10)%val,%replace(%replace(@zi_temp),"+","\+"))}};#sh @format_center(%repeat( "-", 10) zakonczono wyszukiwanie %repeat( "-", 10),70)}
#ALIAS zi_pokaz {zi_temp=%null;zi_temp.opis=%-1;zi_pokaz_now}
#ALIAS zi_pokaz_now {#makewindow Ziola_Window open "scrolling=no|floating=yes|width=60c|height=20c|top=-35c|left=-70c|title="%proper( @zi_temp.opis);:Ziola_Window: #clr;:Ziola_Window: #sh "";:Ziola_Window: #mxp %concat( "  ")~<send "zi_pokaz_opis" "Zmien opis ziola (i jego identyfikator)">Opis</send> ziola: @zi_temp.opis;zi_skroc;#if (%numwords( @zi_temp.opis)=2) {zi_temp.suse = %db( %db( @zi_baza2w, @zi_temp.sk), use)} {zi_temp.suse = %db( %db( @zi_baza3w, @zi_temp.sk), use)};zi_temp.nazwa = %trim( %item( %replace( %db( @zi_baza, @zi_temp.opis), %ansi( reset), "|"), 1));zi_temp.buse = %subregex( %item( %replace( %db( @zi_baza, @zi_temp.opis), %ansi( reset), "|"), 2), "^ \(|\)$", "");:Ziola_Window: #mxp ~<color ~#666666>%concat( "  ")Identyfikator: @zi_temp.sk</color>;:Ziola_Window: #sh "";:Ziola_Window: #mxp %concat( "  ")~<send "zi_pokaz_name" "Zmien nazwe">Nazwa</send>: %ansi( 10)@zi_temp.nazwa;:Ziola_Window: #sh "";:Ziola_Window: #mxp %concat( "  ")~<send "zi_pokaz_buse" "Zmien uzycie wyswietlane w bazie">Uzycie</send> w bazie:;:Ziola_Window: #if (@zi_temp.buse) {#sh "";#sh "   "%ansi( 10)%db( @zi_baza, @zi_temp.opis)};:Ziola_Window: #sh "";:Ziola_Window: #mxp %concat( "  ")~<send "zi_pokaz_suse" "Zmien uzycie wyswietlane przy subowaniu">Uzycie</send> w subie:;:Ziola_Window: #sh "";:Ziola_Window: #sh "   "@zi_temp.opis%subregex( @zi_temp.opis, "^((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasol|owoc|ziol|ziel|cebul|me?ch|kapelusz|kwiatostan|rur|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)(?=$|, | i )", "@zi_sub(,%db(@zi_baza3w,%%2 %%3 %replace(%%4,mech,mch)),%db(@zi_baza2w,%%3 %%4),%len(%%2))");:Ziola_Window: #sh "";:Ziola_Window: #sh "";:Ziola_Window: #sh "";:Ziola_Window: #mxp ~<color ~#505050>%repeat( " ", 43)Dodaj ~<send "zi_dodaj" "Dodaj nowe ziolo do bazy danych">nowe</send> ziolo;:Ziola_Window: #mxp ~<color ~#505050>%repeat( " ", 46)Usun ~<send "zi_usun2" "Usun @zi_temp.opis z bazy danych">TO</send> ziolo;:Ziola_Window: #mxp ~<color ~#505050>%repeat( " ", 39)Posortuj ~<send "zi_sortbaza" "Posortuj wpisy w bazie ziol alfabetycznie">baze danych</send>}
#ALIAS zi_pokaz_name {zi_temp.temp = @zi_temp.nazwa;#pr zi_temp.temp {Wprowadz nowa nazwa dla ziola (@zi_temp.opis, @zi_temp.nazwa).};#if (@zi_temp.temp and @zi_temp.temp<>@zi_temp.nazwa) {zi_temp.nazwa=%upper( %trim( @zi_temp.temp));zi_zapisz;zi_pokaz_now}}
#ALIAS zi_pokaz_buse {zi_temp.temp = @zi_temp.buse;#pr zi_temp.temp {Wprowadz opis, ktory a byc pokazywany, gdy wyszukujesz to ziolo (@zi_temp.opis, @zi_temp.nazwa) w bazie ziol (-ziolo).};#if (@zi_temp.temp<>@zi_temp.buse) {zi_temp.buse=%replace( @zi_temp.temp, "-", "");zi_zapisz;zi_pokaz_now}}
#ALIAS zi_pokaz_suse {zi_temp.temp = @zi_temp.suse;#pr zi_temp.temp {Wprowadz uycie, ktre ma byc wyswietlane gdy to ziolo (@zi_temp.opis, @zi_temp.nazwa) jest subowane (zawartosc woreczka, uzycie przez kogos). Wstaw | oddzielajac uzycia ziola.};#sh @zi_temp.temp;#if (@zi_temp.temp<>@zi_temp.suse) {zi_temp.suse=%replace( @zi_temp.temp, "-", "");zi_zapisz;zi_pokaz_now}}
#ALIAS zi_pokaz_opis {zi_temp.temp = @zi_temp.opis;#pr zi_temp.temp {Wprowadz nowy opis dla ziola (STARY: @zi_temp.opis, @zi_temp.nazwa). Identyfikator zostanie utworzony automatycznie.};#if (%iskey( @zi_baza, @zi_temp.temp) and @zi_temp.temp<>@zi_temp.opis) {#yesno "Ziolo o takim opisie juz znajduje sie bazie ziol." {Popraw opis:zi_pokaz_opis} {Anuluj:}} {#if (@zi_temp.temp<>@zi_temp.opis) {zi_temp.temp = %lower( %trim( @zi_temp.temp));zi_usun;zi_temp.opis=@zi_temp.temp;zi_skroc;zi_zapisz;zi_pokaz_now}}}
#ALIAS zi_dodaj {zi_temp.temp = @zi_temp.opis;#pr zi_temp.temp {Wprowadz opis dla nowego ziola, w mianowniku (kto? co? lezy na lokacji). Identyfikator zostanie utworzony automatycznie.};#if (%iskey( @zi_baza, @zi_temp.temp) and @zi_temp.temp<>@zi_temp.opis) {#yesno "Ziolo o takim opisie juz znajduje sie bazie ziol." {Popraw opis:zi_dodaj} {Anuluj:}} {#if (@zi_temp.temp) {zi_temp.opis = %lower( %trim( @zi_temp.temp));zi_skroc;zi_temp.buse = %null;zi_temp.suse = %null;zi_temp.nazwa = %null;zi_zapisz;zi_pokaz_now}}}
#ALIAS zi_zapisz {#addkey zi_baza {%lower( @zi_temp.opis)} {%upper( @zi_temp.nazwa)%ansi( reset)%if( @zi_temp.buse, " ("%replace( %lower( @zi_temp.buse), "|", "  ")")")};#sh suse - @zi_temp.suse, sk - @zi_temp.sk;#addkey %if( %numwords( @zi_temp.sk)=2, zi_baza2w, zi_baza3w) {@zi_temp.sk} {%addkey( %addkey( , name, %upper( @zi_temp.nazwa)), use, @zi_temp.suse)}}
#ALIAS zi_usun {#delkey zi_baza @zi_temp.opis;#delkey zi_baza2w @zi_temp.sk;#delkey zi_baza3w @zi_temp.sk}
#ALIAS zi_usun2 {#yesno "Czy napewno chcesz usunac to ziolo "(@zi_temp.opis, @zi_temp.nazwa)" z bazy danych ? Zostanie ono skasowane na zawsze (bardzo dlugi czas)." {Tak:#sh --> Usunieto @zi_temp.opis z bazy danych ziol.;zi_usun;#makewin Ziola_Window close} {Nie:}}
#ALIAS zi_skroc { #noop %regex( @zi_temp.opis, "((?:([a-z\-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i) )?(?!ususzon)([a-z-]+)(?:ego|ych|ich|ie|y|a|(?<!i)e|i)(?: ususzon[a-z]*\b)? (ziaren|nasion|grzyb|lodyg|lodyz|kwiat|korzen|klacz|rozycz|lisc|roslin|galaz|fasol|owoc|ziol|ziel|cebul|me?ch|kapelusz|kwiatostan|rur|krzewin|porost|ped|jagod|szysz|koszycz)[a-z]*)", zi_temp.opis, zi_temp.a, zi_temp.b, zi_temp.c);zi_temp.sk = %if( @zi_temp.a, @zi_temp.a" ", "")@zi_temp.b @zi_temp.c}
#CLASS 0
#CLASS {Listy}
#ALIAS textjust {@text_just(%1,%2,"%-3")}
#ALIAS textbreak {#forall @text_break(%eval(%2-%1),"%-3") {#if (%ends( "%-3", "%i")) {%repeat( " ", 10)"%i"} {@text_just(%1,%2,"%i")}}}
#ALIAS tj {#sh @text_just(10,70,"%-1")}
#ALIAS tb {textbreak 10 67 %-1}
#CLASS 0
#CLASS {Zegar}
#ALIAS ze_set {ze_db=%null;ze_db.temp=0;#loopdb @ze_mdb {#additem ze_db.md @ze_db.temp;#va ze_db.imd %additem( %val, @ze_db.imd);#additem ze_db.nmd %key;#add ze_db.temp %val};ze_db.dni=pierwszy|drugi|trzeci|czwarty|piaty|szosty|siodmy|osmy|dziewiaty|dziesiaty|jedenasty|dwunasty|trzynasty|czternasty|pietnasty|szesnasty|siedemnasty|osiemnasty|dziewietnasty|dwudziesty|dwudziesty pierwszy|dwudziesty drugi|dwudziesty trzeci|dwudziesty czwarty|dwudziesty piaty|dwudziesty szosty|dwudziesty siodmy|dwudziesty osmy|dwudziesty dziewiaty|trzydziesty|trzydziesty pierwszy|trzydziesty drugi|trzydziesty trzeci;ze_db.godz = pierwsza|druga|trzecia|czwarta|piata|szosta|siodma|osma|dziewiata|dziesiata|jedenasta|poludnie|polnoc;ze_db.opory=Noc Wiedzm|Wczesna wiosna|Wiosna|Rozkwitanie|Pozna wiosna|Poczatek lata|Pelnia lata|Dzien Slonca|Koniec lata|Noc Tajemnicy|Poczatek jesieni|Jesien|Przekwitanie|Pozna jesien|Poczatek zimy|Srodek zimi|Uspienie|Koniec zimy;ze_db.pory=Wiosna|Wiosna|Wiosna|Wiosna|Wiosna|Lato|Lato|Lato|Lato|Jesien|Jesien|Jesien|Jesien|Jesien|Zima|Zima|Zima|Zima;#forall (13 Nachexen|6 Jahrdrung|31 Jahrdrung|22 Pflugzeit|14 Sigmarzeit|6 Sommerzeit|31 Sommerzeit|22 Vorgeheim|13 Nachgeheim|6 Erntezeit|31 Erntezeit|22 Brauzeit|14 Kaldezeit|6 Ulriczeit|31 Ulriczeit|22 Vorhexen) {#additem ze_db.now @ze_day(%replace(%i," ","|"))};ze_db.wschod=6|6|6|6|6|4|4|4|4|6|6|6|6|6|8|8|8|8;ze_db.zachod=19|19|19|19|19|22|22|22|22|19|19|19|19|19|16|16|16|16;#delkey ze_db temp;#sh ok}
#ALIAS ze_doH {#if (@ze_db.H<23) {#add ze_db.H 1} {ze_db.H=0;#if (%number( @ze_db.D)<%number( %item( @ze_db.imd, @ze_db.M))) {#add ze_db.D 1;#add ze_db.day 1} {ze_db.D=1;#if (@ze_db.M<%numitems( @ze_db.md)) {#add ze_db.M 1} {ze_db.M=1;ze_db.day=1};ze_db.pora = %item( @ze_db.pory, @ze_db.M)}};#if ((@ze_db.H<%number( %item( @ze_db.wschod, @ze_db.M))) or (%eval( @ze_db.H+1)>%number( %item( @ze_db.zachod, @ze_db.M)))) {ze_db.slonce=0} {ze_db.slonce=1}}
#ALIAS ze_tick {ze_db.nn=%mod( %time( nn), 2);ze_db.ss=%time( ss);#exec "#alarm ze_H {*:"@ze_db.ss"} {#if (@ze_db.nn=%mod( %time( nn), 2)) {ze_doH}} {Zegar}"}
#VAR ze_mdb {Hexentag1Nachexen33Jahrdrung32Mitterfruhl1Pflugzeit33Sigmarzeit33Sommerzeit33Sonnstill1Vorgeheim33Geheimnisnacht1Nachgeheim32Erntezeit33Mittherbst1Brauzeit33Kaldezeit33Ulriczeit33Monstille1Vorhexen33}
#VAR ze_db {md0|1|34|66|67|100|133|166|167|200|201|233|266|267|300|333|366|367imd1|33|32|1|33|33|33|1|33|1|32|33|1|33|33|33|1|33nmdHexentag|Nachexen|Jahrdrung|Mitterfruhl|Pflugzeit|Sigmarzeit|Sommerzeit|Sonnstill|Vorgeheim|Geheimnisnacht|Nachgeheim|Erntezeit|Mittherbst|Brauzeit|Kaldezeit|Ulriczeit|Monstille|Vorhexendnipierwszy|drugi|trzeci|czwarty|piaty|szosty|siodmy|osmy|dziewiaty|dziesiaty|jedenasty|dwunasty|trzynasty|czternasty|pietnasty|szesnasty|siedemnasty|osiemnasty|dziewietnasty|dwudziesty|dwudziesty pierwszy|dwudziesty drugi|dwudziesty trzeci|dwudziesty czwarty|dwudziesty piaty|dwudziesty szosty|dwudziesty siodmy|dwudziesty osmy|dwudziesty dziewiaty|trzydziesty|trzydziesty pierwszy|trzydziesty drugi|trzydziesty trzecigodzpierwsza|druga|trzecia|czwarta|piata|szosta|siodma|osma|dziewiata|dziesiata|jedenasta|poludnie|polnocoporyNoc Wiedzm|Wczesna wiosna|Wiosna|Rozkwitanie|Pozna wiosna|Poczatek lata|Pelnia lata|Dzien Slonca|Koniec lata|Noc Tajemnicy|Poczatek jesieni|Jesien|Przekwitanie|Pozna jesien|Poczatek zimy|Srodek zimi|Uspienie|Koniec zimyporyWiosna|Wiosna|Wiosna|Wiosna|Wiosna|Lato|Lato|Lato|Lato|Jesien|Jesien|Jesien|Jesien|Jesien|Zima|Zima|Zima|Zimanow14|40|65|89|114|139|164|189|214|239|264|289|314|339|364|389wschod6|6|6|6|6|4|4|4|4|6|6|6|6|6|8|8|8|8zachod19|19|19|19|19|22|22|22|22|19|19|19|19|19|16|16|16|16nn0H5slonce0D16M18day383poraZimass35}
#VAR ze_dtm {%exec( "#forall @ze_db.md {#if (%i<%1) {%i}}")}
#VAR ze_mname {%item( @ze_db.nmd, %numitems( @ze_dtm(%1)))}
#VAR ze_day {%eval( %item( %1, 1)+%item( @ze_db.md, %ismember( %item( %1, 2), @ze_db.nmd)))}
#VAR ze_date {@ze_date2(%1,[@ze_mname(%1)])}
#VAR ze_date2 {%if( %db( @ze_mdb, %2)=1, %2, %eval( %1-%item( @ze_db.md, %ismember( %2, @ze_db.nmd))) %2)}
#VAR ze_endh {%eval( @ze_db.ss-%time( ss))}
#REGEX {(?:> )?Jest w przyblizeniu (\w+)(?: (w nocy|poznym wieczorem|wieczorem|rano|nad ranem|po poludniu))?(?:, (przed wschodem slonca|po wschodzie slonca|po zachodzie slonca))? w (\w+), (\w+(?: \w+)?) dzien miesiaca (\w+) wedlug Kalendarza Imperialnego\.$} {#if (@ze_db.H != %eval( %if( %ismember( %1, @ze_db.godz)=13, 0, %ismember( %1, @ze_db.godz))+%if( %ismember( %2, poznym wieczorem|wieczorem|po poludniu) or ("%2"="w nocy" and %ismember( %1, @ze_db.godz)>6) , 12, 0)) or @ze_db.D != %ismember( %5, @ze_db.dni) or @ze_db.M != %ismember( %6, @ze_db.nmd)) {ze_db.H=%eval( %if( %ismember( %1, @ze_db.godz)=13, 0, %ismember( %1, @ze_db.godz))+%if( %ismember( %2, poznym wieczorem|wieczorem|po poludniu) or ("%2"="w nocy" and %ismember( %1, @ze_db.godz)>6) , 12, 0));ze_db.D=%ismember( %5, @ze_db.dni);ze_db.M=%ismember( %6, @ze_db.nmd);ze_db.day=@ze_day(@ze_db.D|%6);#if ((@ze_db.H<%number( %item( @ze_db.wschod, @ze_db.M))) or (%eval( @ze_db.H+1)>%number( %item( @ze_db.zachod, @ze_db.M)))) {ze_db.slonce=0} {ze_db.slonce=1};ze_db.pora = %item( @ze_db.pory, @ze_db.M);ze_tick}}
#ALARM "ze_H" {*:35} {#if (@ze_db.nn=%mod( %time( nn), 2)) {ze_doH}}
#TRIGGER {^Pierwsze promienie wschodzacego slonca rozswietlaja niebo. W Starym Swiecie rozpoczyna sie kolejny dzien.$} {ze_db.H=%number( %item( @ze_db.wschod, @ze_db.M));ze_db.slonce=1;ze_tick}
#TRIGGER {^Ostatnie promienie zachodzacego slonca znikaja za horyzontem. W Starym Swiecie rozpoczyna sie noc.$} {ze_db.H=%number( %item( @ze_db.zachod, @ze_db.M));ze_db.slonce=0;ze_tick}
#STAT {- %ansi(111) %item( @ze_db.wschod, @ze_db.M) %if(@ze_db.slonce,%ansi(238),%ansi(155)) @ze_db.H %ansi(27) %item( @ze_db.zachod, @ze_db.M) %ansi(reset) - %case(%ismember(@ze_db.pora,Wiosna|Lato|Jesien|Zima),%ansi(2),%ansi(6),%ansi(4),%ansi(3))%left(@ze_db.pora,1)}
#CLASS 0
#CLASS {QBind}
#VAR qb_db {insdelendhomepguppgdn}
#KEY ALT-INS {#pr qb_db.ins "Podaj co ma byc wykonane po wciasnieciu tego klawisza bez alt. Zostaw puste, by przywrocic klawiszowi wczesniejsza funkcje.";#if (%len( @qb_db.ins)) {#key INS {#exec @qb_db.ins} {QBind}} {#unkey INS {QBind};#gag}}
#KEY ALT-DEL {#pr qb_db.del "Podaj co ma byc wykonane po wciasnieciu tego klawisza bez alt. Zostaw puste, by przywrocic klawiszowi wczesniejsza funkcje.";#if (%len( @qb_db.del)) {#key DEL {#exec @qb_db.del} {QBind}} {#unkey DEL {QBind};#gag}}
#KEY ALT-HOME {#pr qb_db.home "Podaj co ma byc wykonane po wciasnieciu tego klawisza bez alt. Zostaw puste, by przywrocic klawiszowi wczesniejsza funkcje.";#if (%len( @qb_db.home)) {#key HOME {#exec @qb_db.home} {QBind}} {#unkey HOME {QBind};#gag}}
#KEY ALT-END {#pr qb_db.end "Podaj co ma byc wykonane po wciasnieciu tego klawisza bez alt. Zostaw puste, by przywrocic klawiszowi wczesniejsza funkcje.";#if (%len( @qb_db.end)) {#key END {#exec @qb_db.end} {QBind}} {#unkey END {QBind};#gag}}
#KEY ALT-PGUP {#pr qb_db.pgup "Podaj co ma byc wykonane po wciasnieciu tego klawisza bez alt. Zostaw puste, by przywrocic klawiszowi wczesniejsza funkcje.";#if (%len( @qb_db.pgup)) {#key PGUP {#exec @qb_db.pgup} {QBind}} {#unkey PGUP {QBind};#gag}}
#KEY ALT-PGDN {#pr qb_db.pgdn "Podaj co ma byc wykonane po wciasnieciu tego klawisza bez alt. Zostaw puste, by przywrocic klawiszowi wczesniejsza funkcje.";#if (%len( @qb_db.pgdn)) {#key PGDN {#exec @qb_db.pgdn} {QBind}} {#unkey PGDN {QBind};#gag}}
#STAT {%ansi(reset)%if(@qb_db.ins,INS: %ansi(641)@qb_db.ins) %ansi(reset)%if(@qb_db.del,DEL: %ansi(641)@qb_db.del) %ansi(reset)%if(@qb_db.home,HOME: %ansi(641)@qb_db.home) %ansi(reset)%if(@qb_db.end,END: %ansi(641)@qb_db.end) %ansi(reset)%if(@qb_db.pgup,PGUP: %ansi(641)@qb_db.PGUP%ansi(reset)) %ansi(reset)%if(@qb_db.pgdn,PGDN: %ansi(641)@qb_db.pgdn)}
#CLASS 0
#CLASS {F7_makro}
#ALIAS F7_dodaj_komende {#va F7_komenda_temp {%-1};#if (@F7_komenda<>@F7_komenda_temp) {#SA %ansi( 5) %repeat(" ",42)BIND ` ----> %upper(%-1);F7_komenda = %-1} {}}
#ALIAS F7_dodaj_komende_widoczna {#SA %ansi( 5) %repeat(" ",42)BIND ` ----> %upper(%-1);F7_komenda = %-1}
#VAR F7_komenda {} {}
#VAR F7_komenda_temp {} {}
#VAR F7_autor {Skrypt stworzony przez Cerdina. Wersja 1.04} {Skrypt stworzony przez Cerdina. Wersja 1.04}
#VAR pomocb_f7 {   `   - wykonaj ostatni dynamiczny bind}
#TRIGGER {wskazuje na gore.$} {F7_dodaj_komende wespnij sie na gore}
#TRIGGER {wskazuje na wyrwe.$} {F7_dodaj_komende przeskocz wyrwe}
#TRIGGER {wskazuje na dol.$} {F7_dodaj_komende tr}
#TRIGGER {zaczyna wspinac sie} {F7_dodaj_komende wespnij sie na gore}
#TRIGGER {zaczyna schodzic {w|na} dol.$} {F7_dodaj_komende zejdz na dol}
#TRIGGER {{wskazuje na szczeline.|wchodzi do szczeliny|przeciska sie przez szczeline.}} {F7_dodaj_komende przecisnij sie przez szczeline}
#TRIGGER {zapiera sie nogami o grunt i probuje uniesc} {F7_dodaj_komende unies krate}
#TRIGGER {^{|> }Brama Piekiel.$} {F7_dodaj_komende wskocz do studni}
#TRIGGER {chwyta za jeden z konarow i zaczyna przesuwac pien} {F7_dodaj_komende przesun pien}
#TRIGGER {{Sklep miecznika.|Sklep Platnerza.}} {F7_dodaj_komende zapytaj mezczyzne o zlecenie}
#TRIGGER {znika w kepie krzakow.$} {F7_dodaj_komende przecisnij sie przez krzaki}
#TRIGGER {{przechodzi przez iluzje sciany.|przechodzi przez wneke.}} {F7_dodaj_komende przejdz przez wneke}
#TRIGGER {wchodzi do czerwonego wozu.$} {F7_dodaj_komende wejdz do wozu}
#TRIGGER {zaczyna ostroznie wspinac sie po sliskich belkach bramy.$} {F7_dodaj_komende wespnij sie na brame}
#TRIGGER {podaza w ciemnosci skalnej jamy.$} {F7_dodaj_komende wejdz do jamy}
#TRIGGER {^{|> }Bol w {prawej|lewej} dloni staje sie mniej odczuwalny.$} {F7_dodaj_komende_widoczna vbb}
#TRIGGER {^{|> }Listy nieprzeczytane:} {F7_dodaj_komende_widoczna przeczytaj list 1}
#TRIGGER {^{|> }Nagle dostrzegasz, ze zanurzony w wodzie sznurek * napina sie!} {F7_dodaj_komende_widoczna zr}
#TRIGGER {* wypala sie i gasnie.} {F7_dodaj_komende_widoczna ol}
#TRIGGER {{nabiera powietrza w pluca, by moc za chwile wzniesc wspolny, wlasciwy Bractwu Czarnych okrzyk.|* nabiera powietrza w pluca, by moc za chwile wzniesc wspolny, pelen triumfu i radosci okrzyk.|* nabiera powietrza w pluca, by moc za chwile wzniesc wspolny, zagrzewajacy do walki okrzyk.}} {F7_dodaj_komende_widoczna gbokrzyk;#play Sounds\Duel.mp3}
#TRIGGER {wchodzi do baszty.} {F7_dodaj_komende wejdz do baszty}
#TRIGGER {bierze rozbieg i przeskakuje wyrwe.} {F7_dodaj_komende przeskocz przez wyrwe}
#TRIGGER {{|> }(*) zaprasza cie do swojej druzyny.} {F7_dodaj_komende_widoczna dolacz do @odmien_md(%lower(%1))}
#TRIGGER {^{|> }Uderzenie jest tak silne, ze bezwiednie puszczasz (*)} {#SA %ansi( 655) ROZBROJONO CIE!!!;F7_dodaj_komende_widoczna vrpvm;#play Sounds\Puck.mp3}
#TRIGGER {Czujesz paralizujacy bol w wykreconych ciosem dloniach.$} {#SA %ansi( 655) ROZBROJONO CIE!!!;F7_dodaj_komende_widoczna vrpvm;#play Sounds\Puck.mp3}
#TRIGGER {* kladzie dlon na *, bedac gotowym do dobycia go w kazdej chwili.} {F7_dodaj_komende_widoczna bbczar}
#TRIGGER {wskazuje (*) jako cel obrony.} {F7_dodaj_komende_widoczna zaslon cel obrony;#SA %ansi( 269)%repeat( " ", 45) WSKAZANO CEL OBRONY!;#sa ""}
#TRIGGER {daje ci (*) amulet.} {F7_dodaj_komende_widoczna zaa}
#KEY ` {@F7_komenda}
#STAT {%if(@F7_komenda,BIND ` -->%ansi(red) @F7_komenda)}
#CLASS 0
#CLASS {CerdinLib}
#ALIAS mxp_reset {#mxp %char( 27)[3z;#sa %ansi(reset)}
#ALIAS testkolor {#rep 256 {#sh %ansi(%repeatnum) %repeatnum}}
#ALIAS testascii {#loop 34,255 {#sh %i: %char( %i)}}
#VAR CerdinLib_autor {Skrypt stworzony przez Cerdina. Wersja 12.09} {Skrypt stworzony przez Cerdina. Wersja 12.09}
#CLASS 0
#CLASS {CerdinLib|Odmiana}
#VAR odmien_przym_mb {%if(%ends(%1,"a") | %ends(%1,"e") ,%1,%concat(%if(%ends(%1,"i"),%1,%leftback(%1,1)),"ego"))}
#VAR odmien_przym_bm {%if(%ends(%1,"a") | %ends(%1,"e") ,%1,%if(%ends(%1,"iego"),%leftback(%1,3),%concat(%leftback(%1,3),"y")))}
#VAR odmien_mian {nevare}
#VAR odmien_bier {nevara}
#VAR odmien_rzecz_md {%if( %ismember( %1, @odmien_nieodmienialne), %1, %if( %db( @odmien_odmianaMD, %1), %db( @odmien_odmianaMD, %1), %if( (%ends( %1, ka))|(%ends( %1, ia)), %leftback( %1, 1)i, %if( %ends( %1, a), %leftback( %1, 1)y, %if( (%ends( %1, o))|(%ends( %1, e)), %leftback( %1, 1)a, @odmien_mb(%1))))))}
#VAR odmien_przym_md {%if((%ends(%1,ka))|(%ends(%1,ki)),%leftback(%1,1)iej,%if(%ends(%1,a),%leftback(%1,1)ej,%leftback(%1,1)ego))}
#VAR odmien_md {%case( %numwords( %1), @odmien_rzecz_md(%1), %if( %ismember( %1, @odmien_dwu_rasy), @odmien_rzecz_md(%1), @odmien_przym_md(%word(%1,1)) @odmien_rzecz_md(%word(%1,2))), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasy), @odmien_przym_md(%word(%1,1)) @odmien_rzecz_md(%word(%1,2) %word(%1,3)), @odmien_przym_md(%word(%1,1)) @odmien_przym_md(%word(%1,2)) @odmien_rzecz_md(%word(%1,3))), @odmien_przym_md(%word(%1,1)) @odmien_przym_md(%word(%1,2)) @odmien_rzecz_md(%word(%1,3) %word(%1,4)))}
#VAR odmien_rzecz_mb_bn {%if( "%1"="%2", %1, %if( %ends( %1, e), %leftback( %1, 1)a, %if( (%ends( %1, ka))|(%ends( %1, ga)), %leftback( %1, 1)iem, %if( %ends( %1, ego), %leftback( %1, 3)m, %leftback( %1, 1)em))))}
#VAR odmien_rzecz_mn {%if( %ismember( %1, @odmien_nieodmienialne), %1, @odmien_rzecz_mn2(%1,%db(@odmien_odmianaMN,%1)))}
#VAR odmien_rzecz_mn2 {%if( "%2", %2, @odmien_rzecz_mb_bn(@odmien_mb(%1),%1))}
#VAR odmien_przym_mn {%if( %ends( %1, a), %1, %if( %ends( %1, ie), %leftback( %1, 1)m, %if( %ends( %1, e), %leftback( %1, 1)ym, %1m)))}
#VAR odmien_mn {%case( %numwords( %1), @odmien_rzecz_mn(%1), %if( %ismember( %1, @odmien_dwu_rasy), @odmien_rzecz_mn(%1), @odmien_przym_mn(%word(%1,1)) @odmien_rzecz_mn(%word(%1,2))), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasy), @odmien_przym_mn(%word(%1,1)) @odmien_rzecz_mn(%word(%1,2) %word(%1,3)), @odmien_przym_mn(%word(%1,1)) @odmien_przym_mn(%word(%1,2)) @odmien_rzecz_mn(%word(%1,3))), @odmien_przym_mn(%word(%1,1)) @odmien_przym_mn(%word(%1,2)) @odmien_rzecz_mn(%word(%1,3) %word(%1,4)))}
#VAR odmien_rzecz_mc {%if( %ismember( %1, @odmien_nieodmienialne), %1, @odmien_rzecz_mc2(%1,%db(@odmien_odmianaMC,%1)))}
#VAR odmien_rzecz_mc2 {%if( "%2", %2, @odmien_rzecz_mc3(%1, %db(@odmien_rzecz_mc_konc,%rightback(%1,2))))}
#VAR odmien_rzecz_mc3 {%if( "%2", %leftback( %1, 2)%2, %if( %ends( %1, a), %leftback( %1, 1)ie, %if( (%ends( %1, e))|(%ends( %1, o)), %leftback( %1, 1)u, %if( %ends( %1, u), %leftback( %1, 1)owi, %1owi))))}
#VAR odmien_rzecz_mc_konc {dadziegadzehaszejajikacelalirarzetaciezazy}
#VAR odmien_przym_mc {%if(%ends(%1,ki),%1emu,%if(%ends(%1,ka),%leftback(%1,1)iej,%if(%ends(%1,a),%leftback(%1,1)ej,%if(%ends(%1,e),%1mu,%leftback(%1,1)emu))))}
#VAR odmien_mc {%case( %numwords( %1), @odmien_imie_mc(%1), %if( %ismember( %1, @odmien_dwu_rasy), @odmien_rzecz_mc(%1), @odmien_przym_mc(%word(%1,1)) @odmien_rzecz_mc(%word(%1,2))), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasy), @odmien_przym_mc(%word(%1,1)) @odmien_rzecz_mc(%word(%1,2) %word(%1,3)), @odmien_przym_mc(%word(%1,1)) @odmien_przym_mc(%word(%1,2)) @odmien_rzecz_mc(%word(%1,3))), @odmien_przym_mc(%word(%1,1)) @odmien_przym_mc(%word(%1,2)) @odmien_rzecz_mc(%word(%1,3) %word(%1,4)))}
#VAR odmienp_bm {@odmienp_bm2(%1,%db(@odmien_odmianapBM,%1))}
#VAR odmien_liczebnik {%if( %eval( %1/10)>1, %item( 10|dwudziest|trzydziest|czterdziest|piecdziesiat|szescdziesiat|siedemdziesiat|osiemdziesiat|dziewiecdziesiat, %eval( %1/10))%item( y|a|e, %2)" ")%if( %1=2 or (%mod( %1, 10)=2 and %1>20), drug%item( i|a|ie, %2), %if( %1=3 or (%mod( %1, 10)=3 and %1>20), trzeci%item( |a|e, %2), %if( %mod( %1, 10)=0 and %1>19, "", %if( %1<10 or %1>19, %item( pierwsz|2|3|czwart|piat|szost|siodm|osm|dziewiat, %mod( %1, 10))%item( y|a|e, %2), %item( dziesiat|jedenast|dwunast|trzynast|czternast|pietnast|szesnast|siedemnast|osiemnast|dziewietnast, %eval( %1-9))%item( y|a|e, %2)))))}
#VAR odmien_imie_mc {%if( %ismember( %1, @odmien_nieodmienialne), %1, @odmien_imie_mc2(%1,%db(@odmien_odmianaMC,%1)))}
#VAR odmien_imie_mc2 {%if( "%2", %2, @odmien_imie_mc3(%1, %db(@odmien_rzecz_mc_konc,%rightback(%1,2))))}
#VAR odmien_imie_mc3 {%if( "%2", %leftback( %1, 2)%2, %if( %ends( %1, a), %leftback( %1, 1)ie, %if( %ends( %1, e), %leftback( %1, 1)u, %if( %ends( %1, o), %1wi, %if( %ends( %1, u), %leftback( %1, 1)owi, %1owi)))))}
#VAR odmien_mb {%if( %numwords( %1)<5, %if( %ismember( %word( %1, 3), @odmien_jakrzecz), %1, %case( %numwords( %1), @odmien_imie_mb(%1,[%rightback(%1,1)],[%ismember(%1,@odmien_nieodmienialne)],[%db(@odmien_wyjatekMB,%1)]), %if( %ismember( %1, @odmien_dwu_rasy), @odmien_2rase_mb(%1,[%db(@odmien_wyjatekMB,%1)]), @odmien_przym_mb([%word(%1,1)]) @odmien_rase_mb([%word(%1,2)],[%rightback(%word(%1,2),1)],[%db(@odmien_wyjatekMB,%word(%1,2))])), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasy), @odmien_przym_mb([%word(%1,1)]) @odmien_2rase_mb([%word(%1,2) %word(%1,3)],[%db(@odmien_wyjatekMB,%word(%1,2) %word(%1,3))]), @odmien_przym_mb([%word(%1,1)]) @odmien_przym_mb([%word(%1,2)]) @odmien_rase_mb([%word(%1,3)],[%rightback(%word(%1,3),1)],[%db(@odmien_wyjatekMB,%word(%1,3))])), @odmien_przym_mb([%word(%1,1)]) @odmien_przym_mb([%word(%1,2)]) @odmien_2rase_mb([%word(%1,3) %word(%1,4)],[%db(@odmien_wyjatekMB,%word(%1,3) %word(%1,4))]))), %if( %pos( " na ", "%1"), @odmien_mb(%subregex("%1"," na .*","")), %1))}
#VAR odmien_imie_mb {%if( %3, %1, %if( %4, %4, %if( %2=a, %leftback( %1, 1)e, %if( %2=o or %2=u, %leftback( %1, 1)a, %if( %2=y, %if( %ends( %1, ey), %1a, %leftback( %1, 1)ego), %if( %2=i, %if( %ends( %1, ai), %1a, %1ego), %if( %ends( %1, ie), %1go, %1a)))))))}
#VAR odmien_rase_mb {%if( %3, %3, %if( %2=a, %leftback( %1, 1)e, %if( %regex( %1, "(?:um|o|e|u)$"), %1, %if( %regex( %1, "e.$"), %if( %ends( %1, rzec) or %ends( %1, iec), %leftback( %1, 3)ca, %if( %2=c, %leftback( %1, 2)ca, %if( %ends( %1, kiel), %leftback( %1, 3)la, %if( %ends( %1, rzel), %leftback( %1, 3)la, %if( %ends( %1, nek) or %ends( %1, tek), %leftback( %1, 2)ka, %1a))))), %1a))))}
#VAR odmien_2rase_mb {%if( %2, %2, %if( %ismember( %rightback( %word( %1, 1), 1), a|e|y|i), @odmien_przym_mb(%word(%1,1)) @odmien_rase_mb([%word(%1,2)],[%rightback(%word(%1,2),1)],[%db(@odmien_wyjatek_rasaMB,%word(%1,2))]), @odmien_rase_mb(%word(%1,1),[%rightback(%word(%1,1),1)],[%db(@odmien_wyjatek_rasaMB,%word(%1,1))]) %word( %1, 2)))}
#VAR odmien_bm {%if( %numwords( %1)<5, %if( %ismember( %word( %1, 3), @odmien_jakrzecz), %1, %case( %numwords( %1), @odmien_rzecz_bm(%1,[%db(@odmien_wyjatekBM,%1)],[%ismember(%1,@odmien_nieodmienialne)]), %if( %ismember( %1, @odmien_dwu_rasyB), @odmien_2rase_bm(%1,[%db(@odmien_wyjatekBM,%1)]), @odmien_przym_bm([%word(%1,1)]) @odmien_rzecz_bm([%word(%1,2)],[%db(@odmien_wyjatekBM,%word(%1,2))])), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasyB), @odmien_przym_bm([%word(%1,1)]) @odmien_2rase_bm([%word(%1,2) %word(%1,3)],[%db(@odmien_wyjatekBM,%word(%1,2) %word(%1,3))]), @odmien_przym_bm([%word(%1,1)]) @odmien_przym_bm([%word(%1,2)]) @odmien_rzecz_bm([%word(%1,3)],[%db(@odmien_wyjatekBM,%word(%1,3))])), @odmien_przym_bm([%word(%1,1)]) @odmien_przym_bm([%word(%1,2)]) @odmien_2rase_bm([%word(%1,3) %word(%1,4)],[%db(@odmien_wyjatekBM,%word(%1,3) %word(%1,4))]))), %if( %pos( " na ", "%1"), @odmien_bm(%subregex("%1"," na .*","")), %1))}
#VAR odmien_rzecz_bm {%if( %3, %1, %if( %2, %2, %if( %ends( %1, e), %leftback( %1, 1)a, %if( (%ends( %1, o) and !%ends( %1, ego)) or %ends( %1, e) or %ends( %1, um), %1, %if( %ends( %1, iego), %leftback( %1, 3), @odmien_rzecz_bm2(%1,[%db(ego%char(30)y%char(29)kla%char(30)kiel%char(29)rla%char(30)rzel%char(29)nka%char(30)nek%char(29)rca%char(30)rzec%char(29)wca%char(30)wiec%char(29)nca%char(30)niec%char(29)zca%char(30)ziec,%rightback(%1,3))]))))))}
#VAR odmien_rzecz_bm2 {%if( %2, %leftback( %1, 3)%2, %if( %ends( %1, ca), %leftback( %1, 2)ec, %if( %ends( %1, a), %leftback( %1, 1), %1)))}
#VAR odmien_2rase_bm {%if( %2, %2, %if( %ends( %word( %1, 1), a) or %ends( %word( %1, 1), e), @odmien_rzecz_bm(%word(%1,1),[%db(@odmien_wyjatekBM,%word(%1,1))]) %word( %1, 2), @odmien_przym_bm(%word(%1,1)) @odmien_rzecz_bm(%word(%1,2),[%db(@odmien_wyjatekBM,%word(%1,2))])))}
#VAR odmien_przym_am {%if(%ends(%1,ej),%leftback(%1,2)a,%if(%ends(%1,iemu) or %ends(%1,iego), %leftback(%1,3),%if(%ends(%1,emu) or %ends(%1,ego), %leftback(%1,3)y,%if(%ends(%1,m),%leftback(%1,1),%1))))}
#VAR odmienp_bm2 {%if( %2, %2, %if( (%ends( %word( %1, 1), a)) or (%match( %1, "^%we$")) or (%regex( %1, "^(?:\w+)e (\w*)(?!o|e)\w\b")), %subregex( %1, "\b(par|\w*)e\b(?!.*e\b)", %%1a), %1))}
#BUTTON 22 {} {odmien_menu} {} {} {} {} {} {Size} {31} {32} {Pos} {1} {1199} {48} {} {Menu} {} "" {Explore|Inset} {Odmiany} {dzialania_odmiany} {4}
#CLASS 0
#CLASS {CerdinLib|Odmiana|odmien_menu} {menu}
#MENU {Dodaj wyjatek Mianownik - Biernik} {#va odmien_mian {};#pr odmien_mian {"Dodajesz wyjatek Mian-Bier. Mianownik (kto, co na lokacji stoi?): "};#if (@odmien_mian) {#va odmien_bier {@odmien_mb(@odmien_mian)};#pr odmien_bier {Wyjatek M-B. Mianownik: @odmien_mian, Biernik (kogo, co zabic?):};#yesno {Mianownik - @odmien_mian, Biernik - @odmien_bier, dodac jako wyjatek?} {Tak: #if (@odmien_mian=@odmien_bier) {#additem odmien_jakrzecz {%lower( @odmien_mian)}} {#addkey odmien_wyjatekMB {%lower( @odmien_mian)} {%lower( @odmien_bier)};#addkey odmien_wyjatekBM {%lower( @odmien_bier)} {%lower( @odmien_mian)};#if (%numwords( @odmien_mian)>1) {#additem odmien_dwu_rasy {%lower( @odmien_mian)};#additem odmien_dwu_rasyB {%lower( @odmien_bier)}}};#sh --> Dodano wyjatek M-B, Mianownik: @odmien_mian, Biernik: @odmien_bier} {Nie:}}} ""
#MENU {Dodaj nieodmienialne imie} {#va odmien_mian {};#pr odmien_mian {"Dodajesz nieomienialne we wszystkich przypadkach imie rodzaju zenskiego, np. Ysar lub Auglenn: "};#if (@odmien_mian) {#additem odmien_nieodmienialne {%lower( @odmien_mian)};#sh --> Dodano nieodmienialne imie %proper( @odmien_mian)}} ""
#MENU {Dodaj wyjatek Mianownik - Narzednik} {#va odmien_mian {};#pr odmien_mian {"Dodajesz wyjatek Mian-Bier. Mianownik (kto, co na lokacji stoi?): "};#if (@odmien_mian) {#va odmien_bier {@odmien_mn(@odmien_mian)};#pr odmien_bier {Wyjatek M-B. Mianownik: @odmien_mian, Narzednik (przed kim, czym zaslonic?):};#yesno {Mianownik - @odmien_mian, Narzednik - @odmien_bier, dodac jako wyjatek?} {Tak: #addkey odmien_odmianaMN {%lower( @odmien_mian)} {%lower( @odmien_bier)};#sh --> Dodano wyjatek M-N, Mianownik: @odmien_mian, Narzednik: @odmien_bier} {Nie:}}} ""
#MENU {Dodaj wyjatek Mianownik - Celownik} {#va odmien_mian {};#pr odmien_mian {"Dodajesz wyjatek Mian-Cel. Mianownik (kto, co na lokacji stoi?): "};#if (@odmien_mian) {#va odmien_bier {@odmien_mc(@odmien_mian)};#pr odmien_bier {Wyjatek M-C. Mianownik: @odmien_mian, Celownik (komu, czemu daje monety?):};#yesno {Mianownik - @odmien_mian, Celownik - @odmien_bier, dodac jako wyjatek?} {Tak: #addkey odmien_odmianaMC {%lower( @odmien_mian)} {%lower( @odmien_bier)};#sh --> Dodano wyjatek M-C, Mianownik: @odmien_mian, Celownik: @odmien_bier} {Nie:}}} ""
#MENU {Dodaj wyjatek Mianownik - Dopelniacz} {#va odmien_mian {};#pr odmien_mian {"Dodajesz wyjatek Mian-Dop. Mianownik (kto, co na lokacji stoi?): "};#if (@odmien_mian) {#va odmien_bier {@odmien_mc(@odmien_mian)};#pr odmien_bier {Wyjatek M-D. Mianownik: @odmien_mian, Dopelniacz (kogo, czego obrone przelamuje?):};#yesno {Mianownik - @odmien_mian, Dopelniacz - @odmien_bier, dodac jako wyjatek?} {Tak: #addkey odmien_odmianaMD {%lower( @odmien_mian)} {%lower( @odmien_bier)};#sh --> Dodano wyjatek M-D, Mianownik: @odmien_mian, Dopelniacz: @odmien_bier} {Nie:}}} ""
#CLASS 0
#CLASS {CerdinLib|Druzyna}
#ALIAS kd_przelec_druzyne {#class {CerdinLib|Druzyna|Druzyna_obj};#forall @kd_druzyna {#if ((@odmien_mb(%i))&(!%defined( kd_obj_%replace( %i, " ", "_")))) {#addkey kd_obj_%replace( %i, " ", "_") komenda {@odmien_mb(%i)}}};#class 0}
#VAR kd_druzyna {drachen|solenay|hasandara|evandeil|irwin|agis|intia|matrax|kinrim|ralandil}
#VAR kd_backup {drachen(komendadrachenanum7wrog0cnum1)solenay(komendasolenaynum7wrog0cnum1)hasandara(komendahasandarenum7wrog0cnum1)evandeil(komendaevandeilanum7wrog0cnum1)irwin(komendairwinanum7wrog0cnum1)agis(komendaagisanum7wrog0cnum1)intia(komendaintienum7wrog0cnum1)matrax(komendamatraxanum6wrog0cnum2)kinrim(komendakinrimanum7wrog0cnum1)ralandil(komendaralandilanum7wrog0cnum1)}
#VAR kd_druzyna_temp {Solenay, Hasandara, Evandeil, Irwin, Agis, Intia, Matrax, Kinrim i Ralandil}
#TRIGGER {Od teraz jej sklad stanowicie ty{,| i }(*).$} {#va kd_druzyna_temp {%1};kd_druzyna = %lower(%replace(%replace({@kd_druzyna_temp},", ","|")," i ","|"));kd_przelec_druzyne}
#TRIGGER {{Porzucasz swoja druzyne.|Nie jestes w zadnej druzynie.|Porzucasz druzyne, ktorej przewodzilas.|Porzucasz druzyne, ktorej przewodziles.}} {#va kd_druzyna {KD_BLANK};#delclass CerdinLib|Druzyna|Druzyna_obj}
#TRIGGER {Druzyne prowadzi (*), zas ty jestes jej jedynym czlonkiem.} {#va kd_druzyna %lower(%1);kd_przelec_druzyne}
#TRIGGER {Druzyne prowadzi (*) i oprocz ciebie {sa|jest} w niej jeszcze{|:} (*).} {#va kd_druzyna_temp {%2};kd_druzyna = %concat(%lower(%1),"|",%lower(%replace(%replace({@kd_druzyna_temp},", ","|")," i ","|")));kd_przelec_druzyne}
#TRIGGER {Przewodzisz druzynie, w ktorej oprocz ciebie jest jeszcze (*).$} {#va kd_druzyna_temp {%1};kd_druzyna = %lower(%replace(%replace({@kd_druzyna_temp},", ","|")," i ","|"));kd_przelec_druzyne}
#TRIGGER {zmusza cie do opuszczenia druzyny.} {#va kd_druzyna {KD_BLANK};#delclass CerdinLib|Druzyna|Druzyna_obj;#SA %ansi( 13) WYRZUCONO CIE Z DRUZYNY !!!}
#ALARM {*2:30:00} {#if (%ctime) {#va kd_backup {};#pri {#forall @kd_druzyna {#addkey kd_backup %replace( %i, " ", "_") @{kd_obj_%replace( %i, " ", "_")}}};#DELCLASS CerdinLib|Druzyna|Druzyna_obj;#pri {#forall @kd_druzyna {#va kd_obj_%replace( %i, " ", "_") %db( @kd_backup, %replace( %i, " ", "_")) _nodef {CerdinLib|Druzyna|Druzyna_obj}}}}}
#CLASS 0
#CLASS {CerdinLib|Druzyna|Druzyna_obj}
#VAR kd_obj_drachen {komendadrachenanum7wrog0cnum1}
#VAR kd_obj_solenay {komendasolenaynum7wrog0cnum1}
#VAR kd_obj_hasandara {komendahasandarenum7wrog0cnum1}
#VAR kd_obj_evandeil {komendaevandeilanum7wrog0cnum1}
#VAR kd_obj_irwin {komendairwinanum7wrog0cnum1}
#VAR kd_obj_agis {komendaagisanum7wrog0cnum1}
#VAR kd_obj_intia {komendaintienum7wrog0cnum1}
#VAR kd_obj_matrax {komendamatraxanum6wrog0cnum2}
#VAR kd_obj_kinrim {komendakinrimanum7wrog0cnum1}
#VAR kd_obj_ralandil {komendaralandilanum7wrog0cnum1}
#CLASS 0
#CLASS {CerdinLib|Opcje}
#ALIAS op_window {#if (!%window(Opcje)) {#makewindow Opcje open "scrolling=no|floating=yes|width="75"c|height="30"c|top=-"43"c|left=10c|title=Opcje"};:Opcje:#clr;#loop 1,29 {#window Opcje %ansi(0)%repeat(".",75)}}
#ALIAS op_menu1 {op_x = 2;op_window;#forall @op_menu1_list {#if (%defined( menu1_%i)) {op_menu_rysuj;#if (%i=%1) {op_menu_zaznacz};op_x = %eval( @op_x+%len( %i)+2)}};#if (%defined( menu1_%-1)) {#noop %exec( menu1_%-1)}}
#ALIAS op_menu_rysuj {#mxp <Dest Opcje x=%eval(@op_x+1) y=2><send "op_menu1 %i" "Opcje dla: %proper(%i)">%proper(%i)</send></Dest>}
#ALIAS op_menu_zaznacz {#mxp <Dest Opcje x=@op_x y=1>%repeat("-",%eval(%len(%i)+2))</Dest>;#mxp <Dest Opcje x=@op_x y=3>%repeat("-",%eval(%len(%i)+2))</Dest>}
#ALIAS op_mxpk_put {#pr %1 "Zmien "%lower(%-4)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @op_mxpk(%1,%2,%3,%-4)}
#ALIAS op_mxps_put {#pr %1 "Nowy "%lower(%-4)".";#mxp @op_mxps(%1,%2,%3,%-4)}
#ALIAS op_mxpt_put {#pr %1 "Zmien "%lower(%-4)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @op_mxpt(%1,%2,%3,%-4)}
#ALIAS op_mxpi_put {#pr %1 "Zmien "%lower(%-4)".";#mxp @op_mxpi(%1,%2,%3,%-4)}
#ALIAS op_mxpTN_put {#if (@%1) {#va %1 0} {#va %1 1};#mxp @op_mxpTN(%1,%2,%3,%-4)}
#ALIAS op_mxpkd_put {#pr op_kd_temp.%1 "Zmien kolor dla "%lower(%-4)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @op_mxpkd(%1,%2,%3,%-4);op_kd_zmiany}
#ALIAS op_mxpcl_put {#if (%trigger(%1)) {#t- %1} {#t+ %1};#mxp @op_mxpcl(%1,%2,%3,%-4)}
#ALIAS op_mxp_hash_put {#if (%trigger(Kondycja_opisowa)) {#t- Kondycja_opisowa;#t+ Kondycja_hash;#t- Kondycja_druzyny_opisowa;#t+ Kondycja_druzyny_hash} {#t+ Kondycja_opisowa;#t- Kondycja_hash;#t+ Kondycja_druzyny_opisowa;#t- Kondycja_druzyny_hash};#mxp @op_mxp_hash(%1,%2,%-3)}
#ALIAS op_mxpVS_put {#noop @%1( 1);#mxp @op_mxpVS(%1,%2,%3,%-4)}
#ALIAS op_mxpkdb_put {#pr %1.%2 "Zmien kolor dla "%lower( %-5)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @op_mxpkdb(%1,%2,%3,%4,%-5);#if (%defined( %left( %1, 6)zmiany)) {%left( %1, 6)zmiany}}
#VAR op_menu1_list {kondycja|statusy|ocen|postacie}
#VAR op_x {37}
#VAR op_mxpk {<DEST Opcje x=%2 y=%3><send "op_mxpk_put %1 %2 %3 %4" "Zmien kolor"><color @%1 "#000000">@%1</color></send> %4</DEST>}
#VAR op_mxps {<DEST Opcje x=%2 y=%3><send "op_mxps_put %1 %2 %3 %4" "Zmien symbol"><color "#C2C2C2" "#000000">@%1</color></send> %4</DEST>}
#VAR op_mxpt {<DEST Opcje x=%2 y=%3><send "op_mxpt_put %1 %2 %3 %4" "Zmien kolor tla"><color "#C2C2C2" @%1>@%1</color></send> %4</DEST>}
#VAR op_mxpi {<DEST Opcje x=%2 y=%3>%repeat(" ",4-%len(@%1))<send "op_mxpi_put %1 %2 %3 %4" "Zmien wartosc"><color "#C2C2C2" "#000000">@%1</color></send> %4</DEST>}
#VAR op_mxpTN {<DEST Opcje x=%2 y=%3><send "op_mxpTN_put %1 %2 %3 %4" "Zmien TAK - NIE"><color "#C2C2C2" "#000000">%if(@%1,TAK,NIE)</color></send> %4</DEST>}
#VAR op_mxpkd {<DEST Opcje x=%2 y=%3><send "op_mxpkd_put %1 %2 %3 %4" "Zmien kolor"><color @op_kd_temp.%1 "#000000">@op_kd_temp.%1</color></send><color @op_kd_temp.%1 "#000000"> %4</color></DEST>}
#VAR op_mxpcl {<DEST Opcje x=%2 y=%3><send "op_mxpcl_put %1 %2 %3 %4" "Wlacz - Wylacz"><color "#C2C2C2" "#000000">%if(%trigger(%1),Wlacz ,Wylacz)</color></send> %4</DEST>}
#VAR op_mxp_hash {<DEST Opcje x=%1 y=%2>%if(%trigger(Kondycja_opisowa)," ")<send "op_mxp_hash_put %1 %2 %3" "Wlacz - Wylacz"><color "#C2C2C2" "#000000">%if(%trigger(Kondycja_opisowa),Wlacz ,Wylacz)</color></send> %3</DEST>}
#VAR op_mxpVS {<DEST Opcje x=%2 y=%3><send "op_mxpVS_put %1 %2 %3 %4" "Zmien TAK - NIE"><color "#C2C2C2" "#000000">%if( @%1( ), TAK, NIE)</color></send> %4</DEST>}
#VAR op_mxpkdb {<DEST Opcje x=%3 y=%4><send "op_mxpkdb_put %1 %2 %3 %4" "Zmien kolor">%ansi( 0)<color @%1.%2 "#000000">@%1.%2</color></send><color #339933 "#000000"> %5</color></DEST>}
#VAR op_mxpRTN {<DEST Opcje x=%2 y=%3><send "#if (@%1) {#va %1 0} {#va %1 1}; op_menu1 %5" "Zmien TAK - NIE"><color "#C2C2C2" "#000000">%if( @%1, TAK, NIE)</color></send> %4</DEST>}
#BUTTON 28 {O} {op_menu1 statusy} {} {} {} {} {} {Size} {14} {32} {Pos} {1} {1314} {48} {} {} {} "" {Explore|Inset} {Inne opcje} {lp_forma} {4}
#CLASS 0
#CLASS {CerdinLib|Pomoc}
#ALIAS -? {#sh "";#sh +--> Aliasy z zainstalowanych skryptow:;#sh "+------------------------------------";#sh "";#forall @pomoc_alias_list {#if (%defined( pomoc_%i)) {#MXP %replace( @{pomoc_%i}, ";", %crlf);#sh ""}};#sh "+-------------------------------------";#sh "+--> Bindy z zainstalowanych skryptow:";#sh "+-------------------------------------";#sh "";#forall @pomoc_bind_list {#if (%defined( pomocb_%i)) {#MXP %replace( @{pomocb_%i}, ";", %crlf);#sh ""}};#sh +----------------> Koniec listy bindow.}
#VAR pomoc_alias_list {ziola|ocena|enemy|podziel}
#VAR pomoc_bind_list {walka|buttonowe|f7|kierunki}
#CLASS 0
#CLASS {CerdinLib|FormatText}
#VAR skroc_przym {%if( %1<2, ,%if( !"%3", %concat( %left( %2, %eval( %1-1)), " "), %if( %1<4, %concat( %left( %2, 1), " "), %concat( %left( %2, %eval( ((%1-2)/2)+%mod( %1, 2))), " ", %left( %3, %eval( (%1-2)/2)), " "))))}
#VAR skroc_nazwe {%if( %numwords( %1)>3, %1, %if( %len( %1)<=%2, %1, %case( %numwords( %1), %left( %1, %2), %if( %eval( %2-%min( %len( %word( %1, 2)), 5))<=1, %left( %word( %1, 2), %2), %if( (%eval( %2-%len( %word( %1, 2)))<4)&(%eval( %2-10)>=4), @skroc_przym(%eval(%2-10),%word(%1,1))%left( %word( %1, 2), 10), %if( (%eval( %2-%len( %word( %1, 2)))<2)&(%eval( %2-5)>=2), @skroc_przym(%eval(%2-5),%word(%1,1))%left( %word( %1, 2), 5), @skroc_przym(%eval(%2-%len(%word(%1,2))),%word(%1,1))%word( %1, 2)))), %if( %eval( %2-%min( %len( %word( %1, 3)), 5))<=1, %left( %word( %1, 3), %2), %if( (%eval( %2-%len( %word( %1, 3)))<6)&(%eval( %2-10)>=6), @skroc_przym(%eval(%2-10),%word(%1,1),%word(%1,2))%left( %word( %1, 3), 10), %if( (%eval( %2-%len( %word( %1, 3)))<4)&(%eval( %2-5)>=2), @skroc_przym(%eval(%2-5),%word(%1,1),%word(%1,2))%left( %word( %1, 3), 5), @skroc_przym(%eval(%2-%len(%word(%1,3))),%word(%1,1),%word(%1,2))%word( %1, 3)))))))}
#VAR miedz_na_monety {%ansi( 15)%if( %eval( %1/24000), %concat( %eval( %1/24000), "mt "))%ansi( 14)%if( %eval( %mod( %1, 24000)/240), %concat( %eval( %mod( %1, 24000)/240), "zl "))%ansi( 7)%if( %eval( %mod( %mod( %1, 24000), 240)/12), %concat( %eval( %mod( %mod( %1, 24000), 240)/12), "sr "))%ansi( 6)%if( %mod( %mod( %mod( %1, 24000), 240), 12), %concat( %mod( %mod( %mod( %1, 24000), 240), 12), "md "))%ansi( reset)}
#VAR format_center {%repeat( " ", %3)%repeat( " ", %eval( ((%number( %2)-%len( '%1'))/2)+%mod( %number( %2)-%len( '%1'), 2)))%literal( %1)%repeat( " ", %eval( (%number( %2)-%len( '%1'))/2))%repeat( " ", %4)}
#VAR format_offcenter {%repeat( " ", %eval( (%number( %2)-%len( '%1')-%number( %3))/2))%literal( %1)}
#VAR conv_coin2md {@conv_coin2md2(%1, 1, 0)}
#VAR conv_coin2md2 {%if( %numitems( %1)<%2, %3, @conv_coin2md2(%1,%eval(%2+1),%eval(%3+%word(%item(%1,%2),1)*%if(%begins(%word(%item(%1,%2),2),miedzian), 1, %if(%begins(%word(%item(%1,%2),2),srebrn),12,%if(%begins(%word(%item(%1,%2),2),zlot),240,%if(%begins(%word(%item(%1,%2),2),mithryl), 24000,0)))))))}
#VAR mxp_send {<send "%1" "%3">%2</send>}
#VAR mxp_send_in {<<send '"%1"' '"%3"'>>%2<</send>>}
#VAR rodzaj_z_mianownika {%if( %ends( %word( %1, 1), a), 2, %if( %ismember( %rightback( %word( %1, 1), 1), e|o), 3, 1))}
#VAR text_just2 {%if( %5>%6, %if( %7, %ansi( 4))%trimright( %replace( "%4", "", " ")), @text_just2(%1,%2,"%3",%concat("%4",%word("%3",%5),%repeat(" ",%eval(%2+%if(%5>%1,1,0))),""),[%eval(%5+1)],%6,%7))}
#VAR text_just {%repeat( " ", %1)@text_just2([%eval( (%numwords( "%-3")-1))-%mod( %eval( %number( %2)-%number( %1)-%len( "%3")), (%numwords( "%-3")-1))],[%eval( %eval( %number( %2)-%number( %1)-%len( "%3"))/(%numwords( "%3")-1))],"%3","",1,[%numwords("%3")],[%if(%eval( %number( %2)-%number( %1)-%len( "%-3"))<0,1,0)])}
#VAR text_break_point {%if( %copy( "%1", %2, 1)=" " or %2<0, %2, @text_break_point("%1",[%eval(%2-1)]))}
#VAR text_break2 {%if( %3>=%len( "%2"), "%2", @text_break2(%1,@replace_char("%2",@text_break_point("%2",%3),"|"),%eval( @text_break_point("%2",%3)+%1)))}
#VAR text_break {@text_break2(%1,"%2",%1)}
#VAR replace_char {%delete( %insert( %3, "%1", %2), %2+1, 1)}
#CLASS 0
#CLASS {CerdinLib|Ustaw_dane}
#ALIAS ustaw_dane {#showp --> Ustawiam nieustawione zmienne danych...;#CLASS {Dane|.liczniki};#if (!%defined( lz_all_p)) {#VAR lz_all_p {}};#if (!%defined( lz_me_p)) {#VAR lz_me_p {}};#if (!%defined( lz_all)) {#VAR lz_all {}};#if (!%defined( lz_me)) {#VAR lz_me {}};#if (!%defined( lz_all_h)) {#VAR lz_all_h {}};#if (!%defined( lz_me_h)) {#VAR lz_me_h {}};#if (!%defined( lpr_db)) {#VAR lpr_db {}};#if (!%defined( lp_nazwa)) {#VAR lp_nazwa {}};#if (!%defined( lp_czas)) {#VAR lp_czas {}};#if (!%defined( lpa_db)) {#VAR lpa_db {}};#if (!%defined( lpa_maxtd)) {#VAR lpa_maxtd {90}};#if (!%defined( lpa_pokaz_liste)) {#VAR lpa_pokaz_liste {0}};#if (!%defined( lpw_db)) {#ADDKEY lpw_db {maxx=84|maxy=30|ly=9|x=80|y=10}};#if (!%defined( lpo_scale)) {#VAR lpo_scale {}};#if (!%defined( lpo_sczesc)) {#VAR lpo_sczesc {}};#if (!%defined( lpo_kzabici)) {#VAR lpo_kzabici {~#C2C2C0}};#if (!%defined( lpo_knzabici)) {#VAR lpo_knzabici {~#6BFF40}};#if (!%defined( lpo_sbrak)) {#VAR lpo_sbrak {x}};#if (!%defined( lpo_kbrak)) {#VAR lpo_kbrak {~#AA0000}};#if (!%defined( lpo_texp)) {#VAR lpo_texp {~#000000}};#if (!%defined( lpo_tforma)) {#VAR lpo_tforma {~#595958}};#if (!%defined( lpo_kkom)) {#VAR lpo_kkom {~#FFFF00}};#if (!%defined( lpo_kkom_nzabici)) {#VAR lpo_kkom_nzabici {~#FFA803}};#if (!%defined( lpo_slpw_w2)) {#VAR lpo_slpw_w2 {!}};#if (!%defined( lpo_kicon)) {#VAR lpo_kicon {~#88CC88}};#if (!%defined( lpo_sskom)) {#VAR lpo_sskom {k}};#if (!%defined( lpo_kskom)) {#VAR lpo_kskom {~#00AAFF}};#if (!%defined( lpw_maxx)) {#VAR lpw_maxx {80}};#if (!%defined( lpw_maxy)) {#VAR lpw_maxy {30}};#if (!%defined( lp_db)) {#ADDKEY lp_db {opis=zadne|num=0|kiedy=00:00|forma=0|forma_data=2016-07-21 09:33:06|ile=0|pokaz=0}};#if (!%defined( lz_spec_2w)) {#VAR lz_spec_2w {}};#if (!%defined( lz_spec_3w)) {#VAR lz_spec_3w {}};#if (!%defined( lz_spec_4w)) {#VAR lz_spec_4w {}};#CLASS 0;#CLASS {Dane|.przedmioty};#if (!%defined( ocen_zbroje_waga)) {#VAR ocen_zbroje_waga {}};#if (!%defined( ocen_zbroje_obj)) {#VAR ocen_zbroje_obj {}};#if (!%defined( ocen_zbroje_wartosc)) {#VAR ocen_zbroje_wartosc {}};#if (!%defined( ocen_zbroje_typ)) {#VAR ocen_zbroje_typ {}};#if (!%defined( ocen_zbroje_chroni)) {#VAR ocen_zbroje_chroni {}};#if (!%defined( ocen_pochodzenia)) {#VAR ocen_pochodzenia {}};#if (!%defined( ocen_zbroje_pochodzenie)) {#VAR ocen_zbroje_pochodzenie {}};#if (!%defined( ocen_zbroje_komentarz)) {#VAR ocen_zbroje_komentarz {}};#if (!%defined( ocen_bron_waga)) {#VAR ocen_bron_waga {}};#if (!%defined( ocen_bron_obj)) {#VAR ocen_bron_obj {}};#if (!%defined( ocen_bron_wartosc)) {#VAR ocen_bron_wartosc {}};#if (!%defined( ocen_bron_typ)) {#VAR ocen_bron_typ {}};#if (!%defined( ocen_bron_rany)) {#VAR ocen_bron_rany {}};#if (!%defined( ocen_bron_reka)) {#VAR ocen_bron_reka {}};#if (!%defined( ocen_bron_magia)) {#VAR ocen_bron_magia {}};#if (!%defined( ocen_inne_waga)) {#VAR ocen_inne_waga {}};#if (!%defined( ocen_inne_obj)) {#VAR ocen_inne_obj {}};#if (!%defined( ocen_inne_wartosc)) {#VAR ocen_inne_wartosc {}};#if (!%defined( ocen_pojemnik_waga)) {#VAR ocen_pojemnik_waga {}};#if (!%defined( ocen_pojemnik_obj)) {#VAR ocen_pojemnik_obj {}};#if (!%defined( ocen_pojemnik_wartosc)) {#VAR ocen_pojemnik_wartosc {}};#if (!%defined( ocen_pojemnik_typ)) {#VAR ocen_pojemnik_typ {}};#if (!%defined( ocen_bron_srebro)) {#VAR ocen_bron_srebro {}};#if (!%defined( ocen_ekw_waga)) {#VAR ocen_ekw_waga {}};#if (!%defined( ocen_ekw_obj)) {#VAR ocen_ekw_obj {}};#if (!%defined( ocen_ekw_wartosc)) {#VAR ocen_ekw_wartosc {}};#if (!%defined( ocen_bron_pochodzenie)) {#VAR ocen_bron_pochodzenie {}};#if (!%defined( ocen_zamowienie_3)) {#VAR ocen_zamowienie_3 {}};#if (!%defined( ocen_zamowienie_0)) {#VAR ocen_zamowienie_0 {}};#if (!%defined( ocen_aukcja)) {#VAR ocen_aukcja {}};#if (!%defined( ocen_sprzedaz_3)) {#VAR ocen_sprzedaz_3 {}};#if (!%defined( ocen_sprzedaz_0)) {#VAR ocen_sprzedaz_0 {}};#if (!%defined( ocen_sprzedaz_2)) {#VAR ocen_sprzedaz_2 {}};#if (!%defined( ocen_sprzedaz_1)) {#VAR ocen_sprzedaz_1 {}};#if (!%defined( ocen_bron_komentarz)) {#VAR ocen_bron_komentarz {}};#if (!%defined( ocen_sprzedaz_4)) {#VAR ocen_sprzedaz_4 {}};#if (!%defined( ocen_tarcze_waga)) {#VAR ocen_tarcze_waga {}};#if (!%defined( ocen_tarcze_obj)) {#VAR ocen_tarcze_obj {}};#if (!%defined( ocen_tarcze_wartosc)) {#VAR ocen_tarcze_wartosc {}};#if (!%defined( ocen_tarcze_pochodzenie)) {#VAR ocen_tarcze_pochodzenie {}};#if (!%defined( ocen_puklerz_waga)) {#VAR ocen_puklerz_waga {}};#if (!%defined( ocen_puklerz_obj)) {#VAR ocen_puklerz_obj {}};#if (!%defined( ocen_puklerz_wartosc)) {#VAR ocen_puklerz_wartosc {}};#if (!%defined( ocen_puklerz_pochodzenie)) {#VAR ocen_puklerz_pochodzenie {}};#if (!%defined( ocen_ubranie_waga)) {#VAR ocen_ubranie_waga {}};#if (!%defined( ocen_ubranie_obj)) {#VAR ocen_ubranie_obj {}};#if (!%defined( ocen_ubranie_wartosc)) {#VAR ocen_ubranie_wartosc {}};#if (!%defined( ocen_ubranie_typ)) {#VAR ocen_ubranie_typ {}};#if (!%defined( ocen_ubranie_pochodzenie)) {#VAR ocen_ubranie_pochodzenie {}};#if (!%defined( ocen_inne_pochodzenie)) {#VAR ocen_inne_pochodzenie {}};#if (!%defined( ocen_inne_komentarz)) {#VAR ocen_inne_komentarz {}};#if (!%defined( ocen_zamowienie_2)) {#VAR ocen_zamowienie_2 {}};#if (!%defined( ocen_zamowienie_1)) {#VAR ocen_zamowienie_1 {}};#if (!%defined( ocen_zamowienie_4)) {#VAR ocen_zamowienie_4 {}};#if (!%defined( ocen_bron_long)) {#VAR ocen_bron_long {}};#if (!%defined( ocen_zbroje_long)) {#VAR ocen_zbroje_long {}};#if (!%defined( ocen_inne_long)) {#VAR ocen_inne_long {}};#if (!%defined( ocen_pojemnik_long)) {#VAR ocen_pojemnik_long {}};#if (!%defined( ocen_ubranie_long)) {#VAR ocen_ubranie_long {}};#if (!%defined( ocen_ekw_long)) {#VAR ocen_ekw_long {}};#if (!%defined( ocen_tarcze_long)) {#VAR ocen_tarcze_long {}};#CLASS 0;#CLASS {Dane|.ziola};#if (!%defined( zi_baza3w)) {#VAR zi_baza3w {@UD_zi_baza3w}};#if (!%defined( zi_baza2w)) {#VAR zi_baza2w {@UD_zi_baza2w}};#if (!%defined( zi_baza)) {#VAR zi_baza {@UD_zi_baza}};#CLASS 0;#CLASS {Dane|.postacie};#if (!%defined( en_i2o)) {#VAR en_i2o {}};#if (!%defined( en_sz)) {#VAR en_sz {}};#if (!%defined( en_kom)) {#VAR en_kom {}};#if (!%defined( en_title)) {#VAR en_title {}};#if (!%defined( eng_sz)) {#VAR eng_sz {@UD_eng_sz}};#if (!%defined( eng_nalezy)) {#ADDKEY eng_nalezy {sojusznicy=VR|wrogowie=MC}};#if (!%defined( eng_kom)) {#VAR eng_kom {}};#CLASS 0;#CLASS {Dane|.odmiany};#if (!%defined( odmien_odmianaMN)) {#VAR odmien_odmianaMN {@UD_odmien_odmianaMN}};#if (!%defined( odmien_odmianaMD)) {#VAR odmien_odmianaMD {@UD_odmien_odmianaMD}};#if (!%defined( odmien_odmianaMC)) {#VAR odmien_odmianaMC {@UD_odmien_odmianaMC}};#if (!%defined( odmien_nieodmienialne)) {#VAR odmien_nieodmienialne {@UD_odmien_nieodmienialne}};#if (!%defined( odmien_dwu_rasy)) {#VAR odmien_dwu_rasy {@UD_odmien_dwu_rasy}};#if (!%defined( odmien_dwu_rasyB)) {#VAR odmien_dwu_rasyB {@UD_odmien_dwu_rasyB}};#if (!%defined( odmien_odmianapBM)) {#VAR odmien_odmianapBM {@UD_odmien_odmianapBM}};#if (!%defined( odmien_jakrzecz)) {#VAR odmien_jakrzecz {@UD_odmien_jakrzecz}};#if (!%defined( odmien_wyjatekMB)) {#VAR odmien_wyjatekMB {@UD_odmien_wyjatekMB}};#if (!%defined( odmien_wyjatekBM)) {#VAR odmien_wyjatekBM {@UD_odmien_wyjatekBM}};#CLASS 0;#sh " Ok.";#showp --> Poprawiam wylaczone klasy...;#if (%trigger( ki_A) and %trigger( ki_NONE)) {#t- ki_NONE};#if (%trigger( Kondycja_opisowa) and %trigger( Kondycja_hash)) {#t- Kondycja_hash};#if (%trigger( Kondycja_druzyny_opisowa) and %trigger( Kondycja_druzyny_hash)) {#t- Kondycja_druzyny_hash};#if (%trigger( Statusy_tradycyjne) and %trigger( Statusy_krotkie)) {#t- Statusy_krotkie};#if (%trigger( kw_bindy) and %trigger( kw_bindy2)) {#t- kw_bindy};#t- Chodzenie_wsad;#t- Lap_ocene;#t- Ocen_wartosci;#sh " Ok.";#if (%defined( zi_sortbaza)) {#showp --> Sortuje ziola..;zi_sortbaza;#sh " Ok."};#sh --> Zakonczono. Pamietaj o 'en_fixall' po zalogowaniu.}
#VAR UD_zi_baza3w {bial mal kwiat(nameGLOGuseprzezuj:+hp+zm|zjedz:zm)bial pachnac cebulnameCZOSNEKbial rozgalezion korzennameMANDRAGORAbial zmutowan grzyb(nameSTROCZEKusezjedz:truj)bialokwitnac drobn roslinnameROSICZKAbrazow duz owocnameKASZTANbrazow okragl nasion(nameKOLAuserozgryz:+conzmglod|zjedz:glod)brazowaw fosforyzujac mch(nameGRABIOROGusezjedz:mana)brudnobrazow cuchnac galaznameBAGNObrudnozolt fioletowozylkowan kwiat(nameLULEKuseprzezuj:truj)ciemn poskrecan klacz(namePIECIORNIKuserozgryz:+hp+zm)ciemn splatan korzen(nameCIEMIERNIKusezjedz:strdexcon+truj)ciemnoniebieski sluzowat grzybnamePIERSCIENIAKciemnozielon rozwart rozycz(nameROJNIKusezjedz:+alco)cienk ukwiecon galaznameKRUSZYNAczarn aromatyczn ziarennameBULAWINKAczarn blyszczac fasol(nameBOBOTRUTKAuserozgryz:truj)czarn lsniac jagodnamePOKRZYKczarn niewielk owocnameSLIWAczerwonaw duz liscnameRABARBARczterokanciast rozgalezion lodyg(nameDZIURAWIECuserozgryz:+hp)czteroplatkow zolt kwiatnameGLISTNIKdelikatn czerwon grzybnameMUCHOMOR CZERWONYdelikatn dlug lodygnameBOZE DRZEWKOdelikatn jasn grzybnameMUCHOMOR SROMOTNIKOWYdlug bial korzennameCHRZANdlug pachnac lodygnamePIOLUNdlug ususzon lodyg(nameKONOPIAusespal:resistnamagie)drobn bial kwiatnameRUMIANEKdrobn ukwiecon galaznameSWIETLIKduz bial kwiat(nameBIELUNusepowachaj:+con)duz fioletow kwiat(nameOSTROZECZKAusezjedz:picie)duz granatow jagod(nameSIEZYGRONuserozgryz:odtruj)duz pomarszczon liscnameTYTONdziwn zoltoszar nasion(nameKULCZYBAusezjedz:2xdis+truj)eliptyczn zaostrzon lisc(nameOGORECZNIKuseprzezuj:+odw)fioletow lejkowat kwiat(nameBARWINKAuseprzyloz:+hp)fioletow zwart kwiat(nameLAWENDAuseprzyloz:+hp+zm|zjedz:resist)galeziast szaroowlosion lodygnameBYLICA PIOLUNgalezist sinozielon lodygnameOSTROZENgrub brazow grzybnameBOROWIK KROLEWSKIgrub szaraw grzybnameBOROWIK SZATANSKIgrub walcowat klacz(namePOKRZYKusezjedz:spost)grub wygiet klacznameRDESTgrzyb such kapelusznameHUBKAjaskrawozolt drobn kwiat(nameSTULICHAusezjedz:truj)jasnobrazow ulistnion lodygnameNAWLOCjasnobrunatn popekan galaznameBEZjasnofioletow delikatn kwiat(nameSZAFRANusezjedz:+hp)jasnofioletow dlug kwiatnameZIMOWITjasnozielon nieowlosion lodygnameLULECZNICAjasnozielon sluzowat grzybnamePIERSCIENIAK GRYNSZPANOWYkanciast parzac lodyg(namePOKRZYWAusezjedz: +glod picie alko kac)kanciast rozgalezion lodyg(nameBYLICA POSPOLITAuseprzyloz zm)kolczast wysuszon roslin(nameOSETusehp)kremow owlosion kwiat(namePRZELOTusesproszkuj:zmmana)liliow lejkowat kwiat(nameKAKOLusezjedz:+glod+truj)lsniac czerwon owocnameDERENmal czarn owocnameJEZYNAmal czerwon kwiat(nameSERCE KAPITANAuseprzezuj:+hpdexint)mal czerwon owocnameMALINAmal fioletow owocnameJAGODAmal szorstk liscnameADANATmal zoltozielon szysznameCHMIELmazist bulwiast grzyb(nameCASURusezjedz:+str)miedzian sluzowat grzybnamePIERSCIENIAKmiedzianozielon fosforyzujac grzyb(nameMUCHOMORusezjedz:truj)niebiesk sluzowat grzybnamePIERSCIENIAKnieduz brazow grzybnameMASLAKniepozorn sinozielon roslinnameURZETniewielk brunatn koszycznameCZARNUSZKAniewielk czerwon owocnamePOZIOMKAniewielk fioletow kwiat(nameMAKOWNIKusezjedz:+hp)okazal pachnac kwiat(nameMAKusezjedz:dexspost)okraglaw aromatyczn lisc(nameMIETAuserozetrzyj:+hp+zm|powachaj:zm)oliwkowozielon gietk galaz(nameJEMIOLAusezjedz:constr)owlosion aromatyczn lisc(nameMELISAuse)pachnac jasnozielon liscnameKRASNODRZEWpachnac jasnozwielon liscnameKRASNODRZEWpowachaj:+picieglodpachnac snieznobial kwiatnameGRZYBIENpiekn czerwon kwiat(nameMAKusezjedz:+hp+zmdex)pierzast ogonkow lisc(namePOTOSLINusezjedz:strdiscon++truj)pomaranczow mal korzen(nameSZALEJusezjedz:truj)rozdet aromatyczn lodyg(nameSZCZWOLusezjedz:hp+trujdex)rozetkowat lancetowat lisc(nameBABKAuseprzyloz:+hp)rozgalezion owlosion lodygnameSTROICZKArozgalezion wzniesion lodyg(nameJASKIERuseprzezuj:oslepienie)rozgowat zoltozielon galaz(namePRZESLuseprzezuj:+con)rurkowat oliwkowobrunatn kwiatnameBYLICA CYTWAROWAsmukl jasnozielon lodygnameCENTURIAsmukl zielon lodygnameNOSTRZYKsoczyst karminow mch(nameDRATHuseprzezuj:+con)srebrzystoszar owlosion lisc(nameNAPARSTNICAusezjedz:zm)sredn kasztanowobrazow grzybnamePODGRZYBEKsredni kasztanowobrazow grzybnamePODGRZYBEKstrzalkowat aromatyczn lisc(nameSZCZAWuseprzezuj:+hp)szar aromatyczn korzen(nameLUBCZYKusezjedz:+glod)szar kolczast korzen(nameARALIAuseprzezuj:+resistzm+trujplucnica)szaraw pogiet klacznameRAUWOLFIAszarozielon gabczast porost(namePLUCNICAusesproszkuj:odtruj)szarozielon szorstk lisc(nameBOLDOAuse)szorstk ciemnozielon galaznamePOZIEWNIKsztywn rozgalezion korzen(nameLUKRECJAuseprzezuj:picie)sztywn smukl lodygnameLAKtward czerwon owocnameBOROWKAulistnion aromatyczn galaz(nameCZEREMCHAuseprzezuj:3xresist)wiotk drobn lodyznameKURZYSLADwiotk kwitnac galaz(nameJANOWIECusezjedz:picie)wonn dzwonkowat kwiat(nameKONWALIAusepowachaj:+piciepanika)wysok blekitn kwiat(nameCHABERusezjedz:picie)wysok zolt kwiat(nameSTARZECusezjedz:truj)wysoki czerwonaw grzybnameKOZLARZwysoki jasnobrazow grzybnameBOROWIKwzniesion owlosion lodygnameKOCIMIETKAwzniesion ukwiecon lodygnameTOJADzaostrzon podluzn lisc(nameSZALWIA LEKARSKAuse+hp)zdrewnial rozgalezion krzewin(nameMACZNICAuserozgryz:+hp)zdrewnial zwiniet rurk(nameKRUSZYNAusezjedz:+glod)zielon galezist ped(nameRDESTuseprzyloz:+hp)zielon kwitnac krzewin(nameHYZOPusezjedz:+glod)zielon lancetowat liscnameTRAWAzielon miesist kwiat(nameCIEMIEZYCAusezjedz:strdex)zielon postrzepion galaznameDRABIKzielon sluzowat grzybnamePIERSCIENIAKzielon trzeszczac galaz(nameSKRZYPusebrak)zlocist spor ziolnameCEBULAzlocistopomaranczow duz kwiat(nameARNIKAusezjedz:zm)zolt jaskraw kwiatnamePODBIALzolt jasn kwiat(nameDELIONAusezjedz:++zm)zolt rurkowat kwiat(nameWROTYCZusepowachaj:resist)zoltaw powyginan korzennameKRZYZOWNICAzoltoszar niepozorn korzen(nameRANOGuseprzezuj:odtruj+hp)macznistoowlosion szaraw roslin(nameKOMOSAuseprzezuj:+conzm|zjedz:+str)}
#VAR UD_zi_baza2w {aromatyczn klacznameTATARAKaromatyczn zielnameMACHORKAdlug lodyg(nameKONOPIEuseOchrona przed magia)grub klacznameOMANjasnopomaranczow kwiat(nameNAGIETEKuseprzyloz:+hp+zm)kosmatoowlosion kwiat(nameKASZTANOWIECusezjedz:zm)rozwiniet korzennameMARZANNAukwiecon lodygnameKRWAWNIKzlocistozolt kwiat(nameMNISZEKuseprzezuj:+hp+zm)}
#VAR UD_zi_baza {aromatyczne zieleMACHORKA [0m(przezuj: brak)biala pachnaca cebulkaCZOSNEK[0mbialokwitnaca drobna roslinkaROSICZKA [0m(brak)bialy maly kwiatGLOG [0m(przezuj: +hp, +zmeczenie, zjedz: zmeczenie)bialy zmutowany grzybekSTROCZEK [0m(zjedz: poison)brazowawy fosforyzujacy mechGRABIOROG [0m(zjedz: mana)brazowe okragle nasionkoKOLA [0m(rozgryz: +con, zmeczenie, +najedzienie, zjedz: +najedzenie)brazowy duzy owocKASZTAN [0m(brak)brudnobrazowa cuchnaca galazkaBAGNO [0m(brak)brudnozolty fioletowozylkowany kwiatLULEK [0m(przezuj: poison)ciemne poskrecane klaczePIECIORNIK [0m(przezuj: 2x(brak efektu), rozgryz: +hp, +zmeczenie )ciemnoniebieski sluzowaty grzybPIERSCIENIAK [0m(zjedz: brak efektu )ciemnozielona rozwarta rozyczkaROJNIK [0m(zjedz: +alco)ciemny splatany korzenCIEMIERNIK [0m(zjedz: str, dex, con, poison)czarna blyszczaca fasolkaBOBOTRUTKA [0m(rozgryz: (poison))czarne aromatyczne ziarenkoBULAWINKA [0m(brak)czarny niewielki owocSLIWA [0m(brak)czerwonawy duzy liscRABARBAR [0m(brak)czterokanciasta rozgaleziona lodygaDZIURAWIEC [0m(rozgryz: +hp)delikatna dluga lodygaBOZE DRZEWKO[0mdelikatny czerwony grzybMUCHOMOR CZERWONY[0mdluga lodygaKONOPIE[0m (ususzyc + spalic  ochrona przed magia)dluga ususzona lodygaKONOPIA [0m(spal: resist na magie)drobny bialy kwiatekRUMIANEK [0m(powachaj: brak efektu, przyloz: brak efektu)duza granatowa jagodaSIEZYGRON [0m(rozgryz: anty poison)duze pomarszczone liscieTYTON BAKUN[0mduzy bialy kwiatBIELUN [0m(powachaj: (+con))duzy fioletowy kwiatOSTROZECZKA [0m(zjedz: bardziej spragniony)dziwne zoltoszare nasionkoKULCZYBA [0m(zjedz: 2x dis, poison)eliptyczny zaostrzony liscOGORECZNIK [0m(przezuj: +odwaga)fioletowy lejkowaty kwiatBARWINKA [0m(przyloz: +hp)fioletowy zwarty kwiatostanLAWENDA[0m (przyloz: +hp, +zmeczenie, zjedz: odtrutka)galeziasta szaroowlosiona lodygaBYLICA PIOLUN[0mgalezista sinozielona lodygaOSTROZEN [0m(brak)grube walcowate klaczePOKRZYK [0m(zjedz: spostrzegawczosc)grube wygiete klaczeRDEST [0m(przezuj: brak efektu)gruby brazowy grzybBOROWIK KROLEWSKI[0mgruby szarawy grzybBOROWIK SZATANSKI[0mgrzybi suchy kapeluszHUBKA [0m(brak)jaskrawozolty drobny kwiatSTULICHA [0m(zjedz: poison)jasnobrazowa ulistniona lodygaNAWLOC[0mjasnobrunatna popekana galazkaBEZ [0m(przezuj: brak)jasnofioletowy delikatny kwiatSZAFRAN [0m(zjedz: +hp)jasnopomaranczowy kwiatNAGIETEK [0m(przyloz: +hp, +zmeczenie)jasnozielona nieowlosiona lodygaLULECZNICA[0mjasnozielony sluzowaty grzybPIERSCIENIAK GRYNSZPANOWY[0mkanciasta parzaca lodygaPOKRZYWA[0m (zjedz: +glod picie alko kac)kanciasta rozgaleziona lodygaBYLICA POSPOLITA[0m (przyloz: zmeczenie)kolczasta wysuszona roslinaOSET[0m (przezuj: hp)kosmatoowlosiony kwiatostanKASZTANOWIEC [0m(zjedz: zmeczenie)kremowy owlosiony kwiatPRZELOT [0m(sproszkuj: zmeczenie, mana, przezuj: brak efektu)liliowy lejkowaty kwiatKAKOL [0m(zjedz: +glod, poison)lsniacy czerwony owocDEREN [0m(przezuj: (brak efektu))maly czarny owocJEZYNA [0m(brak)maly czerwony kwiatSERCE KAPITANA [0m(przezuj: +hp, dex, int)maly czerwony owocMALINA [0m(brak)maly fioletowy owocJAGODA [0m(brak)maly szorstki liscADANAT[0mmazisty bulwiasty grzybCASUR [0m(zjedz: +str)miedzianozielony fosforyzujacy grzybMUCHOMOR [0m(zjedz: poison)nieduzy brazowy grzybMASLAK [0m(brak)niepozorna sinozielona roslinkaURZET [0m(brak)niewielki czerwony owocPOZIOMKA [0m(brak)niewielki fioletowy kwiatMAKOWNIK [0m(zjedz: +hp)okazaly pachnacy kwiatMAK [0m(zjedz: dex, spostrzegawczosc)okraglawy aromatyczny liscMIETA[0m (rozetrzyj: +hp, +zmeczenie, powachaj: zmeczenie, wetrzyj kac)oliwkowozielona gietka galazkaJEMIOLA [0m(zjedz: con, str)owlosiony aromatyczny liscMELISA[0m (przezuj/zjedz kondycja; ususzona  odtrutka)pachnacy jasnozielony liscKRASNODRZEW[0mpachnacy jasnozwielony lisc KRASNODRZEW[0m(powachaj: +napicie, +najedzenie)pachnacy snieznobialy kwiatGRZYBIEN [0m(brak)piekny czerwony kwiatMAK [0m(zjedz: +hp, +zmeczenie, zrecznosc)pierzasty ogonkowy liscPOTOSLIN [0m(zjedz: str, dis, con, poison (mocny))pomaranczowy maly korzenSZALEJ [0m(zjedz: poison)rozdeta aromatyczna lodygaSZCZWOL [0m(zjedz: hp, poison,  dex)rozetkowaty lancetowaty liscBABKA [0m(przyloz: +hp)rozgaleziona owlosiona lodygaSTROICZKA[0mrozgaleziona wzniesiona lodygaJASKIER [0m(przezuj: oslepienie, rozgryz: (brak efektu))rozgowata zoltozielona galazkaPRZESL [0m(przezuj: +con)rozwiniety korzenMARZANNA [0m(brak)rurkowaty oliwkowobrunatny kwiatBYLICA CYTWAROWA[0msmukla jasnozielona lodygaCENTURIA[0msmukla zielona lodygaNOSTRZYK[0msoczysty karminowy mechDRATH [0m(przezuj: +con)srebrzystoszary owlosiony liscNAPARSTNICA [0m(zjedz: zmeczenie)sredni kasztanowobrazowy grzybPODGRZYBEK[0mstrzalkowaty aromatyczny liscSZCZAW [0m(przezuj: +hp)szarawe pogiete klaczeRAUWOLFIA [0m(przezuj: brak efektu)szarozielony gabczasty porostPLUCNICA[0m (sproszkuj: anty poison, rozetrzec)szarozielony szorstki liscBOLDOA[0m (brak)szary aromatyczny korzenLUBCZYK [0m(zjedz: +glod)szary kolczasty korzenARALIA [0m(przezuj: +resist, zmeczenie, +poisonplucnica)szorstka ciemnozielona galazkaPOZIEWNIK[0msztywna smukla lodygaLAK[0msztywny rozgaleziony korzenLUKRECJA [0m(przezuj: bardziej spragniony, rozgryz: brak efektu)twardy czerwony owocBOROWKA [0m(brak)ulistniona aromatyczna galazkaCZEREMCHA [0m(przezuj: 3x resist)wiotka drobna lodyzkaKURZYSLAD[0mwiotka kwitnaca galazkaJANOWIEC [0m(zjedz: bardziej spragniony)wonny dzwonkowaty kwiatekKONWALIA [0m(powachaj: +napicie, panika)wysoki blekitny kwiatCHABER [0m(przezuj: (brak efektu), powachaj: (brak efektu), zjedz: bardziej spragniony)wysoki czerwonawy grzybKOZLARZ [0m(brak)wysoki jasnobrazowy grzybBOROWIK [0m(brak)wysoki zolty kwiatSTARZEC [0m(sproszkuj: brak efektu, zjedz: poison)wzniesiona owlosiona lodygaKOCIMIETKA[0mwzniesiona ukwiecona lodygaTOJAD[0mzdewniala zwinieta rurkaKRUSZYNA [0m(zjedz: najedzenie)zdrewniala rozgaleziona krzewinkaMACZNICA[0m (rozgryz: +hp, sprobowac ususzyc)zielona kwitnaca krzewinkaHYZOP [0m(zjedz: +glod, przyloz:brak)zielona trzeszczaca galazkaSKRZYP[0m (brak)zielone lancetowate liscieTRAWA[0mzielone postrzepione galazkiDRABIK [0m(brak)zielony galezisty pedRDEST [0m(przyloz: +hp)zielony miesisty kwiatCIEMIEZYCA [0m(zjedz: str, dex)zlociste spore zioloCEBULA [0m(brak)zlocistopomaranczowy duzy kwiatARNIKA [0m(zjedz: zmeczenie)zlocistozolty kwiatMNISZEK [0m(przezuj: +hp, +zmeczenie)zoltawy powyginany korzenKRZYZOWNICA [0m(przezuj: (brak efektu))zoltoszary niepozorny korzenRANOG [0m(przezuj: anty poison, +hp, brak efektu)zolty jaskrawy kwiatPODBIAL [0m(brak)zolty jasny kwiatDELIONA [0m(zjedz: szybka regeneracja zmeczenia)zolty rurkowaty kwiatWROTYCZ [0m(powachaj: resist)zaostrzony podluzny liscSZALWIA LEKARSKA[0m (zjedz +hp)macznistoowlosiona szarawa roslinaKOMOSA[0m (przezuj:+con  zm, zjedz: +str)}
#VAR UD_eng_sz {gildiakolorC0C0C0przyjacielekolorAA99CCsojusznicykolor3wrogowie(subuj1kolor6satak1)}
#VAR UD_odmien_odmianaMN {sluzsluzemszkieletszkieletemkrasnolud chaosukrasnoludem chaosuczarny orkczarnym orkiemsmoczy ogrsmoczym ogremozywieniecozywiencem}
#VAR UD_odmien_odmianaMD {}
#VAR UD_odmien_odmianaMC {}
#VAR UD_odmien_nieodmienialne {auglenn|insil|deli|ysar|mithari|shinru|isil|suavi|shiori|teo|luinarienn|thaess|solenay}
#VAR UD_odmien_dwu_rasy {czarny ork|krasnolud chaosu|smoczy ogr|kamienny gargulec|zywiolak ziemi|zywiolak ognia|zywiolak powietrza|zywiolak wody|smok chaosu|rycerz chaosu|demon chaosu|duch elfa|pracownik poczty}
#VAR UD_odmien_dwu_rasyB {czarnego orka|krasnoluda chaosu|smoczego ogr|kamiennego gargulec|zywiolaka ziemi|zywiolaka ognia|zywiolaka powietrza|zywiolaka wody|smoka chaosu|rycerza chaosu|demona chaosu|ducha elfa|pracownika poczty}
#VAR UD_odmien_odmianapBM {}
#VAR UD_odmien_jakrzecz {szkielet|sluz|postac}
#VAR UD_odmien_wyjatekMB {niziolekniziolkapiespsaniedzwiedzniedzwiedziaaveniloavenilabrygubrygamaromarasandrosandrapauliepauliegohohrunkhohrunkazetuzetanevarenevara}
#VAR UD_odmien_wyjatekBM {niziolkaniziolekpsapiesniedzwiedzianiedzwiedzavenilaavenilobrygabrygumaramarosandrasandropauliegopauliehohrunkahohrunknevaranevare}
#CLASS 0
#CLASS {CerdinLib|Time}
#VAR time_date {%if( %numitems( %1)=2, @time_date2(%item(%1,1),%item(%1,2)), @time_date2(%1,%2))}
#VAR time_date2 {%if( %2>=%eval( 31536000+%if( %mod( %eval( %1+1), 4), 86400, 0)), @time_date2(%eval(%1+1),%eval(%2-31536000-%if(%mod(%eval(%1+1),4),86400,0))), %1-@time_date3(%mod(%2,86400),%eval(%2/86400),1,%if(%mod(%1,4),0,1)))}
#VAR time_date3 {%if( %number( %2)>%eval( 365+%number( %4)) or %number( %2)<=%number( %item( %if( '%4'='1', 31|60|91|121|152|182|213|244|274|305|335|366, 31|59|90|120|151|181|212|243|273|304|334|365), %3)), @time_add0( %3)-@time_add0(%eval( %2-%number( %item( %if( '%4'='1', 0|31|60|91|121|152|182|213|244|274|305|335, 0|31|59|90|120|151|181|212|243|273|304|334), %3)))) @time_add0(%eval( %1/3600)):@time_add0(%eval( %mod( %1, 3600)/60)):@time_add0(%mod( %mod( %1, 3600), 60)), @time_date3(%1,%2,%eval(%3+1),%4))}
#VAR time_add0 {%if(%len(%1)=1,0)%1}
#VAR time_time {%eval( (%item( {0|31|59|90|120|151|181|212|243|273|304|334}, %copy( %1, 6, 2))+%copy( %1, 9, 2)+%if( (!%mod( %left( %1, 4), 4))&(%number( %copy( %1, 6, 2))>2), 1, 0))*86400+%copy( %1, 12, 2)*3600+%copy( %1, 15, 2)*60+%copy( %1, 18, 2))}
#VAR time_diff {%if( !"%2", 0, %eval( (((%left( %1, 4)-%left( %2, 4))*365+((%left( %1, 4))/4)-((%left( %2, 4))/4)+%item( {0|31|59|90|120|151|181|212|243|273|304|334}, %copy( %1, 6, 2))-%item( {0|31|59|90|120|151|181|212|243|273|304|334}, %copy( %2, 6, 2))+%copy( %1, 9, 2)-%copy( %2, 9, 2)+%if( (!%mod( %left( %1, 4), 4))&(%number( %copy( %1, 6, 2))>2), 0, -1)-%if( (!%mod( %left( %2, 4), 4))&(%number( %copy( %2, 6, 2))>2), 0, -1))*86400)+((%copy( %1, 12, 2)-%copy( %2, 12, 2))*3600+(%copy( %1, 15, 2)-%copy( %2, 15, 2))*60+%copy( %1, 18, 2)-%copy( %2, 18, 2))))}
#VAR time_format {%if((%number(%1)<0),BLAD DATY,%if(%number(%1)/86400,%concat(%eval(%number(%1)/86400),"d "))%if(%eval(%mod(%number(%1),86400)/3600) < 10,"0")%eval(%mod(%number(%1),86400)/3600)h %if(%eval(%mod(%mod(%number(%1),86400),3600)/60) < 10,"0")%eval(%mod(%mod(%number(%1),86400),3600)/60)m %if(%mod(%mod(%mod(%number(%1),86400),3600),60) < 10,"0")%mod(%mod(%mod(%number(%1),86400),3600),60)s)}
#VAR time_mczas {@time_format(@time_diff(%1,%2))}
#VAR time_pdzien {%if(%copy(%1,6,5)="01-01",%eval(%copy(%1,1,4)-1)"-12-31",%if(%copy(%1,9,2)="01",%copy(%1,1,5)%if(%eval(%copy(%1,6,2)-1)<10,"0","")%eval(%copy(%1,6,2)-1)"-"%eval(%item({31|28|31|30|31|30|31|31|30|31|30|31},%eval(%copy(%1,6,2)-1))+%if((%copy(%1,6,2)="03")&(!%mod(%copy(%1,1,4),4)),1,0)),%copy(%1,1,8)%if(%eval(%copy(%1,9,2)-1)<10,"0","")%eval(%copy(%1,9,2)-1)))}
#VAR time_ndzien {%if(%copy(%1,6,5)="12-31",%eval(%copy(%1,1,4)+1)"-01-01",%if(%copy(%1,9,2)=%eval(%item({31|28|31|30|31|30|31|31|30|31|30|31},%copy(%1,6,2))+%if((%copy(%1,6,2)="02")&(!%mod(%copy(%1,1,4),4)),1,0)),%copy(%1,1,5)%if(%eval(%copy(%1,6,2)+1)<10,"0")%eval(%copy(%1,6,2)+1)"-01",%copy(%1,1,8)%if(%eval(%copy(%1,9,2)+1)<10,"0")%eval(%copy(%1,9,2)+1)))}
#VAR time_ddiff {%eval((%left(%1,4)-%left(%2,4))*365+((%left(%1,4))/4)-((%left(%2,4))/4)+%item({0|31|59|90|120|151|181|212|243|273|304|334},%copy(%1,6,2))-%item({0|31|59|90|120|151|181|212|243|273|304|334},%copy(%2,6,2))+%copy(%1,9,2)-%copy(%2,9,2)+%if((!%mod(%left(%1,4),4))&(%number(%copy(%1,6,2))>2),0,-1)-%if((!%mod(%left(%1,4),4))&(%number(%copy(%1,6,2))>2),0,-1))}
#CLASS 0
#CLASS {Buttony}
#VAR pomocb_buttonowe { Alt-` - przelacz bindy sekwencyjne/kombinacyjne/oba typy/zadne
 Przy wlaczonych bindach sekwencyjnych:
 2x *nr* - z wroga z buttona o numerze *nr*
 %char( 40)wskaz i rozkaz zaatakowac jezeli tak ustawiono%char( 41)
 *nr* + spacja - zaslon czlonka druzyny z buttona o numerze *nr*
 %char( 40)rozkaz wszystkim zaslonic jezeli tak ustawiono%char( 41)
 + spacja - p. zaslaniac
 *nr* + ~[qwerty] - zaslon przez wrogiem z buttona o numerze *nr*
 + ~[qwerty] - p. zaslaniac
 Przy wlaczonych bindach sekwencyjnych:
 alt+nr - zaslon czlonka druzyny z buttona Druzyny o numerze nr
 ctrl+nr - zaatakuj w sposob okreslony Stopniem Ataku istote z buttona Wrogow o numerze nr
 shift+nr - zaslon w sposob okreslony Stopniem Zaslony przed istota z buttona Wrogow o numerze nr
 ctrl+alt+nr - zablokuj istote z buttona Wrogow o numerze nr
 ctrl+shift+nr - przelam obrone istoty z buttona Wrogow o numerze nr
 alt+shift+nr - przedstaw istote z buttona Wrogow o numerze nr

 / %char( 40)na numerycznej%char( 41) - bind szybkiego ataku. Wykonuje akcje ustawione na rozecie na ostatniej widzianej istocie ktora ma byc atakowana na szybko.}
#VAR pomoc_enemy {   -wrog          - wyszukaj osobe w bazie wrogow;   -addwrog       - dodaj osobe lub gildie do bazy wrogow;   -delwrog       - usun osobe lub gildie z bazy wrogow;   -pr            - sprawdz przedstawionych oraz zapamietanych i stworz odpowiednie suby imienne}
#CLASS 0
#CLASS {Buttony|Kondycja}
#VAR kk_kondycje {ledwo zyw|ciezko rann|w zlej kondycji|rann|lekko rann|w dobrym stanie|w swietnej kondycji}
#VAR kk_db {num7opisw swietnej kondycjiwrog}
#BUTTON 1 {@kk_db.opis %if(@kk_db.num,"["@kk_db.num"/7]") %if(@kk_db.wrog,"<=== ["@kk_db.wrog"]")} {%if( @kd_rozkazy, rozkaz wszystkim zaslonic ciebie, wskaz siebie)} {} {} {@kk_db.num} {} {} {Size} {171} {29} {Pos} {0} {30} {46} {} {Gauge||12|7|4|8} {} "" {Explore|Inset} {} {} {3}
#CLASS 0
#CLASS {Buttony|Kondycja|Kondycja_opisowa}
#TRIGGER {^{|> }Jestes ({@kk_kondycje})({y|a|}).$} {kk_db.num = %ismember( %lower( %1), @kk_kondycje);kk_db.opis = %concat( %1, %2);kk_db.wrog = %null;#sub {@kd_kolor(@kk_db.num,%concat(" "%repeat("-",37)===)) %ansi(10)@kd_kolor(@kk_db.num,%upper(%concat(%1,%2,.)))}}
#TRIGGER {^{|> }Jestes ({@kk_kondycje})({y|a|}). Atakuj{e|a} cie (*).$} {kk_db.num = %ismember( %lower( %1), @kk_kondycje);kk_db.opis = %concat( %1, %2);kk_db.wrog = %numitems( %replace( %replace( "%3", ",", "|"), " i ", "|"));#sub {@kd_kolor(@kk_db.num,%concat(" "%repeat("-",37)===)) %ansi(10)@kd_kolor(@kk_db.num,%upper(%concat(%1,%2)).)%concat(%repeat(" ",20-%len(@kk_db.opis))%ansi(4)<=== [,%ansi(12)@kk_db.wrog,%ansi(4)]: ,%ansi(2)) %3"."}}
#CLASS 0
#CLASS {Buttony|Kondycja|Kondycja_hash}
#TRIGGER {^{|> }Jestes ({@kk_kondycje})({y|a|}).$} {kk_db.num = %ismember( %lower( %1), @kk_kondycje);kk_db.opis = %concat( %1, %2);kk_db.wrog = %null;#sub {" "@kd_kolor(@kk_db.num, %repeat("-",37)===) %ansi(10)%ansi(2)~[@kd_kolor(@kk_db.num,@kk_db.num/7)%ansi(2)] %ansi(2)~[@kd_kolor(@kk_db.num,%if(@kk_db.num=1,-LEDWO-,%repeat("#",@kk_db.num)%repeat("-",7-@kk_db.num)))%ansi(2)"]"}}
#TRIGGER {^{|> }Jestes ({@kk_kondycje})({y|a|}). {Atakuje cie|Atakuja cie} (*).$} {kk_db.num = %ismember( %lower( %1), @kk_kondycje);kk_db.opis = %concat( %1, %2);kk_db.wrog = %numitems( %replace( %replace( "%3", ",", "|"), " i ", "|"));#sub {" "@kd_kolor(@kk_db.num, %repeat("-",37)===) %ansi(10)%ansi(2)~[@kd_kolor(@kk_db.num,@kk_db.num/7)%ansi(2)] %ansi(2)~[@kd_kolor(@kk_db.num,%if(@kk_db.num=1,-LEDWO-,%repeat("#",@kk_db.num)%repeat("-",7-@kk_db.num)))%ansi(2)"]"%concat(%repeat(" ",6)%ansi(4)%char(60)=== [,%ansi(12)@kk_db.wrog,%ansi(4)]: ,%ansi(2)) %3"."}}
#CLASS 0
#CLASS {Buttony|Kondycja|Kondycja_opcje}
#ALIAS menu1_kondycja {op_kd_temp = @op_kd_set;#mxp @op_mxpkd(swietna,8,5,W SWIETNEJ KONDYCJI);#mxp @op_mxpkd(dobra,8,6,W DOBRYM STANIE);#mxp @op_mxpkd(lekko,8,7,LEKKO RANNY);#mxp @op_mxpkd(ranny,8,8,RANNY);#mxp @op_mxpkd(zla,8,9,W ZLEJ KONDYCJI);#mxp @op_mxpkd(ciezko,8,10,CIEZKO RANNY);#mxp @op_mxpkd(ledwo,8,11,LEDWO ZYWY);#mxp @op_mxp_hash(9,13,Pokazuj kondycje w postaci paskow);op_kd_zmiany;#mxp <Dest Opcje x=50 y=24><color #008080>-----------</color></Dest>;#mxp <Dest Opcje x=50 y=25><color #008080>| <send "op_kd_resetuj;op_kondycja" "Resetuje kolory kondycji do ustawien podstawowych">RESETUJ</send> |</color></Dest>;#mxp <Dest Opcje x=50 y=26><color #008080>-----------</color></Dest>}
#ALIAS op_kd_resetuj {op_kd_set = @op_kd_reset;op_kondycja;op_kd_setuj}
#ALIAS op_kd_zmiany {#mxp <Dest Opcje x=20 y=24><color %if(@op_kd_set=@op_kd_temp,#008000,#D9FF00)>-----------------</color></Dest>;#mxp <Dest Opcje x=20 y=25><color %if(@op_kd_set=@op_kd_temp,#008000,#D9FF00)>| <send "op_kd_setuj;op_menu1 kondycja" "Zapisz zmiany w kolorach kondycji">Zapisz zmiany</send> |</color></Dest>;#mxp <Dest Opcje x=20 y=26><color %if(@op_kd_set=@op_kd_temp,#008000,#D9FF00)>-----------------</color></Dest>}
#ALIAS op_kd_setuj {op_kd_set = @op_kd_temp;#va kd_kolor {"<color %item({"@op_kd_set.ledwo|@op_kd_set.ciezko|@op_kd_set.zla|@op_kd_set.ranny|@op_kd_set.lekko|@op_kd_set.dobra|@op_kd_set.swietna"},~%1)>~%2</color>"} _nodef {Buttony|Kondycja_druzyny}}
#VAR op_kd_set {ledwo#FF0000ciezko#FF6600zla#800000ranny#008080lekko#008080dobra#008080swietna#008080}
#VAR op_kd_reset {ledwo#FF0000ciezko#FF0000zla#800000ranny#008080lekko#008080dobra#008080swietna#008080}
#VAR op_kd_temp {ledwo#FF0000ciezko#FF6600zla#800000ranny#008080lekko#008080dobra#008080swietna#008080}
#CLASS 0
#CLASS {Buttony|Kondycja_druzyny}
#ALIAS kd_resetuj_buttony {#va kd_imiona {}}
#ALIAS kd_analizuj {;1-imie, 2-kondycja, 3-wrog;;#sh 1-%1 2-%2 3-%3;#if (%ismember( %1, @kd_imiona)) {kd_na_buttonie %1 %2 %3} {#if (%eval( %numitems( @kd_imiona)+1) <= @kd_b_max) {kd_na_wolne %1 %2 %3} {#if (%eval( 8-%2+8*%3) > %db( @{kd_obj_%item( @kd_imiona, @kd_b_max)}, cnum)) {kd_na_zamiane %1 %2 %3}}}}
#ALIAS kd_na_buttonie {;1-imie, 2-kondycja, 3-wrog;#class {CerdinLib|Druzyna|Druzyna_obj};#addkey kd_obj_%1 num {%2};#addkey kd_obj_%1 wrog {%3};#addkey kd_obj_%1 cnum {%eval( 8-%2+8*%3)};#class 0;kd_imiona = @kd_sort(%number(%ismember(%1,@kd_imiona)),@kd_imiona);kw_db.force = %secs}
#ALIAS kd_na_wolne {;1-imie, 2-kondycja, 3-wrog, 4-gdzie umiescic;;#sh 1-%1 2-%2 3-%3;#additem kd_imiona {%1};#class {CerdinLib|Druzyna|Druzyna_obj};#addkey kd_obj_%1 num %2;#addkey kd_obj_%1 wrog %3;#addkey kd_obj_%1 cnum %eval( 8-%2+8*%3);#class 0;kd_imiona=@kd_sort(%number(%numitems(@kd_imiona)),@kd_imiona)}
#ALIAS kd_na_zamiane {;1-imie, 2-kondycja, 3-wrog, 4-gdzie umiescic;#va kd_imiona {%replaceitem( %1, @kd_b_max, @kd_imiona)};#class {CerdinLib|Druzyna|Druzyna_obj};#addkey kd_obj_%1 num {%2};#addkey kd_obj_%1 wrog {%3};#addkey kd_obj_%1 cnum {%eval( 8-%2+8*%3)};#class 0;kd_imiona = @kd_sort(%number(@kd_b_max),@kd_imiona)}
#ALIAS kd_rozkaz {#if (%1) {#class {CerdinLib|Druzyna|Druzyna_obj};#if (!%db( @{kd_obj_%1}, komenda)) {#addkey kd_obj_%1 komenda @odmien_mb(%replace(%1,"_"," "))};#if (%db( @{kd_obj_%1}, komenda)) {za %db( @{kd_obj_%1}, komenda);#if (@kd_rozkazy>1) {wskaz %db( @{kd_obj_%1}, komenda) jako cel obrony};#if (@kd_rozkazy>2) {rozkaz wszystkim zaslonic %db( @{kd_obj_%1}, komenda)};#if (@kd_apz) {przestan zaslaniac}};#class 0}}
#VAR kd_kondycje {ledwo zyw|ciezko rann|w zlej kondycji|rann|lekko rann|w dobrym stanie|w swietnej kondycji}
#VAR kd_b_max {5}
#VAR kd_autor {Skrypt stworzony przez Cerdina.} {Skrypt stworzony przez Cerdina.}
#VAR kd_rozkazy {1}
#VAR kd_imiona {} {}
#VAR kd_button_name {%if(@kw_db.force)%proper(%replace(%item(@kd_imiona,%1),"_"," ")) %if(%db(@{kd_obj_%item(@kd_imiona,%1)},num), "["%db(@{kd_obj_%item(@kd_imiona,%1)},num)"/7]") %if(%db(@{kd_obj_%item(@kd_imiona,%1)},wrog)," <=== ["%db(@{kd_obj_%item(@kd_imiona,%1)},wrog)"]")}
#VAR kd_sort {%if( %1>1&(%number( %db( @{kd_obj_%item( %2, %1)}, cnum)) > %number( %db( @{kd_obj_%item( %2, %eval( %1-1))}, cnum))), @kd_sort(%eval(%1-1),%replaceitem(%item(%2,%1),%eval(%1-1),%replaceitem(%item(%2,%eval(%1-1)),%1,%2))), %if( %numitems( %2) > %1 & %1 <= @kd_b_max & (%db( @{kd_obj_%item( %2, %1)}, cnum) < %db( @{kd_obj_%item( %2, %eval( %1+1))}, cnum)), @kd_sort(%eval(%1+1),%replaceitem(%item(%2,%1),%eval(%1+1),%replaceitem(%item(%2,%eval(%1+1)),%1,%2))), %2))}
#VAR kd_kolor {<color %item({#FF0000|#FF6600|#800000|#008080|#008080|#008080|#008080},%1)>%2</color>}
#VAR kd_sort_old {%if( %1>1&(%number( %db( @{kd_obj_%item( %2, %1)}, cnum)) < %number( %db( @{kd_obj_%item( %2, %eval( %1-1))}, cnum))), @kd_sort(%eval(%1-1),%replaceitem(%item(%2,%1),%eval(%1-1),%replaceitem(%item(%2,%eval(%1-1)),%1,%2))), %if( %numitems( %2) > %1 & %1 <= @kd_b_max & (%db( @{kd_obj_%item( %2, %1)}, cnum) > %db( @{kd_obj_%item( %2, %eval( %1+1))}, cnum)), @kd_sort(%eval(%1+1),%replaceitem(%item(%2,%1),%eval(%1+1),%replaceitem(%item(%2,%eval(%1+1)),%1,%2))), %2))}
#VAR kd_apz {0}
#BUTTON 2 {@kd_button_name(1)} {kd_rozkaz %item( @kd_imiona, 1)} {} {} {%db(@{kd_obj_%item(@kd_imiona,1)},num)} {} {} {Size} {171} {29} {Pos} {0} {200} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kd_b_1} {3}
#BUTTON 3 {@kd_button_name(2)} {kd_rozkaz %item(@kd_imiona,2)} {} {} {%db(@{kd_obj_%item(@kd_imiona,2)},num)} {} {} {Size} {171} {29} {Pos} {0} {400} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kd_b_2} {3}
#BUTTON 4 {@kd_button_name(3)} {kd_rozkaz %item(@kd_imiona,3)} {} {} {%db(@{kd_obj_%item(@kd_imiona,3)},num)} {} {} {Size} {171} {29} {Pos} {0} {600} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kd_b_3} {3}
#BUTTON 5 {@kd_button_name(4)} {kd_rozkaz %item(@kd_imiona,4)} {} {} {%db(@{kd_obj_%item(@kd_imiona,4)},num)} {} {} {Size} {171} {29} {Pos} {0} {800} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kd_b_4} {3}
#BUTTON 6 {@kd_button_name(5)} {kd_rozkaz %item(@kd_imiona,5)} {} {} {%db(@{kd_obj_%item(@kd_imiona,5)},num)} {} {} {Size} {171} {29} {Pos} {0} {1000} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kd_b_5} {3}
#BUTTON 7 {D} {druzyna;#if (@kd_druzyna = KD_BLANK) {#sh %ansi( 11)NIE JESTES W ZADNEJ DRUZYNIE} {#sh Druzyna "["%numitems( @kd_druzyna)"]": %replace( @kd_druzyna, "|", ", ")}} {} {} {} {} {} {Size} {15} {29} {Pos} {1} {1284} {48} {} {} {} "" {Explore|Inset} {Pokaz zmienna druzyny i wyslij komende druzyna.} {} {3}
#BUTTON 8 {1} {przestan zaslaniac} {} {} {} {} {} {Size} {29} {29} {Pos} {1} {371} {59} {} {} {} "" {Explore} {} {} {3}
#BUTTON 9 {2} {przestan zaslaniac} {} {} {} {} {} {Size} {29} {29} {Pos} {1} {571} {59} {} {} {} "" {Explore} {} {} {3}
#BUTTON 10 {3} {przestan zaslaniac} {} {} {} {} {} {Size} {29} {29} {Pos} {1} {771} {59} {} {} {} "" {Explore} {} {} {3}
#BUTTON 11 {4} {przestan zaslaniac} {} {} {} {} {} {Size} {29} {29} {Pos} {1} {971} {59} {} {} {} "" {Explore} {} {} {3}
#BUTTON 12 {5} {przestan zaslaniac} {} {} {} {} {} {Size} {29} {29} {Pos} {1} {1171} {59} {} {} {} "" {Explore|Inset} {} {} {3}
#BUTTON 13 {HEAL} {+kondycja} {} {} {} {} {} {Size} {33} {29} {Pos} {1} {0} {78} {} {} {} "" {Explore|Inset} {} {} {3}
#BUTTON 26 {BUFF} {+zmeczenie} {} {} {} {} {} {Size} {33} {29} {Pos} {1} {0} {78} {} {} {} "" {Explore|Inset} {} {}
#BUTTON 49 {Z} {#add kd_rozkazy 1;#if (@kd_rozkazy>3) {kd_rozkazy=1};#case @kd_rozkazy {#noop %btncol( kd_rozkaz_force, 3, black)} {#noop %btncol( kd_rozkaz_force, 2, black)} {#noop %btncol( kd_rozkaz_force, 6, black)}} {} {} {} {} {} {Size} {14} {32} {Pos} {1} {1242} {48} {} {} {} "" {Explore|Inset} {Aktualnie %case(@kd_rozkazy,Z,Z+W,Z+W+R) - Mozliwe: ZASLONA / ZASLONA + WSKAZANIE / ZASLONA + WSKAZANIE + ROZKAZ} {kd_rozkaz_force} {4}
#BUTTON 50 {P %cr Z} {#if (@kd_apz) {#noo %btncol( kd_apz_b, 3, 0);kd_apz = 0} {#noo %btncol( kd_apz_b, 2, 0);kd_apz=1}} {} {} {} {} {} {Size} {15} {29} {Pos} {1} {1241} {48} {} {} {} "" {Explore|Inset} {Automatycznie puszczaj zaslone. Aktualnie %if(@kd_apz,ON,OFF).} {kd_apz_b} {3}
#CLASS 0
#CLASS {Buttony|Kondycja_druzyny|Kondycja_druzyny_opisowa}
#TRIGGER {^{|> }(*) jest ({@kd_kondycje})({a|e|y|}).$} {#sub {%concat(%repeat(" ",41-%len(%1)),%1," ",%if(%ismember(%lower("%1"),@kd_druzyna),%ansi(10)," "),@kd_kolor(%ismember(%lower(%2),@kd_kondycje),%upper(%2%3).)};#if (@kw_db.atakuje=%replace( %lower( %1), " ", "_")) {kw_db.atakuje=-1};#if (%replace( %lower( %1), " ", "_")=@kw_db.cel) {kw_na_cel %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 0} {#if (%ismember( %lower( %1), @kd_druzyna)) {kd_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 0} {kw_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 0}}}
#TRIGGER {^{|> }(*) jest ({@kd_kondycje})({a|e|y|}). ({Atakuje|Atakuja|Atakuje|Atakuja|Atakujesz|Atakujesz}) ({go|ja}) (*).$} {#sub {%concat(%repeat(" ",41-%len(%1)),%1," ",%if(%ismember(%lower("%1"),@kd_druzyna),%ansi(10)," "),@kd_kolor(%ismember(%lower(%2),@kd_kondycje), %upper(%2%3).),%ansi(%if(%ismember(%lower(%1),@kd_druzyna),4,11))%repeat(" ",20-%len(%2%3))<=== ~[,%ansi(%if(%ismember(%lower(%1),@kd_druzyna),12,11))%numitems(%replace({%replace("%6",", ","|")}," i ","|")),%ansi(%if(%ismember(%lower(%1),@kd_druzyna),4,11))~]: ,%ansi(2)) %6"."};#if (%4=Atakujesz) {kw_db.atakuje = %replace( %lower( %1), " ", "_")} {#if (@kw_db.atakuje=%replace( %lower( %1), " ", "_")) {kw_db.atakuje=-1}};#if (@kw_db.cel=%replace( %lower( %1), " ", "_") |(%4=Atakujesz & !@kw_db.wskazany)) {kw_na_cel %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) %numitems( %replace( %replace( "%6", ", ", "|"), " i ", "|"))} {#if (%ismember( %lower( %1), @kd_druzyna)) {kd_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) %numitems( %replace( %replace( "%6", ", ", "|"), " i ", "|"))} {kw_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) %numitems( %replace( %replace( "%6", ", ", "|"), " i ", "|"))}}}
#TRIGGER {^{|> }(*) jest ({@kd_kondycje})({a|e|y|}). Atakujesz ({go|ja}).$} {#sub {%concat(%repeat(" ",41-%len(%1)),%1," ",%if(%ismember(%lower("%1"),@kd_druzyna),%ansi(10)," "),@kd_kolor(%ismember(%lower(%2),@kd_kondycje), %upper(%2%3).),%ansi(%if(%ismember(@kd_imie,@kd_druzyna),4,11))%repeat(" ",20-%len(%2%3))<=== ~[,%ansi(11)1,%ansi(%if(%ismember(@kd_imie,@kd_druzyna),4,11))~]: ,%ansi(2) ty,".")};kw_db.atakuje = %replace( %lower( %1), " ", "_");#if (@kw_db.cel=%replace( %lower( %1), " ", "_")| !@kw_db.wskazany) {kw_na_cel %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 1} {#if (%ismember( %lower( %1), @kd_druzyna)) {kd_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 1} {kw_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 1}}}
#CLASS 0
#CLASS {Buttony|Kondycja_druzyny|Kondycja_druzyny_hash}
#TRIGGER {^{|> }(*) jest ({@kd_kondycje})({a|e|y|}).$} {#sub {%repeat(" ",41-%len(%1))%1" "%if(%ismember(%lower("%1"),@kd_druzyna),%ansi(10)," ")%concat(%ansi(2)~[@kd_kolor(%ismember(%lower(%2),@kd_kondycje),%ismember(%lower(%2),@kd_kondycje)/7))%ansi(2)] %ansi(2)~[@kd_kolor(%ismember(%lower(%2),@kd_kondycje),%if(%ismember(%lower(%2),@kd_kondycje)=1,-LEDWO-,%repeat("#",%ismember(%lower(%2),@kd_kondycje))%repeat("-",7-%ismember(%lower(%2),@kd_kondycje)))%ansi(2))~] %if(%ismember(%lower(%1),@kd_druzyna),~[%ismember(%lower(%1),@kd_druzyna)%char(93))};#if (@kw_db.atakuje=%replace( %lower( %1), " ", "_")) {kw_db.atakuje=-1};#if (%replace( %lower( %1), " ", "_")=@kw_db.cel) {kw_na_cel %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 0} {#if (%ismember( %lower( %1), @kd_druzyna)) {kd_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 0} {kw_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 0}}}
#TRIGGER {^{|> }(*) jest ({@kd_kondycje})({a|e|y|}). ({Atakuje|Atakuja|Atakuje|Atakuja|Atakujesz|Atakujesz}) ({go|ja}) (*).$} {#sub {%repeat(" ",41-%len(%1))%1" "%if(%ismember(%lower("%1"),@kd_druzyna),%ansi(10)," ")%concat(%ansi(2)~[@kd_kolor(%ismember(%lower(%2),@kd_kondycje),%ismember(%lower(%2),@kd_kondycje)/7))%ansi(2)] %ansi(2)~[@kd_kolor(%ismember(%lower(%2),@kd_kondycje),%if(%ismember(%lower(%2),@kd_kondycje)=1,-LEDWO-,%repeat("#",%ismember(%lower(%2),@kd_kondycje))%repeat("-",7-%ismember(%lower(%2),@kd_kondycje)))%ansi(2))~] %if(%ismember(%lower(%1),@kd_druzyna),~[%ismember(%lower(%1),@kd_druzyna)%char(93))%ansi(%if(%ismember(%lower(%1),@kd_druzyna),4,11))%repeat(" ",2)%char(60)=== ~[%ansi(%if(%ismember(%lower(%1),@kd_druzyna),12,11))%numitems(%replace({%replace("%6",", ","|")}," i ","|"))%ansi(%if(%ismember(%lower(%1),@kd_druzyna),4,11))~]: %ansi(2) %6"."};#if (%4=Atakujesz) {kw_db.atakuje = %replace( %lower( %1), " ", "_")} {#if (@kw_db.atakuje=%replace( %lower( %1), " ", "_")) {kw_db.atakuje=-1}};#if (@kw_db.cel=%replace( %lower( %1), " ", "_") |(%4=Atakujesz & !@kw_db.wskazany)) {kw_na_cel %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) %numitems( %replace( %replace( "%6", ", ", "|"), " i ", "|"))} {#if (%ismember( %lower( %1), @kd_druzyna)) {kd_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) %numitems( %replace( %replace( "%6", ", ", "|"), " i ", "|"))} {kw_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) %numitems( %replace( %replace( "%6", ", ", "|"), " i ", "|"))}}}
#TRIGGER {^{|> }(*) jest ({@kd_kondycje})({a|e|y|}). Atakujesz ({go|ja}).$} {#sub {%repeat(" ",41-%len(%1))%1" "%if(%ismember(%lower("%1"),@kd_druzyna),%ansi(10)," ")%concat(%ansi(2)~[@kd_kolor(%ismember(%lower(%2),@kd_kondycje),%ismember(%lower(%2),@kd_kondycje)/7))%ansi(2)] %ansi(2)~[@kd_kolor(%ismember(%lower(%2),@kd_kondycje),%if(%ismember(%lower(%2),@kd_kondycje)=1,-LEDWO-,%repeat("#",%ismember(%lower(%2),@kd_kondycje))%repeat("-",7-%ismember(%lower(%2),@kd_kondycje)))%ansi(2))~] %if(%ismember(%lower(%1),@kd_druzyna),~[%ismember(%lower(%1),@kd_druzyna)%char(93))%ansi(11)%repeat(" ",2)%char(60)=== ~[1~]: %ansi(2) "ty."};kw_db.atakuje = %replace( %lower( %1), " ", "_");#if (@kw_db.cel=%replace( %lower( %1), " ", "_")| !@kw_db.wskazany) {kw_na_cel %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 1} {#if (%ismember( %lower( %1), @kd_druzyna)) {kd_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 1} {kw_analizuj %replace( %lower( %1), " ", "_") %ismember( %lower( %2), @kd_kondycje) 1}}}
#CLASS 0
#CLASS {Buttony|Statusy}
#VAR st_zmecz {calkowicie wycienczon|wycienczon|bardzo wyczerpan|wyczerpan|nieco wyczerpan|bardzo zmeczon|zmeczon|troche zmeczon|wypoczet|w pelni wypoczet}
#VAR st_b_zmecz_numer {9}
#VAR st_b_zmecz_opis {w pelni wypoczeta}
#VAR st_mana {u kresu sil|wykonczon|wyczerpan|w zlej kondycji|bardzo zmeczon|zmeczon|oslabion|lekko oslabion|w pelni sil}
#VAR st_b_mana_numer {8}
#VAR st_b_mana_opis {w pelni sil}
#VAR st_strach {bardzo przerazon|przerazon|nerwowo|nieswojo|spokojnie|bezpiecznie}
#VAR st_b_strach_numer {5}
#VAR st_b_strach_opis {bezpiecznie}
#VAR st_eq {wadzi ci troche|daje ci sie we znaki|jest dosyc klopotliwy|wyjatkowo ciezki|niemilosiernie ciezki|prawie przygniata cie do ziemi}
#VAR st_b_eq_numer {0}
#VAR st_b_eq_opis {Nie wadzi ani troche}
#VAR st_alco {podchmielon|lekko podpit|podpit|wstawion|mocno wstawion|pijan|schlan|naprut|nawalon}
#VAR st_b_alco_numer {0}
#VAR st_b_alco_opis {trzezw}
#VAR st_kac {lekkiego|niemilego|drazniacego|niezlego|straszliwego|potwornego}
#VAR st_autor {Skrypt stworzony przez Cerdina.} {Skrypt stworzony przez Cerdina.}
#VAR st_kondycje {ledwo zyw|ciezko rann|w zlej kondycji|rann|lekko rann|w dobrym stanie|w swietnej kondycji}
#VAR st_forma {przecietnej|niezlej|dosc dobrej|dobrej|bardzo dobrej|doskonalej|nieziemskiej}
#VAR st_glod {bardzo glodn|glodn|najedzon|bardzo najedzon}
#VAR st_pragnienie {Chce ci sie bardzo pic|Chce ci sie pic|Troche chce ci sie pic|Nie chce ci sie pic}
#VAR st_switch {%if( !"%1", %trigger( {Buttony|Statusy|Statusy_krotkie}), %if( %1=1, %if( %trigger( {Buttony|Statusy|Statusy_krotkie}), %exec( "#t- {Buttony|Statusy|Statusy_krotkie}; #t+ {Buttony|Statusy|Statusy_tradycyjne}"), %exec( "#t+ {Buttony|Statusy|Statusy_krotkie}; #t- {Buttony|Statusy|Statusy_tradycyjne}"))))}
#VAR st_nazwa {%item( {"STRACH  "|"SILY "|"MANA "|"CIEZAR  "|"ALKOHOL "|"KAC  "|"PICIE   "|"GLOD "|FORMA|KONDYCJA}, %1)}
#VAR st_kolor {<color %item({#55B099|#FFBBFF|#55B099|#334499|#55B099|#55B099|#55B099|#55B099|#55B099|#334499},%2)>%1</color>}
#VAR st_max {%item( {5|9|8|6|10|6|4|4|7|7}, %1)}
#VAR st_mxpt {@st_kolor([,%2)%ansi( 7)%1%ansi( reset)@st_kolor(|,%2)%ansi( 7)@st_max(%2)%ansi( reset)@st_kolor(],%2)}
#VAR st_mxpk {@st_kolor(@st_nazwa(%2),%2) %ansi( reset)"["%ansi( 7)%1%ansi( reset)|%ansi( 7)@st_max(%2)%ansi( reset)"]"}
#BUTTON 14 {@st_b_zmecz_opis "["@st_b_zmecz_numer"/9]"} {#SS "VBScript"} {} {} {@st_b_zmecz_numer} {} {} {Size} {171} {28} {Pos} {0} {30} {46} {} {Gauge||6|9|4|8} {} "" {Explore|Inset} {} {}
#BUTTON 15 {@st_b_mana_opis "["@st_b_mana_numer"/8]"} {#SS "VBScript"} {} {} {@st_b_mana_numer} {} {} {Size} {200} {28} {Pos} {0} {800} {46} {} {Gauge||6|8|4|8} {} "" {Explore|Inset} {} {}
#BUTTON 16 {@st_b_strach_opis "["@st_b_strach_numer"/5]"} {} {} {} {@st_b_strach_numer} {} {} {Size} {200} {29} {Pos} {0} {600} {107} {} {Gauge||12|5||8} {} "" {Explore|Inset} {} {}
#BUTTON 17 {@st_b_eq_opis "["@st_b_eq_numer"/6]"} {} {} {} {@st_b_eq_numer} {} {} {Size} {200} {28} {Pos} {0} {200} {96} {} {Gauge||12|6||8} {} "" {Explore|Inset} {} {}
#BUTTON 18 {@st_b_alco_opis "["@st_b_alco_numer"/10]"} {buk} {} {} {@st_b_alco_numer} {} {} {Size} {200} {28} {Pos} {0} {1000} {96} {} {Gauge||12|10||8} {} "" {Explore|Inset} {} {}
#CLASS 0
#CLASS {Buttony|Statusy|Statusy_tradycyjne}
#VAR st_b_mana_numer {1}
#TRIGGER {^Czujesz sie ({@st_strach})({y|a|}) i jestes ({@st_zmecz})({y|a}).$} {st_b_strach_opis = %1%2;st_b_strach_numer = %eval( %ismember( %1, @st_strach)-1);st_b_zmecz_opis = %3%4;st_b_zmecz_numer = %eval( %ismember( %3, @st_zmecz)-1);#sub {Czujesz sie @st_b_strach_opis @st_mxpt(@st_b_strach_numer,1) i jestes @st_b_zmecz_opis @st_mxpt(@st_b_zmecz_numer,2).}}
#TRIGGER {^{|> }Jestes ({@st_zmecz})({y|a}).$} {st_b_zmecz_opis = %1%2;st_b_zmecz_numer = %eval( %ismember( %1, @st_zmecz)-1);#sub {Jestes @st_b_zmecz_opis @st_mxpt(@st_b_zmecz_numer,2).}}
#TRIGGER {^{|> }Jestes mentalnie ({@st_mana})({y|a|}).$} {{st_b_mana_opis}
#TRIGGER {^{|> }Czujesz sie ({@st_strach})({y|a|}).$} {st_b_strach_opis = %1%2;st_b_strach_numer = %eval( %ismember( %1, @st_strach)-1);#sub {Czujesz sie @st_b_strach_opis @st_mxpt(@st_b_strach_numer,1).}}
#TRIGGER {^{|> }({Ciezar twego ekwipunku|Twoj ekwipunek jest|Twoj ekwipunek}) ({@st_eq}).$} {st_b_eq_opis = %2;st_b_eq_numer = %ismember( %2, @st_eq);#sub {%ansi(reset)%1 %2 @st_mxpt(@st_b_eq_numer,4).}}
#TRIGGER {^{|> }Twoj ekwipunek nie wadzi ci ani troche.$} {st_b_eq_opis = Nie wadzi ani troche;st_b_eq_numer = 0;#sub {Twoj ekwipunek nie wadzi ci ani troche @st_mxpt(0,4).}}
#TRIGGER {^{|> }Jestes ({@st_alco})({y|a}).$} {st_b_alco_opis = %1%2;st_b_alco_numer = %eval( %ismember( %1, @st_alco));#sub {Jestes @st_b_alco_opis @st_mxpt(@st_b_alco_numer,5).}}
#TRIGGER {^{|> }Jestes pijan({y|a}) jak bela.$} {st_b_alco_opis = pijan%1 jak bela;st_b_alco_numer = 10;#sub {Jestes pijan%1 jak bela @st_mxpt(10,5).}}
#TRIGGER {^Jestes trzezw({y|a}).$} {st_b_alco_opis = trzezw%1;st_b_alco_numer = 0;#sub {Jestes trzezw%1 @st_mxpt(0,5).}}
#TRIGGER {^Jestes trzezw({y|a}), ale masz ({@st_kac}) kaca.$} {st_b_alco_opis = trzezw%1 ~(%2 kaca~);st_b_alco_numer = 0;#sub {Jestes trzezw%1 @st_mxpt(0,5), ale masz %2 kaca @st_mxpt(%ismember(%2,@st_kac),6).}}
#TRIGGER {^{|> }Masz ({@st_kac}) kaca.$} {st_b_alco_opis = trzezwo ~(%1 kaca~);st_b_alco_numer = 0;#sub {Masz %1 kaca @st_mxpt(%ismember(%1,@st_kac),6).}}
#TRIGGER {^{|> }Jestes fizycznie ({@st_kondycje})({y|a|}), zas mentalnie ({@st_mana})({y|a|}).$} {st_b_mana_opis = %3%4;st_b_mana_numer = %eval( %ismember( %3, @st_mana)-1);#sub {Jestes fizycznie %1%2 @st_mxpt(%ismember(%1,@st_kondycje),10), zas mentalnie mentalnie @st_b_mana_opis @st_mxpt(@st_b_mana_numer,3).}}
#TRIGGER {^{|> }Jestes fizycznie ({@st_kondycje})({y|a|}) i w ({@st_forma}) formie, zas mentalnie ({@st_mana})({y|a|}).$} {st_b_mana_opis = %4%5;st_b_mana_numer = %eval( %ismember( %4, @st_mana)-1);#sub {Jestes fizycznie %1%2 @st_mxpt(%ismember(%1,@st_kondycje),10) i w %3 formie @st_mxpt(%ismember(%3,@st_forma),9), zas mentalnie mentalnie @st_b_mana_opis @st_mxpt(@st_b_mana_numer,3).}}
#TRIGGER {^{|> }Zauwazasz, ze raczej boli cie glowa.$} {st_b_alco_opis = trzezw%1 ~(? kaca~);st_b_alco_numer = 0;#sub {Zauwazasz, ze raczej boli cie glowa @st_mxpt(0,5) @st_mxpt(?,6).}}
#TRIGGER {^{|> }Powoli zaczyna cie bolec glowa. Czujesz sie raczej niewyraznie.$} {st_b_alco_opis = trzezw%1 ~(? kaca~);st_b_alco_numer = 0;#sub {Powoli zaczyna cie bolec glowa. Czujesz sie raczej niewyraznie @st_mxpt(0,5) @st_mxpt(?,6).}}
#TRIGGER {^{|> }Bol glowy przechodzi.$} {st_b_alco_opis = trzezw%1;st_b_alco_numer = 0;#sub {Bol glowy przechodzi @st_mxpt(0,6).}}
#TRIGGER {^({@st_pragnienie}) i jestes ({@st_glod})({y|a}).$} {#sub {%ansi(reset)%1 @st_mxpt(%ismember(%1,@st_pragnienie),7) i jestes %2%3 @st_mxpt(%ismember(%2,@st_glod),8).}}
#TRIGGER {^{|> }Czujesz, ze ({@st_pragnienie}).$} {#sub {%ansi(reset)Czujesz, ze %1 @st_mxpt(%ismember(%1,%lower(@st_pragnienie)),7).}}
#TRIGGER {^{|> }Jestes ({@st_glod})({y|a}).$} {#sub {Jestes %1%2 @st_mxpt(%ismember(%1,@st_glod),8).}}
#CLASS 0
#CLASS {Buttony|Statusy|Statusy_krotkie}
#TRIGGER {^Czujesz sie ({@st_strach})({y|a|}) i jestes ({@st_zmecz})({y|a}).$} {st_b_strach_opis = %1%2;st_b_strach_numer = %eval( %ismember( %1, @st_strach)-1);st_b_zmecz_opis = %3%4;st_b_zmecz_numer = %eval( %ismember( %3, @st_zmecz)-1);#sub {@st_mxpk(@st_b_strach_numer,1)%repeat(" ",2)- @st_mxpk(@st_b_zmecz_numer,2)}}
#TRIGGER {^{|> }Jestes ({@st_zmecz})({y|a}).$} {st_b_zmecz_opis = %1%2;st_b_zmecz_numer = %eval( %ismember( %1, @st_zmecz)-1);#sub {@st_mxpk(@st_b_zmecz_numer,2)}}
#TRIGGER {^{|> }Jestes mentalnie ({@st_mana})({y|a|}).$} {st_b_mana_opis = %1%2;st_b_mana_numer = %eval( %ismember( %1, @st_mana)-1);#sub {@st_mxpk(@st_b_mana_numer,3)}}
#TRIGGER {^{|> }Czujesz sie ({@st_strach})({y|a|}).$} {st_b_strach_opis = %1%2;st_b_strach_numer = %eval( %ismember( %1, @st_strach)-1);#sub {@st_mxpk(@st_b_strach_numer,1)}}
#TRIGGER {^{|> }({Ciezar twego ekwipunku|Twoj ekwipunek jest|Twoj ekwipunek}) ({@st_eq}).$} {st_b_eq_opis = %2;st_b_eq_numer = %ismember( %2, @st_eq);#sub {@st_mxpk(@st_b_eq_numer,4)}}
#TRIGGER {^{|> }Twoj ekwipunek nie wadzi ci ani troche.$} {st_b_eq_opis = Nie wadzi ani troche;st_b_eq_numer = 0;#sub {%ansi(reset)@st_mxpk(0,4)}}
#TRIGGER {^{|> }Jestes ({@st_alco})({y|a}).$} {st_b_alco_opis = %1%2;st_b_alco_numer = %eval( %ismember( %1, @st_alco));#sub {@st_mxpk(@st_b_alco_numer,5)}}
#TRIGGER {^{|> }Jestes pijan({y|a}) jak bela.$} {st_b_alco_opis = pijan%1 jak bela;st_b_alco_numer = 10;#sub {@st_mxpk(10,5)}}
#TRIGGER {^Jestes trzezw({y|a}).$} {st_b_alco_opis = trzezw%1;st_b_alco_numer = 0;#sub {@st_mxpk(0,5)}}
#TRIGGER {^Jestes trzezw({y|a}), ale masz ({@st_kac}) kaca.$} {st_b_alco_opis = trzezw%1 ~(%2 kaca~);st_b_alco_numer = 0;#sub {@st_mxpk(0,5) - @st_mxpk(%ismember(%2,@st_kac),6)}}
#TRIGGER {^{|> }Masz ({@st_kac}) kaca.$} {st_b_alco_opis = trzezwo ~(%1 kaca~);st_b_alco_numer = 0;#sub {@st_mxpk(%ismember(%1,@st_kac),6)}}
#TRIGGER {^{|> }Jestes fizycznie ({@st_kondycje})({y|a|}), zas mentalnie ({@st_mana})({y|a|}).$} {st_b_mana_opis = %3%4;st_b_mana_numer = %eval( %ismember( %3, @st_mana)-1);#sub {@st_mxpk(%ismember(%1,@st_kondycje),10)%repeat(" ",2)- @st_mxpk(@st_b_mana_numer,3)}}
#TRIGGER {^{|> }Jestes fizycznie ({@st_kondycje})({y|a|}) i w ({@st_forma}) formie, zas mentalnie ({@st_mana})({y|a|}).$} {st_b_mana_opis = %4%5;st_b_mana_numer = %eval( %ismember( %4, @st_mana)-1);#sub {@st_mxpk(%ismember(%1,@st_kondycje),10)%repeat(" ",2)- @st_mxpk(%ismember(%3,@st_forma),9) - @st_mxpk(@st_b_mana_numer,3)}}
#TRIGGER {^{|> }Zauwazasz, ze raczej boli cie glowa.$} {st_b_alco_opis = trzezw%1 ~(? kaca~);st_b_alco_numer = 0;#sub {@st_mxpk(0,5) - @st_mxpk(?,6)}}
#TRIGGER {^{|> }Powoli zaczyna cie bolec glowa. Czujesz sie raczej niewyraznie.$} {st_b_alco_opis = trzezw%1 ~(? kaca~);st_b_alco_numer = 0;#sub {@st_mxpk(0,5) - @st_mxpk(?,6)}}
#TRIGGER {^{|> }Bol glowy przechodzi.$} {st_b_alco_opis = trzezw%1;st_b_alco_numer = 0;#sub {@st_mxpk(0,6)}}
#TRIGGER {^({@st_pragnienie}) i jestes ({@st_glod})({y|a}).$} {#sub {%ansi(reset)@st_mxpk(%ismember(%1,@st_pragnienie),7)%repeat(" ",2)- @st_mxpk(%ismember(%2,@st_glod),8)}}
#REGEX {^(?:> |)Czujesz, ze (@st_pragnienie)\.$} {#sub {%ansi(reset)@st_mxpk(%ismember(%1,%lower(@st_pragnienie)),7)}}
#TRIGGER {^{|> }Jestes ({@st_glod})({y|a}).$} {#sub {@st_mxpk(%ismember(%1,@st_glod),8)}}
#CLASS 0
#CLASS {Buttony|Statusy|Statusy_opcje}
#ALIAS menu1_statusy {st_op_temp=@st_op_set;#mxp @op_mxpkdb(st_op_temp,STRACH,8,5,Strach);#mxp @op_mxpkdb(st_op_temp,ZMECZENIE,8,6,Zmeczenie);#mxp @op_mxpkdb(st_op_temp,MANA,8,7,Zmeczenie mentalne);#mxp @op_mxpkdb(st_op_temp,OBCIAZENIE,8,8,Obciazenie ekwipunku);#mxp @op_mxpkdb(st_op_temp,ALKOHOL,8,9,Poziom upojenia);#mxp @op_mxpkdb(st_op_temp,KAC,8,10,Straszliwosc kaca);#mxp @op_mxpkdb(st_op_temp,PRAGNIENIE,8,11,Pragnienie);#mxp @op_mxpkdb(st_op_temp,GLOD,8,12,Glod);#mxp @op_mxpkdb(st_op_temp,FORMA,8,13,Forma);#mxp @op_mxpkdb(st_op_temp,KONDYCJA,8,14,Kondycja);#mxp @op_mxpVS(st_switch,12,17,Pokazuj statusy w formie skroconej);st_op_zmiany;#mxp <Dest Opcje x=48 y=24><color #008080>-----------</color></Dest>;#mxp <Dest Opcje x=48 y=25><color #008080>| <send "st_op_resetuj" "Resetuje kolory kondycji do ustawien nie kolorujacych ">RESETUJ</send> |</color></Dest>;#mxp <Dest Opcje x=48 y=26><color #008080>|<send "st_op_resetuj" "Resetuje kolory kondycji do ustawien nie kolorujacych ">(b.kolor)</send>|</color></Dest>;#mxp <Dest Opcje x=48 y=27><color #008080>-----------</color></Dest>;#mxp <Dest Opcje x=60 y=24><color #008080>-----------</color></Dest>;#mxp <Dest Opcje x=60 y=25><color #008080>| <send "st_op_resetuj2" "Resetuje kolory kondycji wartosci standardowych ">RESETUJ</send> |</color></Dest>;#mxp <Dest Opcje x=60 y=26><color #008080>|<send "st_op_resetuj2" "Resetuje kolory kondycji do wartosci standardowych ">(z kolor)</send>|</color></Dest>;#mxp <Dest Opcje x=60 y=27><color #008080>-----------</color></Dest>}
#ALIAS st_op_resetuj {st_op_set = @st_op_reset;op_menu1 statusy;st_op_setuj}
#ALIAS st_op_resetuj2 {st_op_set = @st_op_reset2;op_menu1 statusy;st_op_setuj}
#ALIAS st_op_zmiany {#mxp <Dest Opcje x=20 y=24><color %if(@st_op_set=@st_op_temp,#008000,#D9FF00)>-----------------</color></Dest>;#mxp <Dest Opcje x=20 y=25><color %if(@st_op_set=@st_op_temp,#008000,#D9FF00)>| <send "st_op_setuj;op_menu1 statusy" "Zapisz zmiany w kolorach statusow">Zapisz zmiany</send> |</color></Dest>;#mxp <Dest Opcje x=20 y=26><color %if(@st_op_set=@st_op_temp,#008000,#D9FF00)>-----------------</color></Dest>}
#ALIAS st_op_setuj {st_op_set = @st_op_temp;#va st_kolor {"<color %item({"@st_op_set.STRACH|@st_op_set.ZMECZENIE|@st_op_set.MANA|@st_op_set.OBCIAZENIE|@st_op_set.ALKOHOL|@st_op_set.KAC|@st_op_set.PRAGNIENIE|@st_op_set.GLOD|@st_op_set.FORMA|@st_op_set.KONDYCJA"},~%2)>~%1</color>"} _nodef {Buttony|Statusy}}
#VAR st_op_set {STRACH#55B099ZMECZENIE#FFBBFFMANA#55B099OBCIAZENIE#334499ALKOHOL#55B099KAC#55B099PRAGNIENIE#55B099GLOD#55B099FORMA#55B099KONDYCJA#334499}
#VAR st_op_temp {STRACH#55B099ZMECZENIE#FFBBFFMANA#55B099OBCIAZENIE#334499ALKOHOL#55B099KAC#55B099PRAGNIENIE#55B099GLOD#55B099FORMA#55B099KONDYCJA#334499}
#VAR st_op_reset {STRACHZMECZENIEMANAOBCIAZENIEALKOHOLKACPRAGNIENIEGLODFORMAKONDYCJA}
#VAR st_op_reset2 {STRACH#55B099ZMECZENIE#FFBBFFMANA#55B099OBCIAZENIE#334499ALKOHOL#55B099KAC#55B099PRAGNIENIE#55B099GLOD#55B099FORMA#55B099KONDYCJA#334499}
#CLASS 0
#CLASS {Buttony|Kondycja_wrogow}
#ALIAS kw_resetuj_buttony {#va kw_imiona {};#if (!@kw_db.wskazany) {kw_db.cel="";#noop %btncol( kw_bar1, 7, black)}}
#ALIAS kw_analizuj {#if (%ismember( %1, @kw_imiona)) {kw_na_buttonie %1 %2 %3} {#if (%eval( %numitems( @kw_imiona)+1) <= @kw_b_max) {kw_na_wolne %1 %2 %3} {#if (@kw_cnum(%1,%2,%3) > %db( @{kw_obj_%item( @kw_imiona, @kw_b_max)}, cnum)) {kw_na_zamiane %1 %2 %3}}}}
#ALIAS kw_na_buttonie {#class {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj};#addkey kw_obj_%1 num {%2};#addkey kw_obj_%1 wrog {%3};#addkey kw_obj_%1 cnum {@kw_cnum(%1,%2,%3)};#class 0;kw_imiona = @kw_sort(%number(%ismember(%1,@kw_imiona)),@kw_imiona);kw_db.force = %secs}
#ALIAS kw_na_wolne {#additem kw_imiona %1;#class {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj};#addkey kw_obj_%1 num %2;#addkey kw_obj_%1 wrog %3;#addkey kw_obj_%1 cnum {@kw_cnum(%1,%2,%3)};#class 0;kw_imiona = @kw_sort(%number(%numitems(@kw_imiona)),@kw_imiona)}
#ALIAS kw_na_zamiane {#va kw_imiona {%replaceitem( %1, @kw_b_max, @kw_imiona)};#class {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj};#addkey kw_obj_%1 num %2;#addkey kw_obj_%1 wrog %3;#addkey kw_obj_%1 cnum {@kw_cnum(%1,%2,%3)};#class 0;kw_imiona = @kw_sort(%number(@kw_b_max),@kw_imiona)}
#ALIAS kw_na_cel {kw_db.cel=%1;#delitem kw_imiona %1;#if (!%defined( kw_obj_%1)) {#va kw_obj_%1 {} _nodef {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj}};#addkey kw_obj_%1 num %2;#addkey kw_obj_%1 wrog %3;#addkey kw_obj_%1 cnum {@kw_cnum(%1,%2,%3)};kw_bar_color}
#ALIAS kw_rozkaz {#if (%1) {#class {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj};#if (!%db( @{kw_obj_%1}, komenda)) {#addkey kw_obj_%1 komenda @odmien_mb(%replace(%1,"_"," "));#if (%db( @{kw_obj_%1}, komenda)) {#addkey kw_obj_%1 komendaD @odmien_md(%replace(%1,"_"," "));#addkey kw_obj_%1 komendaN @odmien_mn(%replace(%1,"_"," "));kw_pick_wykonaj %1}} {kw_pick_wykonaj %1};#class 0}}
#ALIAS kw_trozkaz {#if (%2) {#class {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj};#if (!%db( @{kw_obj_%1}, komenda)) {#addkey kw_obj_%1 komenda @odmien_mb(%replace(%1,"_"," "));#if (%db( @{kw_obj_%1}, komenda)) {#addkey kw_obj_%1 komendaD @odmien_md(%replace(%1,"_"," "));#addkey kw_obj_%1 komendaN @odmien_mn(%replace(%1,"_"," "));kw_pick_r_%2 %1}} {kw_pick_r_%2 %1};#class 0}}
#ALIAS kw_arozkaz {#if (%1) {#class {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj};#if (!%db( @{kw_obj_%1}, komenda)) {#addkey kw_obj_%1 komenda @odmien_mb(%replace(%1,"_"," "));#if (%db( @{kw_obj_%1}, komenda)) {#addkey kw_obj_%1 komendaD @odmien_md(%replace(%1,"_"," "));#addkey kw_obj_%1 komendaN @odmien_mn(%replace(%1,"_"," "));kw_pick_r_zabij %1;#if (@kw_pick_f>1) {kw_pick_r_wskaz %1};#if (@kw_pick_f>2) {kw_pick_r_rozkaz %1}}} {kw_pick_r_zabij %1;#if (@kw_pick_f>1) {kw_pick_r_wskaz %1};#if (@kw_pick_f>2) {kw_pick_r_rozkaz %1}};#class 0}}
#ALIAS kw_bar_color {#if (!@kw_db.cel) {#noop %btncol( kw_bar1, 7, black)} {#if (@kw_db.wskazany) {#noop %btncol( kw_bar1, %if( @kw_db.cel=@kw_db.atakuje, 2, 4), black)} {#noop %btncol( kw_bar1, %if( @kw_db.cel=@kw_db.atakuje, 1, 7), black)}}}
#ALIAS kw_bind_off {#noop %alarm( kw_bind_alarm, 1);kw_db.bind_nr=%null;#t- kwb_bindy}
#VAR kw_b_max {5}
#VAR kw_autor {Skrypt stworzony przez Cerdina.} {Skrypt stworzony przez Cerdina.}
#VAR kw_db {atakuje-1celwskazany0force77404127bind_nrbind}
#VAR kw_imiona {kaspar}
#VAR kw_button_name {%if( @kw_db.force)%if( %defined( xo_%item( @kw_imiona, %1)), %replace( %upper( %item( @kw_imiona, %1)), "_", " "), %replace( %item( @kw_imiona, %1), "_", " "))%cr %if( %item( @kw_imiona, %1)=@kw_db.atakuje, "-----> ")%if( %db( @{kw_obj_%item( @kw_imiona, %1)}, num), "["%db( @{kw_obj_%item( @kw_imiona, %1)}, num)"/7]") %if( %db( @{kw_obj_%item( @kw_imiona, %1)}, wrog), " <=== ["%db( @{kw_obj_%item( @kw_imiona, %1)}, wrog)"]")%if( %item( @kw_imiona, %1)=@kw_db.atakuje, " <-----")}
#VAR kw_cel_name {%if( @kw_db.force)@kw_db.cel%cr %if( @kw_db.cel=@kw_db.atakuje, "-----> ")%if( %db( @{kw_obj_@kw_db.cel}, num), "["%db( @{kw_obj_@kw_db.cel}, num)"/7]") %if( %db( @{kw_obj_@kw_db.cel}, wrog), " <=== ["%db( @{kw_obj_@kw_db.cel}, wrog)"]")%if( @kw_db.cel=@kw_db.atakuje, " <-----")}
#VAR kw_backup {}
#VAR kw_zaslony {0}
#VAR kw_cnum {%eval( 8-%2+8*%3+@kw_enum(%1))}
#VAR kw_get_cnum {@kw_get_cnum2(%1,%db( @{kw_obj_%1}, cnum))}
#VAR kw_get_cnum2 {%if( %2, %2, @kw_enum(%1))}
#VAR kw_enum {%number( %case( %numwords( %1, "_"), %if( %defined( xo_%1), 1000, 0), ,%if( %pos( mutant, "%1"), 900, %if( %regex( "%1", "(?:mezczyzna|kobieta|(?:pol)?elf(?:ka)?|krasnolud(?:ka)?|ogr(?:zyca)?|halflin(?:g|ka)|gnom(?:ka)?|niziol(?:ek|ka))$"), %if( %defined( xo_%1), 1000, 0), 0))))}
#VAR kw_sort {%if( %1>1&(@kw_get_cnum(%item( %2, %1))>@kw_get_cnum(%item( %2, %eval( %1-1)))), @kw_sort(%eval(%1-1),%replaceitem(%item(%2,%1),%eval(%1-1),%replaceitem(%item(%2,%eval(%1-1)),%1,%2))), %if( %numitems( %2)>%1&%1<=@kw_b_max&(@kw_get_cnum(%item( %2, %1))<@kw_get_cnum(%item( %2, %eval( %1+1)))), @kw_sort(%eval(%1+1),%replaceitem(%item(%2,%1),%eval(%1+1),%replaceitem(%item(%2,%eval(%1+1)),%1,%2))), %2))}
#VAR kw_mass_sort {@kw_mass_sort2(%1,1,%item(%1,1),%2)}
#VAR kw_mass_sort2 {%if( %numitems( %1)<%number( %2), %4, @kw_mass_sort2(%1,%eval(%2+1),%item(%1,%eval(%2+1)),@kw_mass_sort3(%4,%3,%ismember(%3,%4))))}
#VAR kw_mass_sort3 {%if( %ismember( %2, @kd_druzyna|@kw_db.cel), %1, %if( %3, @kw_sort( %3, %1), %if( %eval( %numitems( %1)+1) <= @kw_b_max, @kw_sort(%eval(%number(%numitems(%1))+1),%additem(%2,%1)), %if( @kw_get_cnum(%2)>@kw_get_cnum(%item( %1, @kw_b_max)), @kw_sort(%number(@kw_b_max),%replaceitem( %2, @kw_b_max, %1)), %1))))}
#VAR kw_last_enemy {Sarven}
#VAR en_sub {%if( "%2", %ansi( 6)"%1"%ansi( reset)"(%2)", "%1"%ansi( reset))}
#TRIGGER {{wskazuje|Wskazujesz} (*) jako cel ataku.$} {#SA %ansi( 269)%repeat( " ", 45) THE BATTLE BEGINS!;#sa "";kw_db.cel=%replace( @odmien_bm(%lower(%1)), " ", _);#if (!@kw_db.cel) {kw_db.cel=%replace( %lower( %1), " ", _);#class {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj};#addkey kw_obj_@kw_db.cel komenda %lower( %1);#class 0} {#delitem kw_imiona @kw_db.cel};kw_db.wskazany=1;kw_bar_color;#play Sounds\Enchantress.mp3}
#TRIGGER {^{|> }{Bez cienia wahania rzucasz sie na|W jednej chwili dopadasz|Blyskawicznie nacierasz na|Przy ogluszajacym akompaniamencie okrzyku bojowego 'von Raugen!' rzucasz sie na|Atakujesz} (*){, rozpoczynajac walke!|, gwaltownie rozpoczynajac mordercze starcie!| z determinacja typowa dla wojowniczek rodu von Raugen!| z determinacja typowa dla wojownikow rodu von Raugen!|, wiazac go walka!|.}$} {#sub %concat(%ansi(4),%repeat(" ",19),"A T A K U J E S Z ===>  ",%ansi(12),%1);kw_db.atakuje = %replace( %lower( @odmien_bm(%1)), " ", "_");#if (@kw_db.atakuje) {#if (!@kw_db.wskazany) {kw_db.cel=@kw_db.atakuje;#delitem kw_imiona @kw_db.atakuje};#if (@kw_db.cel=@kw_db.atakuje) {kw_bar_color}}}
#TRIGGER {^{|> }(*) umarl{|a|o}.$} {#sub %concat(%1,%ansi(13)," NIE ZYJE!!! NEXT!");#if (@kw_db.atakuje=%replace( %lower( %1), " ", "_")) {kw_db.atakuje=-1};#if (@kw_db.cel=%replace( %lower( %1), " ", "_")) {kw_db.cel="";kw_db.wskazany=0;kw_bar_color};#delitem kw_imiona %replace( %lower( %1), " ", "_");#play Sounds\Assassinate.mp3} "" {case}
#TRIGGER {^{|> }(*) {zamiera na moment w bezruchu, po czym rozpada sie w proch.|z gluchym jekiem pada bezwladnie na ziemie.|pada na kolana, upuszcza bron, po czym znika w naglym plomienu ktory ogarnal jego postac!|po raz ostatni kurczy wszystkie odnoza, zwija sie w klebek i przewraca na grzbiet.|blednie i znika bez sladu.}$} {#sub %concat(%1,%ansi(13)," NIE ZYJE!!! NEXT!");#if (@kw_db.atakuje=%replace( %lower( %1), " ", "_")) {kw_db.atakuje=-1};#if (@kw_db.cel=%replace( %lower( %1), " ", "_")) {kw_db.cel="";kw_db.wskazany=0;kw_bar_color};#delitem kw_imiona %replace( %lower( %1), " ", "_");#play Sounds\Assassinate.mp3} "" {case}
#ALARM {*:00:00} {#if (%ctime) {#va kw_backup {};#if (@kw_db.cel) {#addkey kw_backup @kw_db.cel @{kw_obj_@kw_db.cel}};#pri {#forall @kw_imiona {#addkey kw_backup %i @{kw_obj_%i}}};#DELCLASS Buttony|Kondycja_wrogow|Kondycja_wrogow_obj;#if (@kw_db.cel) {#va kw_obj_@kw_db.cel %db( @kw_backup, @kw_db.cel) _nodef {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj}};#pri {#forall @kw_imiona {#va kw_obj_%i %db( @kw_backup, %i) _nodef {Buttony|Kondycja_wrogow|Kondycja_wrogow_obj}}}}}
#TRIGGER "poczatek_nastepnej_lokacji" {^%e[1;32m} {#pri {#state obecni_na_lokacji};#t- kw_koniec_obecnych} "" {color}
#TRIGGER "kw_koniec_obecnych" {>} {#state obecni_na_lokacji;#t- kw_koniec_obecnych} "" {nocr|prompt|disable}
#REGEX "obecni_na_lokacji" {\|\a+(?: \a+)?\|==>} {#t+ kw_koniec_obecnych} "" {case}
#COND {^(?!(?:(?i)@kd_druzyna(?-i))\s)((?:(?>[A-Z][a-z]{2,})|(?>[A-Z][a-z]+(?:(y|i)|(a|e))\s[a-z]{2,}(?(2)(?:y|i)|\3)\s[a-z]{3,}(?:\s[a-z]{3,})?))(?:(?:,\s(?:(?>[A-Z][a-z]{2,})|(?>[a-z]{3,}\s[a-z]{3,}\s[a-z]{3,}(?:\s[a-z]{3,})?)))*(?: i (?:(?>[A-Z][a-z]{2,})|(?>[a-z]{3,}\s[a-z]{3,}\s[a-z]{3,}(?:\s[a-z]{3,})?)))?))\.} {#if (!%regex( "%1", "\b(?:stojak|skrzynia|tablic|dylizan|woz\b)")) {#sub {<%subregex( "%1", "(?<=, | i |^)([a-z]{3,}|[a-z]{3,}\s[a-z]{3,}\s(?:mezczyzna|kobieta|(?:pol)?elf(?:ka)?|krasnolud(?:ka)?|ogr(?:zyca)?|halflin(?:g|ka)|gnom(?:ka)?|niziol(?:ek|ka)|mutant(?:ka)?))(?=$|, | i )", "@en_sub(%%1,%db(@{xo_%left(%%1,1)},%%1))")>};kw_imiona=@kw_mass_sort(%lower(%replace(%subregex("%1",", | i ","|")," ","_")))}} {looplines|param=3|case|regex}
#REGEX {^(?:> )?(.+)(?=\sprzybywa(?:ja)? z)} {#sub {%subregex( "%1", "(?<=, | i |^)([a-z]{3,}|[a-z]{3,}\s[a-z]{3,}\s(?:mezczyzna|kobieta|(?:pol)?elf(?:ka)?|krasnolud(?:ka)?|ogr(?:zyca)?|halflin(?:g|ka)|gnom(?:ka)?|niziol(?:ek|ka)|mutant(?:ka)?))(?=$|, | i )", "@en_sub(%%1,%db(@{xo_%left(%%1,1)},%%1))")};kw_imiona=@kw_mass_sort(%lower(%replace(%subregex("%1",", | i ","|")," ","_")),@kw_imiona)}
#KEY ALT-` {#if (%trigger( kw_bindy) and %trigger( kw_bindy2)) {#t- kw_bindy;#t- kw_bindy2;#sh ---> Bindy bojowe OFF} {#if (%trigger( kw_bindy2)) {#t+ kw_bindy;#sh ---> Bindy kombinacyjne (alt/ctrl+nr) ORAZ sekwencyjne (nr, nr/space/qwerty) ON} {#if (%trigger( kw_bindy)) {#t- kw_bindy;#t+ kw_bindy2;#sh ---> Bindy kombinacyjne (alt/ctrl+nr) ON} {#t+ kw_bindy;#t- kw_bindy2;#sh ---> Bindy sekwencyjne (nr, nr/space/qwerty) ON}}}}
#KEY DIV {#if (1) {kw_rozkaz %lower( @kw_last_enemy)} {#if (%numwords( @kw_last_enemy)>1) {kw_rozkaz %lower( @odmien_przym_am(%word( @kw_last_enemy, 1))_@odmien_przym_am(%word( @kw_last_enemy, 2))_%word( @kw_last_enemy, 3)%if( %ismember( %word( @kw_last_enemy, 3), mezczyzn|kobiet|elfk|krasnoludk|ogrzyc|halflink|gnomk|polelfk|niziolk|mutantk), a))} {#if (%iskey( @en_skonc, %lower( @kw_last_enemy))) {kw_rozkaz %lower( %db( @en_skonc, @kw_last_enemy))} {kw_rozkaz %lower( @kw_last_enemy)%if( %iskey( @en_sz, %lower( @kw_last_enemy)a), a)}}}}
#BUTTON 19 {%replace( @kw_db.cel, "_", " ")%cr %if( @kw_db.cel=@kw_db.atakuje, "-----> ")%if( %db( @{kw_obj_@kw_db.cel}, num), "["%db( @{kw_obj_@kw_db.cel}, num)"/7]") %if( %db( @{kw_obj_@kw_db.cel}, wrog), " <=== ["%db( @{kw_obj_@kw_db.cel}, wrog)"]")%if( @kw_db.cel=@kw_db.atakuje, " <-----")} {kw_rozkaz @kw_db.cel} {} {} {%db(@{kw_obj_@kw_db.cel},num)} {} {} {Size} {183} {32} {Pos} {0} {17} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kw_b_cel} {4}
#BUTTON 20 {} {kw_db.cel="";kw_db.wskazany=0;kw_bar_color} {} {} {} {} {} {Size} {16} {30} {Pos} {2} {1} {112} {} {} {} "" {Explore} {Click - RESET CEL ATAKU, Czerwony - nie atakujesz celu ataku, Zielony - atakujesz cel ataku, Niebieski - atakujesz, brak celu ataku, Szary - nie atakujesz, brak celu ataku} {kw_bar1} {4}
#BUTTON 21 {@kw_button_name(1)} {kw_rozkaz %item( @kw_imiona, 1)} {} {} {%db(@{kw_obj_%item(@kw_imiona,1)},num)} {} {} {Size} {200} {32} {Pos} {0} {200} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kw_b_1} {4}
#BUTTON 29 {@kw_button_name(2)} {kw_rozkaz %item( @kw_imiona, 2)} {} {} {%db(@{kw_obj_%item(@kw_imiona,2)},num)} {} {} {Size} {200} {32} {Pos} {0} {400} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kw_b_2} {4}
#BUTTON 30 {@kw_button_name(3)} {kw_rozkaz %item( @kw_imiona, 3)} {} {} {%db(@{kw_obj_%item(@kw_imiona,3)},num)} {} {} {Size} {200} {32} {Pos} {0} {600} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kw_b_3} {4}
#BUTTON 47 {@kw_button_name(4)} {kw_rozkaz %item( @kw_imiona, 4)} {} {} {%db(@{kw_obj_%item(@kw_imiona,4)},num)} {} {} {Size} {200} {32} {Pos} {0} {800} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kw_b_4} {4}
#BUTTON 48 {@kw_button_name(5)} {kw_rozkaz %item( @kw_imiona, 5)} {} {} {%db(@{kw_obj_%item(@kw_imiona,5)},num)} {} {} {Size} {200} {32} {Pos} {0} {1000} {32} {} {Gauge||12|7|4|7} {} "" {Explore|Inset} {} {kw_b_5} {4}
#CLASS 0
#CLASS {Buttony|Kondycja_wrogow|kw_tryb_rozkazu}
#ALIAS kw_pick_action {kw_pick_wybor = %pick( "p: Wybierz co masz zrobic z wrogiem po kliknieciu jego buttona"|%if( @kw_pick_db.zabij, *)"zabij wroga:zabij"|%if( @kw_pick_db.wskaz, *)"wskaz wroga jako cel ataku:wskaz"|%if( @kw_pick_db.rozkaz, *)"rozkaz wszystkim zaatakowac wroga:rozkaz"|%if( @kw_pick_db.zaslon, *)"zaslon przed wrogiem:zaslon"|%if( @kw_pick_db.zablokuj, *)"zablokuj wroga:zablokuj"|%if( @kw_pick_db.przelam, *)"przelam obrone wroga:przelam"|%if( @kw_pick_db.przedstaw, *)"przedstaw wroga:przedstaw");#if (@kw_pick_wybor) {#va kw_pick_db {};#forall @kw_pick_wybor {#addkey kw_pick_db %i %db( @kw_pick_color, %i)};kw_pick_set}}
#ALIAS kw_pick_set {#forall {zabij|wskaz|rozkaz|zaslon|zablokuj|przelam|przedstaw|temp1|temp2} {#noop %btncol( kw_rozkaz_%i, 3, black)};#loopdb @kw_pick_db {#noop %btncol( kw_rozkaz_%key, %val, black)}}
#ALIAS kw_pick_wykonaj {#loopdb @kw_pick_db {kw_pick_r_%key %-1}}
#ALIAS kw_pick_r_zabij {z %db( @{kw_obj_%1}, komenda)}
#ALIAS kw_pick_r_wskaz {wskaz %db( @{kw_obj_%1}, komenda) jako cel ataku}
#ALIAS kw_pick_r_rozkaz {rozkaz wszystkim zaatakowac %db( @{kw_obj_%1}, komenda)}
#ALIAS kw_pick_r_zaslon {zaslon przed %db( @{kw_obj_%1}, komendaN);#if (@kd_apz) {przestan zaslaniac}}
#ALIAS kw_pick_r_zablokuj {zablokuj %db( @{kw_obj_%1}, komenda)}
#ALIAS kw_pick_r_przelam {przelam obrone %db( @{kw_obj_%1}, komendaD)}
#ALIAS kw_pick_r_przedstaw {przedstaw %db( @{kw_obj_%1}, komenda)}
#ALIAS kw_pick_r_temp1 {#sa %ansi( 124) WYKONUJESZ NIEISTNIEJACA KOMENDE. COS POSZLO NIE TAK}
#ALIAS kw_pick_r_temp2 {#sa %ansi( 124) WYKONUJESZ NIEISTNIEJACA KOMENDE. COS POSZLO NIE TAK}
#ALIAS kw_pick_force {#if ((@kw_pick_f>4)|(@kw_pick_f<1)) {kw_pick_f=1};#case @kw_pick_f {#noop %btncol( kw_rozkaz_force, 7, black);kw_pick_db=@kw_pick_back_db} {#va kw_pick_db {};#addkey kw_pick_db zabij %db( @kw_pick_color, zabij);#noop %btncol( kw_rozkaz_force, 3, black)} {#va kw_pick_db {};#addkey kw_pick_db zabij %db( @kw_pick_color, zabij);#addkey kw_pick_db wskaz %db( @kw_pick_color, wskaz);#noop %btncol( kw_rozkaz_force, 2, black)} {#va kw_pick_db {};#addkey kw_pick_db zabij %db( @kw_pick_color, zabij);#addkey kw_pick_db wskaz %db( @kw_pick_color, wskaz);#addkey kw_pick_db rozkaz %db( @kw_pick_color, rozkaz);#noop %btncol( kw_rozkaz_force, 5, black)};kw_pick_set}
#VAR kw_pick_wybor {}
#VAR kw_pick_db {zabij1wskaz1rozkaz1przedstaw1}
#VAR kw_pick_back_db {rozkaz1zaslon1zablokuj1}
#VAR kw_pick_color {zabij1wskaz1rozkaz1zaslon1zablokuj1przelam1przedstaw1temp112temp212}
#VAR kw_pick_f {1}
#BUTTON 35 {A} {#add kw_pick_f 1;#if (@kw_pick_f>3) {kw_pick_f=1};#case @kw_pick_f {#noop %btncol( kw_rozkaz_force, 3, black)} {#noop %btncol( kw_rozkaz_force, 2, black)} {#noop %btncol( kw_rozkaz_force, 6, black)}} {} {} {} {} {} {Size} {14} {32} {Pos} {1} {1229} {48} {} {} {} "" {Explore|Inset} {Aktualnie %case(@kw_pick_f,A,A+W,A+W+R) - Mozliwe: ATAK / ATAK + WSKAZANIE / ATAK + WSKAZANIE + ROZKAZ} {kw_rozkaz_force} {4}
#BUTTON 37 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {20} {1256} {16} {} {} {} "" {Explore|Inset} {Zabij wroga} {kw_rozkaz_zabij} {3}
#BUTTON 38 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {20} {1265} {16} {} {} {} "" {Explore|Inset} {Wskazujesz wroga jako cel ataku} {kw_rozkaz_wskaz} {3}
#BUTTON 39 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {20} {1274} {16} {} {} {} "" {Explore|Inset} {Rozkazujesz wszystkim zaatakowac wroga} {kw_rozkaz_rozkaz} {3}
#BUTTON 40 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {10} {1256} {48} {} {} {} "" {Explore|Inset} {Zaslaniasz przed wrogiem} {kw_rozkaz_zaslon} {3}
#BUTTON 41 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {10} {1265} {48} {} {} {} "" {Explore|Inset} {Zablokuj wroga} {kw_rozkaz_zablokuj} {3}
#BUTTON 43 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {10} {1274} {48} {} {} {} "" {Explore|Inset} {Przelamujesz obrone wroga} {kw_rozkaz_przelam} {3}
#BUTTON 44 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {0} {1256} {16} {} {} {} "" {Explore|Inset} {Przedstaw wroga wszystkim} {kw_rozkaz_przedstaw} {3}
#BUTTON 45 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {0} {1265} {48} {} {} {} "" {Explore|Inset} {Zarezerwowane na przyszle komendy} {kw_rozkaz_temp1} {3}
#BUTTON 46 {} {kw_pick_action} {} {} {} {} {} {Size} {10} {10} {Pos} {0} {1274} {48} {} {} {} "" {Explore|Inset} {Zarezerwowane na przyszle komendy} {kw_rozkaz_temp2} {3}
#CLASS 0
#CLASS {Buttony|Kondycja_wrogow|kw_bindy}
#ALIAS kw_bind_number {#if (@kw_db.bind_nr=%1) {kw_trozkaz %if( @kw_db.bind_nr>1, %item( @kw_imiona, %eval( @kw_db.bind_nr-1)), @kw_db.cel) zabij;#if (@kw_pick_f>1) {kw_trozkaz %if( @kw_db.bind_nr>1, %item( @kw_imiona, %eval( @kw_db.bind_nr-1)), @kw_db.cel) wskaz};#if (@kw_pick_f>2) {kw_trozkaz %if( @kw_db.bind_nr>1, %item( @kw_imiona, %eval( @kw_db.bind_nr-1)), @kw_db.cel) rozkaz};kw_bind_off} {kw_db.bind_nr = %1;#t+ kwb_bindy;#if (%alarm( kw_bind_alarm)<0) {#alarm "kw_bind_alarm" {+2} {kw_bind_off}} {#noop %alarm( kw_bind_alarm, 2)}}}
#KEY 1 {kw_bind_number 1}
#KEY 2 {kw_bind_number 2}
#KEY 3 {kw_bind_number 3}
#KEY 4 {kw_bind_number 4}
#KEY 5 {kw_bind_number 5}
#KEY 6 {kw_bind_number 6}
#CLASS 0
#CLASS {Buttony|Kondycja_wrogow|kw_bindy|kwb_bindy}
#ALIAS kwb_zaslon {#if (@kw_db.bind_nr>0) {#if (@kw_db.bind_nr>1) {kw_trozkaz %item( @kw_imiona, %eval( @kw_db.bind_nr-1)) zaslon} {kw_trozkaz @kw_db.cel zaslon};kw_db.bind_nr = -1;#noop %alarm( kw_bind_alarm, 2000)} {przestan zaslaniac;kw_bind_off}}
#KEY SPC {#if (@kw_db.bind_nr>0) {kd_rozkaz %item( @kd_imiona, @kw_db.bind_nr);kw_db.bind_nr = -1;#noop %alarm( kw_bind_alarm, 2000)} {przestan zaslaniac;kw_bind_off}}
#KEY Q {kwb_zaslon}
#KEY W {kwb_zaslon}
#KEY E {kwb_zaslon}
#KEY R {kwb_zaslon}
#KEY T {kwb_zaslon}
#KEY Y {kwb_zaslon}
#CLASS 0
#CLASS {Buttony|Kondycja_wrogow|kw_bindy2}
#KEY CTRL-1 {kw_arozkaz @kw_db.cel}
#KEY CTRL-2 {kw_arozkaz %item( @kw_imiona, 1)}
#KEY CTRL-3 {kw_arozkaz %item( @kw_imiona, 2)}
#KEY CTRL-4 {kw_arozkaz %item( @kw_imiona, 3)}
#KEY CTRL-5 {kw_arozkaz %item( @kw_imiona, 4)}
#KEY CTRL-6 {kw_arozkaz %item( @kw_imiona, 5)}
#KEY ALT-1 {kd_rozkaz %item( @kd_imiona, 1)}
#KEY ALT-2 {kd_rozkaz %item( @kd_imiona, 2)}
#KEY ALT-3 {kd_rozkaz %item( @kd_imiona, 3)}
#KEY ALT-4 {kd_rozkaz %item( @kd_imiona, 4)}
#KEY ALT-5 {kd_rozkaz %item( @kd_imiona, 5)}
#KEY SHIFT-1 {kw_trozkaz @kw_db.cel zaslon}
#KEY SHIFT-2 {kw_trozkaz %item( @kw_imiona, 1) zaslon}
#KEY SHIFT-3 {kw_trozkaz %item( @kw_imiona, 2) zaslon}
#KEY SHIFT-4 {kw_trozkaz %item( @kw_imiona, 3) zaslon}
#KEY SHIFT-5 {kw_trozkaz %item( @kw_imiona, 4) zaslon}
#KEY SHIFT-6 {kw_trozkaz %item( @kw_imiona, 5) zaslon}
#KEY ALT-CTRL-1 {kw_trozkaz @kw_db.cel zablokuj}
#KEY ALT-CTRL-2 {kw_trozkaz %item( @kw_imiona, 1) zablokuj}
#KEY ALT-CTRL-3 {kw_trozkaz %item( @kw_imiona, 2) zablokuj}
#KEY ALT-CTRL-4 {kw_trozkaz %item( @kw_imiona, 3) zablokuj}
#KEY ALT-CTRL-5 {kw_trozkaz %item( @kw_imiona, 4) zablokuj}
#KEY ALT-CTRL-6 {kw_trozkaz %item( @kw_imiona, 5) zablokuj}
#KEY SHIFT-CTRL-1 {kw_trozkaz @kw_db.cel przelam}
#KEY SHIFT-CTRL-2 {kw_trozkaz %item( @kw_imiona, 1) przelam}
#KEY SHIFT-CTRL-3 {kw_trozkaz %item( @kw_imiona, 2) przelam}
#KEY SHIFT-CTRL-4 {kw_trozkaz %item( @kw_imiona, 3) przelam}
#KEY SHIFT-CTRL-5 {kw_trozkaz %item( @kw_imiona, 4) przelam}
#KEY SHIFT-CTRL-6 {kw_trozkaz %item( @kw_imiona, 5) przelam}
#KEY SHIFT-ALT-1 {kw_trozkaz @kw_db.cel przedstaw}
#KEY SHIFT-ALT-2 {kw_trozkaz %item( @kw_imiona, 1) przedstaw}
#KEY SHIFT-ALT-3 {kw_trozkaz %item( @kw_imiona, 2) przedstaw}
#KEY SHIFT-ALT-4 {kw_trozkaz %item( @kw_imiona, 3) przedstaw}
#KEY SHIFT-ALT-5 {kw_trozkaz %item( @kw_imiona, 4) przedstaw}
#KEY SHIFT-ALT-6 {kw_trozkaz %item( @kw_imiona, 5) przedstaw}
#CLASS 0
#CLASS {Chodzenie}
#ALIAS ch_info {#sh %ansi(11)USTAWIONO %case(@ch_tryb,"CHODZENIE","PRZEMYKANIE","PRZEMYKANIE Z DRUZYNA") "  ---  " WSAD %if(%trigger(Chodzenie_wsad),"ON ",OFF) "  ---  " KOMPAS %if(@ch_kompas,ON,OFF)}
#VAR reverse_last_dir {se}
#VAR ch_tryb {1}
#VAR ch_kompas {0}
#VAR ch_autor {Skrypt stworzony przez Cerdina.} {Skrypt stworzony przez Cerdina.}
#KEY KEY1 {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna ")sw%if(@ch_kompas,%cr sprawdz polnoc,""));reverse_last_dir=ne}
#KEY KEY2 {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna ")s%if(@ch_kompas,%cr sprawdz polnoc,""));reverse_last_dir=n}
#KEY KEY3 {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna ")se%if(@ch_kompas,%cr sprawdz polnoc,""));reverse_last_dir=nw}
#KEY KEY4 {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna ")w%if(@ch_kompas,%cr sprawdz polnoc,""));reverse_last_dir=e}
#KEY KEY5 {zerknij}
#KEY KEY6 {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna ")e%if(@ch_kompas,%cr sprawdz polnoc,""));reverse_last_dir=w}
#KEY KEY7 {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna ")nw%if(@ch_kompas,%cr sprawdz polnoc,""));reverse_last_dir=se}
#KEY KEY8 {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna ")n%if(@ch_kompas,%cr sprawdz polnoc,""));reverse_last_dir=s}
#KEY KEY9 {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna ")ne%if(@ch_kompas,%cr sprawdz polnoc,""));reverse_last_dir=sw}
#BUTTON 23 {%case(@ch_tryb,CH,P,PzD)} {#add ch_tryb 1;#if (@ch_tryb > 3 | @ch_tryb <1) {ch_tryb=1};#case @ch_tryb {#noop %btncol(ch_1,grey,black)} {#noop %btncol(ch_1,13,black)} {#noop %btncol(ch_1,5,black)};ch_info} {} {} {} {} {} {Size} {43} {27} {Pos} {1} {1201} {112} {} {} {} "" {} {CH - chodzenie, P - przemykanie, PzD - przemykanie z druzyna} {ch_1}
#BUTTON 24 {WSAD%cr%if(%trigger(Chodzenie_wsad),ON,OFF)} {#if (%trigger(Chodzenie_wsad)) {#t- Chodzenie_wsad;#noop %btncol(ch_2,gray,black)} {#t+ Chodzenie_wsad;#noop %btncol(ch_2,2,black)};ch_info} {} {} {} {} {} {Size} {43} {27} {Pos} {1} {1243} {112} {} {} {} "" {} {Chodzenie WSADem po lewej stronie klawiatury} {ch_2}
#BUTTON 25 {KOMP%cr%if(@ch_kompas,ON,OFF)} {#if (@ch_kompas) {ch_kompas=0;#noop %btncol(ch_3,gray,black)} {ch_kompas=1;#noop %btncol(ch_3,2,black)};ch_info} {} {} {} {} {} {Size} {44} {27} {Pos} {1} {1285} {112} {} {} {} "" {} {KOMPAS - Sprawdzanie polnocy po wyslaniu kierunku} {ch_3}
#CLASS 0
#CLASS {Chodzenie|Chodzenie_wsad}
#KEY Z {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna "))sw%if(@ch_kompas,%cr sprawdz polnoc,"");reverse_last_dir=ne}
#KEY X {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna "))s%if(@ch_kompas,%cr sprawdz polnoc,"");reverse_last_dir=n}
#KEY C {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna "))se%if(@ch_kompas,%cr sprawdz polnoc,"");reverse_last_dir=nw}
#KEY A {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna "))w%if(@ch_kompas,%cr sprawdz polnoc,"");reverse_last_dir=e}
#KEY D {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna "))e%if(@ch_kompas,%cr sprawdz polnoc,"");reverse_last_dir=w}
#KEY Q {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna "))nw%if(@ch_kompas,%cr sprawdz polnoc,"");reverse_last_dir=se}
#KEY W {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna "))n%if(@ch_kompas,%cr sprawdz polnoc,"");reverse_last_dir=s}
#KEY E {%eval(%case(@ch_tryb,"","przemknij ","przemknij z druzyna "))ne%if(@ch_kompas,%cr sprawdz polnoc,"");reverse_last_dir=sw}
#KEY S {zerknij}
#CLASS 0
#CLASS {Liczniki}
#ALIAS l_login {lp_force;lz_pokaz;lz_resetuj}
#ALIAS l_logout {lp_czesciowe}
#TRIGGER {^Ostatnie logowanie: %w, %d %w %d, %d:%d:%d$} {l_login}
#TRIGGER {^Do zobaczenia!$} {l_logout}
#CLASS 0
#CLASS {Liczniki|Licznik_zabitych}
#ALIAS ub {lz_pokaz}
#ALIAS lz_resetuj {#va lz_me_p {};#va lz_all_p {};#va lz_me {};#va lz_all {}}
#ALIAS lz_resetuj_all {#yesno "Czy napewno chcesz wykasowac CALA historie ubitych? Nie mozna tego cofnac." {#va lz_me_p {};#va lz_all_p {};#va lz_me {};#va lz_all {};#va lz_me_h {};#va lz_all_h {}}}
#ALIAS lz_pokaz {#sh %concat("    ",%repeat("_",67));#sh %concat("  /",%repeat(" ",69),"\");#sh %concat(" |",%repeat(" ",3),UBICI OD ZALOGOWANIA,%repeat(" ",34),TWOJE / RAZEM," |");#sh " |"%repeat(" ",71)"|";#loopdb @lz_all {#sh %concat(" |   ",%key,%repeat(".",54-%len(%key)),%repeat(" ",5-%len(%db(@lz_me,%key))),%db(@lz_me,%key)," / ",%repeat(" ",5-%len(%val)),%val," |")};#sh %concat("  \",%repeat("_",69),"/")}
#ALIAS lz_pokaz_p {#sh %concat("    ",%repeat("_",67));#sh %concat("  /",%repeat(" ",69),"\");#sh %concat(" |",%repeat(" ",3),UBICI NA TYCH POSTEPACH,%repeat(" ",31),TWOJE / RAZEM," |");#sh " |"%repeat(" ",71)"|";#loopdb @lz_all_p {#sh %concat(" |   ",%key,%repeat(".",54-%len(%key)),%repeat(" ",5-%len(%db(@lz_me_p,%key))),%db(@lz_me_p,%key)," / ",%repeat(" ",5-%len(%val)),%val," |")};#sh %concat("  \",%repeat("_",69),"/")}
#ALIAS lz_pokaz_all {#sh %concat("    ",%repeat("_",84));#sh %concat("  /",%repeat(" ",86),"\");#sh %concat(" |",%repeat(" ",59),"OSTATNIO    |    HISTORIA    |");#sh %concat(" |",%repeat(" ",3),UBICI OD ZALOGOWANIA,%repeat(" ",34),"TWOJE / RAZEM |  TWOJE / RAZEM |");#sh " |"%repeat(" ",71)"|"%repeat(" ",16)"|";#loopdb @lz_all {#sh %concat(" |   ",%key,%repeat(".",54-%len(%key)),%repeat(" ",5-%len(%db(@lz_me,%key))),%db(@lz_me,%key)," / ",%repeat(" ",5-%len(%val)),%val," |",%repeat(" ",7-%len(%db(@lz_me_h,%key)))%db(@lz_me_h,%key)," / ",%repeat(" ",5-%len(%db(@lz_all_h,%key)))%db(@lz_all_h,%key)," |")};#sh %concat("  \",%repeat("_",86),"/")}
#ALIAS lz_pokaz_all_h {#sh %concat("    ",%repeat("_",84));#sh %concat("  /",%repeat(" ",86),"\");#sh %concat(" |",%repeat(" ",59),"OSTATNIO    |    HISTORIA    |");#sh %concat(" |",%repeat(" ",3),UBICI OD POCZATKU,%repeat(" ",37),"TWOJE / RAZEM |  TWOJE / RAZEM |");#sh " |"%repeat(" ",71)"|"%repeat(" ",16)"|";#loopdb @lz_all_h {#sh %concat(" |   ",%key,%repeat(".",54-%len(%key)),%repeat(" ",5-%len(%db(@lz_me,%key))),%db(@lz_me,%key),%if(%db(@lz_all,%key)," / ","   "),%repeat(" ",5-%len(%db(@lz_all,%key))),%db(@lz_all,%key)," |",%repeat(" ",7-%len(%db(@lz_me_h,%key)))%db(@lz_me_h,%key)," / ",%repeat(" ",5-%len(%val))%val," |")};#sh %concat("  \",%repeat("_",86),"/")}
#ALIAS lz_dodaj_me {#class Dane;#addkey lz_all_p {%-1} %eval(%db(@lz_all_p,{%-1})+1);#addkey lz_me_p {%-1} %eval(%db(@lz_me_p,{%-1})+1);#addkey lz_all {%-1} %eval(%db(@lz_all,{%-1})+1);#addkey lz_me {%-1} %eval(%db(@lz_me,{%-1})+1);#addkey lz_all_h {%-1} %eval(%db(@lz_all_h,{%-1})+1);#addkey lz_me_h {%-1} %eval(%db(@lz_me_h,{%-1})+1);#class 0}
#ALIAS lz_dodaj_all {#class Dane;#addkey lz_all_p {%-1} %eval(%db(@lz_all_p,{%-1})+1);#addkey lz_me_p {%-1} %eval(%db(@lz_me_p,{%-1})+0);#addkey lz_all {%-1} %eval(%db(@lz_all,{%-1})+1);#addkey lz_me {%-1} %eval(%db(@lz_me,{%-1})+0);#addkey lz_all_h {%-1} %eval(%db(@lz_all_h,{%-1})+1);#addkey lz_me_h {%-1} %eval(%db(@lz_me_h,{%-1})+0);#class 0}
#ALIAS lz_dodaj_p {#class Dane;#addkey lz_all_p {%-1} %eval(%db(@lz_all_p,{%-1})+1);#addkey lz_me_p {%-1} %eval(%db(@lz_me_p,{%-1})+0);#addkey lz_all {%-1} %eval(%db(@lz_all,{%-1})+1);#addkey lz_me {%-1} %eval(%db(@lz_me,{%-1})+0);#addkey lz_all_h {%-1} %eval(%db(@lz_all_h,{%-1})+1);#addkey lz_me_h {%-1} %eval(%db(@lz_me_h,{%-1})+0);#class 0}
#VAR lz_autor {Autor skrypu: Cerdin} {Autor skrypu: Cerdin}
#TRIGGER {^{@kd_druzyna} zabil{|a|o} (%w)(.)$} {lz_dodaj_all %1;#psub {". ---> "%db(@lz_all,%1)} %x2}
#TRIGGER {Zabil?s (%w)(.)$} {lz_dodaj_me %1;#psub {". ---> "%db(@lz_me,%1)"/"%db(@lz_all,%1)} %x2}
#TRIGGER {^{@kd_druzyna} zabil{|a|o} (%w) (%w)(.)$} {lz_dodaj_all %if(%ismember(%concat(%1," ",%2),@lz_spec_2w),%concat(%1," ",%2),%2);#psub {". ---> "%db(@lz_all,%if(%ismember(%concat(%1," ",%2),@lz_spec_2w),%concat(%1," ",%2),%2))} %x3}
#TRIGGER {Zabil?s (%w) (%w)(.)$} {lz_dodaj_me %if(%ismember(%concat(%1," ",%2),@lz_spec_2w),%concat(%1," ",%2),%2);#psub {". ---> "%db(@lz_me,%if(%ismember(%concat(%1," ",%2),@lz_spec_2w),%concat(%1," ",%2),%2))"/"%db(@lz_all,%if(%ismember(%concat(%1," ",%2),@lz_spec_2w),%concat(%1," ",%2),%2))} %x3}
#TRIGGER {^{@kd_druzyna} zabil{|a|o} (%w) (%w) (%w)(.)$} {lz_dodaj_all %if(%ismember(%concat(%1," ",%2," ",%3),@lz_spec_3w),%concat(%1," ",%2," ",%3),%3);#psub {". ---> "%db(@lz_all,%if(%ismember(%concat(%1," ",%2," ",%3),@lz_spec_3w),%concat(%1," ",%2," ",%3),%3))} %x4}
#TRIGGER {Zabil?s (%w) (%w) (%w)(.)$} {lz_dodaj_me %if(%ismember(%concat(%1," ",%2," ",%3),@lz_spec_3w),%concat(%1," ",%2," ",%3),%3);#psub {". ---> "%db(@lz_me,%if(%ismember(%concat(%1," ",%2," ",%3),@lz_spec_3w),%concat(%1," ",%2," ",%3),%3))"/"%db(@lz_all,%if(%ismember(%concat(%1," ",%2," ",%3),@lz_spec_3w),%concat(%1," ",%2," ",%3),%3))} %x4}
#TRIGGER {^{@kd_druzyna} zabil{|a|o} (%w) (%w) (%w) (%w)(.)$} {lz_dodaj_all %if(%ismember(%concat(%1," ",%2," ",%3," ",%4),@lz_spec_4w),%concat(%1," ",%2," ",%3," ",%4),%concat(%3," ",%4));#psub {". ---> "%db(@lz_all,%if(%ismember(%concat(%1," ",%2," ",%3," ",%4),@lz_spec_4w),%concat(%1," ",%2," ",%3," ",%4),%concat(%3," ",%4)))} %x5}
#TRIGGER {Zabil?s (%w) (%w) (%w) (%w)(.)$} {lz_dodaj_me %if(%ismember(%concat(%1," ",%2," ",%3," ",%4),@lz_spec_4w),%concat(%1," ",%2," ",%3," ",%4),%concat(%3," ",%4));#psub {". ---> "%db(@lz_me,%if(%ismember(%concat(%1," ",%2," ",%3," ",%4),@lz_spec_4w),%concat(%1," ",%2," ",%3," ",%4),%concat(%3," ",%4)))"/"%db(@lz_all,%if(%ismember(%concat(%1," ",%2," ",%3," ",%4),@lz_spec_4w),%concat(%1," ",%2," ",%3," ",%4),%concat(%3," ",%4)))} %x5}
#BUTTON 31 {L} {lz_menu_cl} {R} {#sh %ansi(11)WYDAWANIE ROZKAZOW OFF} {} {1} {} {Size} {30} {29} {Pos} {1} {1299} {48} {32} {Menu} {} "" {Explore|Inset} {Licznik postepow i zabitych. Polecenia i opcje.} {} {3}
#CLASS 0
#CLASS {Liczniki|Licznik_zabitych|lz_menu_cl} {menu}
#MENU {Inne akcje} {} "" {lz_menu_inne}
#MENU {Licz czas nowego postepu od teraz} {lp_force;#echo Czas wyexpienia nastepnych postepow bedzie liczony od tego momentu} ""
#MENU {Pokaz wszystkie postepy} {lp_pokaz all} ""
#MENU {Pokaz ostatnie 20 postepow} {lp_pokaz 20} ""
#MENU {Pokaz ubitych od zalogowania} {lz_pokaz} ""
#MENU {Pokaz ubitych na tych postepach} {lz_pokaz_p} ""
#CLASS 0
#CLASS {Liczniki|Licznik_zabitych|lz_menu_inne} {menu}
#MENU {Pokaz CALA historie ubitych} {lz_pokaz_all_h} ""
#MENU {Pokaz ostatnio ubitych z historia} {lz_pokaz_all} ""
#MENU {Usun pojedynczy postep} {lp_usun_postep} ""
#MENU {Wyczysc ostatnio ubitych} {lz_resetuj} ""
#MENU {Wyczysc CALA HISTORIE ubitych} {lz_resetuj_all} ""
#CLASS 0
#CLASS {Liczniki|Licznik_postepow}
#ALIAS lp_reset {#unvar lp_nazwa;#unvar lp_czas;#unvar lp_db;#sh Licznik postepow zresetowany.}
#ALIAS lp_znak {#if (@lp_db.num&(!%begins( @lp_db.opis, (F)))) {#add lp_db.ile 1;#if (@lp_db.level) {#add lp_db.levelile 1}};#if ((@lp_db.forma)|(@time_diff(%time("yyyy-mm-dd hh:nn:ss"),@lp_db.forma_data)<@time_diff(%time("yyyy-mm-dd hh:nn:ss"),%item(@lp_czas,%numitems(@lp_czas))))) {lp_db.opis=%concat( "(F) ", @lp_db.opis)};lp_db.kiedy=%time( "hh:nn");lp_nazwa=%additem( @lp_db.opis, @lp_nazwa);lp_czas=%additem( %time( yyyy-mm-dd hh:nn:ss), @lp_czas);lpr_dodaj}
#ALIAS lp_pokaz {#sh %concat( "    ", %repeat( "_", 58));#sh %concat( "  /", %repeat( " ", 59), "\");#sh %format( " |   &-16s &16s &17s       |", Postepy:, Miedzyczas:, Osiagniete:);#loop %max( %eval( %numitems( @lp_nazwa)-%1+1), 1),%numitems( @lp_nazwa) {lp_pokaz_mxp %item( @lp_czas, %i) %item( @lp_nazwa, %i) @time_mczas(%item(@lp_czas,%i),%item(@lp_czas,%i-1)) %eval( %db( @lpr_name(%item(@lp_czas,%i)), %item( @lp_czas, %i)))};#sh %concat( " |", %repeat( "_", 61), "|");#sh %concat( " |", %repeat( " ", 61), "|");#mxp %concat( " |  ")Poczyniono %if( @lp_db.level, @lp_db.levelile, @lp_db.ile) calych postepow od znacznika poziomu %repeat( " ", 8-%len( %if( @lp_db.level, @lp_db.levelile, @lp_db.ile)))~<send "lp_legenda" "Pomoc z oznaczeniami">~<color @lpo_kicon>?~</color>~</send> |;#sh %concat( " |", %repeat( " ", 61), "|");#mxp %concat( " | ")%repeat( " ", 40)~<send "lp_pokaz_ile" "Pokaz liste postepow">~<color @lpo_kicon>~=~=~=~</color>~</send> ~<send "lpw_wykres1" "Pokaz wykres Postepow na Dzien ">~<color @lpo_kicon>P(D)</color>~</send> ~<send "lpw_wykres2" "Pokaz wykres Minut na Postepy ">~<color @lpo_kicon>M(P)</color>~</send> ~<send "lpa_pokaz" "Pokaz ostatnia analize">~<color @lpo_kicon>a~</color>~</send> ~<send "lpa_analizuj" "Analizuj postepy ">~<color @lpo_kicon>A</color>~</send> ~<send "lpo_symbole" "Pokaz opcje symboli ">~<color @lpo_kicon>O</color>~</send>%repeat( " ", 1)|;#sh %concat( "  \", %repeat( "_", 59), "/")}
#ALIAS lp_pokaz_ile {lp_db.pokaz = %prompt(All,W bazie jest %numitems(@lp_czas) postepow. Ile ostatnich pokazac ? All - wszystkie);#if (@lp_db.pokaz) {lp_pokaz @lp_db.pokaz}}
#ALIAS lp_pokaz_mxp {#mxp %if( @lp_db.level=%1, %ansi( 12)"==>"%ansi( reset), " | ")@lp_uloz_mxp(%1) %2 @lp_kom(%db(@{@lpr_name(%1)},%1)) %repeat( " ", 30-%len( %2)-%len( %3))%3%repeat( " ", 3)%1%repeat( " ", 3)|}
#ALIAS lp_force {lp_db.opis=zadne;lp_db.num = 0;lp_znak}
#ALIAS lp_czesciowe {#if (@lz_all_p) {lp_db.num = 0;lp_db.opis=czesciowe;lp_znak}}
#ALIAS lp_legenda {#sh %concat("    ",%repeat("_",58));#sh %concat("  /",%repeat(" ",59),"\");#sh %concat(" |",%repeat(" ",23),LEGENDA,%repeat(" ",31),"|");#sh %concat(" |",%repeat(" ",61),"|");#sh " | "~<color @lpo_kzabici @lpo_texp>@lpo_scale ~</color>- Postepy%repeat(" ",15)~<color @lpo_knzabici @lpo_texp>@lpo_scale ~</color>- Postepy bez zabitych%repeat(" ",10)"|";#sh " | "~<color @lpo_kzabici @lpo_texp>@lpo_sczesc ~</color>- Postepy czesciowe%repeat(" ",5)~<color @lpo_kkom @lpo_texp>@lpo_scale ~</color>- Postepy z komentarzem%repeat(" ",9)"|";#sh " | "~<color "#000000" @lpo_tforma>~ ~</color> - Postepy na forme%repeat(" ",6)~<color @lpo_kkom_nzabici @lpo_texp>@lpo_scale ~</color>- Postepy bez zabitych%repeat(" ",10)"|";#sh " | "~<color @lpo_kbrak @lpo_texp>@lpo_sbrak ~</color>"- Brak szczegolow"%repeat(" ",17)z komentarzem,%repeat(" ",10)"|";#mxp &nbsp;| %repeat(" ",57)~<send "lp_legenda2" "Przyklady laczenia oznaczen">~<color @lpo_kicon>?~</color>~</send> |;#sh %concat("  \",%repeat("_",59),"/")}
#ALIAS lp_legenda2 {#sh %concat("    ",%repeat("_",58));#sh %concat("  /",%repeat(" ",59),"\");#sh %concat(" |",%repeat(" ",23),SYMBOLE,%repeat(" ",31),"|");#sh %concat(" |",%repeat(" ",61),"|");#sh " | "~<color @lpo_kzabici @lpo_tforma>@{lpo_sczesc}~</color> - Czesciowe postepy ktore poszly na forme%repeat(" ",17)"|";#sh " | "~<color @lpo_kkom @lpo_texp>@{lpo_sczesc}~</color> - Czesciowe postepy z komentarzem%repeat(" ",25)"|";#sh " | "~<color @lpo_knzabici @lpo_texp>@{lpo_sczesc}~</color> - Czesciowe postepy bez zabitych%repeat(" ",26)"|";#sh " | "~<color @lpo_kkom_nzabici @lpo_tforma>@{lpo_scale}~</color> - Postepy z komentarzem bez zabitych%repeat(" ",22)"|";#sh %concat(" |",%repeat(" ",23),ktore poszly na forme,%repeat(" ",17),"|");#sh " | "~<color @lpo_kkom_nzabici @lpo_tforma>@{lpo_sczesc}~</color> - Czesciowe postepy z komentarzem bez zabitych%repeat(" ",12)"|";#sh %concat(" |",%repeat(" ",23),ktore poszly na forme,%repeat(" ",17),"|");#sh %concat(" |",%repeat(" ",61),"|");#sh %concat(" | ",Najedz na symbole w zestawieniu postepow po dodakowe,%repeat(" ",8),"|");#sh %concat(" | ",informacje. L-click po szczegoly postepow~, p-click by ,%repeat(" ",7),"|");#sh %concat(" | ",wybrac ustawienie komentarza do danego postepu. ,%repeat(" ",13),"|");#sh %concat(" |",%repeat(" ",61),"|");#sh %concat("  \",%repeat("_",59),"/")}
#ALIAS lp_usun_postep {lp_do_usuniecia=%1;#if (!%ismember( @lp_do_usuniecia, @lp_czas)) {#pr lp_do_usuniecia "Podaj date postepu ktory ma zostac usuniety. Jezeli istnieje, zostanie usuniety takze powiazany z nim zapis."};#if (%ismember( @lp_do_usuniecia, @lp_czas)) {#DELNITEM lp_nazwa %ismember( @lp_do_usuniecia, @lp_czas);#DELNITEM lp_czas %ismember( @lp_do_usuniecia, @lp_czas);#DELKEY @lpr_name(@lp_do_usuniecia) @lp_do_usuniecia;#echo Postep @lp_do_usuniecia zostal usuniety.} {#echo Nie ma takiego postepu w bazie.}}
#ALIAS lp_przelacz_forme {#va lpr_tempdb {%db( @{@lpr_name(%-1)}, %-1)} _nodef {Liczniki|Licznik_postepow|LPR_obsluga};#if (%begins( %item( @lp_nazwa, %ismember( %-1, @lp_czas)), (F))) {lp_nazwa=%replaceitem( %right( %item( @lp_nazwa, %ismember( %-1, @lp_czas)), 4), %ismember( %-1, @lp_czas), @lp_nazwa);#addkey lpr_tempdb {LPR_forma} 0} {lp_nazwa=%replaceitem( %concat( "(F) ", %item( @lp_nazwa, %ismember( %-1, @lp_czas))), %number(%ismember( %-1, @lp_czas)), @lp_nazwa);#addkey lpr_tempdb {LPR_forma} 1};#class @l_LPR;#addkey @lpr_name(%-1) {%-1} {@lpr_tempdb};#class 0}
#ALIAS lp_ustaw_level {#if (@lp_db.level="%-1") {lp_db.level=%null;#sh --> Usunieto znacznik poczatku poziomu.} {#if (%ismember( "%-1", @lp_czas)) {lp_db.level="%-1";lpa_db.poczatek="%-1";lpa_db.koniec=%null;lpa_analizuj}}}
#VAR lp_opisy {nieznaczne|bardzo male|male|nieduze|zadowalajace|spore|dosc duze|znaczne|duze|bardzo duze|ogromne|imponujace|wspaniale|gigantyczne|niebotyczne}
#VAR lp_kolor {%if(!%db(%1,LPR_kom),%if(!%db(%1,LPR_maxh),@lpo_knzabici,@lpo_kzabici),%if(!%db(%1,LPR_maxh),@lpo_kkom_nzabici,@lpo_kkom)) %if(%db(%1,LPR_forma),@lpo_tforma,@lpo_texp)}
#VAR lp_uloz_mxp {%if( !%len( %1), " ", %if( (%iskey( @{@lpr_name(%1)}, %1)), "<"send '"lpr_pokaz  %1|lpr_dodaj_kom %1|lpa_analizuj %1|lp_przelacz_forme %1|lp_ustaw_level %1"' "'"%eval( @lp_komentarz(%db(@{@lpr_name(%1)},%1)))|Pokaz szczegoly postepow|Ustaw komentarz|Analizuj od tego postepu|Oznacz jako %if( %begins( %item( @lp_nazwa, %ismember( %1, @lp_czas)), (F)), doswiadczenie, forme)|%if( @lp_db.level="%1", Usun znacznik poczatku poziomu, Ustaw jako poczatek poziomu)"'""><"color %if( @lp_db.level="%1", "#D9FF00 #AA2200", @lp_kolor(%db(@{@lpr_name(%1)},%1))) ">"%if( %ends( %db( %db( @{@lpr_name(%1)}, %1), LPR_opis), czesciowe), @lpo_sczesc, @lpo_scale)"<"/color"><"/send">", "<"color @lpo_kbrak">"@lpo_sbrak"<"/color">"))}
#VAR lp_komentarz {"%if(%db(%1,LPR_data)=@lp_db.level,(ZNACZNIK LEVELU)%char(32))%if(1,%db(%1,LPR_data) %db(%1,LPR_opis) %if(1,-) %if(%db(%1,LPR_kom),%db(%1,LPR_kom),%if(%db(%1,LPR_maxh),Zabito najwiecej: %db(%1,LPR_maxopis) %db(%1,LPR_maxnum),"Brak ubitych")))"}
#VAR lp_kom {%if(%db(%1,LPR_kom),"<send "%string(lpr_dodaj_kom %db(%1,LPR_data))" "%string(%db(%1,LPR_kom))"><color "@lpo_kskom">"@lpo_sskom"</color></send>"," ")}
#VAR lp_do_usuniecia {2016-02-09 12:39:12dd}
#VAR lp_autor {Autor skrypu: Cerdin} {Autor skrypu: Cerdin}
#TRIGGER {Nie poczynil{a|e}s zadnych postepow, od kiedy {wszedles|weszlas} do gry.$} {#if ("zadne"<>%if(%begins(@lp_db.opis,(F)),%right(@lp_db.opis,4),@lp_db.opis)) {#su %concat(%ansi(2),"POSTEPY ---->   ",%ansi(9)ZADNE%ansi(2),"   <---- wyexpione w ",@time_mczas(%time("yyyy-mm-dd hh:nn:ss"),%item(@lp_czas,%numitems(@lp_czas))));lp_db.num=0;lp_db.opis=zadne;lp_znak} {#su %concat(%ansi(2),"POSTEPY ---->   ",%ansi(9)ZADNE%ansi(2),"   <---- jestes na nich ",@time_mczas(%time("yyyy-mm-dd hh:nn:ss"),%item(@lp_czas,%numitems(@lp_czas))))}}
#TRIGGER {Poczynil{e|a}s ({@lp_opisy}) postepy, od momentu kiedy {wszedles|weszlas} do gry.$} {#if ("%1"<>%if(%begins(@lp_db.opis,(F)),%right(@lp_db.opis,4),@lp_db.opis)) {#su %concat(%ansi(2),"POSTEPY ---->   ",%ansi(9)%upper(%1)%ansi(2),"   <---- wyexpione w ",@time_mczas(%time("yyyy-mm-dd hh:nn:ss"),%item(@lp_czas,%numitems(@lp_czas))));lp_db.num=%ismember( %1, @lp_opisy);lp_db.opis=%1;lp_znak} {#su %concat(%ansi(2),"POSTEPY ---->   ",%ansi(9)%upper(%1)%ansi(2),"   <---- jestes na nich ",@time_mczas(%time("yyyy-mm-dd hh:nn:ss"),%item(@lp_czas,%numitems(@lp_czas))))}}
#TRIGGER {^{|> }Jestes w nieziemskiej formie.$} {#noo %btncol(lp_forma,3,0);lp_db.forma=0;lp_db.forma_data=%time("yyyy-mm-dd hh:nn:ss")} "" {case}
#TRIGGER {^{|> }Twoja wysoka forma pozwala ci zignorowac bol i rany.$} {#noo %btncol(lp_forma,2,0);lp_db.forma=1;lp_db.forma_data=%time("yyyy-mm-dd hh:nn:ss")}
#BUTTON 32 {F} {#if (@lp_db.forma) {#noo %btncol(lp_forma,3,0);lp_db.forma = 0} {#noo %btncol(lp_forma,2,0);lp_db.forma=1};lp_db.forma_data=%time("yyyy-mm-dd hh:nn:ss")} {} {} {} {} {} {Size} {14} {29} {Pos} {1} {1200} {48} {} {} {} "" {Explore|Inset} {Nie zliczaj postepow, bo expie forme. Aktualnie %if(@lp_db.forma,ON,OFF). Wylaczy sie automatycznie przy nieziemskiej.} {lp_forma} {3}
#BUTTON 33 {@lp_db.opis --> @lp_db.kiedy} {postepy} {} {} {@lp_db.num} {} {} {Size} {171} {28} {Pos} {0} {400} {96} {} {Gauge||7|15||8} {} "" {Explore|Inset} {} {}
#BUTTON 34 {#} {lp_pokaz 30} {} {} {} {} {} {Size} {28} {28} {Pos} {1} {572} {96} {} {} {} "" {Explore} {} {}
#CLASS 0
#CLASS {Liczniki|Licznik_postepow|LPR_obsluga}
#ALIAS lpr_dodaj {#class 0;#va lpr_tempdb {} _nodef {Liczniki|Licznik_postepow|LPR_obsluga};lpr_tempdb.LPR_data=%item( @lp_czas, %numitems( @lp_czas));lpr_tempdb.LPR_opis=%if( @lp_db.forma, %right( @lp_db.opis, 4), @lp_db.opis);lpr_tempdb.LPR_mczas=@time_mczas(@lpr_tempdb.LPR_data,%item(@lp_czas,%numitems(@lp_czas)-1));lpr_tempdb.LPR_forma=%if( %begins( @lp_db.opis, (F)), 1, 0);lpr_tempdb.LPR_maxnum=%null;lpr_tempdb.LPR_maxopis=%null;lpr_tempdb.LPR_maxl=%null;lpr_tempdb.LPR_maxh=%numkeys( @lz_all_p);#loopdb @lz_all_p {#addkey lpr_tempdb {%key} {@lpr_fzabici(%db(@lz_me_p,%key),%val)};#if (%val>@lpr_tempdb.LPR_maxnum) {lpr_tempdb.LPR_maxnum=%val;lpr_tempdb.LPR_maxopis=%key};#if (%len( %key)>@lpr_tempdb.LPR_maxl) {lpr_tempdb.LPR_maxl=%len( %key)}};lpr_tempdb.LPR_maxnum=@lpr_fzabici(%db(@lz_me_p,@lpr_tempdb.LPR_maxopis),@lpr_tempdb.LPR_maxnum);#CLASS {Dane|.liczniki|LPR};#addkey @lpr_name(@lpr_tempdb.LPR_data) {@lpr_tempdb.LPR_data} {@lpr_tempdb};#addkey lpr_db @lpr_name(@lpr_tempdb.LPR_data) %eval( %db( @lpr_db, @lpr_name(@lpr_tempdb.LPR_data))+1);#va lz_all_p {};#va lz_me_p {};#CLASS 0}
#ALIAS lpr_pokaz {#va lpr_tempdb {%db(@{@lpr_name(%-1)},%-1)} _nodef {Liczniki|Licznik_postepow|LPR_obsluga};#if (@lpr_tempdb) {#makewindow Postepy open "scrolling="%if(@lpr_tempdb.LPR_maxh>20,yes,no)"|floating=yes|width="%max(30,%eval(@lpr_tempdb.LPR_maxl+10),%min(%len(@lpr_tempdb.LPR_kom),50))"c|height="%min(30,%eval(%max(@lpr_tempdb.LPR_maxh,1)+5+%if(@lpr_tempdb.LPR_kom,1,0)))"c|top=-"%min(43,%eval(%max(@lpr_tempdb.LPR_maxh,1)+28+%if(@lpr_tempdb.LPR_kom,1,0)))"c|left=-"%max(35,%eval(@lpr_tempdb.LPR_maxl+15),%min(%len(@lpr_tempdb.LPR_kom)+5,55))"c|title="@lpr_tempdb.LPR_opis;:Postepy:#clr;:Postepy:#sh %proper(@lpr_tempdb.LPR_opis)" postepy "%if(@lpr_tempdb.LPR_forma,%ansi(7)F);:Postepy:#sh "Zdobyte w "@lpr_tempdb.LPR_mczas;:Postepy:#sh Data @lpr_tempdb.LPR_data;#if (@lpr_tempdb.LPR_kom) {:Postepy:#sh ~<color %if(@lpr_tempdb.LPR_maxh,@lpo_kkom,@lpo_kkom_nzabici)>%copy(@lpr_tempdb.LPR_kom,1,50)~</color>};#if (%len(@lpr_tempdb.LPR_kom)>50) {lpr_kom_mxp};:Postepy:#sh "";#if (@lpr_tempdb.LPR_maxh) {#loopdb @lpr_tempdb {#if (!%begins(%key,LPR_)) {#window Postepy %if(%key=@lpr_tempdb.LPR_maxopis,%ansi(3),%ansi(2))%key%repeat(" ",@lpr_tempdb.LPR_maxl+1-%len(%key))%val}}} {:Postepy:#sh Brak zabitych}}}
#ALIAS lpr_dodaj_kom {#va lpr_tempdb {%db( @{@lpr_name(%-1)}, %-1)} _nodef {Liczniki|Licznik_postepow|LPR_obsluga};#addkey lpr_tempdb {LPR_kom} {%subchar( %prompt( @lpr_tempdb.LPR_kom, Jaki komentarz ustawic dla postepow z %-1?), ",", ".")};#CLASS {Dane|.liczniki|LPR};#addkey @lpr_name(%-1) {%-1} {@lpr_tempdb};#class 0}
#ALIAS lpr_kom_mxp {#mxp <DEST Postepy x=48 y=4><send "" "@lpr_tempdb.LPR_kom"><color %if(@lpr_tempdb.LPR_maxh,@lpo_kkom,@lpo_kkom_nzabici)>...</color></send></DEST>}
#VAR lpr_tempdb {LPR_data2016-08-05 23:54:18LPR_opisczescioweLPR_mczas03h 49m 14sLPR_forma0LPR_maxnum  2/ 28LPR_maxopisszkieletLPR_maxl11LPR_maxh8mezczyzne  1/ 27Willafrieda  0/  1zjawe  0/  3szkielet  2/ 28ozywienca  0/  4goblina  1/  4trolla  2/  6orka  0/  2}
#VAR lpr_fzabici {%repeat(" ",3-%len(%1))%1"/"%repeat(" ",3-%len(%2))%2}
#VAR lpr_name {LPR%left(%1,4)Y%copy(%1,6,2)M}
#CLASS 0
#CLASS {Liczniki|Licznik_postepow|LPA_obsluga}
#ALIAS lpa_analizuj {lpa_temp2.poczatek = @lpa_db.poczatek;lpa_temp2.koniec = @lpa_db.koniec;#if (%ismember( @lpa_db.poczatek, @lp_czas)) {lpa_temp2.start=@lpa_db.poczatek} {lpa_temp2.start=@lp_czas.1;lpa_temp2.poczatek=@lpa_temp2.start};#if (%ismember( @lpa_db.koniec, @lp_czas)) {lpa_temp2.end=@lpa_db.koniec} {lpa_temp2.end=%item( @lp_czas, %numitems( @lp_czas));lpa_temp2.koniec=@lpa_temp2.end};#if (%ismember( %-1, @lp_czas)) {lpa_temp2.start=%-1};#sh --> Zliczanie typow postepow...;lpa_db=%replace( %countlist( %exec( "#loop %ismember( @lpa_temp2.start, @lp_czas),%ismember( @lpa_temp2.end, @lp_czas) {#if (!%ends( @lp_nazwa.%i, zadne)) {lpa_prefix_%if( %ends( @lp_nazwa.%i, czesciowe), czesc, cale)%if( %begins( @lp_nazwa.%i, (F)), F)}}")), "lpa_prefix_", "");#if (!@lpa_db.cale) {lpa_db.cale=0};#if (!@lpa_db.caleF) {lpa_db.caleF=0};#if (!@lpa_db.czesc) {lpa_db.czesc=0};#if (!@lpa_db.czescF) {lpa_db.czescF=0};#sh --> Zliczanie najmniejszego czasu...;lpa_temp=%sort( %exec( "#loop %ismember( @lpa_temp2.start, @lp_czas),%ismember( @lpa_temp2.end, @lp_czas) {#if (%i>1 and !%ends( @lp_nazwa.%i, zadne) and !%ends( @lp_nazwa.%i, czesciowe)) {@lpa_add_zero(@time_diff(%item(@lp_czas,%i),%item(@lp_czas,%eval(%i-1))))_@lpa_add_2zero(@lpa_nr_postepu(@lp_nazwa.%i))_@lp_czas.%i}}"));#noop %regex( %item( @lpa_temp, 1), "(\d+)_\d{1,2}_(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2})", lpa_db.quick, lpa_db.quickdata);lpa_db.poczatek = @lpa_temp2.poczatek;lpa_db.koniec = @lpa_temp2.koniec;lpa_db.start = @lpa_temp2.start;lpa_db.end = @lpa_temp2.end;#sh --> Zliczanie wysokosci postepow...;lpa_temp2=%sort( %subregex( @lpa_temp, "\d{9}_", ""));#noop %regex( %item( @lpa_temp2, %numitems( @lpa_temp2)), "(\d{1,2})_(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2})", lpa_db.maxp, lpa_db.maxpdata);lpa_db.maxpnum=%ismember( @lpa_db.maxpdata, @lp_czas);lpa_db.li=%eval( @lpa_db.maxpnum-1);lpa_temp2=%countlist( %subregex( @lpa_temp2, "_\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}", ""));#sh --> Zliczanie srednich...;lpa_db.avr1num=%numitems( @lpa_temp);lpa_temp = %subregex( @lpa_temp, "_\d{1,2}_\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}(?:\||$)", "+")0;lpa_db.avr1time=%eval( @lpa_temp);lpa_temp=%exec( "#forall %replace( @lpa_temp, +, |) {#if (%i>0 and %i< @lpa_maxtd*60) {%i}}");lpa_db.avr2num=%numitems( @lpa_temp);lpa_db.avr2time=%eval( %replace( @lpa_temp, |, +));#sh --> Zakonczono analize.;#if ((@lpa_db.start=@lp_czas.1)&(@lpa_db.end=%item( @lp_czas, %numitems( @lp_czas)))) {lp_db.ile=%eval( @lpa_db.cale-@lpa_db.caleF)};#if ((@lpa_db.start=@lp_db.level)&(@lpa_db.end=%item( @lp_czas, %numitems( @lp_czas)))) {lp_db.levelile=%eval( @lpa_db.cale-@lpa_db.caleF)};lpa_pokaz}
#ALIAS lpa_pokaz {#if (@lpa_pokaz_liste) {lpa_pokaz3} {lpa_pokaz1}}
#ALIAS lpa_pokaz1 {lpa_text= %if( @lp_czas.1!=@lpa_db.start, Od postepow z dnia @lpa_db.start, Od ostatniego resetu w dniu @lpa_db.start) w liczniku znajduje sie %eval( %ismember( @lpa_db.end, @lp_czas)-%ismember( @lpa_db.start, @lp_czas)) pozycji~, z czego @lpa_db.cale bylo calymi postpami~, a @lpa_db.czesc czesciowymi. W tej liczbie %eval( @lpa_db.cale-@lpa_db.caleF) calych i %eval( @lpa_db.czesc-@lpa_db.czescF) czesciowych zostalo przeznaczonych na doswiadczenie~, a @lpa_db.caleF calych i @lpa_db.czescF czesciowych na odrobienie formy. Najwyzsze postepy osiagniete w tym okresie to %item( @lp_opisy, @lpa_db.maxp)~, ostatnio osiagniete %item( @lp_czas, @lpa_db.maxpnum) po @time_mczas(%item(@lp_czas,@lpa_db.maxpnum),%item(@lp_czas,@lpa_db.li)) czasu gry. Sredni czas pelnych postepow wynosil @time_format(%eval(@lpa_db.avr1time/@lpa_db.avr1num))~, a dodatkowo biorac pod uwage tylko @lpa_db.avr2num postepow osiagnietych ponizej @lpa_maxtd minut~, srednia ich osiagniecia wynosi @time_format(%eval(@lpa_db.avr2time/@lpa_db.avr2num)). Najszybsze postepy zostaly osiagniete @lpa_db.quickdata w @time_format(@lpa_db.quick). To podsumowanie obejmuje okres od @lpa_db.start do %concat( @lpa_db.end)~, lacznie @time_mczas(@lpa_db.end,@lpa_db.start).;#sh %concat( "    ", %repeat( "_", 98));#sh %concat( "  /", %repeat( " ", 99), "\");#forall @text_break(95,@lpa_text) {#if (%ends( @lpa_text, "%i")) {#sh " |   %i"%repeat( " ", 91-%len( %))|} {#sh " |   "@text_just(0,95,"%i")"   |"}};#mxp %concat( " |  ")%repeat( " ", 89)~<send "lpa_pokaz_liste=1;lpa_pokaz3" "Pokazuj to podsumowanie w postaci listy">~<color @lpo_kicon>L~</color>~</send> ~<send "lpa_pokaz2" "Pokaz ten tekst w formacie do skopiowania, bez nowych lini">~<color @lpo_kicon>C~</color>~</send> ~<send "lpa_analizuj" "Analizuj wszystkie postepy">~<color @lpo_kicon>A~</color>~</send> ~<send "lpo_analiza" "Pokaz opcje analizy ">~<color @lpo_kicon>O~</color></send>%repeat( " ", 3)|;#sh %concat( "  \", %repeat( "_", 99), "/");#sh ""}
#ALIAS lpa_pokaz2 {#sh %if( @lp_czas.1!=@lpa_db.start, Od postepow z dnia @lpa_db.start, Od ostatniego resetu w dniu @lpa_db.start) w liczniku znajduje sie %eval( %ismember( @lpa_db.end, @lp_czas)-%ismember( @lpa_db.start,@lp_czas)) pozycji~, z czego @lpa_db.cale bylo calymi postpami~, a @lpa_db.czesc czesciowymi. W tej liczbie %eval( @lpa_db.cale-@lpa_db.caleF) calych i %eval( @lpa_db.czesc-@lpa_db.czescF) czesciowych zostalo przeznaczonych na doswiadczenie~, a @lpa_db.caleF calych i @lpa_db.czescF czesciowych na odrobienie formy. Najwyzsze postepy osiagniete w tym okresie to %item( @lp_opisy, @lpa_db.maxp)~, ostatnio osiagniete %item( @lp_czas, @lpa_db.maxpnum) po @time_mczas(%item(@lp_czas,@lpa_db.maxpnum),%item(@lp_czas,@lpa_db.li)) czasu gry. Sredni czas pelnych postepow wynosil @time_format(%eval(@lpa_db.avr1time/@lpa_db.avr1num))~, a dodatkowo biorac pod uwage tylko @lpa_db.avr2num postepow osiagnietych ponizej @lpa_maxtd minut~, srednia ich osiagniecia wynosi @time_format(%eval(@lpa_db.avr2time/@lpa_db.avr2num)). Najszybsze postepy zostaly osiagniete @lpa_db.quickdata w @time_format(@lpa_db.quick). To podsumowanie obejmuje okres od @lpa_db.start do %concat(@lpa_db.end)~, lacznie @time_mczas(@lpa_db.end,@lpa_db.start).}
#ALIAS lpa_pokaz3 {#sh "";#sh %concat( "    ", %repeat( "_", 49));#sh %concat( "  /", %repeat( " ", 50), "\");#mxp %concat( " |  ")Podsumowanie od%repeat( ".", 13) @lp_uloz_mxp(@lpa_db.start)@lpa_db.start |;#mxp %concat( " |  ")%repeat( " ", 13)do%repeat( ".", 13) @lp_uloz_mxp(@lpa_db.end)@lpa_db.end |;#sh " |  "%repeat( " ", 8)lacznie%repeat( ".", 13) %format( " &-20s|", @time_mczas(@lpa_db.end,@lpa_db.start));#sh " |  "%repeat( " ", 50)"|";#sh " |  "Liczba wpisow%repeat( ".", 15) %format( " &-20.n|", %eval( %ismember( @lpa_db.end, @lp_czas)-%ismember( @lpa_db.start, @lp_czas)));#sh " |  "%repeat( " ", 50)"|";#sh " |  "Liczba calych postepow%repeat( ".", 6) %format( " &-20.n|", @lpa_db.cale);#sh " |  "%repeat( " ", 6)na doswiadczenie%repeat( ".", 6) %format( " &-20.n|", %eval( @lpa_db.cale-@lpa_db.caleF));#sh " |  "%repeat( " ", 14)na forme%repeat( ".", 6) %format( " &-20.n|", @lpa_db.caleF);#sh " |  "%repeat( " ", 50)"|";#sh " |  "Liczba czesciowych postepow%repeat( ".", 1) %format( " &-20.n|", @lpa_db.czesc);#sh " |  "%repeat( " ", 11)na doswiadczenie%repeat( ".", 1) %format( " &-20.n|", %eval( @lpa_db.czesc-@lpa_db.czescF));#sh " |  "%repeat( " ", 19)na forme%repeat( ".", 1) %format( " &-20.n|", @lpa_db.czescF);#sh " |  "%repeat( " ", 50)"|";#mxp %concat( " |  ")Najwyzsze cale postepy%repeat( ".", 6) @lp_uloz_mxp(%item(@lp_czas,@lpa_db.maxpnum))%item( @lp_opisy, @lpa_db.maxp) %ansi( 15)~<send "lpa_typy" "Pokaz ilosc typow postepow."~>-~</send~>%ansi( reset)%repeat( " ", 16-%len( %item( @lp_opisy, @lpa_db.maxp)))|;#sh " |  "%repeat( " ", 3)ostatnio osiagniete%repeat( ".", 6) %format( " &-20s|", %item( @lp_czas, @lpa_db.maxpnum));#sh " |  "%repeat( " ", 13)po czasie%repeat( ".", 6) %format( " &-20s|", @time_mczas(%item(@lp_czas,@lpa_db.maxpnum),%item(@lp_czas,@lpa_db.li)));#sh " |  "%repeat( " ", 50)"|";#sh " |  "Srednia osiagniecia%repeat( " ", 31)"|";#sh " |  "%repeat( " ", 5)calego postepu%repeat( ".", 9) %format( " &-20s|", @time_format(%eval(@lpa_db.avr1time/@lpa_db.avr1num)));#sh " |  "%repeat( " ", 50)"|";#sh " |  "Srednia osiagniecia postepu%repeat( " ", 23)"|";#mxp %concat( " |  ")%repeat( " ", 10)ponizej ~<send "lpa_maxtd_pr" "Zmien wartosc">~<color "#88CC88">@lpa_maxtd</color>~</send> minut%repeat( ".", 3-%len( @lpa_maxtd))%repeat( " ", 2)%format( " &-20s|", @time_format(%eval(@lpa_db.avr2time/@lpa_db.avr2num)));#sh " |  "%repeat( " ", 50)"|";#sh " |  "Najszybszy postep osiagniety%repeat( " ", 22)"|";#mxp %concat( " |  ")%repeat( " ", 24)dnia @lp_uloz_mxp(@lpa_db.quickdata)@lpa_db.quickdata |;#sh " |  "%repeat( " ", 27)w %format( " &-20s|", @time_format(@lpa_db.quick));#sh " |  "%repeat( " ", 50)"|";#mxp %concat( " |  ")%repeat( " ", 39)~<send "lpa_pokaz_liste=0;lpa_pokaz1" "Pokazuj to podsumowanie w postaci tekstu">~<color @lpo_kicon>T~</color>~</send> ~<send "lpa_pokaz2" "Pokaz te informacje tekstowo w formacie do skopiowania, bez nowych lini">~<color @lpo_kicon>C~</color>~</send> ~<send "lpa_analizuj" "Analizuj wszystkie postepy">~<color @lpo_kicon>A~</color>~</send> ~<send "lpo_analiza" "Pokaz opcje analizy ">~<color @lpo_kicon>O</color></send>%repeat( " ", 4)|;#sh %concat( "  \", %repeat( "_", 50), "/")}
#ALIAS lpa_maxtd_pr {#pr lpa_maxtd "Zliczajac czas postepow do sredniej, nie wliczaj postepow ktorych osiagniecie trwalo wiecej niz (min):"}
#ALIAS lpa_typy {#sh %concat( "    ", %repeat( "_", 17));#sh %concat( "  /", %repeat( " ", 18), "\");#loop 1,15 {#sh " | "@lp_opisy.%i%repeat( " ", 15-%len( @lp_opisy.%i))%db( @lpa_temp2, @lpa_add_2zero(%i))%repeat( " ", 4-%len( %db( @lpa_temp2, @lpa_add_2zero(%i))))|};#sh %concat( "  \", %repeat( "_", 18), "/")}
#VAR lpa_temp {000000284|000000300|000000302|000000308|000000313|000000318|000000337|000000396|000000399|000000417|000000419|000000420|000000426|000000437|000000443|000000451|000000459|000000463|000000477|000000479|000000482|000000485|000000485|000000496|000000509|000000513|000000526|000000530|000000530|000000537|000000538|000000542|000000542|000000543|000000578|000000587|000000607|000000610|000000614|000000628|000000635|000000644|000000645|000000648|000000651|000000653|000000654|000000655|000000665|000000675|000000679|000000688|000000693|000000714|000000716|000000717|000000724|000000730|000000737|000000738|000000741|000000752|000000754|000000767|000000768|000000772|000000773|000000777|000000779|000000783|000000788|000000788|000000791|000000802|000000803|000000803|000000805|000000809|000000817|000000824|000000826|000000828|000000831|000000836|000000836|000000844|000000845|000000848|000000849|000000851|000000852|000000861|000000864|000000865|000000866|000000873|000000880|000000886|000000887|000000887|000000895|000000898|000000898|000000909|000000910|000000912|000000914|000000930|000000937|000000940|000000943|000000945|000000946|000000947|000000957|000000961|000000964|000000966|000000969|000000974|000000979|000000979|000000981|000000982|000000985|000000991|000000992|000000993|000000994|000000997|000000998|000001003|000001009|000001012|000001015|000001018|000001018|000001019|000001020|000001020|000001032|000001035|000001037|000001038|000001041|000001052|000001055|000001057|000001059|000001062|000001063|000001065|000001066|000001068|000001083|000001083|000001085|000001089|000001089|000001090|000001092|000001093|000001102|000001102|000001104|000001110|000001111|000001112|000001113|000001113|000001114|000001116|000001119|000001119|000001121|000001122|000001122|000001126|000001129|000001135|000001136|000001137|000001138|000001139|000001141|000001141|000001145|000001149|000001149|000001151|000001154|000001155|000001158|000001161|000001163|000001168|000001169|000001170|000001170|000001170|000001170|000001171|000001174|000001175|000001183|000001183|000001186|000001193|000001194|000001195|000001196|000001198|000001199|000001202|000001206|000001208|000001215|000001221|000001221|000001225|000001227|000001231|000001235|000001238|000001238|000001240|000001246|000001246|000001247|000001249|000001253|000001256|000001260|000001264|000001264|000001266|000001269|000001271|000001274|000001279|000001280|000001280|000001282|000001286|000001286|000001288|000001289|000001291|000001291|000001293|000001293|000001293|000001298|000001298|000001300|000001304|000001306|000001309|000001309|000001309|000001310|000001310|000001310|000001313|000001314|000001314|000001315|000001316|000001318|000001320|000001321|000001321|000001323|000001323|000001324|000001326|000001328|000001330|000001330|000001332|000001332|000001334|000001335|000001336|000001339|000001341|000001343|000001345|000001345|000001346|000001346|000001353|000001354|000001360|000001362|000001370|000001372|000001381|000001387|000001387|000001387|000001388|000001396|000001397|000001397|000001402|000001402|000001408|000001409|000001412|000001412|000001413|000001414|000001417|000001418|000001422|000001423|000001424|000001430|000001443|000001444|000001445|000001446|000001450|000001456|000001465|000001469|000001473|000001476|000001477|000001480|000001484|000001485|000001497|000001498|000001501|000001506|000001506|000001512|000001513|000001515|000001518|000001519|000001523|000001537|000001538|000001541|000001543|000001546|000001548|000001552|000001552|000001556|000001558|000001561|000001563|000001563|000001565|000001565|000001569|000001572|000001579|000001594|000001596|000001598|000001598|000001600|000001606|000001608|000001609|000001612|000001617|000001627|000001630|000001630|000001630|000001630|000001634|000001637|000001639|000001640|000001643|000001645|000001649|000001654|000001677|000001679|000001681|000001683|000001683|000001683|000001686|000001686|000001689|000001690|000001691|000001697|000001703|000001707|000001708|000001710|000001712|000001714|000001718|000001725|000001727|000001735|000001735|000001737|000001741|000001752|000001752|000001755|000001767|000001772|000001779|000001780|000001789|000001791|000001801|000001803|000001807|000001815|000001816|000001824|000001825|000001829|000001845|000001845|000001845|000001851|000001864|000001873|000001874|000001874|000001876|000001876|000001889|000001889|000001891|000001894|000001896|000001898|000001901|000001902|000001911|000001914|000001915|000001915|000001919|000001920|000001928|000001928|000001939|000001953|000001956|000001964|000001964|000001974|000001981|000001986|000001989|000001990|000001991|000001994|000002000|000002002|000002004|000002004|000002004|000002013|000002014|000002018|000002025|000002025|000002033|000002055|000002056|000002067|000002070|000002082|000002086|000002088|000002096|000002098|000002098|000002100|000002107|000002107|000002108|000002113|000002117|000002119|000002119|000002121|000002135|000002140|000002194|000002199|000002209|000002219|000002228|000002232|000002237|000002237|000002239|000002247|000002266|000002270|000002280|000002281|000002282|000002283|000002296|000002310|000002314|000002320|000002323|000002324|000002324|000002324|000002328|000002334|000002338|000002340|000002340|000002346|000002348|000002359|000002380|000002385|000002391|000002409|000002413|000002416|000002417|000002451|000002455|000002473|000002479|000002481|000002484|000002487|000002488|000002489|000002490|000002492|000002494|000002501|000002520|000002522|000002523|000002524|000002525|000002531|000002535|000002545|000002554|000002559|000002567|000002569|000002571|000002576|000002584|000002585|000002585|000002585|000002588|000002593|000002609|000002613|000002615|000002628|000002651|000002658|000002664|000002667|000002706|000002708|000002723|000002733|000002739|000002741|000002772|000002778|000002797|000002799|000002802|000002819|000002832|000002841|000002842|000002852|000002877|000002891|000002899|000002899|000002902|000002911|000002912|000002913|000002916|000002918|000002918|000002928|000002930|000002930|000002967|000002975|000002977|000002987|000002999|000003008|000003008|000003008|000003016|000003048|000003054|000003089|000003095|000003096|000003109|000003126|000003126|000003137|000003138|000003139|000003146|000003152|000003152|000003163|000003167|000003183|000003204|000003209|000003215|000003216|000003237|000003243|000003247|000003254|000003256|000003274|000003283|000003295|000003310|000003329|000003333|000003344|000003352|000003353|000003376|000003378|000003382|000003389|000003390|000003398|000003401|000003405|000003428|000003429|000003450|000003465|000003469|000003469|000003480|000003484|000003489|000003497|000003513|000003540|000003543|000003568|000003578|000003587|000003589|000003589|000003604|000003620|000003623|000003624|000003639|000003661|000003662|000003669|000003673|000003678|000003697|000003700|000003711|000003720|000003729|000003740|000003746|000003785|000003813|000003819|000003821|000003821|000003821|000003824|000003830|000003836|000003851|000003873|000003875|000003896|000003918|000003920|000003935|000003946|000003951|000003969|000003972|000003976|000003981|000003984|000003994|000004006|000004041|000004063|000004085|000004106|000004147|000004148|000004156|000004168|000004174|000004185|000004188|000004196|000004198|000004201|000004247|000004258|000004259|000004259|000004267|000004267|000004299|000004300|000004302|000004318|000004333|000004341|000004345|000004371|000004409|000004414|000004447|000004454|000004454|000004458|000004477|000004487|000004507|000004509|000004523|000004538|000004541|000004545|000004545|000004553|000004564|000004565|000004576|000004582|000004597|000004632|000004657|000004668|000004672|000004703|000004717|000004718|000004742|000004742|000004774|000004801|000004806|000004827|000004868|000004880|000004893|000004904|000004907|000004923|000004923|000004924|000004936|000004953|000004959|000004961|000004968|000004987|000004987|000004989|000004998|000005000|000005002|000005003|000005005|000005013|000005043|000005055|000005061|000005069|000005077|000005094|000005118|000005123|000005124|000005128|000005131|000005133|000005144|000005146|000005150|000005150|000005164|000005176|000005181|000005192|000005205|000005226|000005248|000005252|000005284|000005295|000005299|000005323|000005359|000005361|000005371}
#VAR lpa_temp2 {0126502213031650413205102067307520835092410191114128135143153}
#VAR lpa_text {Od ostatniego resetu w dniu 2016-01-31 14:51:22 w liczniku znajduje sie 1673 pozycji, z czego 991 bylo calymi postpami, a 145 czesciowymi. W tej liczbie 869 calych i 123 czesciowych zostalo przeznaczonych na doswiadczenie, a 122 calych i 22 czesciowych na odrobienie formy. Najwyzsze postepy osiagniete w tym okresie to niebotyczne, ostatnio osiagniete 2016-07-06 20:10:01 po 00h 09m 03s czasu gry. Sredni czas pelnych postepow wynosil 01h 12m 56s, a dodatkowo biorac pod uwage tylko 834 postepow osiagnietych ponizej 90 minut, srednia ich osiagniecia wynosi 00h 37m 02s. Najszybsze postepy zostaly osiagniete 2016-07-06 11:38:03 w 00h 04m 44s. To podsumowanie obejmuje okres od 2016-01-31 14:51:22 do 2016-07-19 20:56:32, lacznie 170d 06h 05m 10s.}
#VAR lpa_add_zero {%repeat(0,9-%len(%1))%1}
#VAR lpa_nr_postepu {%ismember( %if( %begins( %1, (F)), %right( %1, 4), %1), @lp_opisy)}
#VAR lpa_add_2zero {%repeat( 0, 2-%len( %1))%1}
#CLASS 0
#CLASS {Liczniki|Licznik_postepow|LPW_obsluga}
#ALIAS lpw_wykres1 {#sh --> Zaczynam;#makewindow Wykres1 open "scrolling=no|floating=yes|width="@lpw_db.maxx"c|height="@lpw_db.maxy"c|top=-"%eval( @lpw_db.maxy+13)"c|left=20c|title=P(D)";:Wykres1:#clr;lpw_temp = %subregex( @lp_czas, "((\d{4}-\d{2}-\d{2}) \d{2}:\d{2}:\d{2}(?:\|\2 \d{2}:\d{2}:\d{2})+)", "%replace(%%1,|,");lpw_y_db = %null;#loop %eval( @lpw_maxy-7),1 {#addkey lpw_y_db %i {}};:Wykres1:#sh "    ^";:Wykres1:#loopdb @lpw_y_db {#mxp %concat( " ", %if( %mod( %key, 2), %repeat( " ", 3-%len( %key))%key, "   "), "| ")~<color ~#000000>%exec( "#loop %max(%eval(%numitems(@lpw_temp)-((@lpw_maxx-7)/2)),1),%numitems(@lpw_temp) {@lp_uloz_mxp(%word( @lpw_temp.%i, %key, ))}")<</color>>};:Wykres1:#mxp %repeat( " ", 1)~<send "lpo_wykresy" "Pokaz opcje wykresow ">~<color @lpo_kicon>O</color></send>%repeat( " ", 2)+%repeat( "-", @lpw_maxx-4)>;:Wykres1:#sh "      "%replace( %exec( "#loop %max( %eval( %numitems( @lpw_temp)-((@lpw_maxx-7)/2)), 1),%numitems( @lpw_temp) {%copy( %word( @lpw_temp.%i, 1, ), 9, 1)}"), |, " ");:Wykres1:#sh "      "%replace( %exec( "#loop %max( %eval( %numitems( @lpw_temp)-((@lpw_maxx-7)/2)), 1),%numitems( @lpw_temp) {%copy( %word( @lpw_temp.%i, 1, ), 10, 1)}"), |, " ");:Wykres1:#showp "     ";:Wykres1:#loopdb %countlist( %exec( "#loop %max( %eval( %numitems( @lpw_temp)-((@lpw_maxx-7)/2)), 1),%numitems( @lpw_temp) {%item( styczen|luty|marzec|kwiecien|maj|czerwiec|lipiec|sierpien|wrzesien|pazdziernik|listopad|grudzien, %copy( %word( @lpw_temp.%i, 1, ), 6, 2))}")) {#if (%len( %key)>2*%val) {#showp %left( %key, %eval( %len( %key)-(2*%val)))} {#showp %repeat( " ", %eval( (%val*2-%len( %key))/2))%key%repeat( " ", %eval( (%val*2-1-%len( %key))/2))}};:Wykres1:#sh "";:Wykres1:#showp "     ";:Wykres1:#loopdb %countlist( %exec( "#loop %max( %eval( %numitems( @lpw_temp)-((@lpw_maxx-7)/2)), 1),%numitems( @lpw_temp) {%copy( %word( @lpw_temp.%i, 1, ), 1, 4)}")) {#if (%len( %key)>2*%val) {#showp %left( %key, %eval( %len( %key)-(2*%val)))} {#showp %repeat( " ", %eval( (%val*2-%len( %key))/2))%key%repeat( " ", %eval( (%val*2-1-%len( %key))/2))}};Wykres1:#sh ""}
#ALIAS lpw_wykres2 {#sh --> Zaczynam;#makewindow Wykres2 open "scrolling=no|floating=yes|width="@lpw_db.maxx"c|height="@lpw_db.maxy"c|top=-"%eval( @lpw_db.maxy+13)"c|left=20c|title=M(P)";:Wykres2:#clr;lpw_temp = %exec( "#loop %max( 1, %eval( %numitems( @lp_czas)-(3*@lpw_maxx))),%numitems( @lp_czas) {#if (!%ends( @lp_nazwa.%i, zadne) and !%ends( @lp_nazwa.%i, czesciowe)) {@lp_czas.%i}}");#if (%numitems( @lpw_temp)<%eval( (@lpw_maxx-7)/2)) {lpw_temp = %exec( "#loop 1,%numitems( @lp_czas) {#if (!%ends( @lp_nazwa.%i, zadne) and !%ends( @lp_nazwa.%i, czesciowe)) {@lp_czas.%i}}")};lpw_y_db = %null;#loop %eval( @lpw_maxy-4),1 {#addkey lpw_y_db %i {}};:Wykres2:#sh "min.^";lpw_temp2 = %exec( "#loop %max( %eval( %numitems( @lpw_temp)-((@lpw_maxx-7)/2)), 1),%numitems( @lpw_temp) {@lpw_mczas(%ismember( @lpw_temp.%i, @lp_czas))}");:Wykres2:#loopdb @lpw_y_db {#mxp %concat( " ", %if( %mod( %key, 2), %repeat( " ", 3-%len( %eval( %key*5)))%eval( %key*5), "   "), "| ")~<color ~#4CFF4C>%replace( %exec( "#loop 1,%numitems(@lpw_temp2) {#if (@lpw_temp2.%i>%eval( 300*%key)) {@lpo_slpw_w2} {" "}}"), "|", " ")<</color>>};:Wykres2:#mxp %repeat( " ", 1)~<send "lpo_wykresy" "Pokaz opcje wykresow ">~<color @lpo_kicon>O</color></send>%repeat( " ", 2)+%repeat( "-", @lpw_maxx-4)>;:Wykres2:#mxp %repeat( " ", 6)~<color ~#000000>%exec( "#loop %max(%eval(%numitems(@lpw_temp)-((@lpw_maxx-7)/2)),1),%numitems(@lpw_temp) {@lp_uloz_mxp(@lpw_temp.%i)}")~</color>;Wykres2: #noop}
#VAR lpw_temp {2016-06-24 21:50:15|2016-06-24 23:18:34|2016-06-25 13:12:42|2016-06-25 13:39:22|2016-06-25 13:46:28|2016-06-25 13:55:30|2016-06-25 14:10:03|2016-06-25 14:20:56|2016-06-25 16:13:53|2016-06-25 16:28:17|2016-06-25 16:45:38|2016-06-25 17:17:19|2016-06-25 17:31:45|2016-06-26 11:14:24|2016-06-26 12:12:24|2016-06-26 12:53:43|2016-06-26 13:12:25|2016-06-26 13:20:08|2016-06-26 13:32:02|2016-06-26 13:37:04|2016-06-26 16:11:31|2016-06-26 16:33:50|2016-06-26 17:04:41|2016-06-26 17:29:21|2016-06-26 17:51:11|2016-06-26 20:06:21|2016-06-26 20:13:00|2016-06-26 20:30:48|2016-06-26 20:39:21|2016-06-26 22:28:09|2016-06-26 22:47:18|2016-06-26 22:55:34|2016-06-26 23:02:51|2016-06-26 23:13:39|2016-06-27 18:14:16|2016-06-27 18:41:26|2016-06-27 19:28:47|2016-06-27 20:30:05|2016-06-28 16:21:46|2016-06-28 16:32:51|2016-06-28 16:41:20|2016-06-28 17:09:43|2016-06-28 18:55:01|2016-06-28 20:51:04|2016-06-29 08:23:26|2016-06-29 08:33:33|2016-06-29 08:57:36|2016-06-29 09:14:53|2016-06-29 09:42:03|2016-06-29 10:10:06|2016-06-29 21:44:15|2016-06-29 23:27:04|2016-06-30 22:03:11|2016-06-30 22:45:22|2016-07-01 10:27:29|2016-07-01 10:49:32|2016-07-01 11:23:17|2016-07-01 12:19:10|2016-07-01 12:52:24|2016-07-01 13:13:10|2016-07-01 13:37:43|2016-07-01 14:10:37|2016-07-02 11:56:58|2016-07-02 22:05:25|2016-07-02 22:23:34|2016-07-03 00:23:43|2016-07-03 14:51:23|2016-07-03 20:15:47|2016-07-03 20:22:47|2016-07-03 20:33:38|2016-07-03 21:03:39|2016-07-03 21:11:44|2016-07-03 22:37:17|2016-07-04 18:34:40|2016-07-04 23:17:53|2016-07-05 08:14:40|2016-07-05 12:30:10|2016-07-06 11:33:19|2016-07-06 11:38:03|2016-07-06 11:43:40|2016-07-06 12:05:46|2016-07-06 12:28:53|2016-07-06 12:45:15|2016-07-06 12:56:09|2016-07-06 13:06:19|2016-07-06 14:29:39|2016-07-06 15:45:32|2016-07-06 19:10:22|2016-07-06 19:29:01|2016-07-06 19:46:33|2016-07-06 20:00:58|2016-07-06 20:10:01|2016-07-07 12:38:38|2016-07-07 12:56:20|2016-07-07 13:12:45|2016-07-07 13:29:19|2016-07-07 13:48:08|2016-07-07 18:32:29|2016-07-07 18:52:12|2016-07-07 18:59:35|2016-07-07 19:17:38|2016-07-07 19:36:59|2016-07-08 10:42:12|2016-07-08 10:48:48|2016-07-08 10:57:38|2016-07-08 19:36:42|2016-07-09 16:39:48|2016-07-09 20:56:04|2016-07-10 17:31:46|2016-07-10 18:09:05|2016-07-10 18:25:02|2016-07-10 18:47:03|2016-07-10 19:06:00|2016-07-10 19:26:46|2016-07-10 19:49:38|2016-07-10 20:05:39|2016-07-10 20:31:40|2016-07-10 21:06:10|2016-07-10 21:30:14|2016-07-11 14:17:06|2016-07-11 14:32:04|2016-07-11 14:49:02|2016-07-11 22:46:35|2016-07-12 16:09:41|2016-07-12 22:26:38|2016-07-12 22:56:53|2016-07-12 23:21:22|2016-07-13 18:45:41|2016-07-13 20:00:48|2016-07-14 00:12:36|2016-07-14 13:45:34|2016-07-14 20:19:34|2016-07-14 20:30:53|2016-07-14 20:53:08|2016-07-14 21:34:37|2016-07-14 21:44:15|2016-07-14 22:11:38|2016-07-15 11:01:25|2016-07-15 11:28:03|2016-07-15 11:33:03|2016-07-15 11:38:21|2016-07-15 18:05:38|2016-07-15 18:17:35|2016-07-15 18:33:12|2016-07-15 18:47:59|2016-07-15 19:10:09|2016-07-15 19:23:53|2016-07-15 19:54:09|2016-07-15 20:13:38|2016-07-16 10:46:16|2016-07-16 11:03:15|2016-07-16 13:58:23|2016-07-17 23:42:32|2016-07-18 00:09:24|2016-07-18 00:36:34|2016-07-18 14:45:23|2016-07-19 10:08:39|2016-07-19 19:20:01|2016-07-19 19:40:28|2016-07-19 20:01:06|2016-07-19 20:26:29|2016-07-19 20:56:32}
#VAR lpw_temp2 {1815|1469|23302|4507|15108|8390|7320|679|1335|2489|578|1643|11248|1598|300|318|4959|717|937|887|1330|824|1816|1169|2501|1019|10508|7267|1612|1630|7456|7570|4718|1227|1238|1523|1803}
#VAR lpw_y_db {2625242322212019181716151413121110987654321}
#VAR lpw_mczas {@time_diff(%item(@lp_czas,%1),%item(@lp_czas,%eval(%1-1)))}
#CLASS 0
#CLASS {Liczniki|Licznik_postepow|LPO_obsluga}
#ALIAS lpo_window {#if (!%window(Opcje)) {#makewindow Opcje open "scrolling=no|floating=yes|width="75"c|height="30"c|top=-"43"c|left=10c|title=Opcje"};:Opcje:#clr;#loop 1,29 {#window Opcje %ansi(0)%repeat(".",74)}}
#ALIAS lpo_menu {#mxp <Dest Opcje x=3 y=2><send "lpo_symbole" "Opcje symboli">Symbole</send></Dest>;#mxp <Dest Opcje x=13 y=2><send "lpo_wykresy" "Opcje wykresow">Wykresy</send></Dest>;#mxp <Dest Opcje x=23 y=2><send "lpo_analiza" "Opcje analizy">Analiza</send></Dest>}
#ALIAS lpo_symbole {lpo_window;lpo_menu;#mxp <Dest Opcje x=2 y=1>---------</Dest>;#mxp <Dest Opcje x=2 y=3>---------</Dest>;#mxp @lpo_mxps(lpo_scale,8,5,Symbol dla pelnych postepow);#mxp @lpo_mxps(lpo_sczesc,8,6,Symbol dla czesciwych postepow);#mxp @lpo_mxpk(lpo_kzabici,2,8,Kolor postepow z zabitymi);#mxp @lpo_mxpk(lpo_knzabici,2,9,Kolor postepow bez zabitych);#mxp @lpo_mxpt(lpo_texp,2,11,Kolor tla dla postepow na doswiadczenie);#mxp @lpo_mxpt(lpo_tforma,2,12,Kolor tla dla postepow na forme);#mxp @lpo_mxps(lpo_sbrak,8,14,Symbol braku szczegolow postepu);#mxp @lpo_mxpk(lpo_kbrak,2,15,Kolor braku szczegolow postepu);#mxp @lpo_mxpk(lpo_kkom,2,17,Kolor postepow z komentarzem);#mxp @lpo_mxpk(lpo_kkom_nzabici,2,18,Kolor postepow bez zabitych z komentarzem);#mxp @lpo_mxps(lpo_slpw_w2,8,20,Symbol dla wykresu Minut na Postep);#mxp @lpo_mxpk(lpo_kicon,2,22,Kolor linkow);#mxp @lpo_mxps(lpo_sskom,8,24,Symbol komentarza na liscie);#mxp @lpo_mxpk(lpo_kskom,2,25,Kolor symbolu komentarza na liscie);#mxp <DEST Opcje x=2 y=27><send "lpo_reset_symbol;lpo_symbole" "Resetuj symbole do ustawien poczatkowych"><b><color @lpo_kicon>==R==</color></b></send>%repeat(" ",2)RESETUJ SYMBOLE</DEST>;#mxp <DEST Opcje x=31 y=28>~<send "lp_pokaz_ile" "Pokaz liste postepow">~<color @lpo_kicon>~=~=~=</color>~</send></DEST>}
#ALIAS lpo_wykresy {lpo_window;lpo_menu;#mxp <Dest Opcje x=12 y=3>---------</Dest>;#mxp <Dest Opcje x=12 y=1>---------</Dest>;#mxp @lpo_mxpi(lpw_maxx,5,5,Maksymalna szerokosc wykresu w znakach);#mxp @lpo_mxpi(lpw_maxy,5,6,Maksymalna wysokosc wykresu w znakach);#mxp @lpo_mxps(lpo_slpw_w2,8,8,Symbol dla wykresu Minut na Postep);#mxp @lpo_mxpTN(lpw_dnibp,5,10,W wykresie Postepow na Dzien pokazuj dni bez postepow );#mxp <DEST Opcje x=2 y=22><send "lpo_reset_wykresy;lpo_wykresy" "Resetuj opcje wykresow do ustawien poczatkowych"><b><color @lpo_kicon>==R==</color></b></send>%repeat(" ",2)RESETUJ OPCJE WYKRESOW</DEST>;#mxp <DEST Opcje x=29 Y=25>~<send "lpw_wykres1" "Pokaz wykres Postepow na Dzien ">~<color @lpo_kicon>P(D)</color>~</send> ~<send "lpw_wykres2" "Pokaz wykres Minut na Postepy ">~<color @lpo_kicon>M(P)</color>~</send></DEST>}
#ALIAS lpo_analiza {lpo_window;lpo_menu;#mxp <Dest Opcje x=22 y=3>---------</Dest>;#mxp <Dest Opcje x=22 y=1>---------</Dest>;#mxp @lpo_mxpi(lpa_maxtd,5,5,Ilosc minut po ktorej postepy nie sa wliczane do sredniej);#mxp @lpo_mxpTN(lpa_pokaz_liste,6,7,Pokazuj podsumowanie analizy w postaci listy );#mxp @lpo_lpa_poczatek(10,9,Analizuj od);#mxp @lpo_lpa_koniec(10,10,Analizuj do);#mxp <DEST Opcje x=29 Y=25><send "lpa_pokaz" "Pokaz ostatnia analize"><color @lpo_kicon>a~</color></send> <send "lpa_analizuj" "Analizuj wszystkie postepy "><color @lpo_kicon>A</color>~</send></DEST>}
#ALIAS lpo_reset_symbol {lpo_scale=;lpo_sczesc=;lpo_kzabici="#C2C2C0";lpo_knzabici="#6BFF40";lpo_sbrak=x;lpo_kbrak="#AA0000";lpo_texp="#000000";lpo_tforma="#595958";lpo_kkom="#FFFF00";lpo_kkom_nzabici="#FFA803";lpo_slpw_w2="!";lpo_kicon="#88CC88";lpo_sskom=k;lpo_kskom="#00AAFF"}
#ALIAS lpo_reset_wykresy {lpw_maxx=80;lpw_maxy=50;lpo_slpw_w2="!";lpw_dnibp=0}
#ALIAS lpo_mxpk_put {#pr %1 "Zmien "%lower(%-4)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @lpo_mxpk(%1,%2,%3,%-4)}
#ALIAS lpo_mxps_put {#pr %1 "Nowy "%lower(%-4)".";#mxp @lpo_mxps(%1,%2,%3,%-4)}
#ALIAS lpo_mxpt_put {#pr %1 "Zmien "%lower(%-4)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @lpo_mxpt(%1,%2,%3,%-4)}
#ALIAS lpo_mxpi_put {#pr %1 "Zmien "%lower(%-4)".";#mxp @lpo_mxpi(%1,%2,%3,%-4)}
#ALIAS lpo_mxpTN_put {#if (@%1) {#va %1 0} {#va %1 1};#mxp @lpo_mxpTN(%1,%2,%3,%-4)}
#ALIAS lpo_lpa_poczatek_put {#pr lpa_db.poczatek "Podaj date poczatku analizy. Wpisz nieistniejaca w bazie by analizowac od poczatku";#if (!%ismember(@lpa_db.poczatek,@lp_czas)) {lpa_db.poczatek=poczatku;lpo_analiza} {#mxp @lpo_lpa_poczatek(%1,%2,%-3)}}
#ALIAS lpo_lpa_koniec_put {#pr lpa_db.koniec "Podaj date konca analizy. Wpisz nieistniejaca w bazie by analizowac do konca";#if (!%ismember(@lpa_db.koniec,@lp_czas)) {lpa_db.koniec=konca;lpo_analiza} {#mxp @lpo_lpa_koniec(%1,%2,%-3)}}
#VAR lpo_mxpk {<DEST Opcje x=%2 y=%3><send "lpo_mxpk_put %1 %2 %3 %4" "Zmien kolor"><color @%1 @lpo_texp>@%1</color></send> %4</DEST>}
#VAR lpo_mxps {<DEST Opcje x=%2 y=%3><send "lpo_mxps_put %1 %2 %3 %4" "Zmien symbol"><color @lpo_kzabici @lpo_texp>@%1</color></send> %4</DEST>}
#VAR lpo_mxpt {<DEST Opcje x=%2 y=%3><send "lpo_mxpt_put %1 %2 %3 %4" "Zmien kolor tla"><color @lpo_kzabici @%1>@%1</color></send> %4</DEST>}
#VAR lpo_mxpi {<DEST Opcje x=%2 y=%3>%repeat(" ",4-%len(@%1))<send "lpo_mxpi_put %1 %2 %3 %4" "Zmien wartosc"><color @lpo_kzabici @lpo_texp>@%1</color></send> %4</DEST>}
#VAR lpo_mxpTN {<DEST Opcje x=%2 y=%3><send "lpo_mxpTN_put %1 %2 %3 %4" "Zmien TAK - NIE"><color @lpo_kzabici @lpo_texp>%if(@%1,TAK,NIE)</color></send> %4</DEST>}
#VAR lpo_lpa_poczatek {<DEST Opcje x=%1 y=%2>%-3 <send "lpo_lpa_poczatek_put %1 %2 %-3" "Zmien date."><color @lpo_kzabici @lpo_texp>@lpa_db.poczatek</color></send> </DEST>}
#VAR lpo_lpa_koniec {<DEST Opcje x=%1 y=%2>%-3 <send "lpo_lpa_koniec_put %1 %2 %-3" "Zmien date."><color @lpo_kzabici @lpo_texp>@lpa_db.koniec</color></send> </DEST>}
#CLASS 0
#CLASS {Podziel}
#ALIAS po_licz {#t+ po_lap_monety;#t+ po_lap_wkladanie;#t+ po_lap_wkladanie2;#t+ po_lap_wkladanie3;otworz @po_db.pojemnik;#loopdb @po_idb {#if (%val=wiele) {#repeat @po_db.inter {wloz @po_mdop(@po_db.licze_po,%key) do @po_db.pojemnika}} {#if (%val=stos) {wloz @po_mdop(1000,%key) do @po_db.pojemnika}}};i}
#ALIAS po_dziel {#va po_ddb {};po_ddb.mithrylow = %number( @po_mdb.mithrylow);po_ddb.zlot = %number( @po_mdb.zlot);po_ddb.srebrn = %number( @po_mdb.srebrn);po_ddb.miedzian = %number( @po_mdb.miedzian);po_ddb.nr=0;#if (%eval( (@po_db.nr-%mod( @po_ddb.mithrylow, @po_db.nr))*100*20*12)<=%eval( @po_ddb.zlot*20*12+@po_ddb.srebrn*12+@po_ddb.miedzian)) {po_ddb.dopelnij=1} {po_ddb.dopelnij=0};#loop %eval( @po_ddb.nr+1),@po_db.nr {#addkey po_ddb mithrylow_%i %eval( (@po_ddb.mithrylow/@po_db.nr)+%if( %mod( @po_ddb.mithrylow, @po_db.nr)>=%i, 1, 0));#if (@po_ddb.dopelnij & %mod( @po_ddb.mithrylow, @po_db.nr)<%i) {#if (@po_ddb.zlot>=100) {#addkey po_ddb zlot_%i 100;#add po_ddb.zlot -100} {#if (@po_ddb.srebrn>=%eval( (100-@po_ddb.zlot)*20)) {#addkey po_ddb {zlot_%i=@po_ddb.zlot|srebrn_%i=%eval( (100-@po_ddb.zlot)*20)};po_ddb.srebrn=%eval( @po_ddb.srebrn -%eval( (100-@po_ddb.zlot)*20));po_ddb.zlot=0} {#addkey po_ddb {zlot_%i=@po_ddb.zlot|srebrn_%i=@po_ddb.srebrn|miedzan_%i=%eval( ((100-@po_ddb.zlot)*20-@po_ddb.srebrn)*12)};#add po_ddb.miedzian -%eval( ((100-@po_ddb.zlot)*20-@po_ddb.srebrn)*12);po_ddb.zlot=0}}}};#if (!@po_ddb.dopelnij) {po_ddb.nr=%mod( @po_ddb.mithrylow, @po_db.nr)};#if (%eval( ((@po_db.nr-@po_ddb.nr)-%mod( @po_ddb.zlot, @po_db.nr))*20*12)<=%eval( @po_ddb.srebrn*12+@po_ddb.miedzian)) {po_ddb.dopelnij=1} {po_ddb.dopelnij=0};#loop %eval( @po_ddb.nr+1),@po_db.nr {#addkey po_ddb zlot_%i %eval( (@po_ddb.zlot/(@po_db.nr-@po_ddb.nr))+%if( %mod( @po_ddb.zlot, (@po_db.nr-@po_ddb.nr))>=%eval( %i-@po_ddb.nr), 1, 0)+%number( @po_ddb.zlot_%i));#if (@po_ddb.dopelnij & %mod( @po_ddb.zlot, (@po_db.nr-@po_ddb.nr))<%eval( %i-@po_ddb.nr)) {#if (@po_ddb.srebrn>=20) {#addkey po_ddb srebrn_%i %eval( 20+%number( @po_ddb.srebrn_%i));#add po_ddb.srebrn -20} {#addkey po_ddb srebrn_%i %eval( @po_ddb.srebrn+%number( @po_ddb.srebrn_%i));#addkey po_ddb miedzian_%i %eval( (20-@po_ddb.srebrn)*12+%number( @po_ddb.miedzian_%i));#add po_ddb.miedzian -%eval( (20-@po_ddb.srebrn)*12);po_ddb.srebrn=0}}};#if (!@po_ddb.dopelnij) {po_ddb.nr=%eval( @po_ddb.nr+%mod( @po_ddb.zlot, (@po_db.nr-@po_ddb.nr)))};#if (%eval( ((@po_db.nr-@po_ddb.nr)-%mod( @po_ddb.srebrn, @po_db.nr))*12)<=%number( @po_ddb.miedzian)) {po_ddb.dopelnij=1} {po_ddb.dopelnij=0};#loop %eval( @po_ddb.nr+1),@po_db.nr {#addkey po_ddb srebrn_%i %eval( (@po_ddb.srebrn/(@po_db.nr-@po_ddb.nr))+%if( %mod( @po_ddb.srebrn, (@po_db.nr-@po_ddb.nr))>=%eval( %i-@po_ddb.nr), 1, 0)+%number( @po_ddb.srebrn_%i));#if (@po_ddb.dopelnij& %mod( @po_ddb.srebrn, (@po_db.nr-@po_ddb.nr))<%eval( %i-@po_ddb.nr)) {#addkey po_ddb miedzian_%i %eval( 12+%number( @po_ddb.miedzian_%i));#add po_ddb.miedzian -12}};#if (!@po_ddb.dopelnij) {po_ddb.nr=%eval( @po_ddb.nr+%mod( @po_ddb.srebrn, (@po_db.nr-@po_ddb.nr)))};#loop %eval( @po_ddb.nr+1),@po_db.nr {#addkey po_ddb miedzian_%i %eval( (@po_ddb.miedzian/(@po_db.nr-@po_ddb.nr))+%if( %mod( @po_ddb.miedzian, (@po_db.nr-@po_ddb.nr))>=%eval( %i-@po_ddb.nr), 1, 0)+%number( @po_ddb.miedzian_%i))};po_pokaz}
#ALIAS po_pokaz {#sh "";#sh ">>--------------------------------------------------------------------------<<";#sh " | Do rozdzialu: "%repeat( " ", 9)%ansi( 15)%format( "&7s", %if( @po_mdb.mithrylow, %concat( @po_mdb.mithrylow, "mt ")))%ansi( 14)%format( "&7s", %if( @po_mdb.zlot, %concat( @po_mdb.zlot, "zl ")))%ansi( 7)%format( "&7s", %if( @po_mdb.srebrn, %concat( @po_mdb.srebrn, "sr ")))%ansi( 6)%format( "&7s", %if( @po_mdb.miedzian, %concat( @po_mdb.miedzian, "md")))%ansi( reset)%repeat( " ", 12)"Brakuje   |";#sh " |"%repeat( "-", 74)"|";#loop 1,@po_db.nr {#if (@po_rozdziel_na.%i!=PO_BRAK) {#mxp %concat( " | ")%i: ~<SEND "po_daj %i" "Daj monety %proper(@odmien_mc(@po_rozdziel_na.%i))">~<color ~#999999>%if( @po_rozdziel_na.%i<>Ja, Daj)~</color>~</SEND> %format( "&-15s", %if( @po_rozdziel_na.%i=Ja, %repeat( " ", 3)Ja%repeat( " ", 13), %proper( @skroc_nazwe(@po_rozdziel_na.%i,15)))) %ansi( 15)%format( "&7s", %if( @po_ddb.mithrylow_%i, %concat( @po_ddb.mithrylow_%i, "mt ")))%ansi( 14)%format( "&7s", %if( @po_ddb.zlot_%i, %concat( @po_ddb.zlot_%i, "zl ")))%ansi( 7)%format( "&7s", %if( @po_ddb.srebrn_%i, %concat( @po_ddb.srebrn_%i, "sr ")))%ansi( 6)%format( "&7s", %if( @po_ddb.miedzian_%i, %concat( @po_ddb.miedzian_%i, "md")))%ansi( reset)%format( "  |&62s", @miedz_na_monety(%eval( (@po_ddb.mithrylow_1-%number( @po_ddb.mithrylow_%i))*100*20*12+(@po_ddb.zlot_1-%number( @po_ddb.zlot_%i))*20*12+(@po_ddb.srebrn_1-%number( @po_ddb.srebrn_%i))*12+@po_ddb.miedzian_1-%number( @po_ddb.miedzian_%i)))) |}};#sh " +"%repeat( "-", 74)"+";#mxp %concat( " | ")~<SEND po_rozdzielam "Rozdziel monety wedlug tabeli.">~<color ~#999999>Rozdziel monety~</color>~</SEND>%repeat( " ", 14)~<SEND po_pokaz "Pokaz ponownie tabele.">~<color ~#999999>Pokaz ponownie~</color>~</SEND>%repeat( " ", 22)~<SEND po_reset "Zresetuj dzialanie skryptu">~<color ~#771111>Anuluj~</color>~</SEND>%concat( "  |");#sh " +"%repeat( "-", 74)"+";#sh ""}
#ALIAS po_podziel {po_mdb.mithrylow = %1;po_mdb.zlot = %2;po_mdb.srebrn = %3;po_mdb.miedzian = %4;po_dziel}
#ALIAS po_stan {#if (%number( @po_mdb.mithrylow)*100*20*12+%number( @po_mdb.zlot)*20*12+%number( @po_mdb.srebrn)*12+%number( @po_mdb.miedzian) < 2400) {po_db.face=3} {#if (%number( @po_mdb.mithrylow)*100*20*12+%number( @po_mdb.zlot)*20*12+%number( @po_mdb.srebrn)*12+%number( @po_mdb.miedzian) < 24000) {po_db.face=2} {po_db.face=1}};#sh "";#sh ">>----------------------<<";#sh " |"%repeat( " ", 22)"|";#sh " | Mithryle: " %ansi( 15)%format( "&6.0n", %number( @po_mdb.mithrylow))%ansi( reset)"    |"%repeat( " ", 10)%case( @po_db.face, "   .^,      ,^.  ", "   .-,      ,-.  ", "    \V/      \V/ ");#sh " | Zloto:    " %ansi( 14)%format( "&6.0n", %number( @po_mdb.zlot))%ansi( reset)"    |"%repeat( " ", 10)%case( @po_db.face, "                     Duzo pieniadza.", "                     Troche pieniadza.", "    o        o        Malo pieniadza. ");#sh " | Srebro:   " %ansi( 7)%format( "&6.0n", %number( @po_mdb.srebrn))%ansi( reset)"    |"%repeat( " ", 10)%case( @po_db.face, "  \            / ", "                ", "      _______    ");#sh " | Miedz:    " %ansi( 6)%format( "&6.0n", %number( @po_mdb.miedzian))%ansi( reset)"    |" %repeat( " ", 10)%case( @po_db.face, "  `.________.'  ", "    ________    ", "   -'       `-  ");#sh " |"%repeat( " ", 22)"|";#sh " +----------------------+";#if (@po_pdb) {#mxp %concat( " |       ")~<SEND po_wez_stan "Wyciagnij monety z pojemnika do ktorego zostaly wlozone w procesie liczenia.">~<color ~#999999>Wyciagnij~</color>~</SEND>%concat( "      |");#sh " +----------------------+"};po_db.face=0;po_db.split=6}
#ALIAS split {#case @po_db.split {po_opcje;po_db.split=3;po_db.tylko_licz=1} {po_pick} {#t+ po_lap_monety;#va po_idb {};#addkey po_idb {mithrylow=0|zlot=0|srebrn=0|miedzian=0};#va po_mdb {};#va po_pdb {};i} {po_licz} {po_pokaz} {po_wez_stan}}
#ALIAS -split {split}
#ALIAS po_rozdzielam {#sh --> Rozdzielam monety;#loopdb @po_pdb {wez @po_mdop(%val,%key) z @po_db.pojemnika};#va po_pdb {};#loop 1,%numitems( @po_rozdziel_na) {#if ((@po_rozdziel_na.%i!=Ja)&(@po_rozdziel_na.%i!=PO_BRAK)) {#if (@po_ddb.mithrylow_%i) {daj @po_mdop(@po_ddb.mithrylow_%i,mithrylow) @odmien_mc(@po_rozdziel_na.%i)};#if (@po_ddb.zlot_%i) {daj @po_mdop(@po_ddb.zlot_%i,zlot) @odmien_mc(@po_rozdziel_na.%i)};#if (@po_ddb.srebrn_%i) {daj @po_mdop(@po_ddb.srebrn_%i,srebrn) @odmien_mc(@po_rozdziel_na.%i)};#if (@po_ddb.miedzian_%i) {daj @po_mdop(@po_ddb.miedzian_%i,miedzian) @odmien_mc(@po_rozdziel_na.%i)}}};po_reset}
#ALIAS po_daj {#sh --> Daje monety %proper( @odmien_mc(@po_rozdziel_na.%1));#loopdb @po_pdb {wez @po_mdop(%val,%key) z @po_db.pojemnika};#va po_pdb {};#if ((@po_rozdziel_na.%1!=Ja)&(@po_rozdziel_na.%1!=PO_BRAK)) {#if (@po_ddb.mithrylow_%1) {daj @po_mdop(@po_ddb.mithrylow_%1,mithrylow) @odmien_mc(@po_rozdziel_na.%1)};#if (@po_ddb.zlot_%1) {daj @po_mdop(@po_ddb.zlot_%1,zlot) @odmien_mc(@po_rozdziel_na.%1)};#if (@po_ddb.srebrn_%1) {daj @po_mdop(@po_ddb.srebrn_%1,srebrn) @odmien_mc(@po_rozdziel_na.%1)};#if (@po_ddb.miedzian_%1) {daj @po_mdop(@po_ddb.miedzian_%1,miedzian) @odmien_mc(@po_rozdziel_na.%1)};po_rozdziel_na = %replaceitem( PO_BRAK, %1, @po_rozdziel_na);po_sprawdz_liste};#if (@po_db.split!=1) {#alarm +1.0 {split}}}
#ALIAS po_reset {#t- po_lap_wkladanie;#t- po_lap_wkladanie2;#t- po_lap_wkladanie3;#t- po_lap_monety;po_db.split=1;#sh --> Skrypt liczacy zresetowany do stanu poczatkowego.}
#ALIAS po_opcje {#sh "";#sh ">>----------------------------------------------------------------------<<";#mxp %concat( " | ")otworz ~<SEND po_zmien_pojemnik "Zmien pojemnik">.~<color ~#999999>@{po_db.pojemnik}~</color>.~</SEND>%repeat( " ", 20-%len( @po_db.pojemnik))wloz monety do ~<SEND po_zmien_pojemnik "Zmien pojemnik">.~<color ~#999999>@{po_db.pojemnika}~</color>.~</SEND>%repeat( " ", 23-%len( @po_db.pojemnika))|;#sh " |"%repeat( " ", 70)"|";#mxp %concat( " | ")Wkladam po ~<SEND po_zmien_licze_po "Zmien ile monet rozpoznajesz na raz">~<color ~#999999>@{po_db.licze_po}~</color>.~</SEND> %repeat( " ", 16-%len( @po_db.licze_po))Wkladam razy ~<SEND po_zmien_wkladam "Ile razy skrypt ma wkladac w jednym cyklu.">.~<color ~#999999>@{po_db.inter}~</color>.~</SEND>%repeat( " ", 25-%len( @po_db.inter))|;#sh " +"%repeat( "-", 70)"+";#mxp %concat( " | ")~<SEND "po_db.split=2;po_db.tylko_licz=0;split" "Rozpoczyna proces liczenie i rozdzielania monet znajdujacy sie w ekwipunku">~<color ~#88CC88>Rozdziel monety~</color>~</SEND>%repeat( " ", 17)~<SEND "po_db.split=3;po_db.tylko_licz=1;split" "Rozpoczyna proces liczenia monet znajdujacych sie w ekwipunku">~<color ~#88CC88>Policz monety~</color>~</SEND>%repeat( " ", 8)%repeat( " ", 8)~<SEND po_reset "Zresetuj dzialanie skryptu">~<color ~#771111>Anuluj~</color>~</SEND>%concat( "  |");#sh " +"%repeat( "-", 70)"+"}
#ALIAS po_zmien_pojemnik {#pr po_db.pojemnik "Podaj nazwe pojemnika w bierniku (np. torbe, jak otworz torbe)";#pr po_db.pojemnika "Podaj nazwe pojemnika w dopelniaczu (np. torby, jak wloz do torby)";po_opcje}
#ALIAS po_zmien_licze_po {#pr po_db.licze_po "Wprowadz wartosc rowna lub mniejsza niz to, ile rozpoznajesz naraz - to ta sama wartosc po ile liczysz monety.";po_opcje}
#ALIAS po_zmien_wkladam {#pr po_db.inter "Wprowadz ile razy w cyklu skrypt bedzie probowal wkladac jeden typ monet do plecaka. Wiecej - szybsze liczenie ale wiecej zbednego spamu. 5 - 10 wydaje sie byc optymalne, wiecej a niskich mentalach.";po_opcje}
#ALIAS po_pick {po_rozdziel_na = %pick( "p:Rozdziel monety z ekwipunku na (zaznacz 'dodaj innych' by wprowadzic wpisac osobe spoza druzyny)", %concat( "*Ja|", @kd_druzyna, "|dodaj innych"));#if (%ends( @po_rozdziel_na, "dodaj innych")) {po_rozdziel_na = %leftback( @po_rozdziel_na, 13);po_inni = %prompt( "", "Podaj nazwa osoby, ktora chcesz dodac do podzialu (w mianowniku). Anuluj lub pozostaw puste pole by zakonczyc wpisywanie. Mozna w ten sposob wprowadzic na liste osobe juz na niej istniejaca, tak by otrzymala podwojny udzial.");#while (@po_inni) {po_rozdziel_na = %concat( @po_rozdziel_na, "|", %lower( @po_inni));po_inni = %prompt( "", "Podaj nazwa osoby, ktora chcesz dodac do podzialu (w mianowniku). Anuluj lub pozostaw puste pole by zakonczyc wpisywanie.")}};#if (%numitems( @po_rozdziel_na)<2) {#sh Wybrano mniej niz dwie osoby do rozdzialu.;po_reset} {po_db.nr=%numitems( @po_rozdziel_na);po_db.split=3;split}}
#ALIAS po_sprawdz_liste {#if (!%delitem( Ja, %delitem( PO_BRAK, %dups( @po_rozdziel_na)))) {#sh --> Brak monet do rozdania.;po_reset}}
#ALIAS po_wez_stan {#loopdb @po_pdb {wez @po_mdop(%val,%key) z @po_db.pojemnika};#va po_pdb {};po_reset}
#VAR po_db {nr3inter5licze_po10pojemniktorbepojemnikatorbysplit1tylko_licz1face0}
#VAR po_idb {}
#VAR po_mdb {zlot5srebrn41}
#VAR po_pdb {}
#VAR po_ddb {mithrylow0zlot5srebrn12miedzian0nr0dopelnij0mithrylow_10mithrylow_20mithrylow_30zlot_12zlot_22zlot_31srebrn_324srebrn_14srebrn_24miedzian_10miedzian_20miedzian_30}
#VAR po_li2nr {jedna|dwie|trzy|cztery|piec|szesc|siedem|osiem|dziewiec|dziesiec|jedenascie|dwanascie|trzynascie|czternascie|pietnascie|szesnascie|siedemnascie|osiemnascie|dziewietnascie|dwadziescia}
#VAR po_mdop {@po_mdop2(%if(%1=1,1,%if((%mod(%1,10)<2)|(%mod(%1,10)>4)|(%eval(%mod(%1,100)/10)=1),3,2)),%1,%2)}
#VAR po_mdop2 {%2 %3%case( %1, a, e, ych) monet%case( %1, e, y)}
#VAR po_rozdziel_na {Ja|irwin|terum}
#VAR po_inni {}
#VAR po_autor {Autor skrypu: Cerdin v.1.08} {Autor skrypu: Cerdin v.1.08}
#VAR pomoc_podziel {   -split         - rozpocznij/kontynuuj liczenie monet lub ich rozdzielanie}
#TRIGGER "po_lap_wkladanie" {{|> }Wkladasz (%a) ({mithrylow|zlot|srebrn|miedzian}){a|e|ych} monet{|a|y} do *.$} {#if (%1=wiele) {#sh %ansi( 12)Wlozona nieznana ilosc. Przerywam liczenie.;po_reset} {#if (%isnumber( %1)) {#addkey po_mdb %2 %eval( %1+%number( @po_mdb.%2));#addkey po_pdb %2 %eval( %1+%number( @po_pdb.%2))} {#if (%ismember( %1, @po_li2nr)) {#addkey po_mdb %2 %eval( %ismember( %1, @po_li2nr)+%number( @po_mdb.%2));#addkey po_pdb %2 %eval( %ismember( %1, @po_li2nr)+%number( @po_pdb.%2))}}}} "" {disable}
#TRIGGER "po_lap_wkladanie2" {{|> }Wkladasz ({mithrylow|zlot|srebrn|miedzian})a monete do *.$} {#addkey po_mdb %1 %eval( 1+%number( @po_mdb.%1));#addkey po_pdb %1 %eval( 1+%number( @po_pdb.%1))} "" {disable}
#TRIGGER "po_lap_wkladanie3" {{|> }Wkladasz ogromny stos ({mithrylow|zlot|srebrn|miedzian})ych monet do *.$} {#addkey po_mdb %1 %eval( 1000+%number( @po_mdb.%1));#addkey po_pdb %1 %eval( 1000+%number( @po_pdb.%1))} "" {disable}
#TRIGGER "po_lap_monety" {^Masz przy sobie (*).$} {#if (%iskey( @po_idb, mithrylow)) {#if (!%match( "%1", "(%a) mithrylow{e|ych} monet{y|}", po_idb.mithrylow)) {#if (%pos( mithrylowa monete, "%1")) {po_idb.mithrylow=1} {#delkey po_idb mithrylow}}};#if (%iskey( @po_idb, zlot)) {#if (!%match( "%1", "(%a) zlot{e|ych} monet{y|}", po_idb.zlot)) {#if (%pos( zlota monete, "%1")) {po_idb.zlot=1} {#delkey po_idb zlot}}};#if (%iskey( @po_idb, srebrn)) {#if (!%match( "%1", "(%a) srebrn{e|ych} monet{y|}", po_idb.srebrn)) {#if (%pos( srebrna monete, "%1")) {po_idb.srebrn=1} {#delkey po_idb srebrn}}};#if (%iskey( @po_idb, miedzian)) {#if (!%match( "%1", "(%a) miedzian{e|ych} monet{y|}", po_idb.miedzian)) {#if (%pos( miedziana monete, "%1")) {po_idb.miedzian=1} {#delkey po_idb miedzian}}};#loopdb @po_idb {#if (%isnumber( %val)) {#addkey po_mdb %key %eval( %val+%number( %db( @po_mdb, %key)));#delkey po_idb %key} {#if (%ismember( %val, @po_li2nr)) {#addkey po_mdb %key %eval( %ismember( %val, @po_li2nr)+%number( %db( @po_mdb, %key)));#delkey po_idb %key}}};#t- po_lap_monety;#t- po_lap_wkladanie;#t- po_lap_wkladanie2;#t- po_lap_wkladanie3;#if (%numkeys( @po_idb)) {po_db.split=4;#sh "";#mxp %repeat( " ", 3)~<SEND split "Pozostaly niepoliczone monety w ekwipunku. Kliknij by kontynuowac liczenie">~<color ~#999999>Kontynuuj liczenie~</color>~</SEND>%repeat( " ", 43)~<SEND po_reset "Zresetuj dzialanie skryptu">~<color ~#771111>Anuluj~</color>~</SEND>;#sh ""} {#if (@po_db.tylko_licz) {#alarm +0.1 {po_stan}} {po_db.split=5;#alarm +0.1 {po_dziel}}}} "" {disable}
#BUTTON 36 {$} {split} {} {} {} {} {} {Size} {15} {32} {Pos} {1} {1285} {48} {} {} {} "" {Explore|Inset} {Policz lub rozdziel monety} {} {4}
#CLASS 0
#CLASS {Postacie}
#ALIAS -ktoadd {en_db=%null;#noop %regex( "%-1", "(?:^|[^a-zA-Z])(KN|ES|SC|KS|KM|OS|HM|GW|SP|AL|LE|KG|KK|MC|OK|RA|VR|ZT|SZ|ZH)(?:$|[^a-zA-Z])", en_db.gildia);#noop %regex( "%-1", "(?:^|[^a-zA-Z])(B|F|G|K|L|M|N|P|S|\$|T|O)(?:$|[^a-zA-Z])", en_db.zawod);#noop %regex( "%-1", "\b(npc)\b", en_db.npc);#noop %regex( "%-1", "([\a]{3,}\s[\a]{3,}\s(?:mezczyzna|kobieta|elf|elfka|krasnolud|krasnoludka|ogr|ogrzyca|halfling|halflinka|gnom|gnomka|polelf|polelfka|niziolek|niziolka|mutant|mutantka))\b", en_db.opis);#noop %regex( "%-1", "(?!(?:[\a]{3,}\s){0,2}(?:mezczyzna|kobieta|elf|elfka|krasnolud|krasnoludka|ogr|ogrzyca|halfling|halflinka|gnom|gnomka|polelf|polelfka|niziolek|niziolka|mutant|mutantka))\b([\a]{3,})\b", en_db.imie);#if (@en_db.gildia) {en_db.gildia=%upper( @en_db.gildia)};#if (@en_db.zawod) {en_db.zawod=%upper( @en_db.zawod)};#if (@en_db.npc) {en_db.npc=1};#if (@en_db.imie or @en_db.opis) {#if (!@en_db.imie) {en_db.imie = %item( %db( @en_o2i, %lower( @en_db.opis)), 1)};#if (!@en_db.opis) {en_db.opis = %db( @en_i2o, %lower( @en_db.imie))};#if (@en_db.imie) {en_temp2.iden=%lower( @en_db.imie)} {en_temp2.iden=%lower( @en_db.opis)};#loopdb @en_db {#if (!%db( @en_db, %key)) {#delkey en_db {%key}}};#loopdb %db( @en_sz, @en_temp2.iden) {#if (!%db( @en_db, %key)) {#addkey en_db {%key} {%val}}};#if (@en_db.imie and @en_db.opis) {#addkey en_i2o {%lower( @en_db.imie)} {%lower( @en_db.opis)};#addkey en_o2i {%lower( @en_db.opis)} {%dups( %additem( %lower( @en_db.imie), %db( @en_o2i, %lower( @en_db.opis))))};#delkey en_sz {%lower( @en_db.opis)}};#addkey en_sz {@en_temp2.iden} {%delkey( %delkey( @en_db, imie), opis)};eng_make @en_temp2.iden;#mxp -~<send "en_show @en_temp2.iden" "Otworz wpis dla @en_temp2.iden"~>~#~</send~>> Wpisano do bazy (%if( @en_db.npc, NPC, %if( @en_db.gildia, %upper( @en_db.gildia), ??)|%if( @en_db.zawod, %upper( @en_db.zawod), ?))) %if( @en_db.imie, %proper( @en_db.imie)) - %lower( @en_db.opis)} {#sh Nie mozna zidentyfikowac imienia ani opisu w lini: %-1}}
#ALIAS -ktoto {en_db = %null;#if (%iskey( @en_sz, %lower( "%-1"))) {en_db.imie2 = %lower( "%-1")} {#if (%numitems( %db( @en_o2i, %lower( "%-1")))=1) {en_db.imie2=%db( @en_o2i, %lower( "%-1"))}};#noop %regex( "%-1", "(?:^|[^a-zA-Z])(KN|ES|SC|KS|KM|OS|HM|GW|SP|AL|LE|KG|KK|MC|OK|RA|VR|ZT|SZ|ZH)(?:$|[^a-zA-Z])", en_db.gildia);en_db.gildia=%upper( @en_db.gildia);#noop %regex( "%-1", "(?:^|[^a-zA-Z])(B|F|G|K|L|M|N|P|S|\$|T|O)(?:$|[^a-zA-Z])", en_db.zawod);#noop %regex( "%-1", "\b(n?pc)\b", en_db.npc);en_db.npc=%lower( @en_db.npc);en_db.zawod=%upper( @en_db.zawod);en_db.imie= %subregex( "%-1", "\b[a-z]{1,2}\b|[^a-z]+|NPC", "|");en_db.imie=%subregex( @en_db.imie, "(\|){2,}", "|");en_db.imie=%subregex( @en_db.imie, "^\||\|$", "");#if (@en_db.imie) {en_db.nimie=%numitems( @en_db.imie)};#if (%len( "%-1") and !%len( @en_db.imie2) and (%len( @en_db.imie) or %len( @en_db.gildia) or %len( @en_db.zawod) or %len( @en_db.npc))) {#sh --> Przeszukuje...;#if (%begins( %lower( "%-1"), "all")) {en_db.imie = %null};#loopdb @en_sz {#if ((!%len( @en_db.npc) or (%db( %val, npc)=1 and (@en_db.npc=npc)) or (!%db( %val, npc) and @en_db.npc=pc)) and ((!%len( @en_db.imie) or %numitems( %exec( "#forall @en_db.imie {#if (%pos( %i, %key %db( @en_i2o, %key))) {en_1}}"))=@en_db.nimie) and (!%len( @en_db.gildia) or (@en_db.gildia=%db( %val, gildia))) and (!%len( @en_db.zawod) or (@en_db.zawod=%db( %val, zawod))))) {#mxp -~<send "en_show %key" "Otworz wpis dla %key"~>~#~</send~>> (%if( %val.NPC, %ansi( 3)NPC%ansi( reset), %if( %val.gildia, %val.gildia, ??)|%if( %val.zawod, %val.zawod, ?))) %if( %numwords( %key)>1, ?, %proper( %key)) - %if( %numwords( %key)>1, %key, %db( @en_i2o, %key))}};#mxp -~<send "en_show_gildie" "Pokaz mozliwe oznaczenia gildii wraz z rozwienieciem." ~>G~</send~>-~<send "en_show_zawody" "Pokaz mozliwe oznaczenia zawodow wraz z rozwienieciem." ~>Z~</send~>-> Zakonczono przeszukiwanie.} {#if (%len( @en_db.imie2)) {en_show @en_db.imie2} {en_raport}}}
#ALIAS -kto {#t+ en_kto;#t+ en_kto2;#t+ en_kto_end;#if ("%1"="a") {en_db.upd=1};kto}
#ALIAS -pr {zapamietani;przedstawieni}
#ALIAS en_raport {#sh --> Przygotowuje...;enr_db = %null;enr_db.gildie = %exec( "#loopdb @en_gildie {enr_prefix_%key}");enr_db.gildie = %replace( @enr_db.gildie, "enr_prefix_", "");enr_db.eng = %exec( "#loopdb @eng_sz {enr_prefix_%key}");enr_db.eng = %replace( @enr_db.eng, "enr_prefix_", "");#forall @enr_db.gildie {enr_db.%i = %sort( %exec( "#loopdb @en_sz {#if (%db( %val, gildia)=%i) {%key}}"))};#forall @enr_db.eng {#addkey enr_db {%i} {%sort( %exec( "#loopdb @en_sz {#if (%if(%val,1,0) and (%db( %val, grupy)=%i or (%len(%db( %val, gildia)) and %ismember( %db( %val, gildia), %db( @eng_nalezy, %i))))) {%key}}"))}};#sh "";#sh +-- Gildia ----- Osob -+;#forall @enr_db.gildie {#mxp |-> ~<send "enr_pokaz %i" "Pokaz osoby z gildii %db(@en_gildie,%i)."~>%upper( %i)~</send~>%repeat( " ", 11)%numitems( %db( @enr_db, %i))%repeat( " ", 5-%len( %numitems( %db( @enr_db, %i)))) |};#sh +-- Grupa ------ Osob -+;#forall @enr_db.eng {#mxp |-> ~<send "eng_show %i" "Pokaz szczegoly dla grupy %i."~>%lower( %i)~</send~>%repeat( " ", 13-%len( %i))%numitems( %db( @enr_db, %i))%repeat( " ", 5-%len( %numitems( %db( @enr_db, %i)))) |};#mxp +%repeat( "-", 9)~<send "en_show_gildie" "Pokaz mozliwe oznaczenia gildii wraz z rozwienieciem." ~>G~</send~>-~<send "en_show_zawody" "Pokaz mozliwe oznaczenia zawodow wraz z rozwienieciem." ~>Z~</send~>%repeat( "-", 10)+}
#ALIAS enr_pokaz {#mxp - %1 -> @enr_show(%1)}
#ALIAS en_fixall {#sh Rozpoczynam odtwarzanie z danych zrodlowych.;#showp --> Kasuje...;#delclass en_co;#delclass en_xo;#forall a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z {#va xo_%i {} _nodef {Postacie|en_xo}};#sh " OK.";#showp --> Ustawiam grupy...;eng_kolorujace=%exec( "#loopdb @eng_sz {#if (%db( %val, kolor)) {%key}}");eng_subujace=%exec( "#loopdb @eng_sz {#if (%db( %val, subuj)) {%key}}");#forall @eng_kolorujace {eng_trig %i};eng_fix_gildie;eng_fix_inalezy;en_fix_skonc;#sh " OK.";#showp --> Ustawiam opisy...;en_fix_o2i;#sh " OK.";#showp --> Ustawiam suby i kolory...;#loopdb @en_sz {eng_make %key};#sh " OK.";en_sortbaza;#sh --> Pobieram imiona...;enr_db.flaga=1;zapamietani;przedstawieni}
#ALIAS en_sortbaza {#showp --> Sortuje bazy danych... "[    ]"%repeat( %char( 8), 5);en_sort en_sz;#showp *;en_sort en_i2o;#showp *;en_sort en_o2i;#forall @eng_kolorujace {#va enva_%i {%sort( @{enva_%i})};#va envai_%i {%sort( @{envai_%i})}};#showp *;en_sort eng_sz;en_sort eng_nalezy;en_sort en_skonc;eng_subujace = %sort( @eng_subujace);eng_kolorujace = %sort( @eng_kolorujace);#forall a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z {en_sort xo_%i};#show "*] OK."}
#ALIAS en_sort {en_temp2=@{%1};en_db = %null;#loopdb @{%1} {#additem en_db {%key}};en_db=%sort( @en_db);#va %1 {};#forall @en_db {#addkey %1 {%i} %db( @en_temp2, %i)}}
#VAR en_db {gildianpczawodimieelfnimie1opisniewysoki groteskowy mezczyzna}
#VAR enr_db {gildieKN|ES|SC|KS|KM|OS|HM|GW|SP|AL|LE|KG|KK|MC|OK|RA|VR|ZT|ZS|ZH|--enggildia|Kandydaci|korki|przyjaciele|sojusznicy|wrogowieKNastor|konstantyn|legalt|suaviESSCaida|akina|asghart|ashtaway|astrid|berty|bladoskory przygarbiony halfling|blekitnooki porywczy niziolek|bloom|boner|briseyu|bromar|carolla|cred|dlugowlosy blekitnooki elf|ehrund|elenril|elike|elistan|ellandora|emes|eredin|ernard|evertsen|feanen|felern|geruf|gildhel|gleanevall|hardin|havgan|ilane|illudil|kagn|karakson|kasztanowlosy dlugouchy elf|kilvar|kociooki piegowaty elf|lahra|lauredil|lavitz|lein|letalia|lysy gruby krasnolud|melancthe|melborn|modrooka ruda elfka|morgas|mori|musin|muskularny niebieskooki krasnolud|nargurth|nerwowy zasuszony polelf|niebieskooki czujny polelf|ognistooka mloda elfka|omenis|piwnooki dumny krasnolud|plomiennooki bezwzgledny elf|raell|rima|ruar|sajin|sajjadin|sarven|sasuke|shanna|sheeah|skavo|skoltuniony szarooki niziolek|smukly zlotooki elf|szarooki grozny elf|takeo|taloris|tryggvi|ulav|ulich|umiesniony piegowaty krasnolud|usul|vailen|venireagh|vindael|vister|yarrim|yeandril|zawadiacki bladoskory halfling|zlosliwy bladoskory krasnolud|zlotooka dumna elfkaKSaden|arnvald|artegall|asha|bharnaba|bivix|chor|cohan|corief|czarnooka ponura polelfka|czarnooki masywny krasnolud|dhrum|dumny sniady mezczyzna|fonklin|galard|gothrin|grothan|groz|grumsh|huggus|kallian|khristoff|krahl|linhil|mahaila|marcinson|meksor|mokochid|morglum|morholt|perrar|pix|raziekh|reruk|reylene|robur|shanyl|slain|thaer|tulacz|ulver|urisiel|wasaty krzywonogi mezczyzna|wielkonosy beczulkowaty krasnoludKMhunvertOSelaner|kelebor|terenesHMaedes|artakGWtuna|ulik|vyeraSPisil|kiara|vidrisALLEaldaron|amargein|evandeil|goldfinger|hasandara|jennever|kilron|luinarienn|luntar|mithari|ralandil|solenay|thaess|vingaKGaprokop|ataman|belgat|eldakar|goris|keyn|nevare|othis|shiori|teo|tibauld|urs|zeepKKbarad|bragor|duruk|friili|grrid|gruer|mungrim|thorffin|ulrad|yannaMCabr|abuan|aesandil|aiathel|akan|anvaro|aomi|arcziwald|argalgh|argorn|asger|auglenn|aversar|aveth|azarg|azok|azzaz|baldar|balgord|bargrin|barmar|belford|belmor|blekitnooka ponura mutantka|bloorp|bohard|borg|brankovic|breghnar|bur|calisto|cird|corben|cron|daaz|daggerro|dargo|dargoth|deesis|derwig|dimitr|dragbo|eladriel|eltan|erin|ethel|evrael|francis|frey|gabriel|galatea|ganrod|garena|garrick|gerath|gertruda|gertura|gesserit|ghord|gomil|gorertz|gorion|grogoth|grot|grung|hagus|halar|hama|hargrind|haroth|hesp|hrabal|hyoideus|ildfarthil|ilsa|isirit|jabhorn|jade|jeralt|kablakonogi lysiejacy mezczyzna|karal|kejn|khongor|khurg|kordan|korid|krep|krespo|kruczowlosa porywcza mutantka|kyan|lilith|loandil|loram|malmor|marco|margraf|mlody czarnooki ogr|motaro|mubud|mulan|myzz|narienne|nek|nikodemus|nobia|noorf|odym|ogromny krwistooki mutant|opeteh|orqun|pablo|paulie|plas|pokrak|ragnuk|rashnak|razor|ross|samchain|sander|schizein|siglik|skud|smukla bialowlosa kobieta|stan|stary zlosliwy krasnolud|surg|thaall|tharr|thorzan|thrangorn|tipi|tirit|troal|troppe|tuhan|tuli|ulaf|ulhen|uriel|vai|valdygar|vesna|vesper|viris|vitt|vorid|warl|wiekowy ponury mutant|wilibald|wish|wysoki energiczny mezczyzna|xan|xerks|zielonooki mlody polelf|zorpenOKandreas|ank|arok|azhar|azog|bam|blurp|bugal|burlov|ciaran|ciemnoskory dlugoreki ogr|ciezki lysy ogr|dumsh|evela|gatz|gorur|grabur|gromgol|grozny ogromny ogr|gumrak|gurg|gurp|hardy zielonkawy ogr|hawat|hogall|hrath|jabocka|kalun|kalwur|maldun|momo|morowak|orik|pluk|ponura czerwonooka ogrzyca|pulp|rhar|rouan|ryg|sgroz|stary siwy ogr|szarooki krotkonosy ogr|trfog|trog|tyg|ugmar|vrot|zezowaty masywny ogr|zook|zubRAaiwazz|algornan|bara|cochis|erkal|grundhaar|gulak|krup|marvolo|norem|panor|shinru|symon|valerio|vernon|warek|zielonkawy bezwzgledny ogrVRadwald|aleksa|avenilo|berondal|cadael|dahed|drachen|dragar|falik|irwin|kinrim|natasza|ralf|reindhart|roven|taghor|terum|tuargan|ysar|zetuZTbrygu|clawarmZScrer|davith|edmund|einholt|ferd|kan|modarZHdeli|volhold--gildiaadwald|aleksa|avenilo|berondal|cadael|dahed|drachen|dragar|falik|irwin|kinrim|natasza|ralf|reindhart|roven|taghor|terum|tuargan|ysar|zetuKandydaciagis|artheos|targankorkiaden|arnvald|artegall|asha|bharnaba|bivix|chor|cohan|corief|czarnooka ponura polelfka|czarnooki masywny krasnolud|dhrum|dumny sniady mezczyzna|fonklin|galard|gothrin|grothan|groz|grumsh|huggus|kallian|khristoff|krahl|linhil|mahaila|marcinson|meksor|mokochid|morglum|morholt|perrar|pix|raziekh|reruk|reylene|robur|shanyl|slain|thaer|tulacz|ulver|urisiel|wasaty krzywonogi mezczyzna|wielkonosy beczulkowaty krasnoludprzyjacieleaghna|artak|balkrag|bamik|ellax|onvalia|quantyl|volholdsojusznicyaldaron|amargein|aprokop|ataman|barad|belgat|bragor|brygu|clawarm|crer|davith|duruk|edmund|einholt|elaner|eldakar|evandeil|ferd|friili|goldfinger|goris|grrid|gruer|hasandara|jennever|kan|kelebor|keyn|kilron|luinarienn|luntar|mithari|modar|mungrim|nevare|othis|ralandil|shiori|solenay|teo|terenes|thaess|thorffin|tibauld|ulrad|urs|vinga|yanna|zeepwrogowieabr|abuan|aesandil|aiathel|aida|akan|akina|andreas|ank|anvaro|aomi|arcziwald|argalgh|argorn|arok|asger|asghart|ashtaway|astrid|auglenn|aversar|aveth|azarg|azhar|azog|azok|azzaz|baldar|balgord|bam|bargrin|barmar|belford|belmor|berty|bladoskory przygarbiony halfling|blekitnooka ponura mutantka|blekitnooki porywczy niziolek|bloom|bloorp|blurp|bohard|boner|borg|brankovic|breghnar|briseyu|bromar|bugal|bur|burlov|calisto|carolla|ciaran|ciemnoskory dlugoreki ogr|ciezki lysy ogr|cird|corben|cred|cron|daaz|daggerro|dargo|dargoth|deesis|derwig|dimitr|dlugowlosy blekitnooki elf|dragbo|dumsh|ehrund|eladriel|elenril|elike|elistan|ellandora|eltan|emes|eredin|erin|ernard|ethel|evela|evertsen|evrael|feanen|felern|francis|frey|gabriel|galatea|ganrod|garena|garrick|gatz|gerath|gertruda|gertura|geruf|gesserit|ghord|gildhel|gleanevall|gomil|gorertz|gorion|gorur|grabur|grogoth|gromgol|grot|grozny ogromny ogr|grung|gumrak|gurg|gurp|hagus|halar|hama|hardin|hardy zielonkawy ogr|hargrind|haroth|havgan|hawat|hesp|hogall|hrabal|hrath|hyoideus|ilane|ildfarthil|illudil|ilsa|isirit|jabhorn|jabocka|jade|jeralt|kablakonogi lysiejacy mezczyzna|kagn|kalun|kalwur|karakson|karal|kasztanowlosy dlugouchy elf|kejn|khongor|khurg|kilvar|kociooki piegowaty elf|kordan|korid|krep|krespo|kruczowlosa porywcza mutantka|kyan|lahra|lauredil|lavitz|lein|letalia|lilith|loandil|loram|lysy gruby krasnolud|maldun|malmor|marco|margraf|maro|melancthe|melborn|mlody czarnooki ogr|modrooka ruda elfka|momo|morgas|mori|morowak|motaro|mubud|mulan|musin|muskularny niebieskooki krasnolud|myzz|nargurth|narienne|nek|nerwowy zasuszony polelf|niebieskooki czujny polelf|nikodemus|nobia|noorf|odym|ognistooka mloda elfka|ogromny krwistooki mutant|omenis|opeteh|orik|orqun|pablo|paulie|piwnooki dumny krasnolud|plas|plomiennooki bezwzgledny elf|pluk|pokrak|ponura czerwonooka ogrzyca|pulp|raell|ragnuk|rashnak|razor|rhar|rima|ross|rouan|ruar|ryg|sajin|sajjadin|samchain|sander|sarven|sasuke|schizein|sgroz|shanna|sheeah|siglik|skavo|skoltuniony szarooki niziolek|skud|smukla bialowlosa kobieta|smukly zlotooki elf|stan|stary siwy ogr|stary zlosliwy krasnolud|surg|szarooki grozny elf|szarooki krotkonosy ogr|takeo|taloris|thaall|tharr|thorzan|thrangorn|tipi|tirit|trfog|troal|trog|troppe|tryggvi|tuhan|tuli|tyg|ugmar|ulaf|ulav|ulhen|ulich|umiesniony piegowaty krasnolud|uriel|usul|vai|vailen|valdygar|venireagh|vesna|vesper|vindael|viris|vister|vitt|vorid|vrot|warl|wiekowy ponury mutant|wilibald|wish|wysoki energiczny mezczyzna|xan|xerks|yarrim|yeandril|zawadiacki bladoskory halfling|zezowaty masywny ogr|zielonooki mlody polelf|zlosliwy bladoskory krasnolud|zlotooka dumna elfka|zook|zorpen|zub}
#VAR en_imie_sub {%if( %db( %1, isub), %db( %1, isub) , %if( %db( %1, npc), npc, %if( %db( %1, gildia), %db( %1, gildia), ??)%if( %db( %1, zawod), %db( %1, zawod), ?)))}
#VAR en_opis_sub {%if( %1, %proper( %1), ???)%if( %db( %2, isub), %db( %2, isub) , %if( %db( %1, npc), npc, %if( %db( %2, gildia), %db( %2, gildia), ??)%if( %db( %2, zawod), %db( %2, zawod), ?)))}
#VAR enr_show {%replace(%exec( '#forall %db(@enr_db,%1) {<<<send "en_show %i" "Pokaz wpis dla %i.">>>%if(%numwords(%i)>1,%lower(%i),%proper(%i))<<</send>>>}'),"|",", ")}
#VAR pomoc_enemy {   -ktoto       (imie/opis/gildia/zawod/npc);                - wyszukaj osobe w bazie wrogow (bez parametru by otrzymac raport);   -kto         - pokaz kto z gildiami/zawodami jako linkami do wpisow. Uzyj '-kto a' by dodatkowo wymusic update tytulow.;   -ktoadd      - dodaj osobe lub gildie do bazy wrogow (lub uzyj okna wpisu);   -pr          - sprawdz i przeanalizuj przedstawionych i zapamietanych;   en_fixall    - sprawdz, napraw i odtworz wszystko z danych zrodlowych. LAGUJE.}
#VAR en_imiona {Abr|Abuan|Adamson|Adwald|Aghna|Agis|Agonir|Aiathel|Alaven|Ald|Aldaron|Amargein|Aprokop|Arrander|Arren|Artak|Artheos|Asandra|Aslinth|Astor|Ataman|Auglenn|Avenilo|Azarg|Azjel|Azok|Balkrag|Bam|Bamik|Barad|Bargian|Belgat|Berondal|Bianik|Bloorp|Bofur|Bolryg|Bragor|Brygu|Bula|Cadael|Calis|Canholt|Cannis|Chor|Cird|Clawarm|Crer|Curtis|Dahed|Davith|Deli|Dhorw|Drachen|Duar|Duruk|Dytus|Edemir|Edmund|Egvene|Elaner|Eldakar|Ellax|Erwa|Esper|Evandeil|Evela|Falik|Fenriz|Ferd|Friili|Fuggazi|Fuss|Galatea|Galhard|Ganrod|Gertruda|Gharus|Gimbo|Goldfinger|Gomil|Gonred|Goris|Gorur|Gotfried|Gotruf|Grin|Grrid|Grub|Gruer|Grundhaar|Grung|Gulak|Gumrak|Gurg|Hasandara|Hohrunk|Hondur|Hunvert|Ifrigen|Ilane|Ilsa|Intia|Inu|Irwin|Isil|Ithil|Jaromir|Jennever|Karal|Kargrim|Kas|Kelebor|Keyn|Khazaad|Kilron|Kinrim|Kobu|Konstantyn|Krup|Kyra|Legalt|Letalia|Lorand|Luinarienn|Luntar|Maro|Marvolo|Miris|Mithari|Modar|Mori|Mornik|Morpen|Morven|Muli|Mungrim|Natasza|Nevare|Olena|Onvalia|Opos|Othis|Panor|Paulie|Perenold|Plas|Plisko|Pulp|Quantyl|Radgast|Raenn|Rafia|Rag|Ralandil|Ralf|Rankor|Rashnak|Reindhart|Riann|Rotkiv|Ruar|Sander|Sarven|Sesill|Shik|Shinru|Shiori|Sigvald|Skalfli|Solenay|Stanno|Suavi|Symon|Szurak|Tagar|Taghor|Targan|Teo|Terenes|Terum|Thaall|Thaess|Thorffin|Thrangorn|Tibauld|Tremor|Troal|Tuargan|Tuko|Tuna|Ulandryk|Ulav|Ulf|Ulik|Ulrad|Urs|Vai|Vailen|Valerio|Vesna|Vey|Vicentil|Vicken|Vidris|Villard|Vinga|Viveck|Volhold|Vorid|Vorrak|Vyera|Warl|Wilibald|Xav|Xigrim|Yanna|Zafir|Zalbag|Zeep|Zetu|Zorpen}
#VAR en_zapamietani {}
#VAR en_przedstawieni {}
#VAR en_kolejka {}
#TRIGGER {{|> }Zapamietane przez ciebie imiona to &{en_zapamietani}.$} {en_zapamietani = %subregex( "%1", ",\s|\si\s", "|");en_temp2.imiona = %sort( %dups( @en_gadd(@en_zapamietani,@en_przedstawieni)));en_temp2.roznica = @en_gxor(@en_temp2.imiona,@en_imiona);en_imiona=@en_temp2.imiona;#if (@en_temp2.roznica) {#forall @en_temp2.roznica {#if (!%iskey( @en_sz, %lower( %i))) {#addkey en_sz %lower( %i) {};#additem en_kolejka %lower( %i)};eng_make %lower( %i)}};--> Zakonczona analiza: zapamietani}
#TRIGGER {{|> }Osoby, ktore zostaly ci ostatnio przedstawione, to &{en_przedstawieni}.$} {en_przedstawieni = %subregex( "%1", ",\s|\si\s", "|");en_temp2.imiona = %sort( %dups( @en_gadd(@en_zapamietani,@en_przedstawieni)));en_temp2.roznica = @en_gxor(@en_temp2.imiona,@en_imiona);en_imiona=@en_temp2.imiona;#if (@en_temp2.roznica) {#forall @en_temp2.roznica {#if (!%iskey( @en_sz, %lower( %i))) {#addkey en_sz %lower( %i) {};#additem en_kolejka %lower( %i)};eng_make %lower( %i)}};--> Zakonczona analiza: przedstawieni;#if (@enr_db.flaga) {#sh --> Zakonczono.;#delkey enr_db.flaga}}
#REGEX {^(?:> )?Jest(?:es)? ((?:\b[a-z]+\s){2}(?:mezczyzna|kobieta|elf|elfka|krasnolud|krasnoludka|ogr|ogrzyca|halfling|halflinka|gnom|gnomka|polelf|polelfka|niziolek|niziolka|mutant|mutantka))(?:i?em)?, znan(?:ym|a) jako:} {en_db.opis=%subregex( %1, "\b([a-z]+)m\b", "%%1")}
#COND {(^([a-z]+)(.*), [a-z]+\.)} {#if (%iskey( @en_sz, @en_db.opis)) {#addkey en_sz %lower( %2) {%iskey( @en_sz, @en_db.opis)};#delkey en_sz {@en_db.opis};#addkey en_kom %lower( %2) {%iskey( @en_kom, @en_db.opis)};#delkey en_kom {@en_db.opis};#addkey en_title %lower( %2) {%iskey( @en_title, @en_db.opis)};#delkey en_title {@en_db.opis}};#sub {(<send "en_show %lower(%2)" "Pokaz wpis dla %2">@en_imie_sub(%db(@en_sz,%lower(%2)))</send>) %1};#addkey en_i2o {%lower( %2)} {@en_db.opis};#addkey en_o2i {@en_db.opis} {%lower( %2)};#if (%len( %2)) {#addkey en_title %lower( %2) {%3}};#if (!%iskey( @en_sz, %lower( %2))) {#addkey en_sz {%lower( %2)} {};#additem en_kolejka %lower( %2)};eng_make %lower( %2)} {within|param=1|regex}
#REGEX {^(?:> )?((?:[a-z]+\s){3,4})przedstawia sie jako:} {}
#COND {(^([a-z]+)(.*), [a-z]+\.)} {#if (%iskey( @en_sz, %lower( %t1))) {#addkey en_sz %lower( %2) {%iskey( @en_sz, %lower( %t1))};#delkey en_sz {%lower( %t1)};#addkey en_kom %lower( %2) {%iskey( @en_kom, %lower( %t1))};#delkey en_kom {%lower( %t1)};#addkey en_title %lower( %2) {%iskey( @en_title, %lower( %t1))};#delkey en_title {%lower( %t1)}};#sub {(<send "en_show %lower(%2)" "Pokaz wpis dla %2">@en_imie_sub(%db(@en_sz,%lower(%2)))</send>) %1};#addkey en_i2o {%lower( %2)} {%lower( %t1)};#addkey en_o2i {%lower( %t1)} {%lower( %2)};#if (%len( %2)) {#addkey en_title %lower( %2) {%3}};#if (!%iskey( @en_sz, %lower( %2))) {#addkey en_sz {%lower( %2)} {};#additem en_kolejka %lower( %2)};eng_make %lower( %2)} {within|param=1|regex}
#REGEX {^(?:> )?(?:[a-z]+\s){1,4}przedstawia ((?:[a-z]+\s){3,4})slowami:} {en_db.opis=@odmien_bm(%1)}
#COND {^Oto (([a-z]+)(.*), [a-z]+\.)} {#if (%iskey( @en_sz, @en_db.opis)) {#addkey en_sz %lower( %2) {%iskey( @en_sz, @en_db.opis)};#delkey en_sz {@en_db.opis};#addkey en_kom %lower( %2) {%iskey( @en_kom, @en_db.opis)};#delkey en_kom {@en_db.opis};#addkey en_title %lower( %2) {%iskey( @en_title, @en_db.opis)};#delkey en_title {@en_db.opis}};#sub {(<send "en_show %lower(%2)" "Pokaz wpis dla %2">@en_imie_sub(%db(@en_sz,%lower(%2)))</send>) %1};#addkey en_i2o {%lower( %2)} {@en_db.opis};#addkey en_o2i {@en_db.opis} {%lower( %2)};#if (%len( %2)) {#addkey en_title %lower( %2) {%3}};#if (!%iskey( @en_sz, %lower( %2))) {#addkey en_sz {%lower( %2)} {};#additem en_kolejka %lower( %2)};eng_make %lower( %2)} {within|param=1|regex}
#TRIGGER "en_kto_end" {>} {#t- en_kto;#t- en_kto2;#t- en_kto_end;#delkey en_db upd} "" {nocr|prompt|disable}
#REGEX "en_kto" {^\*?(([a-z]+)(.*), (?:mezczyzna|kobieta|elf|elfka|krasnolud|krasnoludka|ogr|ogrzyca|halfling|halflinka|gnom|gnomka|polelf|polelfka|niziolek|niziolka|mutant|mutantka)$)} {#sub {(<send '"en_show %lower(%2)"' '"Pokaz wpis dla %2"'>@en_imie_sub(%db(@en_sz,%lower(%2)))</send>) %1};#if (%len( %3) and (%len( @en_db.upd) or !%len( %db( @en_title, %lower( %2))))) {#addkey en_title {%lower( %2)} {"%3"}};#if (!%iskey( @en_sz, %lower( %2))) {#addkey en_sz %lower( %2) {};#additem en_kolejka %lower( %2)}} "" {disable}
#REGEX "en_kto2" {^\s{6}((.*)(?:mezczyzna|kobieta|elf|elfka|krasnolud|krasnoludka|ogr|ogrzyca|halfling|halflinka|gnom|gnomka|polelf|polelfka|niziolek|niziolka|mutant|mutantka))\s*$} {#if (%iskey( @en_sz, %lower( %word( %line2, 1)))) {#if (%len( @en_db.upd) or !%db( @en_title, %lower( %word( %line2, 1)))) {#addkey en_title {%lower( %word( %line2, 1))} {%leftback( %right( %trim( %line2), %len( %word( %line2, 1))) %trim( "%2"), 1)}};#sub {(<<send '"en_show %lower( %word( %line2, 1))"' '"Pokaz wpis dla %word( %line2, 1)"'>>@en_imie_sub(%db(@en_sz,%lower( %word( %line2, 1))))<</send>>) %trim(%line2) %1}};#gag -1} "" {disable}
#BUTTON 42 {%numitems(@en_kolejka)} {#if (%numitems( @en_kolejka)) {en_show %item( @en_kolejka, 1);#delitem en_kolejka %item( @en_kolejka, 1)} {#sh --> Nie ma zadnych nowych wpisow do bazy postaci.}} {} {} {} {} {} {Size} {27} {29} {Pos} {1} {1214} {48} {} {} {} "" {Explore|Inset} {Pokaz nastepny nieprzegladniety wpis do bazy postaci. W kolejce: %numitems(@en_kolejka)} {lp_forma} {3}
#CLASS 0
#CLASS {Postacie|en_wpis}
#ALIAS en_load {#va en_temp2 {};#va en_temp {%addkey( %addkey( ,imie, @en_temp.imie), opis, @en_temp.opis)};#if (@en_temp.imie) {en_temp2.iden = %item( @en_temp.imie, 1)} {en_temp2.iden = @en_temp.opis};#if (@en_temp2.iden) {#if (!@en_temp.imie) {en_temp.imie = %db( @en_o2i, @en_temp2.iden)};#if (!@en_temp.opis) {en_temp.opis = %db( @en_i2o, @en_temp2.iden)};#if (@en_temp.imie) {en_temp2.iden = %item( @en_temp.imie, 1)};#loopdb %db( @en_sz, @en_temp2.iden) {#if (!%db( @en_temp, %key)) {#addkey en_temp {%key} {%val}}};en_temp2.kolorwg = @en_kprio(%db(@en_sz,@en_temp2.iden));#if (%iskey( @en_temp2, kolorwg)) {en_temp2.kolor = %db( %db( @eng_sz, @en_temp2.kolorwg), kolor)}}}
#ALIAS en_save {#if (!@en_temp2.iden) {#if (@en_temp.imie) {en_temp2.iden = %item( @en_temp.imie, 1)} {en_temp2.iden = @en_temp.opis}};#if (@en_temp2.iden) {#if (@en_temp.imie and @en_temp.opis) {#addkey en_i2o {@en_temp2.iden} {%lower( @en_temp.opis)};#addkey en_o2i {@en_temp.opis} {%dups( %additem( %lower( @en_temp2.iden), %db( @en_o2i, @en_temp.opis)))};#delkey en_sz @en_temp.opis};#addkey en_sz {@en_temp2.iden} {%delkey( %delkey( @en_temp, imie), opis)}}}
#ALIAS en_show {#if (%len( %-1)) {en_temp=%null;#if (%numwords( %-1)>1) {en_temp.opis=%-1} {en_temp.imie=%-1};en_pokaz}}
#ALIAS en_show_gildie {#loopdb @en_gildie {#sh --> %val}}
#ALIAS en_show_zawody {#loopdb @en_zawody {#sh --> %val}}
#ALIAS en_pokaz {en_load;#makewindow Postac_Window open "scrolling=no|floating=yes|width=60c|height=25c|top=-35c|left=-70c|title="%proper( @en_temp2.iden);Postac_Window: #clr;:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_imie" "Zmien imie przypisane do tego opisu.">Imie</send>: %if( @en_temp.imie, %proper( @en_temp.imie))%repeat( " ", 40-%len( @en_temp.imie)) ~<send "eng_pokaz" "Grupa @eng_temp.ngrupa">~<color ~#808080>=Grupa=>~</color></send>;:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_opis" "Zmien opis przypisany do tego imienia.">Opis</send>: %lower( @en_temp.opis);:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_title" "Zmien tytul dla tej postaci.">Tytul</send>: %if( %db( @en_title, @en_temp2.iden), %db( @en_title, @en_temp2.iden));:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_gildia" "Zmien gildie do ktorej nalezy ta postac.">Gildia</send>: %if( @en_temp.gildia, %db( @en_gildie, @en_temp.gildia));:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_zawod" "Zmien zawod ktory posiada ta postac.">Zawod</send>: %if( @en_temp.zawod, " "%db( @en_zawody, @en_temp.zawod)) %repeat( " ", 30-%len( %db( @en_zawody, @en_temp.zawod)))~<send "en_pokaz_npc" "%if( @en_temp.npc,NIE jest to postac gracza,Jest to postac gracza). Kliknij by to zmienic.">%if( @en_temp.npc, %ansi( 3)N, %ansi( 10))PC</send>;:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_grupy" "Zmien do jakich grup nalezy ta postac.">Grupy</send>: %if( @en_temp.grupy, @en_show_grupy(@en_temp.grupy));:Postac_Window: #mxp %concat( "  ")~<color ~#707070>Grupy z gildii ~<send "#noop" "Z powodu przynaleznosci gildiowej ta postac nalezy do nastepujacych grup. By je zmienic, zmien przynaleznosc gildii do grup lub tej postaci do gildii.">~<color ~#505050>?</color></send>: @en_show_zgildii( %db( @eng_gildie, @en_temp.gildia))</color>;:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_mutant" "Zmien czy postac jest mutantem (wszyscy w MC automatycznie sa, nie trzeba ich tutaj wpisiwac)">Jest mutantem</send> : %if( @en_temp.mutant, TAK, NIE);:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_kolorwg" "Zmien wedlug ktorej grupy ta postac ma byc kolorowana.">Koloruj wedlug</send>: %if( %len( @en_temp2.kolor)=6, ~<~<color ~#@en_temp2.kolor~>~>, %ansi( @en_temp2.kolor))%if( @en_temp.kolorwg, @en_temp.kolorwg "(wpisane recznie)", %if( @en_temp2.kolorwg, @en_temp2.kolorwg "(wybrane automatycznie)"))</color>%ansi( reset);:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_konc" "Zmien jakie koncowki maja byc ignorowane przy kolorowaniu">Ignoruj koncowki</send> ~<send "en_pomoc_konc" "Jezeli po imieniu danej osoby pojawi sie ktorakolwiek z ustawionych tutaj zbitek znakow, imie tej osoby nie bedzie wtedy kolorowane. Na przyklad Plas z ustawiona koncowka k, nie bedzie kolorowal Plaskowyz, a bedzie kolorowal Plasa. ">~<color ~#505050>?</color></send>: %if( @en_temp.igk, %replace( @en_temp.igk, "|", " "));:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_isub" "Wpisz tekst, ktory bedzie subbowany dla tej postaci zamiast standardowego.">Unikalny sub</send>: %if( @en_temp.isub, @en_temp.isub);:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz_kom" "Zmien komentarz dla tej postaci.">Komentarz</send>: %if( %db( @en_kom, @en_temp2.iden), %db( @en_kom, @en_temp2.iden));:Postac_Window: #mxp ~<color ~#505050>%repeat( " ", 43)Dodaj ~<send "en_dodaj" "Dodaj nowa postac do bazy danych">nowa</send> postac;:Postac_Window: #mxp ~<color ~#505050>%repeat( " ", 46)Usun ~<send "en_usun" "Usun ta postac z bazy danych">ta</send> postac;:Postac_Window: #mxp ~<color ~#505050>%repeat( " ", 39)Posortuj ~<send "en_sortbaza" "Posortuj wpisy w bazie postaci alfabetycznie">baze danych</send>}
#ALIAS en_pokaz_imie {en_temp2.temp = @en_temp.imie;#pr en_temp2.temp {Wprowadz nowe imie dla tej postaci.};en_temp2.temp = %word( %lower( @en_temp2.temp), 1);#if (%len( @en_temp2.temp) and (@en_temp2.temp!=@en_temp.imie)) {#delkey xo_%left( @en_temp.imie, 1) {@en_temp.imie};#delkey en_sz {@en_temp.imie};#delkey en_i2o {@en_temp.imie};en_temp2.temp2 = %db( @en_o2i, @en_temp.opis);#if (@en_temp2.temp2=@en_temp.imie) {#delkey en_o2i {@en_temp.opis}} {#addkey en_o2i {@en_temp.opis} {%delitem( @en_temp.imie, @en_temp2.temp2)}};en_temp.imie=@en_temp2.temp;en_temp2.iden=@en_temp.imie;en_save;eng_make @en_temp.imie;en_pokaz}}
#ALIAS en_pokaz_opis {en_temp2.temp = @en_temp.opis;#pr en_temp2.temp {Wprowadz nowy opis dla tej postaci.};en_temp2.temp = %lower( @en_temp2.temp);#if (%len( @en_temp2.temp) and (@en_temp2.temp!=@en_temp.opis)) {#delkey xo_%left( @en_temp.opis, 1) {@en_temp.opis};#delkey xo_%left( @en_temp.opis, 1) {@en_mutuj(@en_temp.opis)};#if (!@en_temp.imie) {#delkey en_sz {@en_temp.opis};en_temp.iden=@en_temp2.temp} {en_temp2.temp2 = %db( @en_o2i, @en_temp.opis);#if (@en_temp2.temp2=@en_temp.imie) {#delkey en_o2i {@en_temp.opis}} {#addkey en_o2i {@en_temp.opis} {%delitem( @en_temp.imie, @en_temp2.temp2)}}};en_temp.opis=@en_temp2.temp;en_save;#if (@en_temp.imie) {eng_make @en_temp.imie} {eng_make @en_temp.opis};en_pokaz}}
#ALIAS en_pokaz_title {en_temp2.temp = %db( @en_title, @en_temp2.iden);#pr en_temp2.temp {Wprowadz tytul dla tej postaci.};#if (@en_temp2.temp) {#addkey en_title @en_temp2.iden {@en_temp2.temp}} {#delkey en_title @en_temp2.iden};en_pokaz}
#ALIAS en_pokaz_gildia {en_temp2.temp = %pick( "p:Wybierz gildie:|o:1|Nieznana|"%subregex( @en_gildie, "(..)\36([^\35]+)(\35|$)", "%%2:%%1|"));#if (%len( @en_temp2.temp) and (@en_temp2.temp!=@en_temp.gildia)) {#if (@en_temp2.temp=Nieznana) {#delkey en_temp gildia} {en_temp.gildia=@en_temp2.temp};en_save;eng_make @en_temp2.iden;en_pokaz}}
#ALIAS en_pokaz_zawod {en_temp2.temp = %pick( "p:Wybierz zawod:|o:1|Nieznany|"%subregex( @en_zawody, "(.)\36([^\35]+)(\35|$)", "%%2:%%1|"));#if (%len( @en_temp2.temp) and (@en_temp2.temp!=@en_temp.zawod)) {#if (@en_temp2.temp=Nieznany) {#delkey en_temp zawod} {en_temp.zawod=@en_temp2.temp};en_save;eng_make @en_temp2.iden;en_pokaz}}
#ALIAS en_pokaz_grupy {en_temp2.temp = %pick( "p:Wybierz do jakich grup dodac ta postac:|%sort(%exec('#loopdb @eng_sz {%key}'))");#if (@en_temp2.temp) {#forall @en_temp2.temp {en_dodaj_postac_do_grupy %i @en_temp2.iden};en_pokaz}}
#ALIAS en_pokaz_mutant {#if (@en_temp.mutant) {#delkey en_temp mutant;en_save;eng_make @en_temp2.iden} {#addkey en_temp mutant 1;en_save;eng_make @en_temp2.iden};en_pokaz}
#ALIAS en_pokaz_npc {#if (@en_temp.npc) {#delkey en_temp npc;en_save;eng_make @en_temp2.iden} {#addkey en_temp npc 1;en_save;eng_make @en_temp2.iden};en_pokaz}
#ALIAS en_pokaz_kolorwg {en_temp2.temp = %pick( "p:Wedlug jakiej grupy ma byc kolorowana ta postac?|o:1|Automatycznie|"%sort( @eng_kolorujace));#if (@en_temp2.temp) {#if (@en_temp2.temp=Automatycznie) {#delkey en_temp kolorwg} {en_temp.kolorwg=@en_temp2.temp};en_save;eng_make @en_temp2.iden;en_pokaz}}
#ALIAS en_pokaz_konc {en_temp2.temp = %replace( @en_temp.igk, "|", " ");#pr en_temp2.temp {Wprowadz litery lub zbitki liter, ktore jezeli wystapia po imieniu tej postaci, to zabronia skryptowi kolorowania tego imienia. Wiele koncowek przedziel spacja.};en_temp2.temp = %sort( %replace( %lower( %trim( @en_temp2.temp)), " ", "|"));#if (@en_temp2.temp!=@en_temp.igk) {en_temp.igk=@en_temp2.temp;en_save;#if (@en_temp2.kolorwg) {#forall @{envai_@en_temp2.kolorwg} {#if (%begins( {%i}, @en_prep(%proper( @en_temp.imie)))) {#delitem envai_@en_temp2.kolorwg {%i}}}};eng_make @en_temp2.iden;en_pokaz}}
#ALIAS en_pokaz_isub {en_temp2.temp = @en_temp.isub;#pr en_temp2.temp {Wprowadz tekst, jaki ma byc dodawany w nawiasach do tej postaci (bez spacji). Pozostaw puste, by zresetowac do standardowego.};#if (@en_temp2.temp!=@en_temp.isub) {#if (@en_temp2.temp) {en_temp.isub=%replace( @en_temp2.temp, " ", "_")} {#delkey en_temp isub};en_save;eng_make @en_temp2.iden;en_pokaz}}
#ALIAS en_wpisz_kolor {;grupa iden;#if (%db( %db( @eng_sz, %1), kolor)) {};#if (%words( %-2)>1) {#additem enva_%1 {%-2}} {#additem envai_%1 {%if( %ends( %-2, a), %leftback( %proper( %-2), 1)".", %proper( %-2))%if( %db( %db( @en_sz, %-2), igk), "(?!"%db( %db( @en_sz, %-2), igk)")")}}}
#ALIAS en_pokaz_kom {en_temp2.temp = %db( @en_kom, @en_temp2.iden);#pr en_temp2.temp {Wprowadz komentarz dla tej postaci.};#if (@en_temp2.temp) {#addkey en_kom @en_temp2.iden {@en_temp2.temp}} {#delkey en_kom @en_temp2.iden};en_pokaz}
#ALIAS en_dodaj {en_temp2.temp=%null;#pr en_temp2.temp {Podaj imie lub opis nowej postaci.};#if (@en_temp2.temp) {#if (%iskey( @en_sz, %lower( @en_temp2.temp)) or %iskey( @en_o2i, %lower( @en_temp2.temp))) {#sh --> Taka postac juz istnieje. Otwieram jej wpis.} {#addkey en_sz %lower( @en_temp2.temp) {}};en_show %lower( @en_temp2.temp)}}
#ALIAS en_usun {#if (%yesno( %concat( "Czy napewno chcesz usunac postac ", %proper( @en_temp.imie), " - ", %proper( @en_temp.opis), " z bazy danych?"))) {#if (@en_temp2.kolorwg) {#forall @{envai_@en_temp2.kolorwg} {#if (%begins( {%i}, @en_prep(%proper( @en_temp.imie)))) {#delitem envai_@en_temp2.kolorwg {%i}}}};#if (@en_temp.opis) {en_temp2.opis=@en_prep(@en_temp.opis);#forall @eng_kolorujace {#delkey enva_%i {@en_temp2.opis}};#delkey xo_%left( @en_temp.opis, 1) {@en_temp.opis};#delkey xo_%left( @en_temp.opis, 1) {@en_mutuj(@en_temp.opis)}};#gagon;#unvar xo_%left( @en_temp.imie, 1) {@en_temp.imie};#gagoff;#delkey en_i2o {@en_temp.imie};#if (%numitems( %db( @en_o2i, @en_temp.opis))>1) {#addkey en_o2i {@en_temp.opis} {%delitem( @en_temp.imie, %db( @en_o2i, @en_temp.opis))}} {#delkey en_o2i {@en_temp.opis}};#delkey en_sz {@en_temp2.iden};#delkey en_kom {@en_temp2.iden};#delkey en_title {@en_temp2.iden};eng_fix_inalezy;en_temp = %null;en_temp2 = %null;#makewindow Postac_Window close}}
#ALIAS en_pokaz_ungrupa {en_usun_postac_z_grupy %1 @en_temp2.iden;en_pokaz}
#ALIAS en_dodaj_postac_do_grupy {#addkey eng_inalezy {%1} {%sort( %dups( %additem( %lower( %-2), %db( @eng_inalezy, %1))))};#addkey en_sz {%-2} {%addkey( %db( @en_sz, %-2), grupy, %dups( %sort( %additem( %1, %db( %db( @en_sz, %-2), grupy)))))};eng_make %-2}
#ALIAS en_usun_postac_z_grupy {#addkey eng_inalezy {%1} {%delitem( %lower( %-2), %db( @eng_inalezy, %1))};#addkey en_sz {%-2} {%addkey( %db( @en_sz, %-2), grupy, %delitem( %1, %db( %db( @en_sz, %-2), grupy)))};#if (%db( %db( @en_sz, %-2), kolorwg)=%1) {#addkey en_sz {%-2} {%delkey( %db( @en_sz, %-2), kolorwg)}};eng_make %-2}
#ALIAS en_fix_skonc {en_skonc=%null;#loopdb @en_sz {#if (!%ends( %key, a) and %key!=@en_prep(%key)) {#addkey en_skonc {%leftback( %key, 1)} {%key}}}}
#ALIAS en_fix_o2i {en_o2i = %null;#loopdb @en_i2o {#if (%iskey( @en_o2i, %val)) {#addkey en_o2i {%val} {%additem( %key, %db( @en_o2i, %val))}} {#addkey en_o2i {%val} {%key}}}}
#VAR en_o2i {barczysty czarnobrody krasnoludgomilbarczysty czarnooki mezczyznacadaelbarczysty kudlaty krasnoluddargobarczysty nerwowy mutantwarlbezwzgledny opanowany ogrpulpbezwzgledny porywczy krasnoludgorertzbezwzgledny spokojny polelfvittbezwzgledny wiekowy krasnoludbalkragbezzebny koslawy ogrhawatbezzebny porywczy ogrroburbialowlosy energiczny elfelistanbialowlosy umiesniony mezczyznasanderbladoskory czerwononosy ogrzookbladoskory lekki elfazjelbladoskory niesmialy gnompanorblekitnooki ciemnowlosy mezczyznalorandblekitnooki czarnowlosy mezczyznaarcziwaldblekitnooki mlody niziolekernardblekitnooki opanowany elfgildhelblekitnooki szczuply elfhyoideusblekitnooki wysoki polelfschizeinbrodaty krwistooki krasnoludabrbrodaty stary krasnoludghordbrodaty zlosliwy krasnoludzetubrudny smierdzacy ogrburchuda szarooka elfkailanechudy skosnooki gnomdaazciemnooka jasnowlosa kobietanarienneciemnooki ciemnowlosy ogrvrotciemnooki smukly mezczyznairwinciemnoskory krwistooki ogrgrothanciemnoskory metnooki ogrgraburciemnoskory piegowaty krasnoludsamchainciemnoskory rudy krasnoludmulanciemnowlosa zielonooka kobietariannciemnowlosy brazowooki polelferkalciemnowlosy energiczny ogrrouanciemnowlosy masywny mezczyznamalmorciemnowlosy niebieskooki elfhavganciemnowlosy opanowany mezczyznaaiathelczarnooka czarnowlosa elfkarimaczarnooki hardy krasnoludgruerczarnooki kedzierzawy mezczyznafalikczarnooki ponury elfsasukeczarnoskora czerwonooka kobietajadeczarnoskory bialowlosy mezczyznarossczarnoskory kruczowlosy polelfargalghczarnowlosy bezwzgledny elfrazorczarnowlosy malomowny elfmoriczarnowlosy muskularny krasnoludnargurthczarnowlosy muskularny ogrxanczarnowlosy ogorzaly gnomderwigczerwonooki dojrzaly mezczyznaborgczerwonooki ognistowlosy krasnoludulhenczerwonooki siwy krasnoludloramczerwonowlosa rumiana krasnoludkaastridczerwonowlosy zlosliwy gnomulichczujny dlugonosy gnomnoorfczujny kudlaty gnomtakeodlugonoga fiolkowooka polelfkadeesisdlugonosy muskularny ogrkhongordlugoreki skoltuniony ogrzubdlugouchy hardy elfvaidlugowlosy niebieskooki elfilludildlugowlosy urodziwy mezczyznaaimericdojrzaly czarnooki ogropetehdostojny sniady halflingvaleriodostojny srebrnowlosy polelfatamandumna fiolkowooka polelfkagesseritdumna srebrnooka elfkashannadumny blekitnooki mezczyznaargorndumny ciemnooki mezczyznathrangorndumny czerwonooki ogrhogalldumny fiolkowooki elfsajjadindumny muskularny polelfboharddumny plomiennobrody krasnoludgoriondumny plomiennooki elfvindaeldumny siwobrody krasnoludjabhorndumny zielonooki elfralandilenergiczna zielonooka elfkayeandrilenergiczny barczysty mezczyznamarcinsonenergiczny bialowlosy elfkaraksonenergiczny kedzierzawy gnomfonklinenergiczny niebieskooki elfasghartenergiczny okraglutki ogrhrathenergiczny wesoly elfwarekfiolkowooka tlusta kobietavesnagrozny barczysty mezczyznacohangrozny leciwy krasnoludhargrindgrozny masywny krasnoludkagngrozny opanowany elfevraelgrozny szarooki elfkilvargrozny szarooki mezczyznabelgatgrubonogi melancholijny ogrkrupgruby ponury halflingstanhardy czerwonooki ogrgrogothhardy jasnooki mezczyznamorholthardy niebieskooki mezczyznadrachenhardy plomiennooki mezczyznavernonhardy snieznobrody krasnoludtuhanjasnobrody plomiennooki mezczyznagalardjasnooka czerwonowlosa elfkaluinariennjasnooka jasnowlosa elfkaellandorajasnowlosa fiolkowooka elfkalinhiljednooka niska kobietaysarjednooki dlugowlosy ogrtroaljednooki lysy ogrankjednooki porywczy ogrkalunjednooki rumiany krasnoludmargrafjednooki wysoki elflavitzjednooki zasuszony gnomsiglikkasztanowowlosa niewysoka kobietashanylkasztanowowlosa zawadiacka elfkabriseyukosmaty czarnooki halflingkrespokosmaty zlosliwy niziolekomeniskostropaty szczeciniasty ogrgurgkrepy siwy mezczyznatulaczkrotkowlosa fiolkowooka elfkaisiritkrotkowlosy gladkolicy mezczyznayannickkrotkowlosy malomowny mezczyznadahedkrotkowlosy mlody mezczyznajeraltkrotkowlosy okazaly ogrbalgordkrotkowlosy porywczy mezczyznathaerkrotkowlosy sniady halflingwilibaldkruczowlosa jasnooka kobietamahailakruczowlosa smukla polelfkacoriefkruczowlosy spokojny elfvailenkrzaczasty dziobaty krasnoludbaldarkrzaczasty jednooki polelffranciskrzywonogi zezowaty ogrmomokrzywonosy barczysty krasnoludzorpenkrzywonosy zaglodzony polelftulikudlaty ospowaty krasnoludhrabalkulawy opalony mezczyznaulverlaciaty chudy ogrsgroz|trfoglysy bladoskory mezczyznaraziekhlysy leciwy krasnoludxerkslysy umiesniony mezczyznagotfried|artegallmajestatyczny masywny mezczyznaedalbertmaloletni wesoly mezczyznaulafmaloletni zlosliwy ograzzazmaloletnia zoltooka mutantkagarenamalomowny dostojny elfanvaromalomowny ogolony mutantbrankovicmalomowny okazaly ogrgatzmalomowny tepy ogrbaramalutki bialobrody halflingtiritmalutki energiczny gnomhagusmaly szarawy ogrbammasywny bezwzgledny krasnoludmelbornmasywny ciemnooki krasnoluddargothmasywny hardy krasnoludragnukmasywny ognistobrody krasnoludbargrinmasywny porywczy ogrgurpmloda ognistooka kobietaashamlody bezwzgledny mezczyznahuggusmlody energiczny elfusulmlody muskularny mezczyznakejnmlody niebieskooki mezczyznaerinmlody niski krasnoludhardinmlody spiczastouchy elferedinmlody wasaty krasnoludabuanmlody zlotowlosy elfhalarmlody zlotowlosy mezczyznafabianmodrooka mloda halflinkaelikemodrooka opalona elfkaaidamuskularny ciemnowlosy mezczyznaskudmuskularny dumny krasnoludmorglummuskularny energiczny ogrgorurmuskularny krotkowlosy mezczyznadragbomuskularny krwistooki krasnoludkaral|kordanmuskularny opanowany krasnoludvaldygarmuskularny ponury ogrkalwurmuskularny rudy krasnoludkyanmuskularny srebrzystobrody krasnoludfriilimuskularny srebrzystobrody mezczyznahakrankenmuskularny zielonooki krasnoludpablonerwowa zielonooka polelfkareylenenerwowy bialowlosy elfashtawaynerwowy szarooki mezczyznacalistoniebieskooka wesola elfkaletalianiebieskooki ciemnowlosy mezczyznaagisniebieskooki czujny mezczyznaurielniebieskooki dojrzaly mezczyznaadenniebieskooki dostojny polelfgabrielniebieskooki dumny mezczyznaartheosniebieskooki kruczowlosy polelfloandilniebieskooki malomowny elflauredilniebieskooki porywczy elfsarvenniepozorna zlotowlosa kobietaaominiepozorny dumny niziolektipiniewysoki energiczny gnomulavniewysoki ogorzaly mezczyznaasgerniewysoki ponury krasnoludbelmorniski spokojny krasnoludgrozognistobrody hardy krasnoludgothrinognistobrody masywny krasnoluddimitrognistobrody sniady krasnoludkoridognistowlosy dostojny niziolekhespognistowlosy umiesniony mezczyznafreyogorzaly ciemnowlosy krasnoludbromarogorzaly jednooki polelfbonerogromny grozny ogrmotaro|trogogromny ponury ogrgrotogromny powazny ogrgrungogromny wielki ogrkhurgokraglutki puculowaty niziolekbertyopanowany barylkowaty krasnoludyarrimopanowany bezwzgledny ogrciaranopanowany ciemnooki elfevandeilopanowany grozny elffelernopanowany krotkowlosy mezczyznaildfarthilopanowany masywny krasnoludbragoropanowany plomiennobrody krasnoludbarmaropanowany plomiennooki elfellaxopanowany plomiennooki mezczyznasurgpiegowaty zlotooki elfvisterpiwnooka piegowata kobietaethelpiwnooki krotkowlosy polelfaversarpiwnooki smagly mutanttroppepiwnooki wesoly krasnoludbargianplamiasta krzywonoga ogrzycajabockaplamiasty kudlaty ograzokplomiennobrody masywny krasnoludwishplomiennooki opanowany elfeltanplomiennooki smagly mezczyznasymonpodrastajacy ogolony niziolekmubudponury brzuchaty ogrmaldunponury lysy mezczyznakinrimponury rybiooki krasnoludruarponury wysoki elfleinponury zwalisty ogrorikporywczy ciemnooki elfvenireaghporywczy dlugobrody mezczyznaarnvaldporywczy grozny krasnoludbryguporywczy siwy ogrkrahlporywczy umiesniony mezczyznapauliepostawny szpakowaty mezczyznasathormpowazny ponury mezczyznadaggerroprzygarbiony otyly mezczyznarolphprzyjacielski umiesniony ogrharothprzysadzisty opanowany krasnoludvoridprzystojny ciemnoskory mezczyznamaximilianpuculowaty nerwowy halflingavethpulchna pomaranczowowlosa krasnoludkayannarudobrody grozny krasnoludskalflirudobrody przyjacielski krasnoludmeksorrudowlosy czujny niziolekbloomrudy ostrouchy elfemesrumiana czerwonooka ogrzycavirisrybiooki mlody krasnoludgerufryzy umiesniony krasnoludehrundryzy zawadiacki gnomkrepsiwobrody stary krasnoludbreghnarsiwy garbaty ograzogskosnooka bladoskora mutantkavesperskosnooki bladoskory elfsajinsmierdzacy skoltuniony ogrdumshsmukla szarooka elfkavingasmukly energiczny mezczyznaterumsmukly jasnooki elfskavosmukly mlody mezczyznaurisielsniady stalowooki mezczyznadetramspokojny mlody gnomcorbenspokojny przyjacielski ogrmorowakspokojny smukly polelfevertsenspokojny srebrnooki elfcredspokojny wiekowy elfluntarspokojny zarosniety mezczyznaodymsrebrnooka smagla elfkathaesssrebrnowlosy bladoskory elfaesandil|raellsrebrnowlosy muskularny krasnoluddurukstary czarnoskory mezczyznanobiastary malomowny krasnoludgerathstary ogromny ograndreasstary zlosliwy mutantbelfordszarawy szczerbaty ograrokszarooka czujna elfkasheeahszarooki krepy krasnoludtryggviszczawikowaty zasuszony gnompixszczawikowaty zlosliwy elfgleanevallszczeciniasty smierdzacy ogrbugalszczeciniasty wylupiastooki ogrrerukszczerbaty garbaty ogrplasszczerbaty tepy ogrthorzanszczupla niebieskooka krasnoludkalahraszkieletowaty brudny gnommusinszkieletowaty dlugonosy gnombivixszpotawy dlugowlosy ogrburlovtepy skoltuniony ogrgulakumiesniony dojrzaly mezczyznakallianwasaty jednooki mezczyznabharnabawasaty piwnooki krasnoludmokochidwesoly kudlaty ogrplukwiekowy czerwonooki ogrrharwiekowy czujny mezczyznatharrwiekowy ogromny ogrgromgolwiekowy ostrouchy elfaldaronwielki czarnooki mezczyznaslainwielki ponury mezczyznanekwielki smierdzacy ogrhamawielki zielonkawy ogrgumrakwielki zoltooki ogrrashnakwylenialy stary ogrugmarwylupiastooki krostowaty mezczyznamyzzwyniosla bialowlosa elfkagalateawyniosly plomiennooki elfeladrielwysoki czarnowlosy mezczyznanoremwysoki dostojny mezczyznakhristoffwysoki jasnooki polelfganrodwysoki przyjacielski mezczyznagarrickwysoki tyczkowaty mezczyznaheimowysoki wielkonosy ograzharzaglodzony szczawikowaty ogrbloorpzamaskowany postawny mezczyznakonstantzarosniety hardy ogrorqunzarosniety nerwowy mezczyznacirdzezowata krzywonoga ogrzycaevelazezowaty krotkonogi krasnoludgonredzgrzybialy garbaty ogrpokrakzgrzybialy ospowaty krasnoludchorzielonkawy czerwonooki ogrblurpzielonkawy energiczny ogrrygzielonkawy hardy ogrtygzielonkawy skoltuniony ograkanzielonooka ognistowlosa elfkaauglennzielonooki dumny elfeldakarzielonooki porywczy mezczyznamarcozimnooki okrutny elfelenrilzlosliwa rudowlosa elfkalilithzlosliwy skosnooki gnommorgaszlotooka niepozorna halflinkacarollazlotooka piegowata polelfkaintiazlotooki krzywonosy elffeanenzlotowlosa przyjacielska elfkaakinazlotowlosy dostojny elftaloriszlotowlosy mlody elfgoldfingerzwalisty bezzebny mezczyznanikodemuszwalisty hardy ogrgrumshzwalisty piwnooki mezczyznacrerzwalisty porywczy mezczyznaperrarzwalisty wasaty mezczyznacronzylasty patykowaty mezczyznathibertniewysoki groteskowy mezczyznawillafriedblekitnooki porywczy mezczyznamatrax}
#VAR en_temp {imieaiathelopis}
#VAR en_temp2 {idenaiathelkolorwg0kolor}
#VAR en_gildie {KNKN - Cech Kupcw NovigraduESES - Elfy z Gr SinychSCSC - Komando Scoia'taelKSKS - Korsarze ze SkelligeKMKM - Krasnoludy z MahakamuOSOS - Osadnicy spod Puszczy ShekhalHMHM - Ochotniczy Hufiec MahakamuGWGW - Stowarzyszenie Gnomich WynalazcwSPSP - Stowarzyszenie PelfwALAL - VII Brygada Armii LyriiLELE - Elfy z Lasu LorenKGKG - Kompania GryfaKKKK - Krasnoludy z Gr Kraca wiataMCMC - Mutanci ChaosuOKOK - Ogrza KompaniaRARA - Rodzina AlderazziVRVR - Szkoa Walki Domu von RaugenZTZT - Zabjcy TrolliZSZS - Zakon SigmaraZHZH - Zgromadzenie Halflingw---- - Niezgildiowani}
#VAR en_zawody {BB - BarbarzyncaFF - FanatykGG - GladiatorKK - KorsarzLL - LegionistaMM - MiecznikNN - NozownikPP - PartyzantSS - Straznik$$ - KupiecTT - MysliwyOO - Odkrywca-- - Brak}
#VAR en_show_grupy {%replace(%exec( '#forall %-1 {<<<send "eng_show %i" "Pokaz informacje na temat grupy %i.">>>%i<<</send>>><<<send "en_pokaz_ungrupa %i" "Usun ta postac z grupy %i.">>>%ansi(4)x<<</send>>>}'),"|","  ")}
#VAR en_show_zgildii {%replace(%exec( '#forall %-1 {<<<send "eng_show %i" "Pokaz informacje na temat grupy %i.">>>%i<<</send>>>}'),"|","  ")}
#VAR en_mutuj {%subregex( %1, "[a-z]+?((?<!n)a)?$", "mutant%if(%%1,ka)")}
#VAR en_prep {%1}
#VAR en_kprio {%if( %db( %1, kolorwg), %db( %1, kolorwg), @en_kprio2(%1,[@en_gadd( %db( %1, grupy), %db( @eng_gildie, %db( %1, gildia)))]))}
#VAR en_kprio2 {@en_kprio3(%2,%regex(%2,@eng_kolorujace))}
#VAR en_kprio3 {%if( !%2, 0, %item( %copy( %1, %2, %len( %1)), 1))}
#VAR en_gxor {%subregex( %subregex( %sort( @en_gadd(%1,%2)), "(?<=\||^)([^\|]+)\|\1(?=\||$)", ""), "^\||\|$", "")}
#VAR en_gadd {%1%if("%1" and "%2",|)%2}
#VAR en_skonc {}
#CLASS 0
#CLASS {Postacie|eng_wpis}
#ALIAS eng_ludzie {en_temp = %addkey( ,%if( %words( %-1)>1, opis, imie), %-1);en_pokaz}
#ALIAS eng_load {#if (!%iskey( @eng_sz, @eng_temp.ngrupa)) {eng_temp.ngrupa=%item( %exec( "#loopdb @eng_sz {%key}"), 1)};#va eng_temp {%addkey( %db( @eng_sz, @eng_temp.ngrupa) , ngrupa, @eng_temp.ngrupa)};eng_temp.gildie=%db( @eng_nalezy, @eng_temp.ngrupa);eng_temp.ludzie=%db( @eng_inalezy, @eng_temp.ngrupa);#if (!%numkeys( @eng_sz)) {#addkey eng_sz wrogowie {};eng_temp.ngrupa=wrogowie}}
#ALIAS eng_show {eng_temp = %addkey( ,ngrupa, %1);#if (!%iskey( @eng_sz, @eng_temp.ngrupa)) {eng_temp.ngrupa=%item( %exec( "#loopdb @eng_sz {%key}"), 1)};eng_pokaz}
#ALIAS eng_pokaz {eng_load;#makewindow Postac_Window open "scrolling=no|floating=yes|width=60c|height=20c|top=-35c|left=-70c|title="%proper( @eng_temp.ngrupa);Postac_Window: #clr;:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "en_pokaz" "Wpis %if(@en_temp.imie,%proper(@en_temp.imie),@en_temp.opis)">~<color ~#808080><=Wpis=~</color></send> %concat( "   ")~<send "eng_pokaz_nazwa" "Kliknij by zmienic grupe na inna.">~<color ~#707070>@format_center(%upper(@eng_temp.ngrupa),30)</color></send>;:Postac_Window: #sh "";:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "eng_pokaz_gildie" "Zmien gildie nalezace do tej grupy.">Nalezace gildie</send>: %if( @eng_temp.gildie, %replace( @eng_temp.gildie, "|", " "));:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "eng_pokaz_ludzie" "Dodaj nowe postacie bezposrednio do tej grupy.">Nalezace postacie</send>: %if( @eng_temp.ludzie, @eng_show_ludzie(@eng_temp.ludzie));:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "eng_pokaz_kolor" "Zmien na jaki kolor maja byc podswietlane postacie w tej grupie.">Kolor</send>: %if( %len( @eng_temp.kolor)=6, ~<~<send "eng_pokaz_zkolor" '"Kliknij by zmienic kolor."'~>~>"==>>" ~<~</send~>~>~<~<color ~#@eng_temp.kolor~>~>, %if( %iskey( @eng_temp, kolor), ~<~<send "eng_pokaz_zkolor" '"Kliknij by zmienic kolor."'~>~>"==>>" ~<~</send~>~>%ansi( @eng_temp.kolor), %ansi( reset)))%if( %iskey( @eng_temp, kolor), ~<~<send "eng_pokaz_zkolor" '"Kliknij by zmienic kolor."'~>~> @eng_temp.kolor ~<~</send~>~>~<~</color~>~> ~<~<send "eng_picker" '"Wlacz okno pomocy wybierania kolorow. Wybrany kolor bedzie automatycznie skopiowany do schowka po kliknieciu OK."' ~>~><~<color ~#%random( 40, 99)%random( 40, 99)%random( 40, 99)~>~>~<~</color~>~>~<~</send~>~>, Nie koloruj)%ansi( reset);:Postac_Window: #sh "";:Postac_Window: #mxp %concat( "  ")~<send "eng_pokaz_subuj" "Zmien czy postacie nalezace do tej grupy maja byc subowane">Subuj</send>: %if( @eng_temp.subuj, TAK, NIE);:Postac_Window: #mxp %concat( "  ")~<send "eng_pokaz_satak" "Dziala tylko w polaczeniu z kolorowaniem. Zmien czy postacie nalezace do tej grupy maja byc podpisywane pod szybki atak.">Szybki atak</send>: %if( @eng_temp.satak, TAK, NIE);:Postac_Window: #mxp %concat( "  ")~<send "eng_pokaz_kom" "Zmien komentarz dla tej grupy.">Komentarz</send>: %if( %db( @eng_kom, @eng_temp.ngrupa), %db( @eng_kom, @eng_temp.ngrupa));:Postac_Window: #mxp ~<color ~#505050>%repeat( " ", 43)Dodaj ~<send "eng_dodaj" "Dodaj nowa postac do bazy danych">nowa</send> grupe~</color>;:Postac_Window: #mxp ~<color ~#505050>%repeat( " ", 46)Usun ~<send "eng_usun" "Usun ta postac z bazy danych">ta</send> grupe~</color>;:Postac_Window: #mxp ~<color ~#505050>%repeat( " ", 39)Posortuj ~<send "en_sortbaza" "Posortuj baze danych">baze danych</send>~</color>;:Postac_Window:#sh "";:Postac_Window: #mxp ~<color ~#404040>%repeat( " ", 57)~<send "en_fixall" "Laguje. Napraw i przelicz wszystko.">F</send>~</color>}
#ALIAS eng_pokaz_nazwa {en_temp2.temp = %pick( "p:Wybierz grupe do wyswietlenia.|o:1|"%exec( "#loopdb @eng_sz {%key}"));#if (@en_temp2.temp) {eng_temp.ngrupa=@en_temp2.temp;eng_pokaz}}
#ALIAS eng_pokaz_gildie {en_temp2.temp = %pick( "p:Wybierz gildie:|Zadne gildie nie naleza do tej grupy:NIC|"%subregex( @en_gildie, "(..)\36([^\35]+)\35", "%if(%ismember(%%1,@eng_temp.gildie),*)%%2:%%1|"));#if (%len( @en_temp2.temp) and @en_temp2.temp != @eng_temp.gildie) {#if (%ismember( NIC, @en_temp2.temp)) {en_temp2.temp=%null};en_temp2.xgildie = @en_gxor(@eng_temp.gildie,@en_temp2.temp);eng_temp.gildie = @en_temp2.temp;#addkey eng_nalezy {@eng_temp.ngrupa} {@eng_temp.gildie};eng_fix_gildie;:Postac_Window:#sh %ansi( 11) Przeliczam...;eng_przelicz_gildie @en_temp2.xgildie;eng_pokaz}}
#ALIAS eng_pokaz_ludzie {en_temp2.temp = %pick( "p:Wybierz postacie ktore zostana dodane bezposrednio do grupy @eng_temp.ngrupa:|%sort(%exec('#loopdb @en_sz {%key}'))");#if (@en_temp2.temp) {#forall @en_temp2.temp {en_dodaj_postac_do_grupy @eng_temp.ngrupa %i};eng_pokaz}}
#ALIAS eng_pokaz_unludzie {en_usun_postac_z_grupy @eng_temp.ngrupa %-1;eng_pokaz}
#ALIAS eng_pokaz_kolor {en_temp2.temp = %pick( "p:Czy postacie nalezace do tej grupy maja byc kolorowane?|o:1|Tak|Nie");#if (@en_temp2.temp=Nie) {#if (%iskey( @eng_temp, kolor)) {#delkey eng_temp kolor;#delitem eng_kolorujace @eng_temp.ngrupa;#addkey eng_sz @eng_temp.ngrupa %delkey( %delkey( %delkey( @eng_temp, ngrupa), gildie), ludzie);eng_usun_triga [@eng_temp.ngrupa];:Postac_Window:#sh %ansi( 11) Przeliczam...;eng_przelicz_grupe @eng_temp.ngrupa;eng_pokaz}};#if (@en_temp2.temp=Tak) {#if (!%iskey( @eng_temp, kolor)) {#addkey eng_temp kolor "AA99CC";#additem eng_kolorujace @eng_temp.ngrupa;eng_kolorujace = %sort( @eng_kolorujace);#addkey eng_sz @eng_temp.ngrupa %delkey( %delkey( %delkey( @eng_temp, ngrupa), gildie), ludzie);eng_trig @eng_temp.ngrupa;:Postac_Window:#sh %ansi( 11) Przeliczam...;eng_przelicz_grupe @eng_temp.ngrupa;eng_pokaz}}}
#ALIAS eng_picker {#menu {Help|Color Picker}}
#ALIAS eng_pokaz_zkolor {en_temp2.temp = @eng_temp.kolor;#pr en_temp2.temp "Wklej numer koloru. Numer 6 cyfrowy (hex:0-9a-f) zostanie zinterpretowany jako RRGGBB, kazdy inny jako ansi.";#if ([%regex( @en_temp2.temp, "^(#?[0-9a-f]{6}|[0-9]{0,5})$")]) {#if (%len( @en_temp2.temp) and @en_temp2.temp != @eng_temp.kolor) {eng_temp.kolor=%upper( @en_temp2.temp);#if (%begins(@eng_temp.kolor,"#")) {eng_temp.kolor=%right(@eng_temp.kolor,1)};#addkey eng_sz @eng_temp.ngrupa %delkey( %delkey( %delkey( @eng_temp, ngrupa), gildie), ludzie);eng_trig @eng_temp.ngrupa;eng_pokaz}}}
#ALIAS eng_pokaz_subuj {en_temp2.temp = %pick( "p:Czy postacie nalezace do tej grupy maja byc subowane?|o:1|Tak|Nie");#if (@en_temp2.temp=Nie) {#if (@eng_temp.subuj) {#delkey eng_temp subuj;#delitem eng_subujace @eng_temp.ngrupa;#addkey eng_sz @eng_temp.ngrupa %delkey( %delkey( %delkey( @eng_temp, ngrupa), gildie), ludzie);:Postac_Window:#sh %ansi( 11) Przeliczam...;eng_przelicz_grupe @eng_temp.ngrupa;eng_pokaz}};#if (@en_temp2.temp=Tak) {#if (!@eng_temp.subuj) {#addkey eng_temp subuj 1;#additem eng_subujace @eng_temp.ngrupa;eng_subujace = %sort( @eng_subujace);#addkey eng_sz @eng_temp.ngrupa %delkey( %delkey( %delkey( @eng_temp, ngrupa), gildie), ludzie);:Postac_Window:#sh %ansi( 11) Przeliczam...;eng_przelicz_grupe @eng_temp.ngrupa;eng_pokaz}}}
#ALIAS eng_pokaz_satak {en_temp2.temp = %pick( "p:Czy postacie nalezace do tej grupy maja byc podpisywane pod szybki atak '/' ? Dziala to tylko jezeli beda kolorowane z tej grupy.|o:1|Tak|Nie");#if (@en_temp2.temp=Nie) {#delkey eng_temp satak;#addkey eng_sz @eng_temp.ngrupa %delkey( %delkey( %delkey( @eng_temp, ngrupa), gildie), ludzie);eng_trig @eng_temp.ngrupa;eng_pokaz};#if (@en_temp2.temp=Tak) {#addkey eng_temp satak 1;#addkey eng_sz @eng_temp.ngrupa %delkey( %delkey( %delkey( @eng_temp, ngrupa), gildie), ludzie);eng_trig @eng_temp.ngrupa;eng_pokaz}}
#ALIAS eng_pokaz_kom {en_temp2.temp = %db( @eng_kom, @eng_temp.ngrupa);#pr en_temp2.temp {Wprowadz komentarz dla tej grupy.};#if (@en_temp2.temp) {#addkey eng_kom @eng_temp.ngrupa {@en_temp2.temp}} {#delkey eng_kom @eng_temp.ngrupa};eng_pokaz}
#ALIAS eng_dodaj {en_temp2=%null;#pr en_temp2.temp {Podaj nazwe nowej grupy. Nazwa musi byc jednym slowem o minimum trzech znakach i moze zawierac tylko litery i cyfry.};#noop %regex( @en_temp2.temp, "^([a-z0-9]{3,})", en_temp2.nazwa);#if (@en_temp2.nazwa) {#if (%iskey( @en_sz, %lower( @en_temp2.nazwa))) {--> Grupa o takiej nazwie juz istnieje.} {#addkey eng_sz {%lower( @en_temp2.nazwa)} {};eng_temp.ngrupa=%lower( @en_temp2.nazwa);en_sort eng_sz}};eng_pokaz}
#ALIAS eng_usun {#if (%yesno( %concat( "Czy napewno chcesz usunac grupe ", @eng_temp.ngrupa, " z bazy danych?"))) {#sh --> Usuwam grupe...;#forall %db( @eng_inalezy, @eng_temp.ngrupa) {en_usun_postac_z_grupy @eng_temp.ngrupa %i};en_temp2.temp = %db( @eng_nalezy, @eng_temp.ngrupa);#delkey eng_nalezy {@eng_temp.ngrupa};#delkey eng_inalezy {@eng_temp.ngrupa};eng_fix_gildie;#loopdb @en_sz {#if (%ismember( %db( %val, gildia), @en_temp2.temp)) {eng_make %key}};#delkey eng_sz {@eng_temp.ngrupa};#delkey eng_kom {@eng_temp.ngrupa};eng_temp.ngrupa = %null;#sh --> Usunieto grupe @eng_temp.ngrupa.;eng_pokaz}}
#ALIAS eng_trig {#if (!%defined( enva_%1)) {#va enva_%1 {_enva_BLANK} _nodef {Postacie|en_co}};#if (!%defined( envai_%1)) {#va envai_%1 {_enva_BLANK} _nodef {Postacie|en_co}};eng_stworz_triga [%1] "#cw "%if( %len( %db( %db( @eng_sz, %1), kolor))=6, ~#)%db( %db( @eng_sz, %1), kolor)%if( %db( %db( @eng_sz, %1), satak), ";kw_last_enemy=%%1")}
#ALIAS eng_stworz_triga {#regex entr_%1 {\b(@enva_%1)\a*(?! chaosu)} {%2} {Postacie|en_co};#regex entri_%1 {\b(@envai_%1)\a*} {%2} {Postacie|en_co} {case}}
#ALIAS eng_usun_triga {#gagon;#unt entr_%1 {Postacie|en_co};#unt entri_%1 {Postacie|en_co};#unva enva_%1 {Postacie|en_co};#unva envai_%1 {Postacie|en_co};#gagoff}
#ALIAS eng_make {#if (%iskey( @en_sz, %-1)) {#if (%numwords( %-1)>1) {eng_make2 [%addkey( %db( @en_sz, %-1), opis, %replace( %-1, " ", "_"))] %lower( %-1)} {#if (%iskey( @en_i2o, %-1)) {eng_make2 [(%addkey( %db( @en_sz, %-1), opis, %replace( %db( @en_i2o, %-1)"", " ", "_")))] %lower( %-1)} {eng_make2 %db( @en_sz, %-1) %lower( %-1)}}}}
#ALIAS eng_make2 {#if (%regex( %concat( %db( %1, grupy), "|", %db( @eng_gildie, %db( %1, gildia))), @eng_subujace)) {#if (%numwords( %-2)>1) {#addkey xo_%left( %-2, 1) {%-2} {@en_opis_sub(,%1)}} {#if (!%ismember( %proper( %-2), @en_imiona)) {#if (%db( %1, opis)) {#addkey xo_%left( %db( %1, opis), 1) {%replace( %db( %1, opis), "_", " ")} {@en_opis_sub(%-2,%1)};#if (%len( %db( %1, mutant)) or %db( %1, gildia)=MC) {#addkey xo_%left( %db( %1, opis), 1) {@en_mutuj(%replace( %db( %1, opis), "_", " "))} {@en_opis_sub(%-2,%1)}} {#delkey xo_%left( %db( %1, opis), 1) {@en_mutuj(%replace( %db( %1, opis), "_", " "))}}};#delkey xo_%left( %-2, 1) {%-2}} {#addkey xo_%left( %-2, 1) {%-2} {@en_imie_sub(%1)};#delkey xo_%left( %db( %1, opis), 1) {%replace( %db( %1, opis), "_", " ")};#delkey xo_%left( %db( %1, opis), 1) {@en_mutuj(%replace( %db( %1, opis), "_", " "))}}}} {#delkey xo_%left( %-2, 1) {%-2};#if (%numwords( %-2)>1) {#delkey xo_%left( %-2, 1) {@en_mutuj(%-2)}} {#delkey xo_%left( %db( %1, opis), 1) {%replace( %db( %1, opis), "_", " ")};#delkey xo_%left( %db( %1, opis), 1) {@en_mutuj(%replace( %db( %1, opis), "_", " "))}}};eng_make3 %1 [@en_kprio(%1)] %-2}
#ALIAS eng_make3 {#forall @eng_kolorujace {#if %defined( enva_%i) {#delitem enva_%i {[%replace( @en_prep(%db( %1, opis)), "_", " ")]};#delitem enva_%i {[%replace( @en_prep(@en_mutuj(%db( %1, opis))), "_", " ")]};#delitem envai_%i {@en_prep(%proper( %-3))%if( %db( %1, igk), "(?!"%db( %1, igk)")")}}};#if (%2) {#if (%numwords( %3)>1 or !%ismember( %proper( %-3), @en_imiona)) {#if (%db( %1, opis)) {#additem enva_%2 {@en_prep(%replace( %db( %1, opis), "_", " "))};#if (%len( %db( %1, mutant)) or %db( %1, gildia)=MC) {#additem enva_%2 {@en_prep(%replace( @en_mutuj(%db( %1, opis)), "_", " "))}}}} {#va envai_%2 { %if( @{envai_%2}, @{envai_%2}"|")@en_prep(%proper( %-3))%if( %db( %1, igk), "(?!"%db( %1, igk)")")}}}}
#ALIAS eng_przelicz_grupe {#sh --> Rozpoczynam przeliczanie grupy %1.;#forall %db( @eng_inalezy, %1) {eng_make %i};en_temp2.temp = %db( @eng_nalezy, %1);#loopdb @en_sz {#if (%ismember( %db( %val, gildia), @en_temp2.temp)) {eng_make %key}};#if (%defined( enva_%1)) {#va enva_%1 %sort( @{enva_%1})};#if (%defined( envai_%1)) {#va envai_%1 %sort( @{envai_%1})};#sh --> Przeliczanie zakonczone.}
#ALIAS eng_przelicz_gildie {#sh --> Rozpoczynam przeliczanie gildii %replace( %1, "|", " ").;#loopdb @en_sz {#if (%ismember( %db( %val, gildia), %1)) {eng_make %key}};#sh --> Przeliczanie zakonczone.}
#ALIAS eng_fix_gildie {eng_gildie=%null;#forall {%exec( "#loopdb @en_gildie {'%key'}")} {#addkey eng_gildie {%upper( %i)} {%exec( "#loopdb @eng_nalezy {#if (%ismember(%i,%val)) {%key}}")}}}
#ALIAS eng_fix_inalezy {eng_inalezy=%null;#loopdb @en_sz {#forall %db( %val, grupy) {#addkey eng_inalezy {%i} {%additem( %key, %db( @eng_inalezy, %i))}}};#loopdb @eng_inalezy {#addkey eng_inalezy {%key} {%sort( %val)}}}
#VAR eng_temp {subuj1kolor6satak1ngrupawrogowiegildieSC|MC|OKludziemaro}
#VAR eng_gildie {KNESSCwrogowieKSkorkiKMOSsojusznicyHMGWSPALLEsojusznicyKGsojusznicyKKsojusznicyMCwrogowieOKwrogowieRAVRgildiaZTsojusznicyZSsojusznicyZH--}
#VAR eng_inalezy {przyjacieleaghna|artak|balkrag|bamik|ellax|onvalia|quantyl|volholdKandydaciagis|artheos|targanwrogowiemaro}
#VAR eng_kolorujace {gildia|Kandydaci|korki|przyjaciele|sojusznicy|wrogowie}
#VAR eng_subujace {korki|wrogowie}
#VAR eng_show_ludzie {%replace(%exec( '#forall {%lower(%sort(%-1))} {<<<send "eng_ludzie %i" "Pokaz informacje na temat postaci %i.">>>%i<<</send>>><<<send "eng_pokaz_unludzie %i" "Usun ta postac z tej grupy .">>>%ansi(4)x<<</send>>>}'),"|","  ")}
#CLASS 0
#CLASS {Postacie|Postacie_opcje}
#ALIAS menu1_postacie {#mxp ~<DEST Opcje x=5 y=5>~<send "enh_mutant; op_menu1 postacie" "Wlacza i wylacza czy dla postaci nalezacych do MC lub bedacych recznie wpisanych jako mutanci bedzie uwzgledniany takze ich opis z rasa mutant.">~<color "#C2C2C2" "#000000">%if( @en_mutuj("elf")="elf", NIE, TAK)</color></send> Subuj i koloruj takze rase mutant</DEST>;#mxp ~<DEST Opcje x=5 y=7>~<send "enh_prep; op_menu1 postacie" "WLACZONE MOZE LAGOWAC! Koloruj pelne imiona i opisy postaci niezaleznie od tego w jakim przypadku wystepuja.">~<color "#C2C2C2" "#000000">%if( @en_prep("elfka")="elfka", NIE, TAK)</color></send> Elastyczne kolorowanie</DEST>;#mxp ~<DEST Opcje x=4 y=15>~<send "en_fixall; enh_flaga=0;op_menu1 postacie">~<color "#D9FF00" >%if( @enh_flaga, Wprowadzone zmiany wymagaja ponownego przeliczenia baz danych by byc skutecznym dla dotychczasowcyh wpisow. Kliknij tutaj by to uczynic. UWAGA moze mocno przylagowac i potrwac dluzsza chwile UWAGA)</color></send> </DEST>}
#ALIAS enh_mutant {#if (@en_mutuj("elf")!="elf") {#va en_mutuj {%%%1}} {#va en_mutuj {%literal( %subregex( %%%1, "[a-z]+?((?<!n)a)?$", "mutant%if(%%%%1,ka)"))}};enh_flaga=1}
#ALIAS enh_prep {#if (@en_prep("elfka")!="elfka") {#va en_prep {%%%1}} {#va en_prep {%literal( %subregex( %subregex( %%%1, "(?<=...)(a|e|o|u|y)$", ""), "\a ", "\a* "))}};enh_flaga=1}
#VAR enh_flaga {0}
#CLASS 0
#CLASS {Postacie|en_xo}
#VAR xo_a {abrMC?abuanMC?aiathelMCNauglennMC?azargMC?azokMCB}
#VAR xo_b {bamOKGbarczysty kudlaty krasnoludDargoMC?barczysty kudlaty mutantDargoMC?bezwzgledny porywczy krasnoludGorertzMCFbezwzgledny porywczy mutantGorertzMCFbezwzgledny spokojny mutantVittMC?bezwzgledny spokojny polelfVittMC?bezzebny koslawy ogrHawatOK?bezzebny porywczy ogrRoburKS?bialowlosy energiczny elfElistanSCTbladoskory czerwononosy ogrZookOKMbladoskory przygarbiony halfling???SC?blekitnooka ponura mutantka???MC?blekitnooki czarnowlosy mezczyznaArcziwaldMC?blekitnooki czarnowlosy mutantArcziwaldMC?blekitnooki mlody niziolekErnardSC?blekitnooki opanowany elfGildhelSC?blekitnooki porywczy niziolek???SC?blekitnooki szczuply elfHyoideusMC?blekitnooki szczuply mutantHyoideusMC?blekitnooki wysoki mutantSchizeinMC?blekitnooki wysoki polelfSchizeinMC?bloorpMCPbrodaty stary krasnoludGhordMC?brodaty stary mutantGhordMC?brudny smierdzacy mutantBurMCFbrudny smierdzacy ogrBurMCF}
#VAR xo_c {chorKSKchudy skosnooki gnomDaazMC?chudy skosnooki mutantDaazMC?ciemnooka jasnowlosa kobietaNarienneMC?ciemnooka jasnowlosa mutantkaNarienneMC?ciemnooki ciemnowlosy ogrVrotOK?ciemnoskory dlugoreki ogr???OK?ciemnoskory krwistooki ogrGrothanKS?ciemnoskory metnooki ogrGraburOKMciemnoskory piegowaty krasnoludSamchainMC?ciemnoskory piegowaty mutantSamchainMC?ciemnoskory rudy krasnoludMulanMC?ciemnoskory rudy mutantMulanMC?ciemnowlosy energiczny ogrRouanOK?ciemnowlosy masywny mezczyznaMalmorMC?ciemnowlosy masywny mutantMalmorMC?ciemnowlosy niebieskooki elfHavganSC?ciezki lysy ogr???OK?cirdMCBczarnooka czarnowlosa elfkaRimaSC?czarnooka ponura polelfka???KS?czarnooki masywny krasnolud???KS?czarnooki ponury elfSasukeSC?czarnoskora czerwonooka kobietaJadeMC?czarnoskora czerwonooka mutantkaJadeMC?czarnoskory bialowlosy mezczyznaRossMCSczarnoskory bialowlosy mutantRossMCSczarnoskory kruczowlosy mutantArgalghMC?czarnoskory kruczowlosy polelfArgalghMC?czarnowlosy bezwzgledny elfRazorMC?czarnowlosy bezwzgledny mutantRazorMC?czarnowlosy muskularny krasnoludNargurthSC?czarnowlosy muskularny mutantXanMC?czarnowlosy muskularny ogrXanMC?czarnowlosy ogorzaly gnomDerwigMC?czarnowlosy ogorzaly mutantDerwigMC?czerwonooki dojrzaly mezczyznaBorgMC?czerwonooki dojrzaly mutantBorgMC?czerwonooki ognistowlosy krasnoludUlhenMC?czerwonooki ognistowlosy mutantUlhenMC?czerwonooki siwy krasnoludLoramMC?czerwonooki siwy mutantLoramMC?czerwonowlosa rumiana krasnoludkaAstridSC?czerwonowlosy zlosliwy gnomUlichSC?czujny dlugonosy gnomNoorfMC?czujny dlugonosy mutantNoorfMC?czujny kudlaty gnomTakeoSC?}
#VAR xo_d {dlugonoga fiolkowooka mutantkaDeesisMC?dlugonoga fiolkowooka polelfkaDeesisMC?dlugonosy muskularny mutantKhongorMC?dlugonosy muskularny ogrKhongorMC?dlugoreki skoltuniony ogrZubOK?dlugowlosy blekitnooki elf???SC?dlugowlosy niebieskooki elfIlludilSC?dojrzaly czarnooki mutantOpetehMCFdojrzaly czarnooki ogrOpetehMCFdumna fiolkowooka mutantkaGesseritMC?dumna fiolkowooka polelfkaGesseritMC?dumna srebrnooka elfkaShannaSC?dumny blekitnooki mezczyznaArgornMC?dumny blekitnooki mutantArgornMC?dumny czerwonooki ogrHogallOKGdumny fiolkowooki elfSajjadinSC?dumny muskularny mutantBohardMC?dumny muskularny polelfBohardMC?dumny plomiennobrody krasnoludGorionMC?dumny plomiennobrody mutantGorionMC?dumny plomiennooki elfVindaelSC?dumny siwobrody krasnoludJabhornMC?dumny siwobrody mutantJabhornMC?dumny sniady mezczyzna???KS?}
#VAR xo_e {energiczna zielonooka elfkaYeandrilSC?energiczny barczysty mezczyznaMarcinsonKS?energiczny bialowlosy elfKaraksonSCPenergiczny kedzierzawy gnomFonklinKS?energiczny niebieskooki elfAsghartSC?energiczny okraglutki ogrHrathOKGevelaOKM}
#VAR xo_f {}
#VAR xo_g {galateaMC?ganrodMCFgertrudaMC?gomilMC?gorurOKGgrozny barczysty mezczyznaCohanKS?grozny leciwy krasnoludHargrindMC?grozny leciwy mutantHargrindMC?grozny masywny krasnoludKagnSC?grozny ogromny ogr???OK?grozny opanowany elfEvraelMC?grozny opanowany mutantEvraelMC?grozny szarooki elfKilvarSCSgruby ponury halflingStanMC?gruby ponury mutantStanMC?grungMCLgumrakOKFgurgOKF}
#VAR xo_h {hardy czerwonooki mutantGrogothMC?hardy czerwonooki ogrGrogothMC?hardy jasnooki mezczyznaMorholtKS?hardy snieznobrody krasnoludTuhanMCGhardy snieznobrody mutantTuhanMCGhardy zielonkawy ogr???OK?}
#VAR xo_i {ilaneSCNilsaMCF}
#VAR xo_j {jasnobrody plomiennooki mezczyznaGalardKS?jasnooka jasnowlosa elfkaEllandoraSC?jasnowlosa fiolkowooka elfkaLinhilKS?jednooki lysy ogrAnkOKSjednooki porywczy ogrKalunOKBjednooki rumiany krasnoludMargrafMC?jednooki rumiany mutantMargrafMC?jednooki wysoki elfLavitzSC?jednooki zasuszony gnomSiglikMC?jednooki zasuszony mutantSiglikMC?}
#VAR xo_k {kablakonogi lysiejacy mezczyzna???MC?karalMC?kasztanowlosy dlugouchy elf???SC?kasztanowowlosa niewysoka kobietaShanylKS?kasztanowowlosa zawadiacka elfkaBriseyuSC?kociooki piegowaty elf???SC?kosmaty czarnooki halflingKrespoMC?kosmaty czarnooki mutantKrespoMC?kosmaty zlosliwy niziolekOmenisSC?krepy siwy mezczyznaTulaczKS?krotkowlosa fiolkowooka elfkaIsiritMC?krotkowlosa fiolkowooka mutantkaIsiritMC?krotkowlosy mlody mezczyznaJeraltMCKkrotkowlosy mlody mutantJeraltMCKkrotkowlosy okazaly mutantBalgordMC?krotkowlosy okazaly ogrBalgordMC?krotkowlosy porywczy mezczyznaThaerKS?kruczowlosa jasnooka kobietaMahailaKS?kruczowlosa porywcza mutantka???MC?kruczowlosa smukla polelfkaCoriefKS?krzaczasty dziobaty krasnoludBaldarMC?krzaczasty dziobaty mutantBaldarMC?krzaczasty jednooki mutantFrancisMCBkrzaczasty jednooki polelfFrancisMCBkrzywonogi zezowaty ogrMomoOK?krzywonosy zaglodzony mutantTuliMC?krzywonosy zaglodzony polelfTuliMC?kudlaty ospowaty krasnoludHrabalMC?kudlaty ospowaty mutantHrabalMC?kulawy opalony mezczyznaUlverKS?}
#VAR xo_l {laciaty chudy ogrTrfogOKNletaliaSC?lysy bladoskory mezczyznaRaziekhKS?lysy gruby krasnolud???SC?lysy leciwy krasnoludXerksMCGlysy leciwy mutantXerksMCGlysy umiesniony mezczyznaArtegallKS?}
#VAR xo_m {maloletni wesoly mezczyznaUlafMC?maloletni wesoly mutantUlafMC?maloletni zlosliwy mutantAzzazMC?maloletni zlosliwy ogrAzzazMC?maloletnia zoltooka mutantkaGarenaMC?malomowny dostojny elfAnvaroMC?malomowny dostojny mutantAnvaroMC?malomowny ogolony mutantBrankovicMC?malomowny okazaly ogrGatzOK?malutki bialobrody halflingTiritMC?malutki bialobrody mutantTiritMC?malutki energiczny gnomHagusMC?malutki energiczny mutantHagusMC?maro--Gmasywny bezwzgledny krasnoludMelbornSC?masywny ciemnooki krasnoludDargothMC?masywny ciemnooki mutantDargothMC?masywny hardy krasnoludRagnukMC?masywny hardy mutantRagnukMC?masywny ognistobrody krasnoludBargrinMC?masywny ognistobrody mutantBargrinMC?masywny porywczy ogrGurpOKBmloda ognistooka kobietaAshaKS?mlody bezwzgledny mezczyznaHuggusKS?mlody czarnooki ogr???MC?mlody energiczny elfUsulSCSmlody muskularny mezczyznaKejnMCMmlody muskularny mutantKejnMCMmlody niebieskooki mezczyznaErinMCGmlody niebieskooki mutantErinMCGmlody niski krasnoludHardinSC?mlody spiczastouchy elfEredinSC?mlody zlotowlosy elfHalarMC?mlody zlotowlosy mutantHalarMC?modrooka mloda halflinkaElikeSC?modrooka opalona elfkaAidaSCPmodrooka ruda elfka???SC?moriSCFmuskularny ciemnowlosy mezczyznaSkudMC?muskularny ciemnowlosy mutantSkudMC?muskularny dumny krasnoludMorglumKS?muskularny krotkowlosy mezczyznaDragboMC?muskularny krotkowlosy mutantDragboMC?muskularny krwistooki krasnoludKordanMC?muskularny krwistooki mutantKordanMC?muskularny niebieskooki krasnolud???SC?muskularny opanowany krasnoludValdygarMC?muskularny opanowany mutantValdygarMC?muskularny ponury ogrKalwurOKNmuskularny rudy krasnoludKyanMC?muskularny rudy mutantKyanMC?muskularny zielonooki krasnoludPabloMC?muskularny zielonooki mutantPabloMC?}
#VAR xo_n {nerwowa zielonooka polelfkaReyleneKS?nerwowy bialowlosy elfAshtawaySC?nerwowy szarooki mezczyznaCalistoMCMnerwowy szarooki mutantCalistoMCMnerwowy zasuszony polelf???SC?niebieskooki czujny mezczyznaUrielMC?niebieskooki czujny mutantUrielMC?niebieskooki czujny polelf???SC?niebieskooki dojrzaly mezczyznaAdenKS?niebieskooki dostojny mutantGabrielMC?niebieskooki dostojny polelfGabrielMC?niebieskooki kruczowlosy mutantLoandilMC?niebieskooki kruczowlosy polelfLoandilMC?niebieskooki malomowny elfLauredilSC?niepozorna zlotowlosa kobietaAomiMCPniepozorna zlotowlosa mutantkaAomiMCPniepozorny dumny mutantTipiMC?niepozorny dumny niziolekTipiMC?niewysoki ogorzaly mezczyznaAsgerMC?niewysoki ogorzaly mutantAsgerMC?niewysoki ponury krasnoludBelmorMCLniewysoki ponury mutantBelmorMCLniski spokojny krasnoludGrozKS?}
#VAR xo_o {ognistobrody hardy krasnoludGothrinKS?ognistobrody masywny krasnoludDimitrMC?ognistobrody masywny mutantDimitrMC?ognistobrody sniady krasnoludKoridMC?ognistobrody sniady mutantKoridMC?ognistooka mloda elfka???SC?ognistowlosy dostojny mutantHespMCNognistowlosy dostojny niziolekHespMCNognistowlosy umiesniony mezczyznaFreyMC?ognistowlosy umiesniony mutantFreyMC?ogorzaly ciemnowlosy krasnoludBromarSC?ogorzaly jednooki polelfBonerSC?ogromny grozny ogrTrogOKMogromny krwistooki mutant???MC?ogromny ponury mutantGrotMC?ogromny ponury ogrGrotMC?ogromny wielki mutantKhurgMC?ogromny wielki ogrKhurgMC?okraglutki puculowaty niziolekBertySC?opanowany barylkowaty krasnoludYarrimSC?opanowany bezwzgledny ogrCiaranOK?opanowany grozny elfFelernSC?opanowany krotkowlosy mezczyznaIldfarthilMC?opanowany krotkowlosy mutantIldfarthilMC?opanowany plomiennobrody krasnoludBarmarMC?opanowany plomiennobrody mutantBarmarMC?opanowany plomiennooki mezczyznaSurgMC?opanowany plomiennooki mutantSurgMC?}
#VAR xo_p {paulieMCFpiegowaty zlotooki elfVisterSC?piwnooka piegowata kobietaEthelMC?piwnooka piegowata mutantkaEthelMC?piwnooki dumny krasnolud???SC?piwnooki krotkowlosy mutantAversarMCPpiwnooki krotkowlosy polelfAversarMCPpiwnooki smagly mutantTroppeMC?plamiasta krzywonoga ogrzycaJabockaOKSplasMC?plomiennobrody masywny krasnoludWishMC?plomiennobrody masywny mutantWishMC?plomiennooki bezwzgledny elf???SC?plomiennooki opanowany elfEltanMC?plomiennooki opanowany mutantEltanMC?podrastajacy ogolony mutantMubudMC?podrastajacy ogolony niziolekMubudMC?ponura czerwonooka ogrzyca???OKGponury brzuchaty ogrMaldunOK?ponury wysoki elfLeinSC?ponury zwalisty ogrOrikOKFporywczy ciemnooki elfVenireaghSC?porywczy dlugobrody mezczyznaArnvaldKSSporywczy siwy ogrKrahlKS?powazny ponury mezczyznaDaggerroMCNpowazny ponury mutantDaggerroMCNprzyjacielski umiesniony mutantHarothMC?przyjacielski umiesniony ogrHarothMC?puculowaty nerwowy halflingAvethMCNpuculowaty nerwowy mutantAvethMCNpulpOKS}
#VAR xo_q {}
#VAR xo_r {rashnakMC?ruarSC?rudobrody przyjacielski krasnoludMeksorKS?rudowlosy czujny niziolekBloomSCNrudy ostrouchy elfEmesSC?rumiana czerwonooka mutantkaVirisMC?rumiana czerwonooka ogrzycaVirisMC?rybiooki mlody krasnoludGerufSC?ryzy umiesniony krasnoludEhrundSC?ryzy zawadiacki gnomKrepMC?ryzy zawadiacki mutantKrepMC?}
#VAR xo_s {sanderMCFsarvenSCGsiwobrody stary krasnoludBreghnarMC?siwobrody stary mutantBreghnarMC?siwy garbaty ogrAzogOKFskoltuniony szarooki niziolek???SC?skosnooka bladoskora mutantkaVesperMC?skosnooki bladoskory elfSajinSC?smierdzacy skoltuniony ogrDumshOKPsmukla bialowlosa kobieta???MC?smukly jasnooki elfSkavoSC?smukly mlody mezczyznaUrisielKS?smukly zlotooki elf???SC?spokojny mlody gnomCorbenMC?spokojny mlody mutantCorbenMC?spokojny przyjacielski ogrMorowakOK?spokojny smukly polelfEvertsenSC?spokojny srebrnooki elfCredSC?spokojny zarosniety mezczyznaOdymMCPspokojny zarosniety mutantOdymMCPsrebrnowlosy bladoskory elfRaellSC?stary czarnoskory mezczyznaNobiaMCNstary czarnoskory mutantNobiaMCNstary malomowny krasnoludGerathMC?stary malomowny mutantGerathMC?stary ogromny ogrAndreasOK?stary siwy ogr???OK?stary zlosliwy krasnolud???MC?stary zlosliwy mutantBelfordMCLszarawy szczerbaty ogrArokOK?szarooka czujna elfkaSheeahSC?szarooki grozny elf???SC?szarooki krepy krasnoludTryggviSC?szarooki krotkonosy ogr???OKNszczawikowaty zasuszony gnomPixKS?szczawikowaty zlosliwy elfGleanevallSCNszczeciniasty smierdzacy ogrBugalOKLszczeciniasty wylupiastooki ogrRerukKS?szczerbaty tepy mutantThorzanMCFszczerbaty tepy ogrThorzanMCFszczupla niebieskooka krasnoludkaLahraSCPszkieletowaty brudny gnomMusinSC?szkieletowaty dlugonosy gnomBivixKS?szpotawy dlugowlosy ogrBurlovOKG}
#VAR xo_t {thaallMC?thrangornMCMtroalMCG}
#VAR xo_u {ulavSCLumiesniony dojrzaly mezczyznaKallianKS?umiesniony piegowaty krasnolud???SC?}
#VAR xo_v {vaiMC?vailenSCFvesnaMCSvoridMC?}
#VAR xo_w {warlMC?wasaty jednooki mezczyznaBharnabaKS?wasaty krzywonogi mezczyzna???KS?wasaty piwnooki krasnoludMokochidKS?wesoly kudlaty ogrPlukOKBwiekowy czerwonooki ogrRharOK?wiekowy czujny mezczyznaTharrMCPwiekowy czujny mutantTharrMCPwiekowy ogromny ogrGromgolOKLwiekowy ponury mutant???MC?wielki czarnooki mezczyznaSlainKS?wielki ponury mezczyznaNekMC?wielki ponury mutantNekMC?wielki smierdzacy mutantHamaMCLwielki smierdzacy ogrHamaMCLwielkonosy beczulkowaty krasnolud???KS?wilibaldMCNwylenialy stary ogrUgmarOKFwylupiastooki krostowaty mezczyznaMyzzMC?wylupiastooki krostowaty mutantMyzzMC?wyniosly plomiennooki elfEladrielMCFwyniosly plomiennooki mutantEladrielMCFwysoki dostojny mezczyznaKhristoffKS?wysoki energiczny mezczyzna???MC?wysoki przyjacielski mezczyznaGarrickMC?wysoki przyjacielski mutantGarrickMC?wysoki wielkonosy ogrAzharOKG}
#VAR xo_x {}
#VAR xo_y {}
#VAR xo_z {zarosniety hardy mutantOrqunMC?zarosniety hardy ogrOrqunMC?zawadiacki bladoskory halfling???SC?zezowaty masywny ogr???OK?zgrzybialy garbaty mutantPokrakMC?zgrzybialy garbaty ogrPokrakMC?zielonkawy czerwonooki ogrBlurpOK?zielonkawy energiczny ogrRygOK?zielonkawy hardy ogrTygOKFzielonkawy skoltuniony mutantAkanMC?zielonkawy skoltuniony ogrAkanMC?zielonooki mlody polelf???MC?zielonooki porywczy mezczyznaMarcoMC?zielonooki porywczy mutantMarcoMC?zimnooki okrutny elfElenrilSC?zlosliwa rudowlosa elfkaLilithMC?zlosliwa rudowlosa mutantkaLilithMC?zlosliwy bladoskory krasnolud???SC?zlosliwy skosnooki gnomMorgasSC?zlotooka dumna elfka???SC?zlotooka niepozorna halflinkaCarollaSC?zlotooki krzywonosy elfFeanenSC?zlotowlosa przyjacielska elfkaAkinaSC?zlotowlosy dostojny elfTalorisSC?zorpenMC?zwalisty bezzebny mezczyznaNikodemusMC?zwalisty bezzebny mutantNikodemusMC?zwalisty hardy ogrGrumshKSBzwalisty porywczy mezczyznaPerrarKS?zwalisty wasaty mezczyznaCronMCMzwalisty wasaty mutantCronMCM}
#CLASS 0
#CLASS {Postacie|en_co}
#VAR enva_gildia {_enva_BLANK|jednooka niska kobieta}
#VAR envai_gildia {_enva_BLANK|Adwald|Avenilo|Berondal|Cadael|Dahed|Drachen|Falik|Irwin|Kinrim|Natasza|Ralf|Reindhart|Taghor|Terum|Tuargan|Zetu}
#VAR enva_Kandydaci {_enva_BLANK}
#VAR envai_Kandydaci {_enva_BLANK|Agis|Artheos|Targan}
#VAR enva_korki {_enva_BLANK|bezzebny porywczy ogr|ciemnoskory krwistooki ogr|czarnooka ponura polelfka|czarnooki masywny krasnolud|dumny sniady mezczyzna|energiczny barczysty mezczyzna|energiczny kedzierzawy gnom|grozny barczysty mezczyzna|hardy jasnooki mezczyzna|jasnobrody plomiennooki mezczyzna|jasnowlosa fiolkowooka elfka|kasztanowowlosa niewysoka kobieta|krepy siwy mezczyzna|krotkowlosy porywczy mezczyzna|kruczowlosa jasnooka kobieta|kruczowlosa smukla polelfka|kulawy opalony mezczyzna|lysy bladoskory mezczyzna|lysy umiesniony mezczyzna|mloda ognistooka kobieta|mlody bezwzgledny mezczyzna|muskularny dumny krasnolud|nerwowa zielonooka polelfka|niebieskooki dojrzaly mezczyzna|niski spokojny krasnolud|ognistobrody hardy krasnolud|porywczy dlugobrody mezczyzna|porywczy siwy ogr|rudobrody przyjacielski krasnolud|smukly mlody mezczyzna|szczawikowaty zasuszony gnom|szczeciniasty wylupiastooki ogr|szkieletowaty dlugonosy gnom|umiesniony dojrzaly mezczyzna|wasaty jednooki mezczyzna|wasaty krzywonogi mezczyzna|wasaty piwnooki krasnolud|wielki czarnooki mezczyzna|wielkonosy beczulkowaty krasnolud|wysoki dostojny mezczyzna|zwalisty hardy ogr|zwalisty porywczy mezczyzna}
#VAR envai_korki {_enva_BLANK|Chor(?!az)}
#VAR enva_przyjaciele {_enva_BLANK}
#VAR envai_przyjaciele {_enva_BLANK|Aghna|Artak|Balkrag|Bamik|Ellax|Onvalia|Quantyl|Volhold}
#VAR enva_sojusznicy {_enva_BLANK}
#VAR envai_sojusznicy {_enva_BLANK|Aldaron|Amargein|Aprokop|Ataman|Barad|Belgat|Bragor|Brygu|Clawarm|Crer|Davith|Duruk|Edmund|Elaner|Eldakar|Evandeil|Ferd|Friili|Goldfinger|Goris|Grrid|Gruer|Hasandara|Jennever|Kelebor|Keyn|Kilron|Luinarienn|Luntar|Mithari|Modar|Mungrim|Nevare|Othis|Ralandil|Shiori|Solenay|(Teo(?!a|p|s))|Terenes|Thaess|Thorffin|Tibauld|Ulrad|Urs|Vinga(?!t)|Yanna|Zeep}
#VAR enva_wrogowie {_enva_BLANK|barczysty kudlaty krasnolud|barczysty kudlaty mutant|bezwzgledny porywczy krasnolud|bezwzgledny porywczy mutant|bezwzgledny spokojny mutant|bezwzgledny spokojny polelf|bezzebny koslawy ogr|bialowlosy energiczny elf|bladoskory czerwononosy ogr|bladoskory przygarbiony halfling|blekitnooka ponura mutantka|blekitnooki czarnowlosy mezczyzna|blekitnooki czarnowlosy mutant|blekitnooki mlody niziolek|blekitnooki opanowany elf|blekitnooki porywczy niziolek|blekitnooki szczuply elf|blekitnooki szczuply mutant|blekitnooki wysoki mutant|blekitnooki wysoki polelf|brodaty stary krasnolud|brodaty stary mutant|brudny smierdzacy mutant|brudny smierdzacy ogr|chudy skosnooki gnom|chudy skosnooki mutant|ciemnooka jasnowlosa kobieta|ciemnooka jasnowlosa mutantka|ciemnooki ciemnowlosy ogr|ciemnoskory dlugoreki ogr|ciemnoskory metnooki ogr|ciemnoskory piegowaty krasnolud|ciemnoskory piegowaty mutant|ciemnoskory rudy krasnolud|ciemnoskory rudy mutant|ciemnowlosy energiczny ogr|ciemnowlosy masywny mezczyzna|ciemnowlosy masywny mutant|ciemnowlosy niebieskooki elf|ciezki lysy ogr|czarnooka czarnowlosa elfka|czarnooki ponury elf|czarnoskora czerwonooka kobieta|czarnoskora czerwonooka mutantka|czarnoskory bialowlosy mezczyzna|czarnoskory bialowlosy mutant|czarnoskory kruczowlosy mutant|czarnoskory kruczowlosy polelf|czarnowlosy bezwzgledny elf|czarnowlosy bezwzgledny mutant|czarnowlosy muskularny krasnolud|czarnowlosy muskularny mutant|czarnowlosy muskularny ogr|czarnowlosy ogorzaly gnom|czarnowlosy ogorzaly mutant|czerwonooki dojrzaly mezczyzna|czerwonooki dojrzaly mutant|czerwonooki ognistowlosy krasnolud|czerwonooki ognistowlosy mutant|czerwonooki siwy krasnolud|czerwonooki siwy mutant|czerwonowlosa rumiana krasnoludka|czerwonowlosy zlosliwy gnom|czujny dlugonosy gnom|czujny dlugonosy mutant|czujny kudlaty gnom|dlugonoga fiolkowooka mutantka|dlugonoga fiolkowooka polelfka|dlugonosy muskularny mutant|dlugonosy muskularny ogr|dlugoreki skoltuniony ogr|dlugowlosy blekitnooki elf|dlugowlosy niebieskooki elf|dojrzaly czarnooki mutant|dojrzaly czarnooki ogr|dumna fiolkowooka mutantka|dumna fiolkowooka polelfka|dumna srebrnooka elfka|dumny blekitnooki mezczyzna|dumny blekitnooki mutant|dumny czerwonooki ogr|dumny fiolkowooki elf|dumny muskularny mutant|dumny muskularny polelf|dumny plomiennobrody krasnolud|dumny plomiennobrody mutant|dumny plomiennooki elf|dumny siwobrody krasnolud|dumny siwobrody mutant|energiczna zielonooka elfka|energiczny bialowlosy elf|energiczny niebieskooki elf|energiczny okraglutki ogr|grozny leciwy krasnolud|grozny leciwy mutant|grozny masywny krasnolud|grozny ogromny ogr|grozny opanowany elf|grozny opanowany mutant|grozny szarooki elf|gruby ponury halfling|gruby ponury mutant|hardy czerwonooki mutant|hardy czerwonooki ogr|hardy snieznobrody krasnolud|hardy snieznobrody mutant|hardy zielonkawy ogr|jasnooka jasnowlosa elfka|jednooki lysy ogr|jednooki porywczy ogr|jednooki rumiany krasnolud|jednooki rumiany mutant|jednooki wysoki elf|jednooki zasuszony gnom|jednooki zasuszony mutant|kablakonogi lysiejacy mezczyzna|kablakonogi lysiejacy mutant|kasztanowlosy dlugouchy elf|kasztanowowlosa zawadiacka elfka|kociooki piegowaty elf|kosmaty czarnooki halfling|kosmaty czarnooki mutant|kosmaty zlosliwy niziolek|krotkowlosa fiolkowooka elfka|krotkowlosa fiolkowooka mutantka|krotkowlosy mlody mezczyzna|krotkowlosy mlody mutant|krotkowlosy okazaly mutant|krotkowlosy okazaly ogr|kruczowlosa porywcza mutantka|krzaczasty dziobaty krasnolud|krzaczasty dziobaty mutant|krzaczasty jednooki mutant|krzaczasty jednooki polelf|krzywonogi zezowaty ogr|krzywonosy zaglodzony mutant|krzywonosy zaglodzony polelf|kudlaty ospowaty krasnolud|kudlaty ospowaty mutant|laciaty chudy ogr|lysy gruby krasnolud|lysy leciwy krasnolud|lysy leciwy mutant|maloletni wesoly mezczyzna|maloletni wesoly mutant|maloletni zlosliwy mutant|maloletni zlosliwy ogr|maloletnia zoltooka mutantka|malomowny dostojny elf|malomowny dostojny mutant|malomowny ogolony mutant|malomowny okazaly ogr|malutki bialobrody halfling|malutki bialobrody mutant|malutki energiczny gnom|malutki energiczny mutant|masywny bezwzgledny krasnolud|masywny ciemnooki krasnolud|masywny ciemnooki mutant|masywny hardy krasnolud|masywny hardy mutant|masywny ognistobrody krasnolud|masywny ognistobrody mutant|masywny porywczy ogr|mlody czarnooki mutant|mlody czarnooki ogr|mlody energiczny elf|mlody muskularny mezczyzna|mlody muskularny mutant|mlody niebieskooki mezczyzna|mlody niebieskooki mutant|mlody niski krasnolud|mlody spiczastouchy elf|mlody zlotowlosy elf|mlody zlotowlosy mutant|modrooka mloda halflinka|modrooka opalona elfka|modrooka ruda elfka|muskularny ciemnowlosy mezczyzna|muskularny ciemnowlosy mutant|muskularny krotkowlosy mezczyzna|muskularny krotkowlosy mutant|muskularny krwistooki krasnolud|muskularny krwistooki mutant|muskularny niebieskooki krasnolud|muskularny opanowany krasnolud|muskularny opanowany mutant|muskularny ponury ogr|muskularny rudy krasnolud|muskularny rudy mutant|muskularny zielonooki krasnolud|muskularny zielonooki mutant|nerwowy bialowlosy elf|nerwowy szarooki mezczyzna|nerwowy szarooki mutant|nerwowy zasuszony polelf|niebieskooki czujny mezczyzna|niebieskooki czujny mutant|niebieskooki czujny polelf|niebieskooki dostojny mutant|niebieskooki dostojny polelf|niebieskooki kruczowlosy mutant|niebieskooki kruczowlosy polelf|niebieskooki malomowny elf|niepozorna zlotowlosa kobieta|niepozorna zlotowlosa mutantka|niepozorny dumny mutant|niepozorny dumny niziolek|niewysoki ogorzaly mezczyzna|niewysoki ogorzaly mutant|niewysoki ponury krasnolud|niewysoki ponury mutant|ognistobrody masywny krasnolud|ognistobrody masywny mutant|ognistobrody sniady krasnolud|ognistobrody sniady mutant|ognistooka mloda elfka|ognistowlosy dostojny mutant|ognistowlosy dostojny niziolek|ognistowlosy umiesniony mezczyzna|ognistowlosy umiesniony mutant|ogorzaly ciemnowlosy krasnolud|ogorzaly jednooki polelf|ogromny grozny ogr|ogromny krwistooki mutant|ogromny ponury mutant|ogromny ponury ogr|ogromny wielki mutant|ogromny wielki ogr|okraglutki puculowaty niziolek|opanowany barylkowaty krasnolud|opanowany bezwzgledny ogr|opanowany grozny elf|opanowany krotkowlosy mezczyzna|opanowany krotkowlosy mutant|opanowany plomiennobrody krasnolud|opanowany plomiennobrody mutant|opanowany plomiennooki mezczyzna|opanowany plomiennooki mutant|piegowaty zlotooki elf|piwnooka piegowata kobieta|piwnooka piegowata mutantka|piwnooki dumny krasnolud|piwnooki krotkowlosy mutant|piwnooki krotkowlosy polelf|piwnooki smagly mutant|plamiasta krzywonoga ogrzyca|plomiennobrody masywny krasnolud|plomiennobrody masywny mutant|plomiennooki bezwzgledny elf|plomiennooki opanowany elf|plomiennooki opanowany mutant|podrastajacy ogolony mutant|podrastajacy ogolony niziolek|ponura czerwonooka ogrzyca|ponury brzuchaty ogr|ponury wysoki elf|ponury zwalisty ogr|porywczy ciemnooki elf|powazny ponury mezczyzna|powazny ponury mutant|przyjacielski umiesniony mutant|przyjacielski umiesniony ogr|puculowaty nerwowy halfling|puculowaty nerwowy mutant|rudowlosy czujny niziolek|rudy ostrouchy elf|rumiana czerwonooka mutantka|rumiana czerwonooka ogrzyca|rybiooki mlody krasnolud|ryzy umiesniony krasnolud|ryzy zawadiacki gnom|ryzy zawadiacki mutant|siwobrody stary krasnolud|siwobrody stary mutant|siwy garbaty ogr|skoltuniony szarooki niziolek|skosnooka bladoskora mutantka|skosnooki bladoskory elf|smierdzacy skoltuniony ogr|smukla bialowlosa kobieta|smukla bialowlosa mutantka|smukly jasnooki elf|smukly zlotooki elf|spokojny mlody gnom|spokojny mlody mutant|spokojny przyjacielski ogr|spokojny smukly polelf|spokojny srebrnooki elf|spokojny zarosniety mezczyzna|spokojny zarosniety mutant|srebrnowlosy bladoskory elf|stary czarnoskory mezczyzna|stary czarnoskory mutant|stary malomowny krasnolud|stary malomowny mutant|stary ogromny ogr|stary siwy ogr|stary zlosliwy krasnolud|stary zlosliwy mutant|szarawy szczerbaty ogr|szarooka czujna elfka|szarooki grozny elf|szarooki krepy krasnolud|szarooki krotkonosy ogr|szczawikowaty zlosliwy elf|szczeciniasty smierdzacy ogr|szczerbaty tepy mutant|szczerbaty tepy ogr|szczupla niebieskooka krasnoludka|szkieletowaty brudny gnom|szpotawy dlugowlosy ogr|umiesniony piegowaty krasnolud|wesoly kudlaty ogr|wiekowy czerwonooki ogr|wiekowy czujny mezczyzna|wiekowy czujny mutant|wiekowy ogromny ogr|wiekowy ponury mutant|wielki ponury mezczyzna|wielki ponury mutant|wielki smierdzacy mutant|wielki smierdzacy ogr|wylenialy stary ogr|wylupiastooki krostowaty mezczyzna|wylupiastooki krostowaty mutant|wyniosly plomiennooki elf|wyniosly plomiennooki mutant|wysoki energiczny mezczyzna|wysoki energiczny mutant|wysoki przyjacielski mezczyzna|wysoki przyjacielski mutant|wysoki wielkonosy ogr|zarosniety hardy mutant|zarosniety hardy ogr|zawadiacki bladoskory halfling|zezowaty masywny ogr|zgrzybialy garbaty mutant|zgrzybialy garbaty ogr|zielonkawy czerwonooki ogr|zielonkawy energiczny ogr|zielonkawy hardy ogr|zielonkawy skoltuniony mutant|zielonkawy skoltuniony ogr|zielonooki mlody mutant|zielonooki mlody polelf|zielonooki porywczy mezczyzna|zielonooki porywczy mutant|zimnooki okrutny elf|zlosliwa rudowlosa elfka|zlosliwa rudowlosa mutantka|zlosliwy bladoskory krasnolud|zlosliwy skosnooki gnom|zlotooka dumna elfka|zlotooka niepozorna halflinka|zlotooki krzywonosy elf|zlotowlosa przyjacielska elfka|zlotowlosy dostojny elf|zwalisty bezzebny mezczyzna|zwalisty bezzebny mutant|zwalisty wasaty mezczyzna|zwalisty wasaty mutant}
#VAR envai_wrogowie {_enva_BLANK|Abr|Abuan|Aiathel|Auglenn|Azarg|Azok|Bam(?!i)|Bloorp|Cird|Evela|Galatea|Ganrod|Gertruda|Gomil|Gorur|Grung(?!n)|Gumrak|Gurg|Ilane|Ilsa|Karal|Letalia|(Maro(?!g|k|m|n|t|u|v))|(Mori(?!b|g|n|o|p|v))|Paulie|(Plas(?!k|zcz))|Pulp|Rashnak|Ruar|Sander|Sarven|Thaall|Thrangorn|Troal|Ulav|(Vai(?!b|n))|Vailen|Vesna|Vorid|Warl|Wilibald|Zorpen}
#REGEX "entr_gildia" {\b(@enva_gildia)\a*(?! chaosu)} {#cw #C0C0C0}
#REGEX "entri_gildia" {\b(@envai_gildia)\a*} {#cw #C0C0C0} "" {case}
#REGEX "entr_Kandydaci" {\b(@enva_Kandydaci)\a*(?! chaosu)} {#cw #AA99CC}
#REGEX "entri_Kandydaci" {\b(@envai_Kandydaci)\a*} {#cw #AA99CC} "" {case}
#REGEX "entr_korki" {\b(@enva_korki)\a*(?! chaosu)} {#cw #A9CC2F;kw_last_enemy=%1}
#REGEX "entri_korki" {\b(@envai_korki)\a*} {#cw #A9CC2F;kw_last_enemy=%1} "" {case}
#REGEX "entr_przyjaciele" {\b(@enva_przyjaciele)\a*(?! chaosu)} {#cw #AA99CC}
#REGEX "entri_przyjaciele" {\b(@envai_przyjaciele)\a*} {#cw #AA99CC} "" {case}
#REGEX "entr_sojusznicy" {\b(@enva_sojusznicy)\a*(?! chaosu)} {#cw 3}
#REGEX "entri_sojusznicy" {\b(@envai_sojusznicy)\a*} {#cw 3} "" {case}
#REGEX "entr_wrogowie" {\b(@enva_wrogowie)\a*(?! chaosu)} {#cw 6;kw_last_enemy=%1}
#REGEX "entri_wrogowie" {\b(@envai_wrogowie)\a*} {#cw 6;kw_last_enemy=%1} "" {case}
#CLASS 0
#CLASS {Ocen}
#ALIAS ocen {#if (%1) {#va ocen_ndb {};#t+ Oceniasz_starannie;%literal( ocen %-1)}}
#ALIAS pokaz {#if (%1) {#t+ Lap_ocene;%literal( pokaz %-1)}}
#ALIAS sprzedaj {#if (%1) {#t+ Ocen_wartosci;%literal( sprzedaj %-1)}}
#ALIAS wycen {#if (%1) {#t+ Ocen_wartosci;%literal( wycen %-1)}}
#ALIAS wystaw {#if (%1) {#t+ Ocen_wartosci;%literal( wystaw %-1)}}
#ALIAS -szukaj {#if (%len( "%-1")) {ocenw_temp.nazwa="%-1";ocenw_szukaj2} {ocenw_pokaz}}
#ALIAS ocen_aktualizuj_materialy {#showp Aktualizuje liste materialow...;#loopdb @ocen_ubranie_typ {#additem ocen_materialy {%val}};#loopdb @ocen_pojemnik_typ {#additem ocen_materialy {%val}};#show Ok.}
#ALIAS ocen_odloz {#if (%ismember( %1, %db( @ocen_ndb, %-3))) {odloz @odmien_liczebnik(%ismember(%1,%db(@ocen_ndb,%-3)),%2) %-3;#addkey ocen_ndb {%-3} {%delitem( %1, %db( @ocen_ndb, %-3))}} {#sh --> %item( Ten|Ta|Te, %2) @odmienp_bm(%-3) zostal%item( |a|o, %2) juz odlozon%item( y|a|e, %2).}}
#ALIAS ocen_zaloz {#if (%ismember( %1, %db( @ocen_ndb, %-3))) {zaloz @odmien_liczebnik(%ismember(%1,%db(@ocen_ndb,%-3)),%2) %-3}}
#ALIAS ocen_zabezpiecz {#if (%ismember( %1, %db( @ocen_ndb, %-3))) {zabezpiecz @odmien_liczebnik(%ismember(%1,%db(@ocen_ndb,%-3)),%2) %-3}}
#ALIAS ocen_zrzuc {#sh Rozpoczynam zrzut bazy przedmiotow na dysk.;#file 1 OC_DATA_%time( yy_mm_dd-hh_nn).txt;#wri 1 {-------------------- ZBROJE --------------------};#loopdb @ocen_zbroje_waga {#wri 1 {Opis: %key};#wri 1 {Typ: %db( @ocen_zbroje_typ, %key)};#wri 1 {Chroni: %db( @ocen_zbroje_chroni, %key)};#wri 1 {Waga: %val, Obj: %db( @ocen_zbroje_obj, %key)};#wri 1 {Wartosc: %db( @ocen_zbroje_wartosc, %key)};#wri 1 {Sprzedaz: %db( @{@ocen_sprzedaz_name(%key)}, %key)};#wri 1 {Pochodzenie: %db( @ocen_zbroje_pochodzenie, %key)};#wri 1 {Komentarz: %db( @ocen_zbroje_komentarz, %key)};#wri 1 {Aukcja: %db( @ocen_aukcja, %key)};#wri 1 {Zamowienie: %db( @{@ocen_zamowienie_name(%key)}, %key)};#wri 1 {------------------------------------------};#wri 1 {" "}};#wri 1 {" "};#wri 1 {-------------------- BRONIE --------------------};#loopdb @ocen_bron_waga {#wri 1 {Opis: %key};#wri 1 {Typ: %db( @ocen_bron_typ, %key)};#wri 1 {Rany: %db( @ocen_bron_rany, %key)};#wri 1 {Reka: %db( @ocen_bron_reka, %key)};#wri 1 {Waga: %val, Obj: %db( @ocen_bron_obj, %key)};#wri 1 {Wartosc: %db( @ocen_bron_wartosc, %key)};#wri 1 {Sprzedaz: %db( @{@ocen_sprzedaz_name(%key)}, %key)};#wri 1 {Pochodzenie: %db( @ocen_bron_pochodzenie, %key)};#wri 1 {Komentarz: %db( @ocen_bron_komentarz, %key)};#wri 1 {Aukcja: %db( @ocen_aukcja, %key)};#wri 1 {Zamowienie: %db( @{@ocen_zamowienie_name(%key)}, %key)};#if (%ismember( %key, @ocen_bron_magia)) {#wri 1 {"          MAGIK"}};#if (%ismember( %key, @ocen_bron_srebro)) {#wri 1 {"          SREBRO"}};#wri 1 {------------------------------------------};#wri 1 {" "}};#wri 1 {" "};#wri 1 {-------------------- TARCZE --------------------};#loopdb @ocen_tarcze_waga {#wri 1 {Opis: %key};#wri 1 {Waga: %val, Obj: %db( @ocen_tarcze_obj, %key)};#wri 1 {Wartosc: %db( @ocen_tarcze_wartosc, %key)};#wri 1 {Sprzedaz: %db( @{@ocen_sprzedaz_name(%key)}, %key)};#wri 1 {Pochodzenie: %db( @ocen_tarcze_pochodzenie, %key)};#wri 1 {Komentarz: %db( @ocen_tarcze_komentarz, %key)};#wri 1 {Aukcja: %db( @ocen_aukcja, %key)};#wri 1 {Zamowienie: %db( @{@ocen_zamowienie_name(%key)}, %key)};#wri 1 {------------------------------------------};#wri 1 {" "}};#wri 1 {" "};#wri 1 {----------- TARCZE NIE CHRONIACE ------------};#loopdb @ocen_puklerz_waga {#wri 1 {Opis: %key};#wri 1 {Waga: %val, Obj: %db( @ocen_puklerz_obj, %key)};#wri 1 {Wartosc: %db( @ocen_puklerz_wartosc, %key)};#wri 1 {Sprzedaz: %db( @{@ocen_sprzedaz_name(%key)}, %key)};#wri 1 {Pochodzenie: %db( @ocen_puklerz_pochodzenie, %key)};#wri 1 {Komentarz: %db( @ocen_puklerz_komentarz, %key)};#wri 1 {Aukcja: %db( @ocen_aukcja, %key)};#wri 1 {Zamowienie: %db( @{@ocen_zamowienie_name(%key)}, %key)};#wri 1 {------------------------------------------};#wri 1 {" "}};#wri 1 {" "};#wri 1 {--------------- EKWIPUNEK ----------------};#loopdb @ocen_ekw_waga {#wri 1 {Opis: %key};#wri 1 {Waga: %val, Obj: %db( @ocen_ekw_obj, %key)};#wri 1 {Wartosc: %db( @ocen_ekw_wartosc, %key)};#wri 1 {Sprzedaz: %db( @{@ocen_sprzedaz_name(%key)}, %key)};#wri 1 {Pochodzenie: %db( @ocen_ekw_pochodzenie, %key)};#wri 1 {Komentarz: %db( @ocen_ekw_komentarz, %key)};#wri 1 {------------------------------------------};#wri 1 {" "}};#wri 1 {" "};#wri 1 {--------------- UBRANIE ----------------};#loopdb @ocen_ubranie_waga {#wri 1 {Opis: %key};#wri 1 {Waga: %val, Obj: %db( @ocen_ubranie_obj, %key)};#wri 1 {Wartosc: %db( @ocen_ubranie_wartosc, %key)};#wri 1 {Typ: %db( @ocen_ubranie_typ, %key)};#wri 1 {Sprzedaz: %db( @{@ocen_sprzedaz_name(%key)}, %key)};#wri 1 {Pochodzenie: %db( @ocen_ubranie_pochodzenie, %key)};#wri 1 {Komentarz: %db( @ocen_ubranie_komentarz, %key)};#wri 1 {------------------------------------------};#wri 1 {" "}};#wri 1 {" "};#wri 1 {--------------- UBRANIE ----------------};#loopdb @ocen_pojemnik_waga {#wri 1 {Opis: %key};#wri 1 {Waga: %val, Obj: %db( @ocen_pojemnik_obj, %key)};#wri 1 {Wartosc: %db( @ocen_pojemnik_wartosc, %key)};#wri 1 {Typ: %db( @ocen_pojemnik_typ, %key)};#wri 1 {Sprzedaz: %db( @{@ocen_sprzedaz_name(%key)}, %key)};#wri 1 {Pochodzenie: %db( @ocen_pojemnik_pochodzenie, %key)};#wri 1 {Komentarz: %db( @ocen_pojemnik_komentarz, %key)};#wri 1 {------------------------------------------};#wri 1 {" "}};#wri 1 {" "};#wri 1 {--------------- INNE ----------------};#loopdb @ocen_inne_waga {#wri 1 {Opis: %key};#wri 1 {Waga: %val, Obj: %db( @ocen_inne_obj, %key)};#wri 1 {Wartosc: %db( @ocen_inne_wartosc, %key)};#wri 1 {Sprzedaz: %db( @{@ocen_sprzedaz_name(%key)}, %key)};#wri 1 {Pochodzenie: %db( @ocen_inne_pochodzenie, %key)};#wri 1 {Komentarz: %db( @ocen_inne_komentarz, %key)};#wri 1 {------------------------------------------};#wri 1 {" "}};#close 1;#sh Ok.}
#VAR ocen_db {mianzielonkawy awenturynwaga590gobj200mlzniszczenieMAXinne0longTen mineral o wyjatkowo wyraznej lupliwosci i szklistym polysku najczesciej wystepuje w postaci trygonalnej badz stozkowej. Ma gleboka, zielonkawa barwe, w niektorych miejscach opalizujaca, w innych czysto przezroczysta. Trudny w obrobce jubilerskiej, rzadko jest uzywany w tworzeniu ozdob i klejnotow.wartosc18000}
#VAR ocen_ldb {vsumvnum}
#VAR ocen_ndb {bier}
#VAR ocen_zniszczenie {kazdej chwil1j konserwacj2akanym stani2epskim stani3o zlym stani3 podniszczon4w zlym stani4 swoje pietn5dobrym stani6omitym staniMAX}
#VAR ocen_autor {Autor skrypu: Cerdin. v.2.24} {Autor skrypu: Cerdin. v.2.24}
#VAR ocen_format_wo {<color #868686>%if( !"%1", "<brak>", %if( (%ends( %1, ml))|(%ends( %1, kg)), %concat( %repeat( " ", 6-%len( %1)) %leftback( %1, 2), " ", %rightback( %1, 2)), %concat( %repeat( " ", 5-%len( %1)) %leftback( %1, 1), "  ", %rightback( %1, 1))))</color>}
#VAR ocen_format_wartosc {%if( %number( %1)<0, "<color #CCCCCC                                      >---</color>", %if( %1, @miedz_na_monety(%1), @miedz_na_monety(0)))}
#VAR ocen_sprzedaz_name {ocen_sprzedaz_%eval( %abs( %ascii( %1)-97)/6)}
#VAR ocen_zamowienie_name {ocen_zamowienie_%eval( %abs( %ascii( %1)-97)/6)}
#VAR ocen_kategorie_list {bron|zbroje|tarcze|puklerz|ekw|ubranie|pojemnik|inne}
#VAR ocen_kategorie_listo {bron|zbroja|tarcza|tarcza bez AC|ekwipunek|ubranie|pojemnik|inne}
#VAR ocen_kategorie_db {bronbronzbrojezbrojatarczetarczapuklerztarcza bez ACekwekwipunekubranieubraniepojemnikpojemnikinneinne}
#VAR ocen_kategorie_dbo {bronbronzbrojazbrojetarczatarczetarcza bez ACpuklerzekwipunekekwubranieubraniepojemnikpojemnikinneinne}
#VAR ocen_matchdb {waga3}
#VAR ocen_czy_jeden_przedmiot {%if((%pos(",","%1"))|(%pos(" i ","%1"))|(%pos(" wiele "," %1"))|(%pos("ogromny stos"," %1"))|(%match("%1","%d"))|(%match(" %1"," {dwa|dwie|trzy|cztery|piec|szesc|siedem|osiem|dziewiec|dziesiec|jedenascie|dwanascie|trzynascie|czternascie|pietnascie|szesnascie|siedemnascie|osiemnascie|dziewietnascie|dwadziescia}")),0,1)}
#VAR ocen_wpis {Blaviken - cmentarz}
#VAR ocen_materialy {z batystu|ze skory|z bawelny|z lnu|z futra|z zelaza|z aksamitu|z muslinu|z welny|z drewna}
#VAR ocen_ignore_end {0}
#VAR pomoc_ocena {   -szukaj        - otworz okno wyszukiwania w bazie ekwipunku;   -eq            - ocen zalozone zbroje i dobyte bronie, poczym pokaz ich stan w oknie;                    LUB wylacz okno jezeli jest wlaczone}
#TRIGGER "Oceniasz_starannie" {^Oceniasz starannie (*).$} {#t+ Lap_ocene;ocen_ndb.bier = %1} "" {disable}
#COND {^{|> }(*)$} {ocen_db.long="%1"} {within|param=1|disable}
#TRIGGER {pokazuje ci} {#t+ Lap_ocene}
#TRIGGER {^{|> }daj} {#t+ Ocen_wartosci} "" {case}
#CLASS 0
#CLASS {Ocen|Ocen_wpisy}
#ALIAS ocen_dodaj_zbroje {#va ocen_db.inne 0;#if (@za_lap_ocene) {#forall %replace( %replace( %replace( @ocen_db.chroni, ramiona, lewe ramie|prawe ramie), dlonie, lewa dlon|prawa dlon), stopy, lewa stope|prawa stope) {#addkey za_przedmioty {%db( @za_translate_zbr, %i)} {@ocen_db.mian};#addkey za_zniszczenie {%db( @za_translate_zbr, %i)} {%if( @ocen_db.zniszczenie="MAX", 5, @ocen_db.zniszczenie)}}};#if (!@oceno_tylko_ocen) {#if ((@odmienp_bm(@ocen_ndb.bier)=@ocen_db.mian) and (@ocen_force_update or (!%db( @ocen_zbroje_long, @ocen_db.mian)))) {#class {Dane|.przedmioty};#addkey ocen_zbroje_long {@ocen_db.mian} {@ocen_db.long};#class 0};#if (@ocen_force_update or (!%db( @ocen_zbroje_waga, @ocen_db.mian))) {#class {Dane|.przedmioty};#addkey ocen_zbroje_waga {@ocen_db.mian} {@ocen_db.waga};#addkey ocen_zbroje_obj {@ocen_db.mian} {@ocen_db.obj};#addkey ocen_zbroje_wartosc {@ocen_db.mian} {@ocen_db.wartosc};#addkey ocen_zbroje_typ {@ocen_db.mian} {%1};#addkey ocen_zbroje_chroni {@ocen_db.mian} {@ocen_db.chroni};#class 0}}}
#ALIAS ocen_dodaj_bron {#if (@za_lap_ocene) {#if (@ocen_db.reka="w dowolnej rece") {#if (@za_przedmioty.pbron) {#addkey za_przedmioty {lbron} {@ocen_db.mian};#addkey za_zniszczenie {lbron} {%if( @ocen_db.zniszczenie="MAX", 7, @ocen_db.zniszczenie)};#addkey za_przedmioty {lbron_type} {%db( @za_translate_brn, %1)}} {#addkey za_przedmioty {pbron} {@ocen_db.mian};#addkey za_zniszczenie {pbron} {%if( @ocen_db.zniszczenie="MAX", 7, @ocen_db.zniszczenie)};#addkey za_przedmioty {pbron_type} {%db( @za_translate_brn, %1)}}};#if (@ocen_db.reka="w lewej rece") {#if (@za_przedmioty.lbron) {za_przedmioty.pbron=@za_przedmioty.lbron;za_zniszczenie.pbron=@za_zniszczenie.lbron;za_przedmioty.pbron_type=@za_przedmioty.lbron_type};#addkey za_przedmioty {lbron} {@ocen_db.mian};#addkey za_zniszczenie {lbron} {%if( @ocen_db.zniszczenie="MAX", 7, @ocen_db.zniszczenie)};#addkey za_przedmioty {lbron_type} {%db( @za_translate_brn, %1)}};#if (@ocen_db.reka="w prawej rece") {#if (@za_przedmioty.pbron) {za_przedmioty.lbron=@za_przedmioty.pbron;za_zniszczenie.lbron=@za_zniszczenie.pbron;za_przedmioty.lbron_type=@za_przedmioty.pbron_type};#addkey za_przedmioty {pbron} {@ocen_db.mian};#addkey za_zniszczenie {pbron} {%if( @ocen_db.zniszczenie="MAX", 7, @ocen_db.zniszczenie)};#addkey za_przedmioty {pbron_type} {%db( @za_translate_brn, %1)}};#if (@ocen_db.reka="oburacz") {#addkey za_przedmioty {pbron} {@ocen_db.mian};#addkey za_zniszczenie {pbron} {%if( @ocen_db.zniszczenie="MAX", 7, @ocen_db.zniszczenie)};#addkey za_przedmioty {pbron_type} {%db( @za_translate_brn, %1)};#addkey za_przedmioty {lbron} {}}};ocen_db.inne=0;#if (!@oceno_tylko_ocen) {#if ((@odmienp_bm(@ocen_ndb.bier)=@ocen_db.mian) and (@ocen_force_update or (!%db( @ocen_bron_long, @ocen_db.mian)))) {#class {Dane|.przedmioty};#addkey ocen_bron_long {@ocen_db.mian} {@ocen_db.long};#class 0};#if (@ocen_force_update or (!%db( @ocen_bron_waga, @ocen_db.mian))) {#class {Dane|.przedmioty};#addkey ocen_bron_waga {@ocen_db.mian} {@ocen_db.waga};#addkey ocen_bron_obj {@ocen_db.mian} {@ocen_db.obj};#addkey ocen_bron_wartosc {@ocen_db.mian} {@ocen_db.wartosc};#addkey ocen_bron_typ {@ocen_db.mian} {%1};#addkey ocen_bron_rany {@ocen_db.mian} {@ocen_db.rany};#addkey ocen_bron_reka {@ocen_db.mian} {@ocen_db.reka};#class 0;ocen_db.update_prop = 1}}}
#ALIAS ocen_dodaj_tarcze {#if (@za_lap_ocene) {#addkey za_przedmioty {tar} {@ocen_db.mian};#addkey za_zniszczenie {tar} {@ocen_db.zniszczenie}};ocen_db.inne=0;#if (!@oceno_tylko_ocen) {#if ((@odmienp_bm(@ocen_ndb.bier)=@ocen_db.mian) and (@ocen_force_update or (!%db( @ocen_tarcze_long, @ocen_db.mian)))) {#class {Dane|.przedmioty};#addkey ocen_tarcze_long {@ocen_db.mian} {@ocen_db.long};#class 0};#if (@ocen_force_update or (!%db( @ocen_tarcze_waga, @ocen_db.mian))) {#class {Dane|.przedmioty};#addkey ocen_tarcze_waga {@ocen_db.mian} {@ocen_db.waga};#addkey ocen_tarcze_obj {@ocen_db.mian} {@ocen_db.obj};#addkey ocen_tarcze_wartosc {@ocen_db.mian} {@ocen_db.wartosc};#class 0}}}
#ALIAS ocen_dodaj_puklerz {#if (@za_lap_ocene) {#addkey za_przedmioty {ntar} {@ocen_db.mian};#addkey za_zniszczenie {ntar} {@ocen_db.zniszczenie}};ocen_db.inne=0;#if (!@oceno_tylko_ocen) {#if ((@odmienp_bm(@ocen_ndb.bier)=@ocen_db.mian) and (@ocen_force_update or (!%db( @ocen_puklerz_long, @ocen_db.mian)))) {#class {Dane|.przedmioty};#addkey ocen_puklerz_long {@ocen_db.mian} {@ocen_db.long};#class 0};#if (@ocen_force_update or (!%db( @ocen_puklerz_waga, @ocen_db.mian))) {#class {Dane|.przedmioty};#addkey ocen_puklerz_waga {@ocen_db.mian} {@ocen_db.waga};#addkey ocen_puklerz_obj {@ocen_db.mian} {@ocen_db.obj};#addkey ocen_puklerz_wartosc {@ocen_db.mian} {@ocen_db.wartosc};#class 0}}}
#ALIAS ocen_dodaj_ekw {ocen_db.inne=0;#if (!@oceno_tylko_ocen) {#if ((@odmienp_bm(@ocen_ndb.bier)=@ocen_db.mian) and (@ocen_force_update or (!%db( @ocen_ekw_long, @ocen_db.mian)))) {#class {Dane|.przedmioty};#addkey ocen_ekw_long {@ocen_db.mian} {@ocen_db.long};#class 0};#if (@ocen_force_update or (!%db( @ocen_ekw_waga, @ocen_db.mian))) {#class {Dane|.przedmioty};#addkey ocen_ekw_waga {@ocen_db.mian} {@ocen_db.waga};#addkey ocen_ekw_obj {@ocen_db.mian} {@ocen_db.obj};#addkey ocen_ekw_wartosc {@ocen_db.mian} {@ocen_db.wartosc};#class 0}}}
#ALIAS ocen_dodaj_ubranie {ocen_db.inne=0;#if (!@oceno_tylko_ocen) {#if ((@odmienp_bm(@ocen_ndb.bier)=@ocen_db.mian) and (@ocen_force_update or (!%db( @ocen_ubranie_long, @ocen_db.mian)))) {#class {Dane|.przedmioty};#addkey ocen_ubranie_long {@ocen_db.mian} {@ocen_db.long};#class 0};#if (@ocen_force_update or (!%db( @ocen_ubranie_waga, @ocen_db.mian))) {#class {Dane|.przedmioty};#addkey ocen_ubranie_waga {@ocen_db.mian} {@ocen_db.waga};#addkey ocen_ubranie_obj {@ocen_db.mian} {@ocen_db.obj};#addkey ocen_ubranie_wartosc {@ocen_db.mian} {@ocen_db.wartosc};#addkey ocen_ubranie_typ {@ocen_db.mian} {%-1};#class 0}}}
#ALIAS ocen_dodaj_pojemnik {ocen_db.inne=0;#if (!@oceno_tylko_ocen) {#if ((@odmienp_bm(@ocen_ndb.bier)=@ocen_db.mian) and (@ocen_force_update or (!%db( @ocen_pojemnik_long, @ocen_db.mian)))) {#class {Dane|.przedmioty};#addkey ocen_pojemnik_long {@ocen_db.mian} {@ocen_db.long};#class 0};#if (@ocen_force_update or (!%db( @ocen_pojemnik_waga, @ocen_db.mian))) {#class {Dane|.przedmioty};#addkey ocen_pojemnik_waga {@ocen_db.mian} {@ocen_db.waga};#addkey ocen_pojemnik_obj {@ocen_db.mian} {@ocen_db.obj};#addkey ocen_pojemnik_wartosc {@ocen_db.mian} {@ocen_db.wartosc};#addkey ocen_pojemnik_typ {@ocen_db.mian} {%-1};#class 0}}}
#ALIAS ocen_dodaj_inne {ocen_db.inne=0;#if (!@oceno_tylko_ocen and @ocen_czy_jeden_przedmiot(@ocen_db.mian)) {#if ((@odmienp_bm(@ocen_ndb.bier)=@ocen_db.mian) and (@ocen_force_update or (!%db( @ocen_inne_long, @ocen_db.mian)))) {#class {Dane|.przedmioty};#addkey ocen_inne_long {@ocen_db.mian} {@ocen_db.long};#class 0};#if (@ocen_force_update or (!%db( @ocen_inne_waga, @ocen_db.mian))) {#class {Dane|.przedmioty};#addkey ocen_inne_waga {@ocen_db.mian} {@ocen_db.waga};#addkey ocen_inne_obj {@ocen_db.mian} {@ocen_db.obj};#addkey ocen_inne_wartosc {@ocen_db.mian} {@ocen_db.wartosc};#class 0}}}
#ALIAS ocen_pokaz {#makewindow Ocen_Window open "scrolling=no|floating=yes|width=60c|height=20c|top=-35c|left=-70c|title="%proper( %-2);:Ocen_Window: #clr;:Ocen_Window: #sh "";:Ocen_Window: #sh %repeat( " ", 1)%ansi( 6)@format_center(%upper( %-2),55);:Ocen_Window: #mxp %repeat( " ", 1)%ansi( 3)@ocen_typ_przedmiotu(%1,%db(@ocen_%1_typ,%-2),%-2);:Ocen_Window: #mxp %repeat( " ", 27)~<color %if( %db( @ocen_%1_long, %-2), ~#30AA30, ~#868686)>~<send "ocen_wpisz_long %-1" "Pokaz/ukryj dlugi opis">OPIS</send></color>;:Ocen_Window: #sh "";:Ocen_Window: #mxp %repeat( " ", 1)~<send "ocen_wpisz_wartosc %-1" "Zmien cene sprzedazy przedmiotu.">Wartosc</send>: %format( "&62s", @ocen_format_wartosc(%db(@ocen_%1_wartosc,%-2))) %repeat( " ", 5)~<send "ocen_wpisz_waga %-1" "Zmien wage przedmiotu">Waga</send>:%repeat( " ", 4) @ocen_format_wo(%db( @ocen_%1_waga, %-2));:Ocen_Window: #mxp %repeat( " ", 1)~<send "ocen_wpisz_sprzedaz %-1" "Zmien cene sprzedazy przedmiotu.">Sprzedaz</send>:%format( "&62s", @ocen_format_wartosc(%db(@{@ocen_sprzedaz_name(%-2)},%-2))) %repeat( " ", 5)~<send "ocen_wpisz_obj %-1" "Zmien objetosc przedmiotu">Objetosc</send>: @ocen_format_wo(%db( @ocen_%1_obj, %-2));:Ocen_Window: #sh "";:Ocen_Window: #mxp %repeat( " ", 1)~<send "ocen_wpisz_pochodzenie %-1" "Zmien pochodzenie przedmiotu">Pochodzenie</send>: ~<color ~#868686> %if( %db( @ocen_%1_pochodzenie, %-2), %db( @ocen_%1_pochodzenie, %-2))</color>;:Ocen_Window: #if (%1=bron) {#sh "";#mxp %repeat( " ", 1)~<send '"ocen_wpisz_rany %-1"' '"Zmien jakie rany zadaje ta bron"'>Rany<</send>>: %repeat( " ", 6)~<color ~#868686>%format( "&-20s", %if( %db( @ocen_%1_rany, %-2), %replace( %db( @ocen_%1_rany, %-2), "|", " ")))<</color>> ~<send '"ocen_wpisz_reka %-1"' '"Zmien jak jest dobywana ta bron"'>Dobywasz<</send>> ~<color ~#868686>%if( %db( @ocen_%1_reka, %-2), %db( @ocen_%1_reka, %-2))<</color>>};:Ocen_Window: #if (%1=zbroje) {#sh "";#mxp %repeat( " ", 1)~<send '"ocen_wpisz_chroni %-1"' '"Zmien jakie miejsca chroni ta zbroja"'>Chroni<</send>>: %repeat( " ", 6)~<color ~#868686>%format( "&-20s", %if( %db( @ocen_%1_chroni, %-2), %replace( %db( @ocen_%1_chroni, %-2), "|", " ")))<</color>>};:Ocen_Window: #if (%ismember( %1, {zbroje|bron|tarcze|puklerz})) {#sh "";#mxp %repeat( " ", 1)~<send '"ocen_wpisz_zamowienie %-1"' '"Zmien cene oferowana za ten przedmiot jezeli jakis sklepikarz go zamowil."'>Zamowienie<</send>>: %format( "&64s", @ocen_format_wartosc(%db(@{@ocen_zamowienie_name(%-2)},%-2)));#mxp %repeat( " ", 1)~<send '"ocen_wpisz_aukcja %-1"' '"Zmien cene oferowana za ten przedmiot na aukcji."'>Aukcja<</send>>: %format( "&68s", @ocen_format_wartosc(%db(@ocen_aukcja,%-2)))};:Ocen_Window: #if (%1=bron and %ismember( %-2, @ocen_bron_magia)) {#sh "";#sh %ansi( 6)"  ________________ : bron magiczna : ________________"};:Ocen_Window: #if (%1=bron and %ismember( %-2, @ocen_bron_srebro)) {#sh "";#sh %ansi( 15)"  ________________ : bron srebrna : _______________"};:Ocen_Window: #sh "";:Ocen_Window: #mxp %repeat( " ", 1)~<send "ocen_wpisz_komentarz %-1" "Zmien komentarz do przedmiotu">Komentarz</send>: ~<color ~#868686>%if( %db( @ocen_%1_komentarz, %-2), %db( @ocen_%1_komentarz, %-2))</color>}
#ALIAS ocen_wpisz_wartosc {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz wartosc dla --- %-2 --- w miedziakach lub formacie 12mt 34zl 45sr 56md. 0 by usunac, negatywne by oznaczyc brak mozliwosci.";#if (%match( @ocen_wpis, "^(%n)$", ocen_matchdb.wartosc)) {#class {Dane|.przedmioty};#addkey ocen_%1_wartosc {%-2} {@ocen_matchdb.wartosc};#class 0} {#if (%match( @ocen_wpis, "(%d){| }mt", ocen_matchdb.mt) or %match( @ocen_wpis, "(%d){| }zl", ocen_matchdb.zl) or %match( @ocen_wpis, "(%d){| }sr", ocen_matchdb.sr) or %match( @ocen_wpis, "(%d){| }md", ocen_matchdb.md)) {#class {Dane|.przedmioty};#addkey ocen_%1_wartosc {%-2} {%eval( %number( @ocen_matchdb.mt)*24000+%number( @ocen_matchdb.zl)*240+%number( @ocen_matchdb.sr)*12+%number( @ocen_matchdb.md))};#class 0} {#sh Nieprawidlowy format wartosci. Wpisz liczbe miedziakow lub wartosc w formacie XXmt YYzl ZZsr OOmd.}};ocen_pokaz %-1}
#ALIAS ocen_wpisz_sprzedaz {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz kwote sprzedazy dla --- %-2 --- w miedziakach lub formacie 12mt 34zl 45sr 56md. 0 by usunac, negatywne by oznaczyc brak mozliwosci.";#if (%match( @ocen_wpis, "^(%n)$", ocen_matchdb.wartosc)) {#class {Dane|.przedmioty};#addkey @ocen_sprzedaz_name(%-2) {%-2} {@ocen_matchdb.wartosc};#class 0} {#if (%match( @ocen_wpis, "(%d){| }mt", ocen_matchdb.mt) or %match( @ocen_wpis, "(%d){| }zl", ocen_matchdb.zl) or %match( @ocen_wpis, "(%d){| }sr", ocen_matchdb.sr) or %match( @ocen_wpis, "(%d){| }md", ocen_matchdb.md)) {#class {Dane|.przedmioty};#addkey @ocen_sprzedaz_name(%-2) {%-2} {%eval( %number( @ocen_matchdb.mt)*24000+%number( @ocen_matchdb.zl)*240+%number( @ocen_matchdb.sr)*12+%number( @ocen_matchdb.md))};#class 0} {#sh Nieprawidlowy format wartosci. Wpisz liczbe miedziakow lub wartosc w formacie XXmt YYzl ZZsr OOmd.}};ocen_pokaz %-1}
#ALIAS ocen_wpisz_waga {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz wage dla --- %-2 --- w formie 123 g lub 123kg. Jezeli pominiesz jednostke, zostana wpisane gramy.";#if (%match( @ocen_wpis, "^(%d){|g}$", ocen_matchdb.waga)) {#class {Dane|.przedmioty};#addkey ocen_%1_waga {%-2} {%if( !(%mod( @ocen_matchdb.waga, 1000)), %eval( %leftback( @ocen_matchdb.waga, 3)kg), @{ocen_matchdb.waga}g)};#class 0} {#if (%match( @ocen_wpis, "(%d)kg", ocen_matchdb.waga)) {#class {Dane|.przedmioty};#addkey ocen_%1_waga {%-2} {@{ocen_matchdb.waga}kg};#class 0} {#sh Nieprawidlowy format dla wagi. Wpisz liczbe gramow (g na koncu opcjonalne) lub liczbe kilogramow z kg na koncu.}};ocen_pokaz %-1}
#ALIAS ocen_wpisz_obj {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz objetosc dla --- %-2 --- w formie 123ml lub 123l. Jezeli pominiesz jednostke, zostana wpisane mililitry.";#if (%match( @ocen_wpis, "^(%d){|ml}$", ocen_matchdb.obj)) {#class {Dane|.przedmioty};#addkey ocen_%1_obj {%-2} {%if( !(%mod( @ocen_matchdb.obj, 1000)), %eval( %leftback( @ocen_matchdb.obj, 3)l), @{ocen_matchdb.obj}ml)};#class 0} {#if (%match( @ocen_wpis, "(%d)l", ocen_matchdb.obj)) {#class {Dane|.przedmioty};#addkey ocen_%1_obj {%-2} {@{ocen_matchdb.obj}l};#class 0} {#sh Nieprawidlowy format dla wagi. Wpisz liczbe mililitrow (ml na koncu opcjonalne) lub liczbe litrow z l na koncu.}};ocen_pokaz %-1}
#ALIAS ocen_wpisz_pochodzenie {ocen_wpis = %pick( "p:Wybierz miejsce pochodzenia dla: %-2.", "o:1", "Dodaj nowe", @ocen_pochodzenia, "Usun pochodzenie");#if (@ocen_wpis="Dodaj nowe") {#class {Dane|.przedmioty};#forall %prompt( "", "Dodaj nowe miejsce pochodzenia. By dodac wiecej niz jedno na raz przedziel je symbolem | .") {#additem ocen_pochodzenia {%i}};ocen_pochodzenia = %sort( @ocen_pochodzenia);#class 0;ocen_wpisz_pochodzenie %-1} {#if (@ocen_wpis="Usun pochodzenie") {#forall %pick( "p:Wybierz miejsce pochodzenia do usuniecia:", @ocen_pochodzenia) {#delitem ocen_pochodzenia {%i}};ocen_wpisz_pochodzenie %-1} {#if (@ocen_wpis) {#class {Dane|.przedmioty};#addkey ocen_%1_pochodzenie {%-2} {@ocen_wpis};ocen_pokaz %-1;#class 0}}}}
#ALIAS ocen_wpisz_rany {ocen_wpis = %pick( "p:Wybierz jakie rany zadaje %-2.", "Klute", "Ciete", "Obuchowe");#if (@ocen_wpis) {#class {Dane|.przedmioty};#addkey ocen_%1_rany {%-2} {%lower( @ocen_wpis)};ocen_pokaz %-1;#class 0}}
#ALIAS ocen_wpisz_reka {ocen_wpis = %pick( "p:%proper(%-2). Dobywasz:", "o:1", "W prawej rece", "W lewej rece", "W dowolnej rece", "Oburacz");#if (@ocen_wpis) {#class {Dane|.przedmioty};#addkey ocen_%1_reka {%-2} {%lower( @ocen_wpis)};ocen_pokaz %-1;#class 0}}
#ALIAS ocen_wpisz_chroni {ocen_wpis = %pick( "p:%proper(%-2) chroni:", "Glowe|Korpus|Ramiona|Lewe ramie|Prawe ramie|Dlonie||Lewa dlon|Prawa dlon|Nogi|Stopy|Lewa stope|Prawa stope");#if (%ismember( "Ramiona", @ocen_wpis)) {ocen_wpis=%delitem( "Lewe ramie", %delitem( "Prawe ramie", @ocen_wpis))} {#if (%pos( "Lewe ramie|Prawe ramie", @ocen_wpis)) {ocen_wpis= %replace( @ocen_wpis, "Lewe ramie|Prawe ramie", "Ramiona")}};#if (%ismember( "Stopy", @ocen_wpis)) {ocen_wpis=%delitem( "Lewa stope", %delitem( "Prawa stope", @ocen_wpis))} {#if (%pos( "Lewa stope|Prawa stope", @ocen_wpis)) {ocen_wpis= %replace( @ocen_wpis, "Lewa stope|Prawa stope", "Stopy")}};#if (%ismember( "Dlonie", @ocen_wpis)) {ocen_wpis=%delitem( "Lewa dlon", %delitem( "Prawa dlon", @ocen_wpis))} {#if (%pos( "Lewa dlon|Prawa dlon", @ocen_wpis)) {ocen_wpis= %replace( @ocen_wpis, "Lewa dlon|Prawa dlon", "Dlonie")}};#if (@ocen_wpis) {#class {Dane|.przedmioty};#addkey ocen_%1_chroni {%-2} {%lower( @ocen_wpis)};ocen_pokaz %-1;#class 0}}
#ALIAS ocen_wpisz_aukcja {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz minimalna cene dla --- %-2 --- na aukcji w miedziakach lub formacie 12mt 34zl 45sr 56md. 0 by usunac, negatywne by oznaczyc brak mozliwosci.";#if (%match( @ocen_wpis, "^(%n)$", ocen_matchdb.wartosc)) {#class {Dane|.przedmioty};#addkey ocen_aukcja {%-2} {@ocen_matchdb.wartosc};#class 0} {#if (%match( @ocen_wpis, "(%d){| }mt", ocen_matchdb.mt) or %match( @ocen_wpis, "(%d){| }zl", ocen_matchdb.zl) or %match( @ocen_wpis, "(%d){| }sr", ocen_matchdb.sr) or %match( @ocen_wpis, "(%d){| }md", ocen_matchdb.md)) {#class {Dane|.przedmioty};#addkey ocen_aukcja {%-2} {%eval( %number( @ocen_matchdb.mt)*24000+%number( @ocen_matchdb.zl)*240+%number( @ocen_matchdb.sr)*12+%number( @ocen_matchdb.md))};#class 0} {#sh Nieprawidlowy format wartosci. Wpisz liczbe miedziakow lub wartosc w formacie XXmt YYzl ZZsr OOmd.}};ocen_pokaz %-1}
#ALIAS ocen_wpisz_zamowienie {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz minimalna cene dla --- %-2 --- na zamowienie w miedziakach lub formacie 12mt 34zl 45sr 56md. 0 by usunac, negatywne by oznaczyc brak mozliwosci.";#if (%match( @ocen_wpis, "^(%n)$", ocen_matchdb.wartosc)) {#class {Dane|.przedmioty};#addkey @ocen_zamowienie_name(%-2) {%-2} {@ocen_matchdb.wartosc};#class 0} {#if (%match( @ocen_wpis, "(%d){| }mt", ocen_matchdb.mt) or %match( @ocen_wpis, "(%d){| }zl", ocen_matchdb.zl) or %match( @ocen_wpis, "(%d){| }sr", ocen_matchdb.sr) or %match( @ocen_wpis, "(%d){| }md", ocen_matchdb.md)) {#class {Dane|.przedmioty};#addkey @ocen_zamowienie_name(%-2) {%-2} {%eval( %number( @ocen_matchdb.mt)*24000+%number( @ocen_matchdb.zl)*240+%number( @ocen_matchdb.sr)*12+%number( @ocen_matchdb.md))};#class 0} {#sh Nieprawidlowy format wartosci. Wpisz liczbe miedziakow lub wartosc w formacie XXmt YYzl ZZsr OOmd.}};ocen_pokaz %-1}
#ALIAS ocen_wpisz_komentarz {ocen_wpis = %prompt( %db( @ocen_%1_komentarz, %-2), "Ustaw komentarz dla: %-2.");#class {Dane|.przedmioty};#addkey ocen_%1_komentarz {%-2} {@ocen_wpis};#class 0;ocen_pokaz %-1}
#ALIAS ocen_wpisz_typ {#va ocen_wpis {};#if ("%1"="bron") {ocen_wpis=%pick( "o:1", "p:Wybierz nowy typ dla broni", bron drzewcowa|dwureczna maczuga|dwureczny miecz|dwureczny mlot|dwureczny topor|maczuga|miecz|mlot|sztylet)};#if ("%1"="zbroje") {ocen_wpis=%pick( "o:1", "p:Wybierz nowy typ dla zbroi", Lekka|Srednia|Ciezka)};#if (%ismember( "%1", ubranie|pojemnik)) {ocen_wpis=%pick( "o:1", "p:Wybierz nowy material wykonania", Aktualizuj|Inny, @ocen_materialy)};#if (@ocen_wpis) {#if (@ocen_wpis=Aktualizuj) {ocen_aktualizuj_materialy;ocen_wpisz_typ %-1} {#if (@ocen_wpis=Inny) {ocen_wpis=%prompt( ,"Podaj material");#if (@ocen_wpis) {#class {Dane|.przedmioty};#addkey ocen_%1_typ {%-2} {%lower( @ocen_wpis)};#class 0;ocen_pokaz %-1}} {#class {Dane|.przedmioty};#addkey ocen_%1_typ {%-2} {%lower( @ocen_wpis)};#class 0;ocen_pokaz %-1}}}}
#ALIAS ocen_wpisz_long {#if (%window( Long_Window)) {#makewindow Long_Window close} {#if (%len( %db( @ocen_%1_long, %-2))) {#makewindow Long_Window open "scrolling=no|floating=yes|width=60c|height=20c|top=-35c|left=-132c|title=Dlugi opis dla %-2";:Long_Window:#clr;:Long_Window:#sh "";:Long_Window:#sh " "%db( @ocen_%1_long, %-2);:Long_Window:#sh "";:Long_Window:#mxp %repeat( " ", 10)~<send "ocen_wpisz_long2 %-1" "Zmien dlugi opis">Zmien~</send>%repeat( " ", 25) ~<send "#makewindow Long_Window close" "Zamknij to okno">Zamknij~</send>} {ocen_wpisz_long2 %-1}}}
#ALIAS ocen_wpisz_long2 {ocen_wpis = %db( @ocen_%1_long, %-2);#pr ocen_wpis {Wpisz dlugi opis dla %-2.};#if (@ocen_wpis!=%db( @ocen_%1_long, %-2)) {#if (@ocen_wpis) {#addkey ocen_%1_long {%-2} {@ocen_wpis};#makewindow Long_Window open "scrolling=no|floating=yes|width=60c|height=20c|top=-35c|left=-132c|title=Dlugi opis dla %-2";:Long_Window:#clr;:Long_Window:#sh "";:Long_Window:#sh " "%db( @ocen_%1_long, %-2);:Long_Window:#sh "";:Long_Window:#mxp %repeat( " ", 10)~<send "ocen_wpisz_long2 %-1" "Zmien dlugi opis">Zmien~</send>%repeat( " ", 25) ~<send "#makewindow Long_Window close" "Zamknij to okno">Zamknij~</send>;ocen_pokaz %-1} {#delkey ocen_%1_long {%-2};#makewindow Long_Window close}}}
#ALIAS ocen_inne_sub {#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz inne %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Inne%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi(reset)%if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot))}
#ALIAS ocen_zbroje_sub {#mxp %ansi( 6)<send "ocen_pokaz zbroje %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Zbroja%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi(reset)}
#VAR ocen_typ_przedmiotu {%repeat(" ",%eval(28-(%len(%db( @ocen_kategorie_db, %1))+%len(%2)-%if( "%2"="bron drzewcowa",5,0)+1+%if( "%1"="bron",2,0))/2))%if( %2, %if( %1=zbroje, %concat( %upper( %2), " ")))%if(%2,<<send '"ocen_wpisz_typ %1 %3"' '"Zmien typ przedmiotu"'>>)%upper( %db( @ocen_kategorie_db, %1))%if(%2,<</send>>)%if( %2, %if( %1=bron, %if( "%2"="bron drzewcowa", " (DRZEWCOWA)", %concat( " (", %upper( %2), ")")), %if( "%1"!="zbroje", %concat( " ", %upper( %2)))))}
#CLASS 0
#CLASS {Ocen|Ocen_wartosci} {disable}
#TRIGGER {^{|> }Dostajesz (*) monet{|y|a|e}.$} {}
#COND {^Sprzedajesz (*).$} {#if (@ocen_czy_jeden_przedmiot("%1")) {#class {Dane|.przedmioty};#addkey @ocen_sprzedaz_name(%1) {@odmienp_bm(%1)} {@conv_coin2md(%replace(%replace("%t1",", ","|")," i ","|"))};#class 0}} {within|param=1}
#TRIGGER {^{|> }Za (*) dostal{|a}bys (*) monet{|y|a|e}.$} {#if (@ocen_czy_jeden_przedmiot("%1")) {#class {Dane|.przedmioty};#addkey @ocen_sprzedaz_name(%1) {@odmienp_bm(%1)} {@conv_coin2md(%replace(%replace("%2",", ","|")," i ","|"))};#class 0}}
#TRIGGER {^{|> }* odbiera od ciebie (*) i wrecza ci (*) monet{|y|a|e}.$} {#class {Dane|.przedmioty};#addkey @ocen_zamowienie_name(%1) {@odmienp_bm(%1)} {@conv_coin2md(%replace(%replace("%2",", ","|")," i ","|"))};#class 0}
#TRIGGER {^{|> }Jesli naprawde chcesz wystawic (*) za (*) monet{|y|a|e} potwierdz to, powtarzajac komende.$} {#class {Dane|.przedmioty};#addkey ocen_aukcja {@odmienp_bm(%1)} {@conv_coin2md(%replace(%replace("%2",", ","|")," i ","|"))};#class 0}
#TRIGGER {>} {#t- Ocen_wartosci} "" {nocr|prompt}
#CLASS 0
#CLASS {Ocen|Ocen_wyszukaj}
#ALIAS ocenw_pokaz {#makewindow Ocen_Szukaj open "scrolling=no|floating=yes|width=60c|height=25c|top=-40c|left=-70c|title=Wyszukaj przedmioty";:Ocen_Szukaj: #clr;:Ocen_Szukaj: #sh "";:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_wpisz_nazwa,Nazwa,"Nazwa lub czesc nazwy przedmiotu"):%repeat( " ", 5) %if( @ocenw_db.nazwa, %ansi( 15)@ocenw_db.nazwa, %ansi( 8)dowolnie)%ansi( reset);:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_wpisz_rodzaj,Rodzaj,"Ustaw rodzaj przedmiotu"):%repeat( " ", 4) %if( @ocenw_db.rodzaj, %ansi( 15)%db( @ocen_kategorie_db, @ocenw_db.rodzaj), %ansi( 8)dowolnie)%ansi( reset);:Ocen_Szukaj: #if (%ismember( @ocenw_db.rodzaj, {bron|zbroje|ubranie|pojemnik})) {#mxp %char( 32)@mxp_send(ocenw_wpisz_typ,Typ,"Ustaw typ przedmiotu"):%repeat( " ", 7) %if( @ocenw_db.typ, %ansi( 15)@ocenw_db.typ, %ansi( 8)dowolnie)%ansi( reset)};:Ocen_Szukaj: #sh "";:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_setrel wartosc,Wartosc,"O wartosci mniejszej rownej lub wiekszej"):%repeat( " ", 2) %if( @ocenw_db.wartosc_rel, %ansi( 15)@mxp_send_in(ocenw_setrel wartosc,@ocenw_frel(wartosc),Zmien relacje) @mxp_send_in(ocenw_setval wartosc,@ocen_format_wartosc_szukaj(@ocenw_db.wartosc_val),Zmien wartosc), %ansi( 8) dowolnie)%ansi( reset);:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_setrel sprzedaz,Sprzedaz,"O wartosci sprzedazy mniejszej rownej lub wiekszej"):%repeat( " ", 1) %if( @ocenw_db.sprzedaz_rel, %ansi( 15)@mxp_send_in(ocenw_setrel sprzedaz,@ocenw_frel(sprzedaz),Zmien relacje) @mxp_send_in(ocenw_setval sprzedaz,@ocen_format_wartosc_szukaj(@ocenw_db.sprzedaz_val),Zmien wartosc), %ansi( 8) dowolnie)%ansi( reset);:Ocen_Szukaj: #sh "";:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_wpisz_waga,Waga,"O wadze mniejszej rownej lub wiekszej"):%repeat( " ", 5) %if( @ocenw_db.waga_rel, %ansi( 15)@mxp_send_in(ocenw_setrel2 waga,@ocenw_frel(waga),Zmien relacje) @mxp_send_in(ocenw_wpisz_waga_val,@ocenw_db.waga_val,Zmien wartosc), %ansi( 8) dowolnie)%ansi( reset);:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_wpisz_obj,Objetosc,"O objetosci mniejszej rownej lub wiekszej"):%repeat( " ", 1) %if( @ocenw_db.obj_rel, %ansi( 15)@mxp_send_in(ocenw_setrel2 obj,@ocenw_frel(obj),Zmien relacje) @mxp_send_in(ocenw_wpisz_obj_val,@ocenw_db.obj_val,Zmien wartosc), %ansi( 8) dowolnie)%ansi( reset);:Ocen_Szukaj: #sh "";:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_wpisz_pochodzenie,Pochodz.,"Pochodzenie przedmiotu"):%repeat( " ", 3)%if( @ocenw_db.pochodzenie, %ansi( 15)@ocenw_db.pochodzenie, %ansi( 8)dowolnie)%ansi( reset);:Ocen_Szukaj: #if (@ocenw_db.rodzaj=bron) {#sh "";#mxp %char( 32)@mxp_send(ocenw_wpisz_rany,Rany,"Jakie zadaje rany"):%repeat( " ", 6) %if( @ocenw_db.rany, %ansi( 15)%replace( @ocenw_db.rany, "|", " "), %ansi( 8)dowolnie)%ansi( reset);#mxp %char( 32)@mxp_send(ocenw_wpisz_reka,Reka,"W jakiej rece dobywasz"):%repeat( " ", 6) %if( @ocenw_db.reka, %ansi( 15)%replace( @ocenw_db.reka, "|", " "), %ansi( 8)dowolnie)%ansi( reset)};:Ocen_Szukaj: #if (@ocenw_db.rodzaj=zbroje) {#sh "";#mxp %char( 32)@mxp_send(ocenw_wpisz_chroni,Chroni,"Jakie miejsca chroni"):%repeat( " ", 4) %if( @ocenw_db.chroni, %ansi( 15)%replace( @ocenw_db.chroni, "|", " "), %ansi( 8)dowolnie)%ansi( reset)};#if (%ismember( @ocenw_db.rodzaj, {bron|zbroje|tarcze|puklerz})) {:Ocen_Szukaj: #sh "";:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_setrel zamowienie,Zamowienie,"Cena na zamowienie mniejsza rowna wieksza lub poprostu mozliwa"):%if( @ocenw_db.zamowienie_rel, %ansi( 15)@mxp_send_in(ocenw_setrel zamowienie,@ocenw_frel(zamowienie),Zmien relacje) @mxp_send_in(ocenw_setval zamowienie,@ocen_format_wartosc_szukaj(@ocenw_db.zamowienie_val),Zmien wartosc), %ansi( 8) dowolnie)%ansi( reset);:Ocen_Szukaj: #mxp %char( 32)@mxp_send(ocenw_setrel aukcja,Aukcja,"Cena na aukcji mniejsza rowna wieksza lub poprostu mozliwa do wystawienia"):%repeat( " ", 3) %if( @ocenw_db.aukcja_rel, %ansi( 15)@mxp_send_in(ocenw_setrel aukcja,@ocenw_frel(aukcja),Zmien relacje) @mxp_send_in(ocenw_setval aukcja,@ocen_format_wartosc_szukaj(@ocenw_db.aukcja_val),Zmien wartosc), %ansi( 8) dowolnie)%ansi( reset)};:Ocen_Szukaj: #if (@ocenw_db.rodzaj=bron) {#sh "";#mxp %char( 32)@mxp_send(ocenw_wpisz_cecha,Specjalna cecha,"Bron magiczna lub srebrna"): %if( @ocenw_db.cecha, %ansi( 15)%item( Bron magiczna|Bron srebrna|Bron niemagiczna|Bron niesrebrna|Bron niesrebrna i niemagiczna, @ocenw_db.cecha), %ansi( 8)dowolnie)%ansi( reset)};:Ocen_Szukaj: #sh "";:Ocen_Szukaj: #mxp %repeat( " ", 35)@mxp_send(ocenw_szukaj, SZUKAJ, Szukaj przedmiotow spelniajacych wprowadzone wymagania)%repeat( " ", 5)@mxp_send(ocenw_reset, RESET, Zresetuj ustawienia wyszukiwania do poczatkowych)}
#ALIAS ocenw_szukaj {ocenw_przygotuj;#makewindow Ocen_Wyniki open "scrolling=yes|floating=yes|width=50c|height=40c|top=-55c|left=-125c|title=Wyniki wyszukiwania";:Ocen_Wyniki: #clr;:Ocen_Wyniki: #sh "";:Ocen_Wyniki: #case (%ismember( @ocenw_db.rodzaj, magia|srebro|pochodzenie)) {#forall @ocen_bron_magia {#if (@ocenw_szukaj1(%i)) {#mxp @ocenw_pokaz_przedmiot(%i)}}} {#forall @ocen_bron_srebro {#if (@ocenw_szukaj1(%i)) {#mxp @ocenw_pokaz_przedmiot(%i)}}} {#loopdb @{ocen_@{ocenw_db.rodzaj}_pochodzenie} {#if (@ocenw_szukaj1(%key)) {#mxp @ocenw_pokaz_przedmiot(%key)}}} {#loopdb @{ocen_@{ocenw_db.rodzaj}_waga} {#if (@ocenw_szukaj1(%key)) {#mxp @ocenw_pokaz_przedmiot(%key)}}};:Ocen_Wyniki: #sh "";:Ocen_Wyniki: #sh "-------------------------------------------------";:Ocen_Wyniki: #sh "              Wyszukiwanie zakonczone ";:Ocen_Wyniki: #sh "";:Ocen_Wyniki: #sh %ansi( 4)"   x "%ansi( reset)- przedmiot nie ma wpisanego pochodzenia;:Ocen_Wyniki: #mxp %repeat( " ", 18) ~<send ":Ocen_Wyniki: #fr 0" "Mozesz takze kliknac kolkiem myszy.">~<color ~#88CC88>Wylacz scroll</color></send>}
#ALIAS ocenw_szukaj2 {ocenw_temp.nazwa = %replace( @ocenw_temp.nazwa, " ", "|");ocenw_temp.nnazwa = %numitems( @ocenw_temp.nazwa);#sh --> Przeszukuje...;#loopdb @ocen_kategorie_db {#loopdb @{ocen_%{key}_waga} {#if (%numitems( %exec( "#forall @ocenw_temp.nazwa {#if (%pos( %i, %key)) {ocw_1}}"))=@ocenw_temp.nnazwa) {#mxp @ocenw_pokaz_przedmiot(%key)}}};#sh --> Zakonczono przeszukiwanie.}
#ALIAS ocenw_przygotuj {ocenw_db.nr = 1;ocenw_db.wg = %null;#if (@ocenw_db.nazwa) {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocenw_snazwa(%~1,"%replace( %lower( @ocenw_db.nazwa), " ", "|")","%word( %lower( @ocenw_db.nazwa), 1)",1,"%numwords( @ocenw_db.nazwa)"),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"};#add ocenw_db.nr 1};#if (@ocenw_db.cecha) {#case @ocenw_db.cecha {#va ocenw_szukaj@ocenw_db.nr {"%if(%ismember(%~1,@ocen_bron_magia),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"};#if (!@ocenw_db.wg) {ocenw_db.wg = magia}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%ismember(%~1,@ocen_bron_srebro),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"};#if (!@ocenw_db.wg) {ocenw_db.wg = srebro}} {#va ocenw_szukaj@ocenw_db.nr {"%if(!(%ismember(%~1,@ocen_bron_magia)),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(!(%ismember(%~1,@ocen_bron_srebro)),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(!((%ismember(%~1,@ocen_bron_magia))|(%ismember(%~1,@ocen_bron_srebro))),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}};#add ocenw_db.nr 1};#if (@ocenw_db.typ) {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_"@ocenw_db.rodzaj"_typ,%~1)="%char( 34)@ocenw_db.typ%char( 34)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"};#add ocenw_db.nr 1};#if (@ocenw_db.pochodzenie) {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_"@ocenw_db.rodzaj"_pochodzenie,%~1)="%char( 34)@ocenw_db.pochodzenie%char( 34)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"};#add ocenw_db.nr 1;#if (!@ocenw_db.wg) {ocenw_db.wg = pochodzenie}};#if (@ocenw_db.wartosc_rel) {#case @ocenw_db.wartosc_rel {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_"@ocenw_db.rodzaj"_wartosc,%~1)<"@ocenw_db.wartosc_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_"@ocenw_db.rodzaj"_wartosc,%~1)>"@ocenw_db.wartosc_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_"@ocenw_db.rodzaj"_wartosc,%~1)="@ocenw_db.wartosc_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_"@ocenw_db.rodzaj"_wartosc,%~1)>0,@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_"@ocenw_db.rodzaj"_wartosc,%~1)<0,@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(!(%db(@ocen_"@ocenw_db.rodzaj"_wartosc,%~1)),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}};#add ocenw_db.nr 1};#if (@ocenw_db.reka) {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_"@ocenw_db.rodzaj"_reka,%~1)="%char( 34)%lower( @ocenw_db.reka)%char( 34)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"};#add ocenw_db.nr 1};#if (@ocenw_db.waga_rel) {#case @ocenw_db.waga_rel {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocen_raw_size(%db(@ocen_"@ocenw_db.rodzaj"_waga,%~1))<"@ocen_raw_size(@ocenw_db.waga_val)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocen_raw_size(%db(@ocen_"@ocenw_db.rodzaj"_waga,%~1))>"@ocen_raw_size(@ocenw_db.waga_val)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocen_raw_size(%db(@ocen_"@ocenw_db.rodzaj"_waga,%~1))="@ocen_raw_size(@ocenw_db.waga_val)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}};#add ocenw_db.nr 1};#if (@ocenw_db.obj_rel) {#case @ocenw_db.obj_rel {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocen_raw_size(%db(@ocen_"@ocenw_db.rodzaj"_obj,%~1))<"@ocen_raw_size(@ocenw_db.obj_val)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocen_raw_size(%db(@ocen_"@ocenw_db.rodzaj"_obj,%~1))>"@ocen_raw_size(@ocenw_db.obj_val)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocen_raw_size(%db(@ocen_"@ocenw_db.rodzaj"_obj,%~1))="@ocen_raw_size(@ocenw_db.obj_val)",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}};#add ocenw_db.nr 1};#if (@ocenw_db.rany) {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocenw_comp(%db(@ocen_bron_rany,%~1),"@ocenw_db.rany","%item( @ocenw_db.rany, 1)",1,"%numitems( @ocenw_db.rany)"),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"};#add ocenw_db.nr 1};#if (@ocenw_db.chroni) {#va ocenw_szukaj@ocenw_db.nr {"%if(@ocenw_comp(%db(@ocen_zbroje_chroni,%~1),"%lower( @ocenw_db.chroni)","%item( %lower( @ocenw_db.chroni), 1)",1,"%numitems( @ocenw_db.chroni)"),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"};#add ocenw_db.nr 1};#if (@ocenw_db.sprzedaz_rel) {#case @ocenw_db.sprzedaz_rel {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_sprzedaz_name(%~1)},%~1)<"@ocenw_db.sprzedaz_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_sprzedaz_name(%~1)},%~1)>"@ocenw_db.sprzedaz_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_sprzedaz_name(%~1)},%~1)="@ocenw_db.sprzedaz_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_sprzedaz_name(%~1)},%~1)>0,@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_sprzedaz_name(%~1)},%~1)<0,@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(!(%db(@{@ocen_sprzedaz_name(%~1)},%~1)),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}};#add ocenw_db.nr 1};#if (@ocenw_db.zamowienie_rel) {#case @ocenw_db.zamowienie_rel {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_zamowienie_name(%~1)},%~1)<"@ocenw_db.zamowienie_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_zamowienie_name(%~1)},%~1)>"@ocenw_db.zamowienie_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_zamowienie_name(%~1)},%~1)="@ocenw_db.zamowienie_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_zamowienie_name(%~1)},%~1)>0,@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@{@ocen_zamowienie_name(%~1)},%~1)<0,@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(!(%db(@{@ocen_zamowienie_name(%~1)},%~1)),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}};#add ocenw_db.nr 1};#if (@ocenw_db.aukcja_rel) {#case @ocenw_db.aukcja_rel {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_aukcja,%~1)<"@ocenw_db.aukcja_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_aukcja,%~1)>"@ocenw_db.aukcja_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_aukcja,%~1)="@ocenw_db.aukcja_val",@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_aukcja,%~1)>0,@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(%db(@ocen_aukcja,%~1)<0,@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}} {#va ocenw_szukaj@ocenw_db.nr {"%if(!(%db(@ocen_aukcja,%~1)),@ocenw_szukaj"%eval( @ocenw_db.nr+1)"(%~1),0)"}};#add ocenw_db.nr 1};#va ocenw_szukaj@ocenw_db.nr 1}
#ALIAS ocenw_reset {#va ocenw_db {};ocenw_db.rodzaj=bron;ocenw_pokaz}
#ALIAS ocenw_wpisz_nazwa {#pr ocenw_db.nazwa "Podaj calosc lub czesc nazwy przedmiotu. Pozostaw puste, by wyszukac przedmiot o dowolnej nazwie.";ocenw_pokaz}
#ALIAS ocenw_wpisz_rodzaj {ocen_wpis = %pick( "o:1", "p:Wybierz w jakim rodzaju przedmiotow ma byc wyszukiwane.", @ocen_kategorie_listo);#if (@ocen_wpis) {ocenw_db.rodzaj = %db( @ocen_kategorie_dbo, @ocen_wpis);ocenw_db.typ=%null};ocenw_pokaz}
#ALIAS ocenw_wpisz_typ {#va ocen_wpis {};#if (@ocenw_db.rodzaj="bron") {ocen_wpis=%pick( "o:1", "p:Wybierz nowy typ dla broni", bron drzewcowa|dwureczna maczuga|dwureczny miecz|dwureczny mlot|dwureczny topor|maczuga|miecz|mlot|topor|sztylet)};#if (@ocenw_db.rodzaj="zbroje") {ocen_wpis=%pick( "o:1", "p:Wybierz nowy typ dla zbroi", Lekka|Srednia|Ciezka)};#if (%ismember( @ocenw_db.rodzaj, ubranie|pojemnik)) {ocen_wpis=%pick( "o:1", "p:Wybierz nowy material wykonania", Aktualizuj, @ocen_materialy)};#if (@ocen_wpis) {#if (@ocen_wpis=Aktualizuj) {ocen_aktualizuj_materialy;ocenw_wpisz_typ} {ocenw_db.typ= %lower( @ocen_wpis);ocenw_pokaz}}}
#ALIAS ocenw_wpisz_waga {ocenw_setrel2 waga;#if (@ocenw_db.waga_rel and @ocenw_db.waga_rel < 4) {ocenw_wpisz_waga_val}}
#ALIAS ocenw_wpisz_waga_val {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz wage dla  w formie 123 g lub 123kg. Jezeli pominiesz jednostke, zostana wpisane gramy.";#if (%match( @ocen_wpis, "^(%d){|g}$", ocen_matchdb.waga)) {ocenw_db.waga_val = %if( !(%mod( @ocen_matchdb.waga, 1000)), %eval( %leftback( @ocen_matchdb.waga, 3)kg), @{ocen_matchdb.waga}g)} {#if (%match( @ocen_wpis, "(%d)kg", ocen_matchdb.waga)) {ocenw_db.waga_val = @{ocen_matchdb.waga}kg} {#sh Nieprawidlowy format dla wagi. Wpisz liczbe gramow (g na koncu opcjonalne) lub liczbe kilogramow z kg na koncu.}};ocenw_pokaz}
#ALIAS ocenw_wpisz_obj {ocenw_setrel2 obj;#if (@ocenw_db.obj_rel and @ocenw_db.obj_rel < 4) {ocenw_wpisz_obj_val}}
#ALIAS ocenw_wpisz_obj_val {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz objetosc dla --- %-2 --- w formie 123ml lub 123l. Jezeli pominiesz jednostke, zostana wpisane mililitry.";#if (%match( @ocen_wpis, "^(%d){|ml}$", ocen_matchdb.obj)) {ocenw_db.obj_val = %if( !(%mod( @ocen_matchdb.obj, 1000)), %eval( %leftback( @ocen_matchdb.obj, 3)l), @{ocen_matchdb.obj}ml)} {#if (%match( @ocen_wpis, "(%d)l", ocen_matchdb.obj)) {ocenw_db.obj_val = @{ocen_matchdb.obj}l} {#sh Nieprawidlowy format dla wagi. Wpisz liczbe mililitrow (ml na koncu opcjonalne) lub liczbe litrow z l na koncu.}};ocenw_pokaz}
#ALIAS ocenw_wpisz_pochodzenie {ocen_wpis = %pick( "p:Wybierz miejsce pochodzenia.", "o:1", Dowolnie|@ocen_pochodzenia);#if (@ocen_wpis) {ocenw_db.pochodzenie = %if( @ocen_wpis=Dowolnie, "", @ocen_wpis);ocenw_pokaz}}
#ALIAS ocenw_wpisz_rany {ocen_wpis = %pick( "p:Wybierz jakie rany ma zadawac wyszukiwana bron", "Dowolne", "Klute", "Ciete", "Obuchowe");#if (@ocen_wpis) {ocenw_db.rany = %if( %ismember( Dowolne, @ocen_wpis), "", %lower( @ocen_wpis));ocenw_pokaz}}
#ALIAS ocenw_wpisz_reka {ocen_wpis = %pick( "p:Wyszukaj bronie dobywane:", "o:1", "Dowolnie", "W prawej rece", "W lewej rece", "W dowolnej rece", "Oburacz");#if (@ocen_wpis) {ocenw_db.reka = %if( @ocen_wpis=Dowolnie, "", @ocen_wpis);ocenw_pokaz}}
#ALIAS ocenw_wpisz_chroni {ocen_wpis = %pick( "p:%proper(%-2) chroni:", "Dowolnie|Glowe|Korpus|Ramiona|Lewe ramie|Prawe ramie|Dlonie||Lewa dlon|Prawa dlon|Nogi|Stopy|Lewa stope|Prawa stope");#if (@ocen_wpis) {ocenw_db.chroni = %if( %ismember( Dowolnie, @ocen_wpis), "", @ocen_wpis);ocenw_pokaz}}
#ALIAS ocenw_wpisz_cecha {ocen_wpis = %pick( "p:Wyszukaj bronie dobywane:", "o:1", "Dowolnie", "Bron magiczna", "Bron srebrna", "Bron niemagiczna", "Bron niesrebrna", "Bron niesrebrna i niemagiczna");#if (@ocen_wpis) {ocenw_db.cecha = %if( @ocen_wpis=Dowolnie, "", %ismember( @ocen_wpis, Bron magiczna|Bron srebrna|Bron niemagiczna|Bron niesrebrna|Bron niesrebrna i niemagiczna));ocenw_pokaz}}
#ALIAS ocenw_setrel {ocen_wpis = %pick( "o:1", "p:Wybierz relacje.", Dowolna|Mniejsze niz|Wieksze niz|Rowne|Ma wartosc|Nie ma wartosci|Wartosc nieustalona);#if (@ocen_wpis) {#if (@ocen_wpis=Dowolna) {ocenw_db.%1_rel=%null} {ocenw_db.%1_rel=%ismember( @ocen_wpis, Mniejsze niz|Wieksze niz|Rowne|Ma wartosc|Nie ma wartosci|Wartosc nieustalona)}};#if (@ocenw_db.%1_rel>3) {ocenw_db.%1_val=%null};#if (@ocenw_db.%1_rel and @ocenw_db.%1_rel < 4) {ocenw_setval %1};ocenw_pokaz}
#ALIAS ocenw_setrel2 {ocen_wpis = %pick( "o:1", "p:Wybierz relacje.", Dowolna|Mniejsze niz|Wieksze niz|Rowne);#if (@ocen_wpis) {#if (@ocen_wpis=Dowolna) {ocenw_db.%1_rel=%null} {ocenw_db.%1_rel=%ismember( @ocen_wpis, Mniejsze niz|Wieksze niz|Rowne|Ma wartosc|Nie ma wartosci|Wartosc nieustalona)}};#if (@ocenw_db.%1_rel>3) {ocenw_db.%1_val=%null};ocenw_pokaz}
#ALIAS ocenw_setval {#va ocen_wpis {};#va ocen_matchdb {};#pr ocen_wpis "Wpisz wartosc w miedziakach lub formacie 12mt 34zl 45sr 56md. 0 lub puste by usunac, negatywne by oznaczyc brak mozliwosci.";#if (%match( @ocen_wpis, "^(%n)$", ocen_matchdb.wartosc)) {ocenw_db.%1_val = @ocen_matchdb.wartosc} {#if (%match( @ocen_wpis, "(%d){| }mt", ocen_matchdb.mt) or %match( @ocen_wpis, "(%d){| }zl", ocen_matchdb.zl) or %match( @ocen_wpis, "(%d){| }sr", ocen_matchdb.sr) or %match( @ocen_wpis, "(%d){| }md", ocen_matchdb.md)) {ocenw_db.%1_val = %eval( %number( @ocen_matchdb.mt)*24000+%number( @ocen_matchdb.zl)*240+%number( @ocen_matchdb.sr)*12+%number( @ocen_matchdb.md))} {#sh Nieprawidlowy format wartosci. Wpisz liczbe miedziakow lub wartosc w formacie XXmt YYzl ZZsr OOmd.}};ocenw_pokaz}
#VAR ocen_format_wartosc_szukaj {%if( %number( %1)<0, "---", %if( %1, @miedz_na_monety(%1), @miedz_na_monety(0)))}
#VAR ocen_raw_size {%number( %replace( %replace( %replace( %replace( %1, g, ""), ml, ""), k, 000), l, 000))}
#VAR ocenw_db {rodzajzbrojenr2wgtypnazwakwiecista}
#VAR ocenw_frel {{%case( @ocenw_db.%1_rel, "<", ">", "=", %ansi( 10)"", %ansi( 12)"x", %ansi( 11)"")}}
#VAR ocenw_szukaj1 {%if(@ocenw_snazwa(%1,kwiecista,kwiecista,1,1),@ocenw_szukaj2(%1),0)}
#VAR ocenw_szukaj2 {1}
#VAR ocenw_szukaj3 {1}
#VAR ocenw_szukaj4 {1}
#VAR ocenw_szukaj5 {%if(%db(@ocen_bron_wartosc,%1)<0,@ocenw_szukaj6(%1),0)}
#VAR ocenw_szukaj6 {%if(%db(@ocen_bron_reka,%1)="W lewej rece",@ocenw_szukaj7(%1),0)}
#VAR ocenw_szukaj7 {%if(@ocen_raw_size(%db(@ocen_bron_waga,%1))>555,@ocenw_szukaj8(%1),0)}
#VAR ocenw_szukaj8 {%if(@ocen_raw_size(%db(@ocen_bron_obj,%1))>54,@ocenw_szukaj9(%1),0)}
#VAR ocenw_szukaj9 {%if(@ocenw_comp(%db(@ocen_bron_reka,%1),klute|ciete,klute,1,2),@ocenw_szukaj10(%1),0)}
#VAR ocenw_szukaj10 {%if(%db(@{@ocen_sprzedaz_name(%1)},%1)>222,@ocenw_szukaj11(%1),0)}
#VAR ocenw_szukaj11 {%if(%db(@{@ocen_zamowienie_name(%1)},%1)>111,@ocenw_szukaj12(%1),0)}
#VAR ocenw_szukaj12 {%if(%db(@ocen_aukcja,%1)>55,@ocenw_szukaj13(%1),0)}
#VAR ocenw_szukaj13 {%if(%db(@ocen_aukcja,%1)>55,@ocenw_szukaj14(%1),0)}
#VAR ocenw_snazwa {%if( %4>%5, 1, %if( %pos( %3, %1), @ocenw_snazwa(%1,%2,%item(%2,%eval(%4+1)),%eval(%4+1),%5), 0))}
#VAR ocenw_comp {%if(%4>%5,1,%if(%ismember(%3,%1),@ocenw_comp(%1,%2,%item(%2,%eval(%4+1)),%eval(%4+1),%5),0))}
#VAR ocenw_pokaz_przedmiot {-%if( %db( @{ocen_@{ocenw_db.rodzaj}_pochodzenie}, %1), "-", %ansi( 4)x%ansi( reset))> <send "ocen_pokaz @ocenw_db.rodzaj %1" "Pokaz szczegoly dla %1">%ansi( 6)%1</send>}
#VAR ocenw_temp {bronnazwasrebrzysta kosa bojowanazwa@nnazwa1}
#CLASS 0
#CLASS {Ocen|Ocen_opcje}
#ALIAS menu1_ocen {#mxp @op_mxpRTN(oceno_tylko_ocen,5,5,Wylacz baze danych przedmiotow,ocen);#if (!@oceno_tylko_ocen) {#mxp @op_mxpTN(ocen_force_update,5,7,Wymus aktualizacje przedmiotow)}}
#VAR oceno_tylko_ocen {0}
#VAR ocen_force_update {0}
#CLASS 0
#CLASS {Ocen|Lap_ocene} {disable}
#TRIGGER {^Wyglada na to, ze (*).$} {#if (%db( @ocen_zniszczenie, %rightback( %leftback( %1, 1), 12))) {ocen_db.zniszczenie=%db( @ocen_zniszczenie, %rightback( %leftback( %1, 1), 12))}}
#TRIGGER {^Oceniasz, ze (*) waz{y|a} (%d) ({|kilo}gram){y|ow}, zas {jego|jej|ich} objetosc wynosi (%d) ({mili|})litr{|y|ow}.$} {#if (@ocen_db.inne=1) {#pri {ocen_inne_sub};#pri {ocen_dodaj_inne}};#if (@ocen_db.inne=2) {#pri {ocen_zbroje_sub};#pri {ocen_dodaj_zbroje}};ocen_db = %addkey( %addkey( %addkey( %addkey( %addkey( %addkey( ,mian, %1), waga, %if( %mod( %2, 1000), %2, %number( %leftback( %2, 3))k)%if( %3=kilogram, k)g), obj, %if( %5, %if( %mod( %4, 1000), %4m, %number( %leftback( %4, 3))), %4)l), zniszczenie, @ocen_db.zniszczenie), inne, 1), long, @ocen_db.long);#sub {""}}
#COND {^Wydaje ci sie, ze {jest|sa} (%w) okolo (%d) miedziak{|i|ow}.$} {ocen_db.wartosc=%2;#additem ocen_ldb.vsum {%2};#sub {%proper(%t1) (%if(%mod(%t2, 1000), %t2, %number( %leftback( %t2, 3))k)%if( %t3=kilogram, k)g|%if(%t5,%if( %mod( %t4, 1000), %t4m, %number( %leftback( %t4,3))),%t4)l) %1 %2md ( @miedz_na_monety(%2)) }} {within|param=1}
#TRIGGER {^Oceniasz, ze (*) waz{y|a} (%d) ({|kilo}gram){y|ow|}, zas {jego|jej|ich} dlugosc wynosi okolo (%a) metr{|y|ow}.$} {#if (@ocen_db.inne=1) {#pri {ocen_inne_sub};#pri {ocen_dodaj_inne}};#if (@ocen_db.inne=2) {#pri {ocen_zbroje_sub};#pri {ocen_dodaj_zbroje}};ocen_db = %addkey( %addkey( %addkey( %addkey( %addkey( %addkey( ,mian, %1), waga, %if( %mod( %2, 1000), %2, %number( %leftback( %2, 3))k)%if( %3=kilogram, k)g), obj, %4 m), zniszczenie, @ocen_db.zniszczenie), inne, 1), long, @ocen_db.long);#sub {""}}
#COND {^Wydaje ci sie, ze {jest|sa} (%w) okolo (%d) miedziak{|i|ow}.$} {ocen_db.wartosc=%2;#additem ocen_ldb.vsum {%2};#sub {%proper(%t1) (%if(%mod(%t2, 1000), %t2, %number( %leftback( %t2, 3))k)%if( %t3=kilogram, k)g|%t4 m) %1 %2md ( @miedz_na_monety(%2)) }} {within|param=1}
#TRIGGER {^({Wydaje ci sie, ze |}){sa|jest} tu (%d) (sztuk{i|} %w) (%d) miedziak{|i|ow}.$} {ocen_db.wartosc=%4;#additem ocen_ldb.vsum {%4};#additem ocen_ldb.vnum {%2};#sub {%proper( @ocen_db.mian) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)),%if("%1",%ansi(3)" okolo"%ansi(reset),"") %2 %3 %4md ( @miedz_na_monety(%4)) }}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze jak na (*) {jest|sa} on{|o|e|a} (*) i (*).$} {#pri {ocen_dodaj_bron %if(%begins(%1,ma),maczuga,%1)};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz bron %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)%1%ansi( 2)) wywazenie(%ansi( 7)%ismember( %leftback( %2, 1), {wyjatkowo zle wywazon|bardzo zle wywazon|zle wywazon|bardzo kiepsko wywazon|kiepsko wywazon|przyzwoicie wywazon|srednio wywazon|niezle wywazon|dosc dobrze wywazon|dobrze wywazon|bardzo dobrze wywazon|doskonale wywazon|perfekcyjnie wywazon|genialnie wywazon})%ansi( 2)|%ansi( 7)14%ansi( 2)) skutecznosc(%ansi( 7)%ismember( %leftback( %3, 1), {kompletnie nieskuteczn|strasznie nieskuteczn|bardzo nieskuteczn|raczej nieskuteczn|malo skuteczn|niezbyt skuteczn|raczej skuteczn|dosyc skuteczn|calkiem skuteczn|bardzo skuteczn|niezwykle skuteczn|wyjatkowo skuteczn|zabojczo skuteczn|fantastycznie skuteczn})%ansi( 2)|%ansi( 7)14%ansi( 2)) %ansi( 2)(%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)7%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(%ismember( %leftback( %2, 1), {wyjatkowo zle wywazon|bardzo zle wywazon|zle wywazon|bardzo kiepsko wywazon|kiepsko wywazon|przyzwoicie wywazon|srednio wywazon|niezle wywazon|dosc dobrze wywazon|dobrze wywazon|bardzo dobrze wywazon|doskonale wywazon|perfekcyjnie wywazon|genialnie wywazon})+%ismember( %leftback( %3, 1), {kompletnie nieskuteczn|strasznie nieskuteczn|bardzo nieskuteczn|raczej nieskuteczn|malo skuteczn|niezbyt skuteczn|raczej skuteczn|dosyc skuteczn|calkiem skuteczn|bardzo skuteczn|niezwykle skuteczn|wyjatkowo skuteczn|zabojczo skuteczn|fantastycznie skuteczn}))%ansi( 2)|%ansi( 7)28%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Za {jego|jej|ich} pomoca mozna zadawac rany (*).$} {ocen_db.rany = %replace( %replace( "%1", ", ", "|"), " i ", "|")}
#TRIGGER {^Zauwazasz, iz t{a|en} {bron drzewcowa|topor|sztylet|miecz|mlot|maczuga|mlot}{dwureczny|} jest przystosowan? do chwytania (*).$} {ocen_db.reka = %1}
#TRIGGER {^Sadzac po delikatnym drzeniu w broni tej zostala zakleta jakas magia, bedzie wiec ona skuteczna przeciw wrogom odpornym na zwykle obrazenia.$} {#if (@ocen_db.update_prop) {#class {Dane|.przedmioty};#additem ocen_bron_magia {@ocen_db.mian};#class 0}}
#TRIGGER {^Do wykonania tej broni uzyto srebra, bedzie wiec ona skuteczna przeciw wrogom odpornym na zwykle obrazenia.$} {#if (@ocen_db.update_prop) {#class {Dane|.przedmioty};#additem ocen_bron_srebro {@ocen_db.mian};#class 0}}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze jak na (%w) zbroje chroni{|a} on{|a|e} (*) przed obrazeniami cietymi, (*) przed klutymi i (*) przed obuchowymi.$} {#pri {ocen_dodaj_zbroje %1};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz zbroje %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)%proper( %1) Zbroja%ansi( 2)) klute(%ansi( 7)%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %4, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) %ansi( 2)(%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})+%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})+%ismember( %4, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze jak na (%w) zbroje chroni{|a} on{|a|e} (*) przed obrazeniami klutymi, cietymi i obuchowymi.} {#pri {ocen_dodaj_zbroje %1};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz zbroje %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)%proper( %1) Zbroja%ansi( 2)) klute(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) %ansi( 2)(%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(3*%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze jak na (%w) zbroje chroni{|a} on{|a|e} (*) przed obrazeniami klutymi i obuchowymi oraz (*) przed cietymi.$} {#pri {ocen_dodaj_zbroje %1};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz zbroje %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)%proper( %1) Zbroja%ansi( 2)) klute(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) %ansi( 2)(%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(2*%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})+%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze jak na (%w) zbroje chroni{|a} on{|a|e} (*) przed obrazeniami klutymi i cietymi oraz (*) przed obuchowymi.$} {#pri {ocen_dodaj_zbroje %1};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz zbroje %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)%proper( %1) Zbroja%ansi( 2)) klute(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) %ansi( 2)(%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(2*%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})+%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze jak na (%w) zbroje chroni{|a} on{|a|e} (*) przed obrazeniami cietymi i obuchowymi oraz (*) przed klutymi.$} {#pri {ocen_dodaj_zbroje %1};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz zbroje %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)%proper( %1) Zbroja%ansi( 2)) klute(%ansi( 7)%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) %ansi( 2)(%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(2*%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})+%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Zaklada sie {go|ja|je} na (*).$} {ocen_db.inne=2;ocen_db.chroni = %replace( %replace( "%1", ", ", "|"), " i ", "|")}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze chroni on{|a} (*) przed obrazeniami cietymi, (*) przed klutymi i (*) przed obuchowymi. Ponadto jest (*) w parowaniu ciosow.$} {#pri {ocen_dodaj_tarcze};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz tarcze %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Tarcza%ansi( 2)) klute(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) skutecznosc(%ansi( 7)%ismember( %4, {kompletnie nieskuteczna|strasznie nieskuteczna|bardzo nieskuteczna|raczej nieskuteczna|malo skuteczna|niezbyt skuteczna|raczej skuteczna|dosyc skuteczna|calkiem skuteczna|bardzo skuteczna|niezwykle skuteczna|wyjatkowo skuteczna|zabojczo skuteczna|fantastycznie skuteczna})%ansi( 2)|%ansi( 7)14%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(%ismember( %leftback( %2, 1), {wyjatkowo zle wywazon|bardzo zle wywazon|zle wywazon|bardzo kiepsko wywazon|kiepsko wywazon|przyzwoicie wywazon|srednio wywazon|niezle wywazon|dosc dobrze wywazon|dobrze wywazon|bardzo dobrze wywazon|doskonale wywazon|perfekcyjnie wywazon|genialnie wywazon})+%ismember( %leftback( %3, 1), {kompletnie nieskuteczn|strasznie nieskuteczn|bardzo nieskuteczn|raczej nieskuteczn|malo skuteczn|niezbyt skuteczn|raczej skuteczn|dosyc skuteczn|calkiem skuteczn|bardzo skuteczn|niezwykle skuteczn|wyjatkowo skuteczn|zabojczo skuteczn|fantastycznie skuteczn}))%ansi( 2)|%ansi( 7)28%ansi(2)]%if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze chroni on{a|} (*) przed obrazeniami klutymi, cietymi i obuchowymi. Ponadto jest (*) w parowaniu ciosow.$} {#pri {ocen_dodaj_tarcze};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz tarcze %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Tarcza%ansi( 2)) klute(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) skutecznosc(%ansi( 7)%ismember( %2, {kompletnie nieskuteczna|strasznie nieskuteczna|bardzo nieskuteczna|raczej nieskuteczna|malo skuteczna|niezbyt skuteczna|raczej skuteczna|dosyc skuteczna|calkiem skuteczna|bardzo skuteczna|niezwykle skuteczna|wyjatkowo skuteczna|zabojczo skuteczna|fantastycznie skuteczna})%ansi( 2)|%ansi( 7)14%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(3*%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze chroni on{a|} (*) przed obrazeniami klutymi i obuchowymi oraz (*) przed cietymi. Ponadto jest (*) w parowaniu ciosow.$} {#pri {ocen_dodaj_tarcze};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz tarcze %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Tarcza%ansi( 2)) klute(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) skutecznosc(%ansi( 7)%ismember( %3, {kompletnie nieskuteczna|strasznie nieskuteczna|bardzo nieskuteczna|raczej nieskuteczna|malo skuteczna|niezbyt skuteczna|raczej skuteczna|dosyc skuteczna|calkiem skuteczna|bardzo skuteczna|niezwykle skuteczna|wyjatkowo skuteczna|zabojczo skuteczna|fantastycznie skuteczna})%ansi( 2)|%ansi( 7)14%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(2*%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})+%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze chroni on{a|n} (*) przed obrazeniami klutymi i cietymi oraz (*) przed obuchowymi. Ponadto jest (*) w parowaniu ciosow.$} {#pri {ocen_dodaj_tarcze};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz tarcze %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Tarcza%ansi( 2)) klute(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) skutecznosc(%ansi( 7)%ismember( %3, {kompletnie nieskuteczna|strasznie nieskuteczna|bardzo nieskuteczna|raczej nieskuteczna|malo skuteczna|niezbyt skuteczna|raczej skuteczna|dosyc skuteczna|calkiem skuteczna|bardzo skuteczna|niezwykle skuteczna|wyjatkowo skuteczna|zabojczo skuteczna|fantastycznie skuteczna})%ansi( 2)|%ansi( 7)14%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(2*%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})+%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze chroni on{a|} (*) przed obrazeniami cietymi i obuchowymi oraz (*) przed klutymi. Ponadto jest (*) w parowaniu ciosow.$} {#pri {ocen_dodaj_tarcze};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz tarcze %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Tarcza%ansi( 2)) klute(%ansi( 7)%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) obuchowe(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) ciete(%ansi( 7)%ismember( %1, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})%ansi( 2)|%ansi( 7)12%ansi( 2)) skutecznosc(%ansi( 7)%ismember( %leftback( %1,1), {kompletnie nieskuteczn|strasznie nieskuteczn|bardzo nieskuteczn|raczej nieskuteczn|malo skuteczn|niezbyt skuteczn|raczej skuteczn|dosyc skuteczn|calkiem skuteczn|bardzo skuteczn|niezwykle skuteczn|wyjatkowo skuteczn|zabojczo skuteczn|fantastycznie skuteczn})%ansi( 2)|%ansi( 7)14%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %ansi(2)[%ansi( 7)%eval(2*%ismember( %2, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie})+%ismember( %3, {wyjatkowo zle|bardzo zle|zle|bardzo kiepsko|kiepsko|przyzwoicie|niezle|dosc dobrze|dobrze|bardzo dobrze|doskonale|perfekcyjnie}))%ansi( 2)|%ansi( 7)36%ansi(2)] %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Twoje doswiadczenie i umiejetnosci podpowiadaja ci, ze jest on{a|} (*) w parowaniu ciosow.$} {#pri {ocen_dodaj_puklerz};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz puklerz %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Tarcza%ansi( 2)) skutecznosc(%ansi( 7)%ismember( %leftback( %1,1), {kompletnie nieskuteczn|strasznie nieskuteczn|bardzo nieskuteczn|raczej nieskuteczn|malo skuteczn|niezbyt skuteczn|raczej skuteczn|dosyc skuteczn|calkiem skuteczn|bardzo skuteczn|niezwykle skuteczn|wyjatkowo skuteczn|zabojczo skuteczn|fantastycznie skuteczn})%ansi( 2)|%ansi( 7)14%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)@ocen_db.zniszczenie%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zaloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zaloz, Zaloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Ten element ekwipunku wyglada na ({calkiem nowy|w miare nowy|troche zuzyty|w duzym stopniu zuzyty|kompletnie zuzyty}).$} {#pri {ocen_dodaj_ekw};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz ekw %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Ekwipunek%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)%if(%begins(%1,c),MAX,%ismember(%1,{kompletnie zuzyty|w duzym stopniu zuzyty|troche zuzyty|w miare nowy}))%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Ubranie to zostalo wykonane (*) i wyglada na ({gotowe rozpasc sie w kazdej chwili|prawie calkiem znoszone|troche znoszone|w miare nowe|calkiem nowe}).$} {#pri {ocen_dodaj_ubranie %1};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz ubranie %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Ubrania%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)%if(%begins(%2,c),MAX,%ismember(%2,{gotowe rozpasc sie w kazdej chwili|prawie calkiem znoszone|troche znoszone|w miare nowe}))%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^Ten pojemnik zostal wykonany (*) i wyglada na ({calkiem nowy|w miare nowy|troche zuzyty|w duzym stopniu zuzyty|kompletnie zuzyty}).$} {#pri {ocen_dodaj_pojemnik %1};#pri {#if (@ocen_ndb.bier) {#addkey ocen_ndb {@ocen_ndb.bier} {%additem(%eval(%numitems(%db(@ocen_ndb,@ocen_ndb.bier))+1),%db(@ocen_ndb,@ocen_ndb.bier))}}};#mxp @mxp_send("#va ocen_force_update 0;#sh --> Wylaczono wymuszana aktualizacje wpisow bazy przedmiotow.",%if(@ocen_force_update,%ansi(4)*),Wylacz wymuszona aktualizacje)%ansi( 6)<send "ocen_pokaz pojemnik %lower( @ocen_db.mian)" "Pokaz informacje dla %upper( @ocen_db.mian)">%upper( @ocen_db.mian)</send>%ansi( 2) (%ansi( 3)Ekwipunek%ansi( 2)) (%ansi( 5)@ocen_db.waga%ansi( 2)|%ansi( 5)@ocen_db.obj%ansi( 2)) %ansi( 14)(%ansi( 15)%if(%begins(%2,c),MAX,%ismember(%2,{kompletnie zuzyty|w duzym stopniu zuzyty|troche zuzyty|w miare nowy}))%ansi( 14)|%ansi( 15)5%ansi( 14))%ansi(reset) %if(@ocen_ndb.bier,@mxp_send_in(ocen_odloz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Odloz, Odloz ten przedmiot) @mxp_send_in(ocen_zabezpiecz %numitems(%db(@ocen_ndb,@ocen_ndb.bier)) @rodzaj_z_mianownika(@ocen_db.mian) @ocen_ndb.bier, Zabezpiecz, Zabezpiecz ten przedmiot))}
#TRIGGER {^>} {#if (@ocen_db.inne=1) {#pri {ocen_inne_sub};#pri {ocen_dodaj_inne}};#if (@ocen_db.inne=2) {#pri {ocen_zbroje_sub};#pri {ocen_dodaj_zbroje}};ocen_db.inne=0;ocen_ndb.bier = %null;#if (@ocen_ignore_end) {#if (@ocen_ignore_end<0) {ocen_ignore_end=0} {#add ocen_ignore_end -1}} {#t- Lap_ocene;#t- Oceniasz_starannie;#if (%numitems( @ocen_ldb.vsum)>1) {#sh --> Sztuk: %numitems( @ocen_ldb.vsum)%if( @ocen_ldb.vnum, " ("%eval( %numitems( @ocen_ldb.vsum)-%numitems( @ocen_ldb.vnum)+%eval( %replace( @ocen_ldb.vnum, "|", "+")))")"). Laczna wartosc: @miedz_na_monety(%eval( %replace( @ocen_ldb.vsum, "|", "+")));ocen_ldb.vnum=%null};ocen_ldb.vsum=%null;#if (@za_lap_ocene) {#gagoff;#t- ungag_zalozone;#sh --> Ocena zakonczona;za_lap_ocene=0;za_uloz}}} "" {nocr|prompt}
#CLASS 0
#CLASS {Ocen|Zalozone}
#ALIAS za_pokaz {#sh @{za_ansi_brn(pbron)}@{za_%10.1}@{za_%1ar.head1}@{za_ansi_brn(lbron)}@{za_%11.1};#sh @{za_ansi_brn(pbron)}@{za_%10.2}@{za_%1ar.head2}@{za_ansi_brn(lbron)}@{za_%11.2};#mxp @{za_ansi_brn(pbron)}%if( 1, @{za_%10.3}@{za_%1ar.head3}@{za_ansi_brn(lbron)}@{za_%11.3});#sh @{za_ansi_brn(pbron)}@{za_%10.4}@{za_%1ar.head4}@{za_ansi_brn(lbron)}@{za_%11.4};#sh @{za_ansi_brn(pbron)}@{za_%10.5}@{za_%1ar.head5}@{za_ansi_brn(lbron)}@{za_%11.5};#sh @{za_ansi_brn(pbron)}@{za_%10.6}@{za_%1ar.head6}@{za_ansi_brn(lbron)}@{za_%11.6};#sh @{za_ansi_brn(pbron)}@{za_%10.7}@{za_%2ar.larm1}@{za_%6ar.body1}@{za_%4ar.rarm1}@{za_ansi_brn(lbron)}@{za_%11.7};#sh @{za_ansi_brn(pbron)}@{za_%10.8}@{za_%2ar.larm2}@{za_%6ar.body2}@{za_%4ar.rarm2}@{za_ansi_brn(lbron)}@{za_%11.8};#mxp @{za_ansi_brn(pbron)}%if( 1, @{za_%10.9}@{za_%2ar.larm3}@{za_%6ar.body3}@{za_%4ar.rarm3}@{za_ansi_brn(lbron)}@{za_%11.9});#sh @{za_ansi_brn(pbron)}@{za_%10.10}@{za_%2ar.larm4}@{za_%6ar.body4}@{za_%4ar.rarm4}@{za_ansi_brn(lbron)}@{za_%11.10};#sh @{za_ansi_brn(pbron)}@{za_%10.11}@{za_%2ar.larm5}@{za_%6ar.body5}@{za_%4ar.rarm5}@{za_ansi_brn(lbron)}@{za_%11.11};#sh @{za_ansi_brn(pbron)}@{za_%10.12}@{za_%2ar.larm6}@{za_%6ar.body6}@{za_%4ar.rarm6}@{za_ansi_brn(lbron)}@{za_%11.12};#sh @{za_ansi_brn(pbron)}@{za_%10.13}@{za_%3ar.lhan1}@{za_%6ar.body7}@{za_%5ar.rhan1}@{za_ansi_brn(lbron)}@{za_%11.13};#mxp @{za_ansi_brn(pbron)}%if( 1, @{za_%10.14}@{za_%3ar.lhan2}@{za_%6ar.nogi1}@{za_%5ar.rhan2}@{za_ansi_brn(lbron)}@{za_%11.26});#mxp @{za_ansi_brn(pbron)}%if( 1, @{za_%10.15}@{za_%3ar.lhan3}@{za_%7ar.nogi2}@{za_%5ar.rhan3}@{za_ansi_brn(lbron)}@{za_%11.15});#sh @{za_ansi_brn(pbron)}@{za_%10.16}@{za_%7ar.nogi3}@{za_ansi_brn(lbron)}@{za_%11.16};#sh @{za_ansi_brn(pbron)}@{za_%10.17}@{za_%7ar.nogi4}@{za_ansi_brn(lbron)}@{za_%11.17};#sh @{za_ansi_brn(pbron)}@{za_%10.18}@{za_%7ar.nogi5}@{za_ansi_brn(lbron)}@{za_%11.18};#sh @{za_ansi_brn(pbron)}@{za_%10.19}@{za_%7ar.nogi6}@{za_ansi_brn(lbron)}@{za_%11.19};#sh @{za_ansi_brn(pbron)}@{za_%10.20}@{za_%7ar.nogi7}@{za_ansi_brn(lbron)}@{za_%11.20};#sh @{za_ansi_brn(pbron)}@{za_%10.21}@{za_%7ar.nogi8}@{za_ansi_brn(lbron)}@{za_%11.21};#sh @{za_ansi_brn(pbron)}@{za_%10.22}@{za_%7ar.nogi9}@{za_ansi_brn(lbron)}@{za_%11.22};#mxp @{za_ansi_brn(pbron)}%if( 1, @{za_%10.23}@{za_%8ar.lsto1}@{za_%9ar.rsto1}@{za_ansi_brn(lbron)}@{za_%11.23});#sh @{za_ansi_brn(pbron)}@{za_%10.24}@{za_%8ar.lsto2}@{za_%9ar.rsto2}@{za_ansi_brn(lbron)}@{za_%11.24};#sh @{za_ansi_brn(pbron)}@{za_%10.25}@{za_%8ar.lsto3}@{za_%9ar.rsto3}@{za_ansi_brn(lbron)}@{za_%11.25}}
#ALIAS za_uloz {#makewindow Zalozone open "scrolling=no|floating=yes|width=50c|height=27c|top=-42c|left=-124c|title=Stan uzbrojenia";:Zalozone: #clr;:Zalozone: #sh "";:Zalozone: za_pokaz [%if( @za_przedmioty.head, w, n)] [%if( @za_przedmioty.larm, w, n)] [%if( @za_przedmioty.lhan, w, n)] [%if( @za_przedmioty.rarm, w, n)] [%if( @za_przedmioty.rhan, w, n)] [%if( @za_przedmioty.body, w, n)] [%if( @za_przedmioty.nogi, w, n)] [%if( @za_przedmioty.lsto, w, n)] [%if( @za_przedmioty.rsto, w, n)] [%if( @za_przedmioty.pbron, @za_przedmioty.pbron_type, blk)] [%if( @za_przedmioty.tar, tar, %if( @za_przedmioty.ntar, ntar, %if( @za_przedmioty.lbron, @za_przedmioty.lbron_type, blk)))]}
#ALIAS -eq {#if (%window( Zalozone)) {#makewindow Zalozone close} {za_przedmioty = %null;za_zniszczenie = %null;ocen_ignore_end = 1;za_lap_ocene = 1;#sh --> Rozpoczynam ocene uzywanych broni i zbroi.;#t+ ungag_zalozone;#gagon;ocen zalozone zbroje;ocen dobyte bronie}}
#VAR za_nar {head1@za_ansi_nar(head)"            #             "head2@za_ansi_nar(head)"          .###.           "head3@za_ansi_nar(head)"         /^ V ^\          "head4@za_ansi_nar(head)"       | O   O |        "head5@za_ansi_nar(head)"           ^          "head6@za_ansi_nar(head)"         \`---'/          "larm1@za_ansi_nar(larm)"      "larm2@za_ansi_nar(larm)"    ,'"larm3@za_ansi_nar(larm)"   /  "larm4@za_ansi_nar(larm)"  |   "larm5@za_ansi_nar(larm)"  |  |"larm6@za_ansi_nar(larm)"  (  ("lhan1@za_ansi_nar(lhan)"  |  |"lhan2@za_ansi_nar(lhan)"  |  |"lhan3@za_ansi_nar(lhan)"  ''''"rarm1@za_ansi_nar(rarm)"       "rarm2@za_ansi_nar(rarm)"'.     "rarm3@za_ansi_nar(rarm)"  \    "rarm4@za_ansi_nar(rarm)"   |   "rarm5@za_ansi_nar(rarm)"|  |   "rarm6@za_ansi_nar(rarm)")  )   "rhan1@za_ansi_nar(rhan)"|  |   "rhan2@za_ansi_nar(rhan)"|  |   "rhan3@za_ansi_nar(rhan)"''''   "body1@za_ansi_nar(body)"___/     \___"body2@za_ansi_nar(body)"             "body3@za_ansi_nar(body)"             "body4@za_ansi_nar(body)"*           *"body5@za_ansi_nar(body)" |         | "body6@za_ansi_nar(body)"  \       /  "body7@za_ansi_nar(body)"   )--(   "nogi1@za_ansi_nar(nogi)"  /       \  "nogi2@za_ansi_nar(nogi)" |         | "nogi3@za_ansi_nar(nogi)"       |         |        "nogi4@za_ansi_nar(nogi)"       |___/^\___|        "nogi5@za_ansi_nar(nogi)"       ';  | |  ;'        "nogi6@za_ansi_nar(nogi)"        |  | |  |         "nogi7@za_ansi_nar(nogi)"        (  ) (  )         "nogi8@za_ansi_nar(nogi)"        |  | |  |         "nogi9@za_ansi_nar(nogi)"        |  | |  |         "lsto1@za_ansi_nar(lsto)"        |__|"lsto2@za_ansi_nar(lsto)"        (_o)"lsto3@za_ansi_nar(lsto)"            "rsto1@za_ansi_nar(rsto)" |__|         "rsto2@za_ansi_nar(rsto)" (o_)         "}
#VAR za_war {head1@za_ansi_war(head)"             .'"%char(34)"          "head2@za_ansi_war(head)"         ,.-/-.,          "head3@za_ansi_war(head)"        |  <send 'ocen_pokaz zbroje "@za_przedmioty.head"' '"@za_przedmioty.head"'><color #00FFFF>"@za_zniszczenie.head"</color></send>  |         "head4@za_ansi_war(head)"        | <:::> |         "head5@za_ansi_war(head)"        |       |         "head6@za_ansi_war(head)"         \'^'/          "larm1@za_ansi_war(larm)"   ___"larm2@za_ansi_war(larm)" ,'   "larm3@za_ansi_war(larm)" |_ <send 'ocen_pokaz zbroje "@za_przedmioty.larm"' '"@za_przedmioty.larm"'><color #00FFFF>"@za_zniszczenie.larm"</color></send> "larm4@za_ansi_war(larm)" | '-|"larm5@za_ansi_war(larm)" |   |"larm6@za_ansi_war(larm)" <>"lhan1@za_ansi_war(lhan)" |   |"lhan2@za_ansi_war(lhan)" |-<send 'ocen_pokaz zbroje "@za_przedmioty.lhan"' '"@za_przedmioty.lhan"'><color #00FFFF>*</color></send>-|"lhan3@za_ansi_war(lhan)" |||/ "rarm1@za_ansi_war(rarm)"___    "rarm2@za_ansi_war(rarm)"   '.  "rarm3@za_ansi_war(rarm)" <send 'ocen_pokaz zbroje "@za_przedmioty.rarm"' '"@za_przedmioty.rarm"'><color #00FFFF>"@za_zniszczenie.rarm"</color></send> _|  "rarm4@za_ansi_war(rarm)"|-' |  "rarm5@za_ansi_war(rarm)"|   |  "rarm6@za_ansi_war(rarm)"<>  "rhan1@za_ansi_war(rhan)"|   |  "rhan2@za_ansi_war(rhan)"|-<send 'ocen_pokaz zbroje "@za_przedmioty.rhan"' '"@za_przedmioty.rhan"'><color #00FFFF>*</color></send>-|  "rhan3@za_ansi_war(rhan)" \|||  "body1@za_ansi_war(body)"_.,'^|^|^',._"body2@za_ansi_war(body)"|     |     |"body3@za_ansi_war(body)"/   _ <send 'ocen_pokaz zbroje "@za_przedmioty.body"' '"@za_przedmioty.body"'><color #00FFFF>"@za_zniszczenie.body"</color></send> _   \"body4@za_ansi_war(body)"|.-'  |  '-.|"body5@za_ansi_war(body)"\     |     /"body6@za_ansi_war(body)" \    |    / "body7@za_ansi_war(body)"  >----<  "nogi1@za_ansi_war(body)" /_'-,|,-'_\ "nogi2@za_ansi_war(nogi)"|_ '-,<send 'ocen_pokaz zbroje "@za_przedmioty.nogi"' '"@za_przedmioty.nogi"'><color #00FFFF>"@za_zniszczenie.nogi"</color></send>,-' _|"nogi3@za_ansi_war(nogi)"      | '-,_|_,-' |       "nogi4@za_ansi_war(nogi)"      |____/^\____|       "nogi5@za_ansi_war(nogi)"       \   | |   /        "nogi6@za_ansi_war(nogi)"        |  | |  |         "nogi7@za_ansi_war(nogi)"        <> <>         "nogi8@za_ansi_war(nogi)"        |  | |  |         "nogi9@za_ansi_war(nogi)"        |-.| |.-|         "lsto1@za_ansi_war(lsto)"        |<send 'ocen_pokaz zbroje "@za_przedmioty.lsto"' '"@za_przedmioty.lsto"'><color #00FFFF>*</color></send>,|"lsto2@za_ansi_war(lsto)"       /[]\"lsto3@za_ansi_war(lsto)"       '---'"rsto1@za_ansi_war(rsto)" |,<send 'ocen_pokaz zbroje "@za_przedmioty.rsto"' '"@za_przedmioty.rsto"'><color #00FFFF>*</color></send>|         "rsto2@za_ansi_war(rsto)" /[]\        "rsto3@za_ansi_war(rsto)" '---'        "}
#VAR za_translate_zbr {gloweheadprawe ramielarmprawa dlonlhanlewe ramierarmlewa dlonrhankorpusbodynoginogiprawa stopelstolewa stopersto}
#VAR za_translate_brn {bron drzewcowabddwureczna maczugadmadwureczny mieczdmidwureczny mlotdmldwureczny topordtomaczugamamieczmimlotmltoportosztyletsz}
#VAR za_przedmioty {bodyciezka wytworna karacenararmciezka wytworna karacenalarmciezka wytworna karacenanogiciezka wytworna karacenaheadczarny zdobiony helmrhanpara rekawic ze skory wezalhanpara rekawic ze skory wezarstolsniace luskowate butylstolsniace luskowate buty}
#VAR za_zniszczenie {body4rarm4larm4nogi4head5rhan5lhan5rsto5lsto5}
#VAR za_ansi_nar {%ansi(3)}
#VAR za_ansi_war {%ansi( %if( %ismember( %1, lsto|rsto|lhan|rhan), 15, %item( 12|4|6|8|15, @za_zniszczenie.%1)))}
#VAR za_ansi_brn {%ansi( %item( 12|4|6|14|14|8|15, @za_zniszczenie.%1))}
#VAR za_tar {"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|@za_ansi_war(tar)" .---V---. "|(@za_ansi_war(tar)" |   |   | ")|(@za_ansi_war(tar)" |=======| ")|(@za_ansi_war(tar)" |  *<send 'ocen_pokaz tarcze "@za_przedmioty.tar"' '"@za_przedmioty.tar"'><color #00FFFF>"@za_zniszczenie.tar"</color></send>*  | ")|(@za_ansi_war(tar)" | \   / | ")|(@za_ansi_war(tar)" '.  |  ,' ")|@za_ansi_war(tar)"   \._./   "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|(@za_ansi_war(tar)" |  *<send 'ocen_pokaz tarcze "@za_przedmioty.tar"' '"@za_przedmioty.tar"'><color #00FFFF>"@za_zniszczenie.tar"</color></send>*  | ")|"           "|"           "|"           "|"           "|"           "}
#VAR za_ntar {"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|(@za_ansi_war(tar)"   /|\   ")|@za_ansi_war(tar)"  (==<send 'ocen_pokaz puklerz "@za_przedmioty.ntar"' '"@za_przedmioty.ntar"'><color #00FFFF>"@za_zniszczenie.ntar"</color></send>==)  "|@za_ansi_war(tar)"   \/_\/   "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|@za_ansi_war(tar)"  (==<send 'ocen_pokaz puklerz "@za_przedmioty.ntar"' '"@za_przedmioty.ntar"'><color #00FFFF>"@za_zniszczenie.ntar"</color></send>==)  "}
#VAR za_bd {"       A   "|("    ,| |   ")|("  .' : |   ")|("  | (  |,' ")|(" (   |=>- ")|("  | (  |`. ")|("  '. : |   ")|("    `| |   ")|("       |   ")|("       |   ")|("       |   ")|("     `.|,' ")|"       W   "|"       <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>   "|("       |   ")|("       |   ")|("       |   ")|("       |   ")|("       |   ")|("       |   ")|("       |   ")|("       |   ")|("       |   ")|("       |   ")|"           "}
#VAR za_dma {"           "|"           "|"           "|"     n     "|"     x     "|"     x     "|"     x     "|"     x     "|"    /\    "|"        "|"        "|"        "|"        "|"    <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>    "|"        "|"        "|"      "|"    "|"  `/  \'  "|"  (    )  "|"  -\,./  "|"  _.---._  "|" /_./ \._\ "|"           "|"           "}
#VAR za_dmi {"           "|"           "|"     _     "|"    ()    "|"    /    "|"    /    "|"    /    "|" /_/_\ "|"(       )"|" \,/\V/\,/ "|"        "|"        "|"       "|"   <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>    "|"        "|"        "|"        "|"       "|"        "|"       "|"        "|"        "|"    \/    "|"     `     "|"           "}
#VAR za_dml {"           "|"           "|"           "|"     _     "|"    (o)    "|"    x    "|"    x    "|"    x    "|"    x    "|"    x    "|"    :    "|"    :    "|"    :    "|"    <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>    "|"    :    "|"  :  "|"    :    "|" __  __ "|"  \/  "|"      "|"      "|"      "|"__/\__"|"    &    "|"           "}
#VAR za_dto {"           "|"           "|"           "|"           "|"           "|"           "|"        .^."|"        "|"        "|"        "|"        "|"        "|"        "|"        <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>"|"     .> N"|"    ;' N"|"  ,;.  N"|" ,;#N"|" ;#N"|";#N"|"`;#N"|" `;.  N"|"  ';.  @ "|"    ':>    "|"           "}
#VAR za_ma {"           "|"           "|"           "|"  ,+.    "|" ,+.   "|" +   "|" '+'   "|"    Y      "|"    I      "|"    I      "|"    I      "|"    I      "|"    I      "|"    <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>      "|"    X      "|"    X      "|"    X      "|"          "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"    <send 'ocen_pokaz bron "@za_przedmioty.lbron"' '"@za_przedmioty.lbron"'><color #00FFFF>"@za_zniszczenie.lbron"</color></send>      "}
#VAR za_mi {"           "|"           "|"           "|"    ,      "|"   / \     "|"         "|"   .     "|"   .     "|"   :     "|"   :     "|"   :     "|"   :     "|"   :     "|" [==<send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>==]   "|"   `x     "|"    x      "|"    x      "|"   (x)     "|"          "|"           "|"           "|"           "|"           "|"           "|"           "|" [==<send 'ocen_pokaz bron "@za_przedmioty.lbron"' '"@za_przedmioty.lbron"'><color #00FFFF>"@za_zniszczenie.lbron"</color></send>==]   "|"           "}
#VAR za_ml {"           "|"           "|"           "|"           "|"  __[X]_   "|"       \  "|"        > "|" ______/  "|"    [X]    "|"         "|"         "|"         "|"         "|"    <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>    "|"    `x    "|"     x     "|"     x     "|"     U     "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"    <send 'ocen_pokaz bron "@za_przedmioty.lbron"' '"@za_przedmioty.lbron"'><color #00FFFF>"@za_zniszczenie.lbron"</color></send>    "}
#VAR za_to {"           "|"           "|"           "|"           "|"  ,  ^  .  "|" /I  I  I\ "|"(  ==+==  )"|" \I  Y  I/ "|"  '  I  '  "|"     I     "|"     I     "|"     I     "|"     I     "|"   . <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send> ,   "|"    `x    "|"     x     "|"     x     "|"     U     "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"   . <send 'ocen_pokaz bron "@za_przedmioty.lbron"' '"@za_przedmioty.lbron"'><color #00FFFF>"@za_zniszczenie.lbron"</color></send> ,   "}
#VAR za_sz {"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"          "|"   !!     "|"   !!     "|"   !!     "|"   !!     "|" <send 'ocen_pokaz bron "@za_przedmioty.pbron"' '"@za_przedmioty.pbron"'><color #00FFFF>"@za_zniszczenie.pbron"</color></send>   "|"    x      "|"    U      "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|" <send 'ocen_pokaz bron "@za_przedmioty.lbron"' '"@za_przedmioty.lbron"'><color #00FFFF>"@za_zniszczenie.lbron"</color></send>   "|"           "}
#VAR za_blk {"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "|"           "}
#VAR za_lap_ocene {0}
#REGEX "ungag_zalozone" {[A-Z]{3,}} {#ungag} "" {case|disable}
#CLASS 0
#CLASS {Dane}
#CLASS 0
#CLASS {Dane|.liczniki}
#VAR lz_all_p {}
#VAR lz_me_p {}
#VAR lz_all {}
#VAR lz_me {}
#VAR lz_all_h {}
#VAR lz_me_h {}
#VAR lpr_db {}
#VAR lp_nazwa {}
#VAR lp_czas {}
#VAR lpa_db {}
#VAR lpa_maxtd {90}
#VAR lpa_pokaz_liste {0}
#VAR lpw_db {maxx84maxy30ly9x80y10}
#VAR lpo_scale {}
#VAR lpo_sczesc {}
#VAR lpo_kzabici {#C2C2C0}
#VAR lpo_knzabici {#6BFF40}
#VAR lpo_sbrak {x}
#VAR lpo_kbrak {#AA0000}
#VAR lpo_texp {#000000}
#VAR lpo_tforma {#595958}
#VAR lpo_kkom {#FFFF00}
#VAR lpo_kkom_nzabici {#FFA803}
#VAR lpo_slpw_w2 {!}
#VAR lpo_kicon {#88CC88}
#VAR lpo_sskom {k}
#VAR lpo_kskom {#00AAFF}
#VAR lpw_maxx {80}
#VAR lpw_maxy {30}
#VAR lp_db {opiszadnenum0kiedy00:00forma0forma_data2016-07-21 09:33:06ile0pokaz0}
#VAR lz_spec_2w {}
#VAR lz_spec_3w {}
#VAR lz_spec_4w {}
#CLASS 0
#CLASS {Dane|.przedmioty}
#VAR ocen_zbroje_waga {}
#VAR ocen_zbroje_obj {}
#VAR ocen_zbroje_wartosc {}
#VAR ocen_zbroje_typ {}
#VAR ocen_zbroje_chroni {}
#VAR ocen_pochodzenia {}
#VAR ocen_zbroje_pochodzenie {}
#VAR ocen_zbroje_komentarz {}
#VAR ocen_bron_waga {}
#VAR ocen_bron_obj {}
#VAR ocen_bron_wartosc {}
#VAR ocen_bron_typ {}
#VAR ocen_bron_rany {}
#VAR ocen_bron_reka {}
#VAR ocen_bron_magia {}
#VAR ocen_inne_waga {}
#VAR ocen_inne_obj {}
#VAR ocen_inne_wartosc {}
#VAR ocen_pojemnik_waga {}
#VAR ocen_pojemnik_obj {}
#VAR ocen_pojemnik_wartosc {}
#VAR ocen_pojemnik_typ {}
#VAR ocen_bron_srebro {}
#VAR ocen_ekw_waga {}
#VAR ocen_ekw_obj {}
#VAR ocen_ekw_wartosc {}
#VAR ocen_bron_pochodzenie {}
#VAR ocen_zamowienie_3 {}
#VAR ocen_zamowienie_0 {}
#VAR ocen_aukcja {}
#VAR ocen_sprzedaz_3 {}
#VAR ocen_sprzedaz_0 {}
#VAR ocen_sprzedaz_2 {}
#VAR ocen_sprzedaz_1 {}
#VAR ocen_bron_komentarz {}
#VAR ocen_sprzedaz_4 {}
#VAR ocen_tarcze_waga {}
#VAR ocen_tarcze_obj {}
#VAR ocen_tarcze_wartosc {}
#VAR ocen_tarcze_pochodzenie {}
#VAR ocen_puklerz_waga {}
#VAR ocen_puklerz_obj {}
#VAR ocen_puklerz_wartosc {}
#VAR ocen_puklerz_pochodzenie {}
#VAR ocen_ubranie_waga {}
#VAR ocen_ubranie_obj {}
#VAR ocen_ubranie_wartosc {}
#VAR ocen_ubranie_typ {}
#VAR ocen_ubranie_pochodzenie {}
#VAR ocen_inne_pochodzenie {}
#VAR ocen_inne_komentarz {}
#VAR ocen_zamowienie_2 {}
#VAR ocen_zamowienie_1 {}
#VAR ocen_zamowienie_4 {}
#VAR ocen_bron_long {}
#VAR ocen_zbroje_long {}
#VAR ocen_inne_long {}
#VAR ocen_pojemnik_long {}
#VAR ocen_ubranie_long {}
#VAR ocen_ekw_long {}
#VAR ocen_tarcze_long {}
#CLASS 0
#CLASS {Dane|.ziola}
#VAR zi_baza3w {aromatyczn klacznameTATARAKaromatyczn zielnameMACHORKAbial mal kwiat(nameGLOGuseprzezuj:+hp+zm|zjedz:zm)bial pachnac cebulnameCZOSNEKbial rozgalezion korzennameMANDRAGORAbial zmutowan grzyb(nameSTROCZEKusezjedz:truj)bialokwitnac drobn roslinnameROSICZKAbrazow duz owocnameKASZTANbrazow okragl nasion(nameKOLAuserozgryz:+conzmglod|zjedz:glod)brazowaw fosforyzujac mch(nameGRABIOROGusezjedz:mana)brudnobrazow cuchnac galaznameBAGNObrudnozolt fioletowozylkowan kwiat(nameLULEKuseprzezuj:truj)ciemn poskrecan klacz(namePIECIORNIKuserozgryz:+hp+zm)ciemn splatan korzen(nameCIEMIERNIKusezjedz:strdexcon+truj)ciemnoniebieski sluzowat grzybnamePIERSCIENIAKciemnozielon rozwart rozycz(nameROJNIKusezjedz:+alco)cienk ukwiecon galaznameKRUSZYNAczarn aromatyczn ziarennameBULAWINKAczarn blyszczac fasol(nameBOBOTRUTKAuserozgryz:truj)czarn lsniac jagodnamePOKRZYKczarn niewielk owocnameSLIWAczerwonaw duz liscnameRABARBARczterokanciast rozgalezion lodyg(nameDZIURAWIECuserozgryz:+hp)czteroplatkow zolt kwiatnameGLISTNIKdelikatn czerwon grzybnameMUCHOMOR CZERWONYdelikatn dlug lodygnameBOZE DRZEWKOdelikatn jasn grzybnameMUCHOMOR SROMOTNIKOWYdlug bial korzennameCHRZANdlug lodyg(nameKONOPIEuseOchrona przed magia)dlug pachnac lodygnamePIOLUNdlug ususzon lodyg(nameKONOPIAusespal:resistnamagie)drobn bial kwiatnameRUMIANEKdrobn ukwiecon galaznameSWIETLIKduz bial kwiat(nameBIELUNusepowachaj:+con)duz fioletow kwiat(nameOSTROZECZKAusezjedz:picie)duz granatow jagod(nameSIEZYGRONuserozgryz:odtruj)duz pomarszczon liscnameTYTONdziwn zoltoszar nasion(nameKULCZYBAusezjedz:2xdis+truj)eliptyczn zaostrzon lisc(nameOGORECZNIKuseprzezuj:+odw)fioletow lejkowat kwiat(nameBARWINKAuseprzyloz:+hp)fioletow zwart kwiat(nameLAWENDAuseprzyloz:+hp+zm|zjedz:resist)galeziast szaroowlosion lodygnameBYLICA PIOLUNgalezist sinozielon lodygnameOSTROZENgrub brazow grzybnameBOROWIK KROLEWSKIgrub klacznameOMANgrub szaraw grzybnameBOROWIK SZATANSKIgrub walcowat klacz(namePOKRZYKusezjedz:spost)grub wygiet klacznameRDESTgrzyb such kapelusznameHUBKAjaskrawozolt drobn kwiat(nameSTULICHAusezjedz:truj)jasnobrazow ulistnion lodygnameNAWLOCjasnobrunatn popekan galaznameBEZjasnofioletow delikatn kwiat(nameSZAFRANusezjedz:+hp)jasnofioletow dlug kwiatnameZIMOWITjasnopomaranczow kwiat(nameNAGIETEKuseprzyloz:+hp+zm)jasnozielon nieowlosion lodygnameLULECZNICAjasnozielon sluzowat grzybnamePIERSCIENIAK GRYNSZPANOWYkanciast parzac lodyg(namePOKRZYWAusezjedz: +glod picie alko kac)kanciast rozgalezion lodyg(nameBYLICA POSPOLITAuseprzyloz zm)kolczast wysuszon roslin(nameOSETusehp)kosmatoowlosion kwiat(nameKASZTANOWIECusezjedz:zm)kremow owlosion kwiat(namePRZELOTusesproszkuj:zmmana)liliow lejkowat kwiat(nameKAKOLusezjedz:+glod+truj)lsniac czerwon owocnameDERENmacznistoowlosion szaraw roslin(nameKOMOSAuseprzezuj:+conzm|zjedz:+str)mal czarn owocnameJEZYNAmal czerwon kwiat(nameSERCE KAPITANAuseprzezuj:+hpdexint)mal czerwon owocnameMALINAmal fioletow owocnameJAGODAmal szorstk liscnameADANATmal zoltozielon szysznameCHMIELmazist bulwiast grzyb(nameCASURusezjedz:+str)miedzian sluzowat grzybnamePIERSCIENIAKmiedzianozielon fosforyzujac grzyb(nameMUCHOMORusezjedz:truj)niebiesk sluzowat grzybnamePIERSCIENIAKnieduz brazow grzybnameMASLAKniepozorn sinozielon roslinnameURZETniewielk brunatn koszycznameCZARNUSZKAniewielk czerwon owocnamePOZIOMKAniewielk fioletow kwiat(nameMAKOWNIKusezjedz:+hp)okazal pachnac kwiat(nameMAKusezjedz:dexspost)okraglaw aromatyczn lisc(nameMIETAuserozetrzyj:+hp+zm|powachaj:zm)oliwkowozielon gietk galaz(nameJEMIOLAusezjedz:constr)owlosion aromatyczn lisc(nameMELISAuse)pachnac jasnozielon liscnameKRASNODRZEWpachnac jasnozwielon liscnameKRASNODRZEWpowachaj:+picieglodpachnac snieznobial kwiatnameGRZYBIENpiekn czerwon kwiat(nameMAKusezjedz:+hp+zmdex)pierzast ogonkow lisc(namePOTOSLINusezjedz:strdiscon++truj)pomaranczow mal korzen(nameSZALEJusezjedz:truj)rozdet aromatyczn lodyg(nameSZCZWOLusezjedz:hp+trujdex)rozetkowat lancetowat lisc(nameBABKAuseprzyloz:+hp)rozgalezion owlosion lodygnameSTROICZKArozgalezion wzniesion lodyg(nameJASKIERuseprzezuj:oslepienie)rozgowat zoltozielon galaz(namePRZESLuseprzezuj:+con)rozwiniet korzennameMARZANNArurkowat oliwkowobrunatn kwiatnameBYLICA CYTWAROWAsmukl jasnozielon lodygnameCENTURIAsmukl zielon lodygnameNOSTRZYKsoczyst karminow mch(nameDRATHuseprzezuj:+con)srebrzystoszar owlosion lisc(nameNAPARSTNICAusezjedz:zm)sredn kasztanowobrazow grzybnamePODGRZYBEKsredni kasztanowobrazow grzybnamePODGRZYBEKstrzalkowat aromatyczn lisc(nameSZCZAWuseprzezuj:+hp)szar aromatyczn korzen(nameLUBCZYKusezjedz:+glod)szar kolczast korzen(nameARALIAuseprzezuj:+resistzm+trujplucnica)szaraw pogiet klacznameRAUWOLFIAszarozielon gabczast porost(namePLUCNICAusesproszkuj:odtruj)szarozielon szorstk lisc(nameBOLDOAuse)szorstk ciemnozielon galaznamePOZIEWNIKsztywn rozgalezion korzen(nameLUKRECJAuseprzezuj:picie)sztywn smukl lodygnameLAKtward czerwon owocnameBOROWKAukwiecon lodygnameKRWAWNIKulistnion aromatyczn galaz(nameCZEREMCHAuseprzezuj:3xresist)wiotk drobn lodyznameKURZYSLADwiotk kwitnac galaz(nameJANOWIECusezjedz:picie)wonn dzwonkowat kwiat(nameKONWALIAusepowachaj:+piciepanika)wysok blekitn kwiat(nameCHABERusezjedz:picie)wysok zolt kwiat(nameSTARZECusezjedz:truj)wysoki czerwonaw grzybnameKOZLARZwysoki jasnobrazow grzybnameBOROWIKwzniesion owlosion lodygnameKOCIMIETKAwzniesion ukwiecon lodygnameTOJADzaostrzon podluzn lisc(nameSZALWIA LEKARSKAuse+hp)zdrewnial rozgalezion krzewin(nameMACZNICAuserozgryz:+hp)zdrewnial zwiniet rurk(nameKRUSZYNAusezjedz:+glod)zielon galezist ped(nameRDESTuseprzyloz:+hp)zielon kwitnac krzewin(nameHYZOPusezjedz:+glod)zielon lancetowat liscnameTRAWAzielon miesist kwiat(nameCIEMIEZYCAusezjedz:strdex)zielon postrzepion galaznameDRABIKzielon sluzowat grzybnamePIERSCIENIAKzielon trzeszczac galaz(nameSKRZYPusebrak)zlocist spor ziolnameCEBULAzlocistopomaranczow duz kwiat(nameARNIKAusezjedz:zm)zlocistozolt kwiat(nameMNISZEKuseprzezuj:+hp+zm)zolt jaskraw kwiatnamePODBIALzolt jasn kwiat(nameDELIONAusezjedz:++zm)zolt rurkowat kwiat(nameWROTYCZusepowachaj:resist)zoltaw powyginan korzennameKRZYZOWNICAzoltoszar niepozorn korzen(nameRANOGuseprzezuj:odtruj+hp)}
#VAR zi_baza2w {aromatyczn klacznameTATARAKaromatyczn zielnameMACHORKAdlug lodyg(nameKONOPIEuseOchrona przed magia)grub klacznameOMANjasnopomaranczow kwiat(nameNAGIETEKuseprzyloz:+hp+zm)kosmatoowlosion kwiat(nameKASZTANOWIECusezjedz:zm)rozwiniet korzennameMARZANNAukwiecon lodygnameKRWAWNIKzlocistozolt kwiat(nameMNISZEKuseprzezuj:+hp+zm)}
#VAR zi_baza {aromatyczne zieleMACHORKA [0m(przezuj: brak)biala pachnaca cebulkaCZOSNEK[0mbialokwitnaca drobna roslinkaROSICZKA [0m(brak)bialy maly kwiatGLOG [0m(przezuj: +hp, +zmeczenie, zjedz: zmeczenie)bialy zmutowany grzybekSTROCZEK [0m(zjedz: poison)brazowawy fosforyzujacy mechGRABIOROG [0m(zjedz: mana)brazowe okragle nasionkoKOLA [0m(rozgryz: +con, zmeczenie, +najedzienie, zjedz: +najedzenie)brazowy duzy owocKASZTAN [0m(brak)brudnobrazowa cuchnaca galazkaBAGNO [0m(brak)brudnozolty fioletowozylkowany kwiatLULEK [0m(przezuj: poison)ciemne poskrecane klaczePIECIORNIK [0m(przezuj: 2x(brak efektu), rozgryz: +hp, +zmeczenie )ciemnoniebieski sluzowaty grzybPIERSCIENIAK [0m(zjedz: brak efektu )ciemnozielona rozwarta rozyczkaROJNIK [0m(zjedz: +alco)ciemny splatany korzenCIEMIERNIK [0m(zjedz: str, dex, con, poison)czarna blyszczaca fasolkaBOBOTRUTKA [0m(rozgryz: (poison))czarne aromatyczne ziarenkoBULAWINKA [0m(brak)czarny niewielki owocSLIWA [0m(brak)czerwonawy duzy liscRABARBAR [0m(brak)czterokanciasta rozgaleziona lodygaDZIURAWIEC [0m(rozgryz: +hp)delikatna dluga lodygaBOZE DRZEWKO[0mdelikatny czerwony grzybMUCHOMOR CZERWONY[0mdluga lodygaKONOPIE[0m (ususzyc + spalic  ochrona przed magia)dluga ususzona lodygaKONOPIA [0m(spal: resist na magie)drobny bialy kwiatekRUMIANEK [0m(powachaj: brak efektu, przyloz: brak efektu)duza granatowa jagodaSIEZYGRON [0m(rozgryz: anty poison)duze pomarszczone liscieTYTON BAKUN[0mduzy bialy kwiatBIELUN [0m(powachaj: (+con))duzy fioletowy kwiatOSTROZECZKA [0m(zjedz: bardziej spragniony)dziwne zoltoszare nasionkoKULCZYBA [0m(zjedz: 2x dis, poison)eliptyczny zaostrzony liscOGORECZNIK [0m(przezuj: +odwaga)fioletowy lejkowaty kwiatBARWINKA [0m(przyloz: +hp)fioletowy zwarty kwiatostanLAWENDA[0m (przyloz: +hp, +zmeczenie, zjedz: odtrutka)galeziasta szaroowlosiona lodygaBYLICA PIOLUN[0mgalezista sinozielona lodygaOSTROZEN [0m(brak)grube walcowate klaczePOKRZYK [0m(zjedz: spostrzegawczosc)grube wygiete klaczeRDEST [0m(przezuj: brak efektu)gruby brazowy grzybBOROWIK KROLEWSKI[0mgruby szarawy grzybBOROWIK SZATANSKI[0mgrzybi suchy kapeluszHUBKA [0m(brak)jaskrawozolty drobny kwiatSTULICHA [0m(zjedz: poison)jasnobrazowa ulistniona lodygaNAWLOC[0mjasnobrunatna popekana galazkaBEZ [0m(przezuj: brak)jasnofioletowy delikatny kwiatSZAFRAN [0m(zjedz: +hp)jasnopomaranczowy kwiatNAGIETEK [0m(przyloz: +hp, +zmeczenie)jasnozielona nieowlosiona lodygaLULECZNICA[0mjasnozielony sluzowaty grzybPIERSCIENIAK GRYNSZPANOWY[0mkanciasta parzaca lodygaPOKRZYWA[0m (zjedz: +glod picie alko kac)kanciasta rozgaleziona lodygaBYLICA POSPOLITA[0m (przyloz: zmeczenie)kolczasta wysuszona roslinaOSET[0m (przezuj: hp)kosmatoowlosiony kwiatostanKASZTANOWIEC [0m(zjedz: zmeczenie)kremowy owlosiony kwiatPRZELOT [0m(sproszkuj: zmeczenie, mana, przezuj: brak efektu)liliowy lejkowaty kwiatKAKOL [0m(zjedz: +glod, poison)lsniacy czerwony owocDEREN [0m(przezuj: (brak efektu))macznistoowlosiona szarawa roslinaKOMOSA[0m (przezuj:+con  zm, zjedz: +str)maly czarny owocJEZYNA [0m(brak)maly czerwony kwiatSERCE KAPITANA [0m(przezuj: +hp, dex, int)maly czerwony owocMALINA [0m(brak)maly fioletowy owocJAGODA [0m(brak)maly szorstki liscADANAT[0mmazisty bulwiasty grzybCASUR [0m(zjedz: +str)miedzianozielony fosforyzujacy grzybMUCHOMOR [0m(zjedz: poison)nieduzy brazowy grzybMASLAK [0m(brak)niepozorna sinozielona roslinkaURZET [0m(brak)niewielki czerwony owocPOZIOMKA [0m(brak)niewielki fioletowy kwiatMAKOWNIK [0m(zjedz: +hp)okazaly pachnacy kwiatMAK [0m(zjedz: dex, spostrzegawczosc)okraglawy aromatyczny liscMIETA[0m (rozetrzyj: +hp, +zmeczenie, powachaj: zmeczenie, wetrzyj kac)oliwkowozielona gietka galazkaJEMIOLA [0m(zjedz: con, str)owlosiony aromatyczny liscMELISA[0m (przezuj/zjedz kondycja; ususzona  odtrutka)pachnacy jasnozielony liscKRASNODRZEW[0mpachnacy jasnozwielony lisc KRASNODRZEW[0m(powachaj: +napicie, +najedzenie)pachnacy snieznobialy kwiatGRZYBIEN [0m(brak)piekny czerwony kwiatMAK [0m(zjedz: +hp, +zmeczenie, zrecznosc)pierzasty ogonkowy liscPOTOSLIN [0m(zjedz: str, dis, con, poison (mocny))pomaranczowy maly korzenSZALEJ [0m(zjedz: poison)rozdeta aromatyczna lodygaSZCZWOL [0m(zjedz: hp, poison,  dex)rozetkowaty lancetowaty liscBABKA [0m(przyloz: +hp)rozgaleziona owlosiona lodygaSTROICZKA[0mrozgaleziona wzniesiona lodygaJASKIER [0m(przezuj: oslepienie, rozgryz: (brak efektu))rozgowata zoltozielona galazkaPRZESL [0m(przezuj: +con)rozwiniety korzenMARZANNA [0m(brak)rurkowaty oliwkowobrunatny kwiatBYLICA CYTWAROWA[0msmukla jasnozielona lodygaCENTURIA[0msmukla zielona lodygaNOSTRZYK[0msoczysty karminowy mechDRATH [0m(przezuj: +con)srebrzystoszary owlosiony liscNAPARSTNICA [0m(zjedz: zmeczenie)sredni kasztanowobrazowy grzybPODGRZYBEK[0mstrzalkowaty aromatyczny liscSZCZAW [0m(przezuj: +hp)szarawe pogiete klaczeRAUWOLFIA [0m(przezuj: brak efektu)szarozielony gabczasty porostPLUCNICA[0m (sproszkuj: anty poison, rozetrzec)szarozielony szorstki liscBOLDOA[0m (brak)szary aromatyczny korzenLUBCZYK [0m(zjedz: +glod)szary kolczasty korzenARALIA [0m(przezuj: +resist, zmeczenie, +poisonplucnica)szorstka ciemnozielona galazkaPOZIEWNIK[0msztywna smukla lodygaLAK[0msztywny rozgaleziony korzenLUKRECJA [0m(przezuj: bardziej spragniony, rozgryz: brak efektu)twardy czerwony owocBOROWKA [0m(brak)ulistniona aromatyczna galazkaCZEREMCHA [0m(przezuj: 3x resist)wiotka drobna lodyzkaKURZYSLAD[0mwiotka kwitnaca galazkaJANOWIEC [0m(zjedz: bardziej spragniony)wonny dzwonkowaty kwiatekKONWALIA [0m(powachaj: +napicie, panika)wysoki blekitny kwiatCHABER [0m(przezuj: (brak efektu), powachaj: (brak efektu), zjedz: bardziej spragniony)wysoki czerwonawy grzybKOZLARZ [0m(brak)wysoki jasnobrazowy grzybBOROWIK [0m(brak)wysoki zolty kwiatSTARZEC [0m(sproszkuj: brak efektu, zjedz: poison)wzniesiona owlosiona lodygaKOCIMIETKA[0mwzniesiona ukwiecona lodygaTOJAD[0mzaostrzony podluzny liscSZALWIA LEKARSKA[0m (zjedz +hp)zdewniala zwinieta rurkaKRUSZYNA [0m(zjedz: najedzenie)zdrewniala rozgaleziona krzewinkaMACZNICA[0m (rozgryz: +hp, sprobowac ususzyc)zielona kwitnaca krzewinkaHYZOP [0m(zjedz: +glod, przyloz:brak)zielona trzeszczaca galazkaSKRZYP[0m (brak)zielone lancetowate liscieTRAWA[0mzielone postrzepione galazkiDRABIK [0m(brak)zielony galezisty pedRDEST [0m(przyloz: +hp)zielony miesisty kwiatCIEMIEZYCA [0m(zjedz: str, dex)zlociste spore zioloCEBULA [0m(brak)zlocistopomaranczowy duzy kwiatARNIKA [0m(zjedz: zmeczenie)zlocistozolty kwiatMNISZEK [0m(przezuj: +hp, +zmeczenie)zoltawy powyginany korzenKRZYZOWNICA [0m(przezuj: (brak efektu))zoltoszary niepozorny korzenRANOG [0m(przezuj: anty poison, +hp, brak efektu)zolty jaskrawy kwiatPODBIAL [0m(brak)zolty jasny kwiatDELIONA [0m(zjedz: szybka regeneracja zmeczenia)zolty rurkowaty kwiatWROTYCZ [0m(powachaj: resist)}
#CLASS 0
#CLASS {Dane|.postacie}
#VAR en_i2o {}
#VAR en_sz {}
#VAR en_kom {}
#VAR en_title {}
#VAR eng_sz {gildiakolorC0C0C0przyjacielekolorAA99CCsojusznicykolor3wrogowie(subuj1kolor6satak1)}
#VAR eng_nalezy {sojusznicyVRwrogowieMC}
#VAR eng_kom {}
#CLASS 0
#CLASS {Dane|.odmiany}
#VAR odmien_odmianaMN {sluzsluzemszkieletszkieletemkrasnolud chaosukrasnoludem chaosuczarny orkczarnym orkiemsmoczy ogrsmoczym ogremozywieniecozywiencem}
#VAR odmien_odmianaMD {}
#VAR odmien_odmianaMC {}
#VAR odmien_nieodmienialne {auglenn|insil|deli|ysar|mithari|shinru|isil|suavi|shiori|teo|luinarienn|thaess|solenay}
#VAR odmien_dwu_rasy {czarny ork|krasnolud chaosu|smoczy ogr|kamienny gargulec|zywiolak ziemi|zywiolak ognia|zywiolak powietrza|zywiolak wody|smok chaosu|rycerz chaosu|demon chaosu|duch elfa|pracownik poczty}
#VAR odmien_dwu_rasyB {czarnego orka|krasnoluda chaosu|smoczego ogr|kamiennego gargulec|zywiolaka ziemi|zywiolaka ognia|zywiolaka powietrza|zywiolaka wody|smoka chaosu|rycerza chaosu|demona chaosu|ducha elfa|pracownika poczty}
#VAR odmien_odmianapBM {}
#VAR odmien_jakrzecz {szkielet|sluz|postac}
#VAR odmien_wyjatekMB {niziolekniziolkapiespsaniedzwiedzniedzwiedziaaveniloavenilabrygubrygamaromarasandrosandrapauliepauliegohohrunkhohrunkazetuzetanevarenevara}
#VAR odmien_wyjatekBM {niziolkaniziolekpsapiesniedzwiedzianiedzwiedzavenilaavenilobrygabrygumaramarosandrasandropauliegopauliehohrunkahohrunknevaranevare}
#CLASS 0
#ALIAS kk {#sh "Sposrod osiemdziesieciu osob przebywajacych obecnie w swiecie Arkadii, znane tobie to:";#sh "Aiathel z Az'Rhat, Reka Tzeentcha, mezczyzna";#sh "Aldaron z Lasu Loren, Duch Puszczy, Starszy Rady Athel Loren, elf";#sh "Arren, mezczyzna";#sh "Azjel Nieopierzony Wloczykij, elf";#sh "Bam, ogr";#sh "Bargian Khazadsson z Twierdzy Karak Varn, krasnolud";#sh "Belgat de Embrun, Zolnierz Oddzialu Cruentis Fatum z Kompanii Gryfa,         ";#sh "      mezczyzna                                                              ";#sh "Bragor Yorrisson, Langktrommi Rodu Bedoreth z Twierdzy Karak Varn, Wybitny   ";#sh "      Jubiler, Slynny Kartograf, krasnolud                                   ";#sh "Brygu Torgeroth zwany Furiatem, Zabojca Demonow z grupy Garaz-Runkaraki,     ";#sh "      krasnolud                                                              ";#sh "Cadael Lwowicz, Czempion Szkoly Walki Domu von Raugen, mezczyzna";#sh "Chor Kapitan Drakkara "Zwiastun Smierci" z Floty Wysp Skellige, krasnolud";#sh "Dahed Dorso, Niepokonany Weteran Gwardii Domu von Raugen, mezczyzna";#sh "Drachen Elitarny Straznik Domu von Raugen, mezczyzna";#sh "Duruk Gorimsson, Gormtrommi Rodu Grimnar z Twierdzy Karak Kadrin, Doradca    ";#sh "      Najwyzszego Krola Krasnoludow z Gor Kranca Swiata, Zelaznobrody,       ";#sh "      krasnolud                                                              ";#sh "Eldakar z Ellyrion, Sierzant Oddzialu Cruentis Fatum z Kompanii Gryfa, elf";#sh "Gertruda Galgenstrick, kobieta";#sh "Goris Varg, Zolnierz Oddzialu Cruentis Fatum z Kompanii Gryfa, ogr";#sh "Gotfried Adelstein, mezczyzna";#sh "Grrid Gomrundsson, Karugromthi Krolewskiego Rodu Orr'Khraman z Twierdzy      ";#sh "      Karak Kadrin, Glowny Taktyk, krasnolud                                 ";#sh "Gulak z Gor Szarych, ogr";#sh "Hasandara z Lasu Loren, Tanczaca w Gestwinach Puszczy, Jedna z Lesnego       ";#sh "      Kregu, elfka                                                           ";#sh "Intia de Vingtiennes, Slynna Podrozniczka, polelfka";#sh "Isil de Soreil, Zastepczyni Zarzadcy Zajazdu 'Bialy Kiel', Radna             ";#sh "      Oxenfurckich Truwerow, polelfka                                        ";#sh "Kobu Njorl, Zbrojny Cechu Kupcow Novigradu, Pocztylion Miasta Kupieckiego    ";#sh "      Novigrad, mezczyzna                                                    ";#sh "Legalt aen Dol Blathanna, Subiekt Kupiecki, elf";#sh "*Lorand Weiss, mezczyzna";#sh "Othis Aragazzi, Porucznik Oddzialu Dies Irae z Kompanii Gryfa, mezczyzna";#sh "Ralandil z Lasu Loren, Duch Puszczy, Starszy Rady Athel Loren, elf";#sh "Rankor aen Dol Blathanna, elf";#sh "Sarven, elf"}
#DIR ns {n|polnoc|przemknij n|przemknij z druzyna n} n
#DIR sn {s|poludnie|przemknij s|przemknij z druzyna s} s
#DIR ew {e|wschod|przemknij e|przemknij z druzyna e} e
#DIR we {w|zachod|przemknij w|przemknij z druzyna w} w
#DIR jk {ne|polnocny-wschod|przemknij ne|przemknij z druzyna ne} ne
#DIR kj {sw|poludniowy-zachod|przemknij sw|przemknij z druzyna sw} sw
#DIR hl {nw|polnocny-zachod|przemknij nw|przemknij z druzyna nw} nw
#DIR lh {se|poludniowy-wschod|przemknij se|przemknij z druzyna se} se
#DIR ud {u|gora|gore|przemknij u|przemknij z druzyna u} u
#DIR du {d|dol|przemknij d|przemknij z druzyna d} d
