77 lines
3.9 KiB
HCL
77 lines
3.9 KiB
HCL
; by Ingwar
|
|
|
|
/def szukaj = /testuj
|
|
/def testuj = \
|
|
spoliczkuj kogo? %;\
|
|
/def -p306 -1 -i -agLG -t'Spoliczkuj kogo?' _testuj_poczatek = \
|
|
/let _testuj_komendy=\
|
|
wykop|kop|trenuj|kup|przejrzyj|zamow|wejdz|przejdz|wespnij|zlap|\
|
|
chwyc|zejdz|zsun|dotknij|urwij|wyskocz|zlam|zniszcz|rozwal|uderz|\
|
|
pomodl|modl|rozsun|wsun|dosun|posun|odsun|nasun|wysun|zasun|\
|
|
przesun|usun|rozciagnij|wciagnij|dociagnij|pociagnij|odciagnij|\
|
|
naciagnij|wyciagnij|zaciagnij|uciagnij|wcisnij|docisnij|pocisnij|\
|
|
odcisnij|wycisnij|zacisnij|przecisnij|ucisnij|rozlacz|wlacz|\
|
|
polacz|odlacz|wylacz|zalacz|przelacz|rozerwij|porwij|oderwij|narwij|\
|
|
wyrwyj|przerwij|podwaz|wywaz|przewaz|roznies|wnies|donies|\
|
|
ponies|odnies|nanies|wynies|zanies|przenies|unies|wplyn|doplyn|\
|
|
poplyn|wyplyn|zanurkuj|nurkuj|przeplyn|umiesc|nadaj|wypowiedz|\
|
|
zapukaj|zadzwon|rozpal|podpal|rzuc|podrzuc|podsadz|rozbij|przebij|\
|
|
zmien|zamien|przemien|pokaz|podloz|podeprzyj|przeczolgaj|czolgaj|\
|
|
wdrap|wyjdz|zastukaj|przepraw|przelej|wyrwij|wyjrzyj|wczolgaj|\
|
|
wygladnij|podciagnij|wygnij|nalej|odlej|wyrzuc|podnies|zloz|\
|
|
zasyp|nasyp|przesyp|podlej|opowiedz|sprawdz|popraw|zwroc|\
|
|
nacisnij|zajrzyj|siadz|usiadz|popchnij|pchnij|wplyn|\
|
|
wslizgnij|wskocz|zeskocz|wkrec|wykrec|odkrec|zakrec|przekrec|\
|
|
odbierz|wydlub|poswiec|ukorz|oddaj|kleknij|ukleknij|poddaj|\
|
|
odetnij|odwiaz|odetkaj|wykap|zdeponuj|przeskocz|postaw|zdepcz|zadepcz|\
|
|
rozdepcz|przetrzyj|wyczysc|oczysc|powachaj|wachaj|sproboj|pobierz|\
|
|
wygrzeb|odgrzeb|zerwij|zaczep|odczep|przyczep|przypnij|przyloz|przystaw|\
|
|
odchyl|przezuj|sproszkuj|spal|wypal|przywiaz|zawiaz|rozgryz|pozbieraj|\
|
|
zbieraj|doloz|zabierz|zalej|zagrzeb|rozbroj|przekop|popusc|obroc|\
|
|
wydoj|sciagnij|zatknij|rozegraj|graj|przymij|zarzuc|\
|
|
zdenominuj|wypozycz|pozycz|napraw|wybierz|wydrap|naloz|odpocznij|\
|
|
potargaj|utul|zanuc|pobij|mietos|spij|przytrocz|dmuchnij|odczytaj|\
|
|
wyryj|naostrz|zlomuj|wrzuc|odrzuc|ogrzej|wstan|powstan|kucnij|ukucnij|\
|
|
wytnij|rozpostrzyj|zepnij|rozepnij|przylacz|odlacz|przeslizgnij|\
|
|
zadeklaruj|zaplac|\
|
|
%%;\
|
|
/while /let i=$$[strstr({_testuj_komendy},"|")] %%; /@test i > 0 %%; /do \
|
|
/send $$[strcat(substr({_testuj_komendy},0,i), " Grrrrr..")] %%;\
|
|
/let _i_=$$[{_i_}+1] %%;\
|
|
/set _testuj_komendy2=$$[strcat({_testuj_komendy2},pad({_i_},-3),substr({_testuj_komendy},0,i+1))] %%;\
|
|
/let _testuj_komendy=$$[substr({_testuj_komendy},i+1)] %%;\
|
|
/done %%;\
|
|
/set _testuj_ilosc=0 %%;\
|
|
spoliczkuj kogo? %%;\
|
|
/def -agLG -p301 -i -mregexp -t'^(> )*Slucham\\\\\\\\?$$$$' _testuj_gag1 = \
|
|
/set _testuj_ilosc=$$$[{_testuj_ilosc}+1] %%%;\
|
|
/set _testuj_cos=1 %%;\
|
|
/def -agLG -p301 -i -mregexp -t'^(> )*Ze co\\\\\\\\?$$$$' _testuj_gag2 = \
|
|
/set _testuj_ilosc=$$$[{_testuj_ilosc}+1] %%%;\
|
|
/set _testuj_cos=1 %%;\
|
|
/def -agLG -p301 -i -mregexp -t'^(> )*Pociagnij .nosem. .jak.\\\\\\\\?$$$$' _testuj_gag3 = \
|
|
/set _testuj_ilosc=$$$[{_testuj_ilosc}+1] %%%;\
|
|
/set _testuj_cos=1 %%;\
|
|
/def -p205 -i -mregexp -h'PROMPT ^> ' _testuj_gag4 = \
|
|
/set _testuj_cos=1 %%;\
|
|
/def -p300 -i -mregexp -t'^> ' _testuj_gag5 = \
|
|
/set _testuj_cos=1 %%%;\
|
|
/_testuj_gag_hit %%;\
|
|
/def -p200 -i -t'*' _testuj_gag_hit = \
|
|
/if ({_testuj_cos}==1) \
|
|
/set _testuj_ilosc=$$$[{_testuj_ilosc}+1] %%%;\
|
|
/set _testuj_ilosc2=$$$[{_testuj_ilosc2}+1] %%%;\
|
|
/set _testuj_cos=0 %%%;\
|
|
/let num=$$$[strstr({_testuj_komendy2},{_testuj_ilosc})+3] %%%;\
|
|
/let num2=$$$[strstr(substr({_testuj_komendy2},{num}),"|")] %%%;\
|
|
/let _testuj_kom=$$$[substr({_testuj_komendy2},{num},{num2})] %%%;\
|
|
/echo -p Komenda: @{C%c_info}%%%{_testuj_kom}@{n} %%%;\
|
|
/endif %%;\
|
|
/def -p305 -agLG -i -t'*Spoliczkuj kogo?' _testuj_koniec = \
|
|
/echo -p #@{C%c_info}#@{n}# Udanych: @{C%c_info}%%%{_testuj_ilosc2-}@{n}/%%%{_testuj_ilosc}@{n} %%%;\
|
|
/purge -i _testuj_* %%%;\
|
|
/unset _testuj_ilosc %%%;\
|
|
/unset _testuj_ilosc2 %%%;\
|
|
/unset _testuj_cos %%%;\
|
|
/unset _testuj_komendy2
|