斗气LUA增强版

z864096986

支持了先，有空试试

牛战坦克

感谢分享~~~~~~~~~~~~~~~~

yuanjing8781450

为什么我我杀历练怪，直接后台崩溃。

proffeeee

这个一定好好学习，有空可以慢慢写写

czx199385

谢谢楼主分享，楼主辛苦了！我想请教一下这三个文件怎么用？全部导入数据库吗？

qingqingsh01

part01和part02是一样的吗？

qs4035

谢谢分享！！！！谢谢分享！！！！

yuyu333111

@tianmi493946759 : 楼主，我看大佬的那个任务奖励属性点，原理和这不一样，测试用1ms 100下，就会卡住。能否帮忙看看下面这个点太快会卡，是哪里的问题吗？
就ayase大佬的这个：

print(">>>  Loading QuestStateSystem   (rewrite by ayase 2018.1.29)..")

local STATE = {}
STATE.Config = {
itemEntry = 70041,   --物品id,需要那些可以点击使用的物品，比如炉石之类的
questToStateRate = 1, --每个任务提供多少点自由属性

ResetItemEntry = 70001, --重置加点所需要的物品材料
ResetItemCount = 5, --重置加点所需要的物品数量
}

STATE.core = {{"力量",7780},{"敏捷",7778},{"耐力",7455},{"智力",7792},{"精神",7456},}

STATE.PlayerData = {}

function Player:SetState(t,v)
    if v < 0 then v = 0 end
    local pGUID = self:GetGUIDLow()
    local s = STATE.core[t][2]
    STATE.PlayerData[pGUID][t] = v
    self:RemoveAura(s)
    if v ~= 0 then
        self:CastCustomSpell(self,s,true,v)
    end
end

function Player:GetState(t)
    local pGUID = self:GetGUIDLow()
    if (STATE.PlayerData[pGUID][t]~=nil) then
        return STATE.PlayerData[pGUID][t]
    end
end

function Player:AddStat(t,v)
    if v == nil then v = 1 end
    STATE.PlayerData[self:GetGUIDLow()][t] = self:GetState(t) + v
end

function Player:GetQuestCount()
    local pGUID = self:GetGUIDLow()
    return STATE.PlayerData[pGUID].questCount
end

function Player:QueryQuestCount()
    self:SaveToDB()
    local pGUID = self:GetGUIDLow()
    local query = CharDBQuery("SELECT counter FROM character_achievement_progress WHERE criteria=3631 and guid="..pGUID.." LIMIT 1")
    if query then
        return query:GetUInt32(0)
    end
    return 0
end

function Player:GetUsePoints()
    local usePoints = 0
    for i=1,5 do
        usePoints = usePoints + self:GetState(i)
    end
    return usePoints
end

function Player:GetPoints()
    return math.floor(self:GetQuestCount()*STATE.Config.questToStateRate) - self:GetUsePoints()
end

function Player:ResetState()
    for i=1,5 do
        self:SetState(i,0)
    end
    self:SaveState()
end

function Player:SaveState()
    CharDBExecute(string.format("REPLACE INTO character_Quest_State_System (Guid,Strength,Agility,Stamina,Intelligence,Spirit) values (%s,%s,%s,%s,%s,%s)",
    self:GetGUIDLow(),self:GetState(1),self:GetState(2),self:GetState(3),self:GetState(4),self:GetState(5)))
end

function STATE.ItemOnUse(event, player, item)
    if (STATE.PlayerData[player:GetGUIDLow()]==nil) then
        STATE.Onlogin(event, player)
    end
    STATE.GossipHello(event, player, item)
end

function STATE.GossipHello(event, player, item)
    player:GossipClearMenu()
    player:GossipMenuAddItem(1,string.format("每个任务将获取%s点潜力点数。( |cFFA50000%s|r \\ |cFF006699%s|r )",
    STATE.Config.questToStateRate,player:GetPoints(),math.floor(player:GetQuestCount()*STATE.Config.questToStateRate)),
    0,0,false,"点击确认将重置未保存的加点数据!")
   
    for i = 1,5 do
        player:GossipMenuAddItem(3,">>  "..STATE.core[1].." + |cFF006699"..player:GetState(i).."|r",0,i)
    end
    if (player:GetUsePoints() > 0) then
        player:GossipMenuAddItem(4,"保存",0,998,false,"确定保存吗?")
        player:GossipMenuAddItem(2,"重置加点分配",0,999,false,"确定重置吗？\n\n需要消耗："..GetItemLink(STATE.Config.ResetItemEntry).." x "..STATE.Config.ResetItemCount)
    end
    player:GossipSendMenu(100, item)
    return false
end

function STATE.Onlogin(event, player)
    local pGUID = player:GetGUIDLow()
    local query = CharDBQuery("SELECT Guid,Strength,Agility,Stamina,Intelligence,Spirit FROM character_Quest_State_System WHERE guid="..pGUID)
    STATE.PlayerData[pGUID] = {0,0,0,0,0,questCount = 0}
    if(query) then
        repeat
            for i=1,5 do
                STATE.PlayerData[pGUID] = query:GetUInt32(i)
                player:SetState(i,player:GetState(i))
            end
        until not query:NextRow()
    else
        for i=1,5 do
            STATE.PlayerData[pGUID] = 0
        end
    end
    STATE.PlayerData[pGUID].questCount = player:QueryQuestCount()
end

function STATE.GossipSelect(event, player, item, sender, intid)
    if intid == 0 then
        STATE.Onlogin(event, player)
        STATE.GossipHello(event, player, item)
        return
    end
   
    if intid == 999 then
        if (player:GetState(1) + player:GetState(2) + player:GetState(3) + player:GetState(4) + player:GetState(5)) <= 0 then
            player:SendBroadcastMessage("你当前并未加点，无需重置。")
        else
            if player:HasItem(STATE.Config.ResetItemEntry,STATE.Config.ResetItemCount) then   
                player:RemoveItem(STATE.Config.ResetItemEntry,STATE.Config.ResetItemCount)
                player:ResetState()
                player:SendBroadcastMessage("重置完毕~~~~")
            else
                player:SendBroadcastMessage("重置失败，缺少"..GetItemLink(STATE.Config.ResetItemEntry).." x "..STATE.Config.ResetItemCount)
            end
        end
        STATE.GossipHello(event, player, item)
        return
    end
   
    if intid == 998 then
        for i = 1,5 do
            player:SetState(i,player:GetState(i))
        end
        player:SaveState()
        STATE.GossipHello(event, player, item)
        return
    end
   
    if (intid >= 1 and intid <= 5) then
        if player:GetPoints() <= 0 then
            player:SendBroadcastMessage("剩余潜能点数不足，请继续完成任务吧~")
            STATE.GossipHello(event, player, item)
            return
        end
        player:AddStat(intid,1)
        STATE.GossipHello(event, player, item)
    end
end

CharDBExecute([[
CREATE TABLE IF NOT EXISTS `character_Quest_State_System` (   
  `guid` int(11) NOT NULL,
  `Strength` int(11) NOT NULL DEFAULT '0',
  `Agility` int(11) NOT NULL DEFAULT '0',
  `Stamina` int(11) NOT NULL DEFAULT '0',
  `Intelligence` int(11) NOT NULL DEFAULT '0',
  `Spirit` int(11) NOT NULL DEFAULT '0',
  PRIMARY KEY (`guid`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;
]])

RegisterPlayerEvent(3, STATE.Onlogin)
RegisterItemGossipEvent(STATE.Config.itemEntry, 1, STATE.ItemOnUse)
RegisterItemGossipEvent(STATE.Config.itemEntry, 2, STATE.GossipSelect)

kafei211895

萌新请问 lua知道放哪 那个sql 和dbc文件放哪啊

千颂伊

为啥要sepll.dbc 配合?