;;QQ:67762207
[@contributecheck]
{
#IF
IsCastleGuild [Sabuk]
or IsCastleGuild [Taosung]
#ACT
break

#IF
dayofweek mon
#ACT
MOV D9 1
GOTO @timecheck_2
#IF
dayofweek tue
#ACT
MOV D9 2
GOTO @timecheck_2
#IF
dayofweek wed
#ACT
MOV D9 3
GOTO @timecheck_2
#IF
dayofweek thu
#ACT
MOV D9 4
GOTO @timecheck_2
#IF
dayofweek fri
#ACT
MOV D9 5
GOTO @timecheck_2
#IF
dayofweek sat
#ACT
MOV D9 6
GOTO @timecheck_2
#IF
dayofweek sun
#ACT
MOV D9 7
GOTO @timecheck_2

[@timecheck_2]
#ACT
mov D4 0
mov D3 0
mov D2 0
mov D5 0
mov D1 0
mov D8 %D9
DEC D8 1

#IF
EQUAL D8 0
#ACT
mov D8 7
loadvalue D4 "PlayerParam\繁荣度行会变量.ini" systemindex index
loadvalue D2 "PlayerParam\繁荣度行会变量.ini"  %Guildname %D8
loadvalue D3 "PlayerParam\繁荣度行会变量.ini"  %Guildname index     
loadvalue D0 "ParamControl\繁荣度个人变量纪录.ini"  %USERNAME %D8    ;D8表示昨天的星期号。内容  1 0
loadvalue D5 "ParamControl\繁荣度个人变量纪录.ini"  %USERNAME index

#ELSEACT
loadvalue D4 "PlayerParam\繁荣度行会变量.ini" systemindex index
loadvalue D3 "PlayerParam\繁荣度行会变量.ini"  %Guildname index
loadvalue D2 "PlayerParam\繁荣度行会变量.ini"  %Guildname %D8
loadvalue D0 "ParamControl\繁荣度个人变量纪录.ini"  %USERNAME %D8
loadvalue D5 "ParamControl\繁荣度个人变量纪录.ini"  %USERNAME index

#IF
#ACT
mov D1 70
mov D8 70
mov D6 %D4
DEC D6 %D5
DEC D4 %D3
mov P3 %D2
mov P4 %D1
div P3 P4
mov D1 %P9


#IF
Elarge D1 4
#ACT
mov D1 4            ;;大于4则仅到四 小于就实际


#IF                 ;;检测是否为上个星期做的贡献，并且一个星期内没有人做贡献
small D6 7
Small D4 7
#ELSEACT
break

#IF                 ;;检测上一日的繁荣度

Elarge D2 %D8
#ELSEACT
break




#IF                 ;;检测昨天此人是否作了贡献
EQUAL D0 1
#ACT
actcmd ATTRIBUTEADD DC %D1
actcmd ATTRIBUTEADD MC %D1
actcmd ATTRIBUTEADD SC %D1
SysMsg "昨日行会繁荣度达到<$OUTPUT(D1)>,您参与了贡献。今天属性增加<$OUTPUT(D1)>点"
#ELSEACT
mov D7 2
mov P3 %D7
mov P4 %D1
Div P4 P3
mov D2 %P9
actcmd ATTRIBUTEADD DC %D2
actcmd ATTRIBUTEADD MC %D2
actcmd ATTRIBUTEADD SC %D2
SysMsg "昨日行会繁荣度达到<$OUTPUT(D1)>,您未参与贡献。今天属性增加<$OUTPUT(D2)>点"

}
;;QQ:67762207
