tf-scripts/common/mail.tf

/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:5: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%;\
  /endif %;\
  /status_edit -r1 poczta_show:5: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+%;\
  /else \
    /set poczta_show=NEW%;\
  /endif %;\
  /status_edit -r1 poczta_show:5: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+%;\
  /else \
    /set poczta_show=NEW%;\
  /endif %;\
  /status_edit -r1 poczta_show:5:C%c_alarm