--命令打卡lua
--打卡扣除100魔币，关闭打卡不扣魔币

Global_Reg.RegTalkEvent("dk_TalkEvent")							--全局注册对话事件函数

function dk_TalkEvent (player,msg,color,range,size)
	if(msg=="P|/dk") then	
		local p1 = Char.IsFeverTime(player)						--判断打卡状态
		local mb = Char.GetData(player, %对象_金币%)					--获取金币数据
			if(p1 == 0 and mb >= 100 )then						--判定未打卡，并且魔币大于等于100
				Char.FeverTimeStart(player)					--GP开始打卡
				Char.SetData(player, %对象_金币% ,mb-100)			--扣除100魔币
				NLG.UpChar(player)						--更新数据
				NLG.SystemMessage(player, "开启打卡成功，扣除100魔币。")			
			elseif(p1 == 1)then							--判定已打卡
				Char.FeverTimeStop(player)					--GP关闭打卡
				NLG.UpChar(player)						--更新数据
				NLG.SystemMessage(player, "关闭打卡成功。")
			elseif(p1 == 0 and mb < 100 )then					--判定未打卡，并且魔币小于100
				NLG.SystemMessage(player, "抱歉,您的魔币不够。")
			end	
	end
end