;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;; Set KR for Check Key ;;;;;;;;;;;;;;;;;
[@CheckKeyDCKR]
#ACT
   Mov A1 "DCKR"
   Goto @CheckKey


[@CheckKeyWTKR]
#ACT
   Mov A1 "WTKR"
   Goto @CheckKey


;;;;;;;;;;;;;;;; Check Key ;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[@CheckKey]
#ACT
   Mov A0 %USERNAME
   LoadValue D1 "QuestDiary\EventSystem\KeyMaker.txt" [%A0] %A1
#IF
   ELarge D1 1
#ACT
   Dec D1 1
   SaveValue "QuestDiary\EventSystem\KeyMaker.txt" [%A0] %A1 %D1
   SysMsg "Your In! You now have <$OUTPUT(D1)> <$OUTPUT(A1)> Keys Left"
   Enter_Ok
#ELSEACT
   SysMsg "You do not have a key to this room!"


;;;;;;;;;;;;;;;; Set KR for Add Key ;;;;;;;;;;;;;;;;;;;

[@AddKeyDCKR]
#ACT
   Mov A1 "DCKR"
   Goto @AddKey

[@AddKeyWTKR]
#ACT
   Mov A1 "WTKR"
   Goto @AddKey

;;;;;;;;;;;;;;;; Add Key ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[@AddKey]
#ACT
   Mov A0 %USERNAME
   LoadValue D1 "QuestDiary\EventSystem\KeyMaker.txt" [%A0] %A1
   Inc D1 1
   SaveValue "QuestDiary\EventSystem\KeyMaker.txt" [%A0] %A1 %D1
   SysMsg "<$OUTPUT(A1)> Key Added, you now have <$OUTPUT(D1)> <$OUTPUT(A1)> Keys"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
