#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 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 {opisrurkowaty oliwkowobrunatny kwiatarurkowatboliwkowobrunatnckwiatskrurkowat oliwkowobrunatn kwiatsusenazwaBYLICA CYTWAROWAbuse}
#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 {%1 zawiera: %char(13)-> %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~;-> ").}}
#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
