;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Trigset to count DK weeklists
;;
;; Usage: show_week
;;      - to be typed in honour room
;;      - reports legions and worths

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Greps show_week-line
;; (Lazy code, 2 triggers)
/def -F -mregexp -t'^([ 0-9]+). ([A-Za-z]+)([ ]+)([0-9]+)([ ]+)([0-9]+)G ([0-9]+)M ([0-9]+)k (.*)' dk_legion_count1 = \
                /set tmp=%P6%P7%P8%;/dk_legion_add %P9 %tmp
/def -F -mregexp -t'^([ 0-9]+). ([A-Za-z]+)([ ]+)([0-9]+)([ ]+)([0-9]+)M ([0-9]+)k (.*)' dk_legion_count2 = \
                /set tmp=%P6%P7%;/dk_legion_add %P8 %tmp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Handles total counting
/def dk_legion_add = /set tmp=%L2%;\
        /if /test tmp=~"-"%;/then /set tmp=NoLegion%;/endif%;\
        /eval /set tmp2=\%%tmp%;\
        /eval /set %tmp=$[{tmp2}+{2}]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Echoes actual data
/def dk_legions_totals = \
        /echo Sufferance: %Sufferance \
                ($[({Sufferance}*100)/({Sufferance}+{Petals}+{Twilight}+{NoLegion})]%%) \
                Petals: %Petals ($[({Petals}*100)/({Sufferance}+{Petals}+{Twilight}+{NoLegion})]%%) \
                Twilight: %Twilight ($[({Twilight}*100)/({Sufferance}+{Petals}+{Twilight}+{NoLegion})]%%) \
                -: %NoLegion ($[({NoLegion}*100)/({Sufferance}+{Petals}+{Twilight}+{NoLegion})]%%)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Actual action
/def -h'SEND show_week' dk_legion_show_week = \
        !la week list%;\
        /set NoLegion=0%;\
        /set Petals=0%;\
        /set Sufferance=0%;\
        /set Twilight=0%;\
        /repeat -1 1 /dk_legions_totals