;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@PKBattle]
{
#IF
equal z12 1
#SAY
Processing System...\
Please wait...\
#ACT
Delaygoto [Grobal] 3 @lingqujppk
#ELSESAY
The battle has not been started?!?!\
<[ Return to Town ]/@hubiq>

[@lingqujppk]
#IF
hour 20 23
min  10 59
#ACT
goto @btimeok
#ELSESAY
You can only recieve the prize between 20:10 and 24:00\\
<[ Exit ]/@exit>

[@btimeok]
#IF
checkhum PK2 2
#SAY
There are still 2+ people left, come back later!\\
<[ Exit ]/@exit>
#ELSEACT
goto @lingqupkpkok

[@lingqupkpkok]
#IF
hour 20 23
min  10 59
!checkhum PK2 2
#SAY
Congratulations!! You will get a nice reward!!\
<[ Collect Prize ]/@pkjiang52>\\
<[ Exit ]/@exit>

[@pkjiang52]
#IF
!checkhum PK2 2
equal z12 1
#ACT
   mov A1 %username
   mov z12 0
   loadvalue N2 "QuestDiary\IntegralSystem\PKBattle\PKBattleInfo.txt" Info Total
   lineMsg [Grobal] "[ Attention ] <$OUTPUT(A1)> has won the PK Battle and takes a prize of <$OUTPUT(N2)> Integral!!"
   SAVEVALUE "QuestDiary\IntegralSystem\PKBattle\PKBattleInfo.txt" Info Total 0
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@CheckIntegralPK1]

[@CheckIntegralPK1()]
#IF
#ACT
   mov    D2      %ARG(2)
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   mov   A8     %A9
   Inc   D2     %N2
   mov   D1     %D2
   FormatStr "FLD_INTEGRAL='%s'" %D1
   UPDATEVALUESQL "TBL_INTEGRAL" %A8 %A9
   mov     A7  ""
   AddStr  A7 %USERNAME
   AddStr  A7 ",-"
   AddStr  A7 %D3
   AddStr  A7 ",PKBattle,"
   AddStr  A7 %A0
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
#SAY
You have won <$OUTPUT(A0)> Integral!\\
Your current Integral is {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12}\
<[ Move to Town ]/@hubiq>\

[@hubiq]
#ACT
mapmove 1 400 120
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;