原作者: ayase
8-27修正
修复首次使用后的红字
不需要额外进数据库导入计分表，这lua全自动生成
--------------------------------------------------------------
惯例写在前面：
写这玩意其实学习性更大于目的性。。
= =研究了两天晚上写的我人参中滴第一个lua脚本，居然还真给我写出来了，好感动
由于写代码的基础基本是零 所以碰了N+N次壁
什么函数字母大小写还要区分 -- 闹哪样啊喂 因为这个原因我试了半个多钟才发现问题所在
什么函数命名 基本我感觉除了我自己能看得懂之外没别人能看得懂的了 我自己都感觉无法直视了，总之乱七八糟的 ，各种中西合并，英文+拼音混搭，反正跟规范完全不搭边，嘛，对于我这小白来说反正能用就得了。。
对于语句优化。。。 反正没优化过 而且有大量重复或者完全没必要的语句 所以执行效率并不是说很好
嘛 反正自己用也不在意了。。
都是看别人的脚本（item_up.lua）才会了这么点皮毛。。
然后不得不说不知道为啥我手头的item_up.lua 只有这么个文件 配套的sql居然没有
我这是在哪扒的脚本没扒干净啊
最后看一晚上这个脚本终于算是还原出来数据库的表了 在这么纠结的情况下唯一庆幸的是因为这个lua是我基本上是看懂了。。
然后对应lua的执行过程有了点了解了算是
但是还有好多不懂的说。。
= = 废话这么多 进正题吧。。
解压后放到服务端 lua_Scripts 文件夹下即可
使用之前首先用文本(最好是nptepad++之类的高级文本编辑工具，否则可能会导致游戏乱码)打开该lua
修改这几个参数
local ItemEntry=70008 --积分宝石
local jf_entry=70002 --要领取的物品id
local jf_mins=10 --每多少分钟领取
依次分别是 积分宝石(即点击后打开下面的面板)，在线时间可以领取的物品id，每多少分钟可以领取一个
print (">> loading online_jf.lua")
local ItemEntry= --用于使用后查看积分并兑换的物品entry。 ps 其实可以整合到什么超级炉石那里的，所选用的物品必须带技能的能使用的。
local jf_entry= --代表积分的物品可以叫某某货币之类的,本来想直接加在数据库值然后读取的 不过兑换东西的时候太麻烦，所以还是做成了物品容易用于兑换。
local jf_mins= --设置每多少分钟得到1点积分。
local mins=nil
local jf=nil
local jf_count=nil
local inGameTime=nil
local playergid=nil
local jf_DBtime=nil
local jf_ingametime=nil
local function online_jf(event, player, item, target)
player:MoveTo(,player:GetX(),player:GetY(),player:GetZ()+0.01)
--player:GossipComplete()
player:GossipClearMenu()
playergid=item:GetOwnerGUID()
jf_DBtime=CharDBQuery("SELECT * FROM characters_jf WHERE guid="..playergid..";")
if (jf_DBtime==nil) then
CharDBExecute("insert into characters_jf (guid,jf_time,jf) VALUES ("..playergid..",0,0);")
player:SendBroadcastMessage("首次领取，初始化数据，请再次点击使用。")
else
inGameTime=player:GetTotalPlayedTime()
jf_ingametime=math.modf(inGameTime-jf_DBtime:GetUInt32())
jf=math.modf(jf_ingametime//jf_mins)
mins=math.modf(jf_ingametime/)
jf_count=player:GetItemCount(jf_entry)
if(jf_count==nil) then
jf_count=
end
player:GossipComplete()
player:GossipMenuAddItem(,"您当前拥有"..GetItemLink(jf_entry).." x "..jf_count.."。\n\n累计共领取"..GetItemLink(jf_entry).." x "..jf_DBtime:GetUInt32().."\n\n累计未兑换的在线时间: "..mins.."分钟\n\n每在线"..jf_mins.."分钟可以兑换"..GetItemLink(jf_entry).." x 1 \n\n你当前一共可以兑换"..GetItemLink(jf_entry).." x "..jf.." ",,)
player:GossipMenuAddItem(,"点击确定兑换",,)
player:GossipSendMenu(, item)
--player:GossipClearMenu()
--player:GossipComplete()
end
end
local function timetojf(event, player, item, target)
if (jf==) then
player:SendBroadcastMessage("兑换失败，累计在线时间少于"..jf_mins.."分钟。")
else
jf=math.modf(jf_ingametime//jf_mins)
player:AddItem(jf_entry, jf)
playergid=item:GetOwnerGUID()
CharDBExecute("update characters_jf set jf_time=jf_time+"..jf_ingametime..",jf=jf+"..jf.." where guid="..playergid..";")
player:SendBroadcastMessage("成功兑换"..GetItemLink(jf_entry).." x " ..jf)
player:GossipComplete()
player:GossipClearMenu()
end
end
CharDBExecute([[
CREATE TABLE IF NOT EXISTS `characters_jf` (
`guid` int(10) NOT NULL,
`jf_time` int(10) NOT NULL DEFAULT '0',
`jf` int(10) NOT NULL DEFAULT '0',
PRIMARY KEY (`guid`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;
]])
RegisterItemEvent(ItemEntry, , online_jf)
RegisterItemGossipEvent(ItemEntry, , timetojf)
查看代码