. if it is well scripted (with that i mean the right checks executed in script) then it wont be buggy at all.
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
--[[Edit]]--
local per = 90 -- percentege that will be sent to player
--[[functions]]--
function getPoints(cid)
local res = db.getResult("SELECT `premium_points` FROM `accounts` WHERE `name` = '"..getPlayerAccount(cid).."' LIMIT 1 ;")
local value = 0
if(res:getID() ~= -1) then
value = res:getDataInt("premium_points")
res:free()
end
return value
end
function transfer(from,to,amount,perc) --percent equal the amount that will be tranferred
local pid = (getAccountIdByName(string.lower(to)))
local player = getAccountIdByName(string.lower(getCreatureName(from)))
db.executeQuery("UPDATE `accounts` set `premium_points`=`premium_points` - '"..amount.."' WHERE `id` = '"..player.."' ;")
db.executeQuery("UPDATE `accounts` set `premium_points`=`premium_points` + '"..math.floor(amount * (perc/100)).."' WHERE `id` = '"..pid.."' ;")
end
--[[Script start]]--
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
if (msgcontains(msg, 'transfere') or msgcontains(msg, 'yes')) and talkState[talkUser] ~= 1 and talkState[talkUser] ~= 2 then
selfSay("Ok, You have "..getPoints(cid).." premium points, how much you want to transfer?",cid)
talkState[talkUser] = 1
elseif talkState[talkUser] == 1 then
if not tonumber(msg) then
selfSay("You must type the amount of points, try again!",cid)
elseif tonumber(msg) > getPoints(cid) then
selfSay("You only have "..getPoints(cid)..", try again!",cid)
else
t= {}
table.insert(t,msg)
table.insert(t,math.floor(msg * (per/100)))
selfSay("To who this will be transfered? Remember that the comission is {".. 100-per.."%}, so you will just transfer {"..math.floor(msg * (per/100)).."} points, and {"..getPoints(cid) - math.floor(msg * (per/100)).."} points will go to me.",cid)
talkState[talkUser] = 2
end
elseif talkState[talkUser] == 2 then
if getAccountIdByName(msg) > 0 then
transfer(cid,msg,t[1],per)
selfSay("You have successfuly transfered "..t[2].." points to "..msg..".",cid)
talkState[talkUser] = 0
else
selfSay("Player doesnt exist, try again!",cid)
end
end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local Topic, Amount = {}, {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
local per = 90 -- percentage that will be transferred to player
function getPoints(cid)
local res, value = db.getResult("SELECT `premium_points` FROM `accounts` WHERE `name` = '" .. db.escapeString(getPlayerAccount(cid)) .. "' LIMIT 1;"), 0
if res:getID() ~= -1 then
value = res:getDataInt("premium_points")
res:free()
end
return value
end
function greetCallback(cid)
Topic[cid], Amount[cid] = 0, nil
return true
end
function creatureSayCallback(cid, type, msg)
if not npcHandler:isFocused(cid) then
return false
elseif msgcontains(msg, 'transfer') or msgcontains(msg, 'yes') then
selfSay("Ok, You have "..getPoints(cid).." premium points, how much you want to transfer?",cid)
Topic[cid] = 1
elseif Topic[cid] == 1 then
msg = tonumber(msg)
if not msg then
return selfSay("You must type the amount of points, try again!",cid)
end
msg = math.abs(msg)
if msg > getPoints(cid) then
return selfSay("You only have "..getPoints(cid)..", try again!",cid)
end
selfSay("Who do you want to transfer to? Remember that the comission is {".. 100-per.."%}, so you will only transfer {"..math.floor(msg * (per/100)).."} points, and {"..getPoints(cid) - math.floor(msg * (per/100)).."} points will go to me.",cid)
Topic[cid] = 2
Amount[cid] = msg
elseif Topic[cid] == 2 then
local to = getAccountIdByName(msg)
if to > 0 then
db.executeQuery("UPDATE `accounts` SET `premium_points` = `premium_points` - " .. Amount[cid] .. " WHERE `id` = " .. getPlayerAccountId(cid) .. " LIMIT 1;")
db.executeQuery("UPDATE `accounts` SET `premium_points` = `premium_points` + " .. math.floor(Amount[cid] * (per/100)) .. " WHERE `id` = " .. to .. " LIMIT 1;")
selfSay("You have successfuly transfered " .. math.floor(Amount[cid] * (per/100)) .. " points to " .. msg .. ".",cid)
Topic[cid], Amount[cid] = 0, nil
else
selfSay("Player doesnt exist, try again!",cid)
end
end
return true
end
npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())