62 lines
2.0 KiB
HCL
62 lines
2.0 KiB
HCL
/def poczta = \
|
|
/if ({*}=~NULL | {*}=~'check') \
|
|
/if ({ogolne_poczta}=~NULL ) \
|
|
/echo -p #@{C%c_info}#@{n}# Brak poczty. %;\
|
|
/else \
|
|
/let _poczta=%{ogolne_poczta} %;\
|
|
/echo -p #@{C%c_info}#@{n}# Listy: %;\
|
|
/while /let i=$[strstr({_poczta},"|")] %; /@test i>-1 %; /do \
|
|
/echo -p #@{C%c_info}#@{n}# Od: @{C%c_info}$[substr({_poczta},5,i-5)] @{n}($[substr({_poczta},0,5)]). %;\
|
|
/let _poczta=$[substr({_poczta},i+1)] %;\
|
|
/done %;\
|
|
/endif %;\
|
|
/elseif ({*} =~ 'clear') \
|
|
/unset ogolne_poczta %;\
|
|
/set poczta_show=none%;\
|
|
/status_edit -r1 poczta_show:4:C%c_main %;\
|
|
/endif
|
|
|
|
/def -mregexp -Fp2 -t'^Czeka na ciebie (.*) poczta' _poczta_0 = \
|
|
/set ogolne_poczta=$[strcat(ftime("%H:%M",time()),"Kogos lub Czegos (", {P1}, ")|")] %;\
|
|
/beep 1 %;\
|
|
/set poczta_show=NEW%;\
|
|
/status_edit -r1 poczta_show:4:C%c_alarm
|
|
|
|
/def -mregexp -Fp2 -t'^Masz nowa poczte od (.*).' _poczta_1 = \
|
|
/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),{P1},"|")] %;\
|
|
/beep 1 %;\
|
|
/if ({poczta_show} =~ 'NEW' )\
|
|
/set poczta_show=NEW+%;\
|
|
/elseif ({poczta_show} =~ 'NEW+' )\
|
|
\
|
|
/elseif ({poczta_show} =~ 'BOTH' )\
|
|
\
|
|
/elseif ({poczta_show} =~ 'SYNC' )\
|
|
\
|
|
/elseif ({poczta_show} =~ 'MSG' )\
|
|
/set poczta_show=BOTH%;\
|
|
/else \
|
|
/set poczta_show=NEW%;\
|
|
/endif %;\
|
|
/status_edit -r1 poczta_show:4:C%c_alarm
|
|
|
|
/def -mregexp -Fp2 -t'^Masz nowy list.*od ([^ ]*), zatytulowany \'(.*)(\'|[^.]$)' _poczta_2 = \
|
|
/set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),{P1}," zatytulowany '",{P2},"'|")] %;\
|
|
/beep 1 %;\
|
|
/if ({poczta_show} =~ 'NEW' )\
|
|
/set poczta_show=NEW+%;\
|
|
/elseif ({poczta_show} =~ 'NEW+' )\
|
|
\
|
|
/elseif ({poczta_show} =~ 'BOTH' )\
|
|
\
|
|
/elseif ({poczta_show} =~ 'SYNC' )\
|
|
\
|
|
/elseif ({poczta_show} =~ 'MSG' )\
|
|
/set poczta_show=BOTH%;\
|
|
/else \
|
|
/set poczta_show=NEW%;\
|
|
/endif %;\
|
|
/status_edit -r1 poczta_show:4:C%c_alarm
|
|
|
|
/def -mregexp -Fp2 -t'Nagle, tuz przed toba, z chmury dymu' _wizmsg = /beep 3
|