Action OnUse item , Add X Points

Sirion_Mido · Oct 16, 2012

Actions:
the script which add premium points on use item ;s

In data/libs create 048-ppoints.lua
and paste the following

Lua:

-- Sirion_Mido Says: Credites to: LucasFerraz
-- Sirion_Mido Says: Credites to: LucasFerraz
-- Sirion_Mido Says: Credites to: LucasFerraz
 
function getAccountPoints(cid)
    local res = db.getResult('select `premium_points` from accounts where name = \''..getPlayerAccount(cid)..'\'')
    if(res:getID() == -1) then
       return false
    end
    local ret = res:getDataInt("premium_points")
    res:free()
    return tonumber(ret)
end
 
function doAccountAddPoints(cid, count)
    return db.executeQuery("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) + count .."' WHERE `name` ='"..getPlayerAccount(cid).."'")
end

function doAccountRemovePoints(cid, count)
    return db.executeQuery("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) - count .."' WHERE `name` ='"..getPlayerAccount(cid).."'")
end
 
 
-- Sirion_Mido Says: Credites to: LucasFerraz
-- Sirion_Mido Says: Credites to: LucasFerraz
-- Sirion_Mido Says: Credites to: LucasFerraz

now:
In data/actions/scripts create points.lua
paste the following:

Lua:

local cfg = {
    amount = 10       -- here how many points you want
  }



function onUse(cid, item, fromPosition, itemEx, toPosition)  
  
                if getPlayerLevel(cid) > 8 then
                doAccountAddPoints(cid, cfg.amount)
                doCreatureSay(cid, "CONGRATULATIONS! You have recived 10 premium points!. ", TALKTYPE_ORANGE_1)
                doSendMagicEffect(getCreaturePosition(cid), 28)
                doRemoveItem(item.uid,1)
                else
                doPlayerSendCancel(cid,"You need level 8 or higher to use this item.")
                end
                return TRUE
                end

now xml part:
on data/actions.xml
paste the following:

XML:

    <action itemid="5952" event="script" value="points.lua"/>

Rep++ if it helpful for you.

DonHagman · Oct 17, 2012

This is just what I need, thank you. But, the 048-ppoints.lua in data/lib makes me unable to open up the server.
Any idea?

Yuji · Oct 17, 2012

Yea i have a problem with this to but i was able to open my server, just it didnt work =p

DonHagman · Oct 17, 2012

cyas2 said:
Yea i have a problem with this to but i was able to open my server, just it didnt work =p

Weird, I couldn't even start it without crashing it. Would love if someone could help out with this.

Yuji · Oct 17, 2012

Whats the error you get?, also what version of tfs are you useing, this has been tested for 9.60 servers

Sirion_Mido · Oct 17, 2012

sorry i was no login for a while

i just checked the problems now , can tell me what is the problem again? :S

- - - Updated - - -

Iam So Sorry i did something stupid on the script , but i fixed now XD , hahaha
well i have solved the problem now on main post

and i will post here too
use this one

048-ppoints.lua

Lua:

-- Sirion_Mido Says: Credites to: LucasFerraz
-- Sirion_Mido Says: Credites to: LucasFerraz
-- Sirion_Mido Says: Credites to: LucasFerraz
 
function getAccountPoints(cid)
    local res = db.getResult('select `premium_points` from accounts where name = \''..getPlayerAccount(cid)..'\'')
    if(res:getID() == -1) then
       return false
    end
    local ret = res:getDataInt("premium_points")
    res:free()
    return tonumber(ret)
end
 
function doAccountAddPoints(cid, count)
    return db.executeQuery("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) + count .."' WHERE `name` ='"..getPlayerAccount(cid).."'")
end
 
 
-- Sirion_Mido Says: Credites to: LucasFerraz
-- Sirion_Mido Says: Credites to: LucasFerraz
-- Sirion_Mido Says: Credites to: LucasFerraz

It Will Work Fine , iam sure

Rep++ if it works XD

DonHagman · Oct 17, 2012

Excellent, now it works perfectly.

Thanks again!

Sirion_Mido · Oct 18, 2012

anymore requests?

DonHagman · Oct 18, 2012

Well, I do have another request. Not sure if it's realeased anwhere, in that case I can't find it.

I need a script that gives me an an item (such as the scroll) by using the command !premium (You will need 100 'donation points' to be able to perform the command. The item you get should give the player Premium Account in 20 days, by right-click it.

If you (or anybody) could help me out with this, I would be very thankful!
Cheers

Sirion_Mido · Oct 18, 2012

DonHagman :

Here You Are.

In data/libs create 048-ppoints.lua
and paste the following

Lua:

function getAccountPoints(cid)
    local res = db.getResult('select `premium_points` from accounts where name = \''..getPlayerAccount(cid)..'\'')
    if(res:getID() == -1) then
       return false
    end
    local ret = res:getDataInt("premium_points")
    res:free()
    return tonumber(ret)
end
 
function doAccountAddPoints(cid, count)
    return db.executeQuery("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) + count .."' WHERE `name` ='"..getPlayerAccount(cid).."'")
end
 
function doAccountRemovePoints(cid, count)
    return db.executeQuery("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) - count .."' WHERE `name` ='"..getPlayerAccount(cid).."'")
end

In data/talkactons/scripts create premium.lua
and paste the following

Lua:

local points = 100   -- how many points it cost.
local item = 5952   -- what item it gived.
    
function onSay(cid, words, param)
if getAccountPoints(cid) < points then
doPlayerSendCancel(cid,'This item cost 100 premium points.')
else

doPlayerGiveItem(cid, item, 1)
doSendMagicEffect(getPlayerPosition(cid), 28)
doPlayerSendTextMessage(cid,MESSAGE_EVENT_ADVANCE, 'You have bought scroll.')
doAccountRemovePoints(cid, points)
    



end
return TRUE
end

In data/actions/scripts create premium.lua
and paste the following

Lua:

function onUse(cid, item)
    if doRemoveItem(item.uid) then     
        doPlayerAddPremiumDays(cid, 20)
        doSendMagicEffect(getCreaturePosition(cid), 28)
        doPlayerSendTextMessage(cid,19, 'Your account added 20 premmium days!')
    end
return true
end

now xml part:
on data/talkactions/talkactions.xml
paste the following:

XML:

    <talkaction words="!premium ;/premium " script="premium.lua"/>

on data/actions/actions.xml
paste the following:

XML:

    <action itemid="5952" script="premium.lua" />

lawxz · Oct 18, 2012

no man you copied it do not it agian

Sirion_Mido · Oct 18, 2012

@up
give me profit then
haha
cute guys ;x

DonHagman · Oct 18, 2012

Thanks alot Sirion_Mido! This really helped me out.

Sirion_Mido · Oct 18, 2012

No Problems

hah
anymore?

Xordex · Nov 5, 2012

i have problem. I can not use it on the Runes. it gives me an error in the engine:

http://img268.imageshack.us/img268/6627/nowyobrazmapabitowa3y.png

it gives a link to the error, because I could not put the pictures here.

Ninja · Nov 5, 2012

Replace db.executeQuery with db.query.

Polat Alemdar · Nov 25, 2012

Good One!

Sirion_Mido · Dec 12, 2012

Polat Alemdar said:
Good One!

Thx bro

Sirion_Mido · Jan 30, 2013

bump

HappyFeet · Jul 27, 2014

I get this error

Code:

Lua Script Error: [Action Interface]
data/actions/scripts/hero badge.lua:onUse
data/global.lua:621: attempt to index local 'res' (a boolean value)
stack traceback:
        [C]: in function '__index'
        data/global.lua:621: in function 'getAccountPoints'
        data/global.lua:630: in function 'doAccountAddPoints'
        data/actions/scripts/hero badge.lua:8: in function <data/actions/scripts/hero badge.lua:5>

Code:

--- Prem points
function getAccountPoints(cid)
local res = db.storeQuery('select `premium_points` from accounts where name = \''..getPlayerAccountId(cid)..'\'')
if(res:getID() == -1) then
return false
end
local ret = res:getDataInt("premium_points")
res:free()
return tonumber(ret)
end

function doAccountAddPoints(cid, count)
return db.query("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) + count .."' WHERE `name` ='"..getPlayerAccountId(cid).."'")
end

function doAccountRemovePoints(cid, count)
return db.query("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) - count .."' WHERE `name` ='"..getPlayerAccountId(cid).."'")
end

Action OnUse item , Add X Points

Experienced Member

Chill'Reward2014

Helper

Chill'Reward2014

Helper

Experienced Member

Chill'Reward2014

Experienced Member

Chill'Reward2014

Experienced Member

New Member

Experienced Member

Chill'Reward2014

Experienced Member

New Member

Attachments

Global Moderator

Mapper, Basic Scripter

Experienced Member

Experienced Member

New Member

Similar threads