Premium Points Exchanger {NPC}

3li Xiber · May 31, 2016

Hello Otlanders,
I made alot of threads about this request months ago but no one was able to make this npc!:
I want npc to trade gold nuggets+soul orbs for Premium Points.
I want him to trade with me Fourth Times like picture show :
First time : 150 gn+100 soul orbs
Second time : 250gn + 250 soul orbs
Third Time : 350gn+350 orbs
Fourth Time : 400 gn + 400 soul orbs
every time from the fourth time it gives 8 points to the player.

Rep++

3li Xiber · May 31, 2016

17 views , 0 reply

tetra20 · May 31, 2016

Code:

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
local config = {
   [1] = {soul = 150,nuggets = 250, PP = 1},
   [2] = {soul = 150,nuggets = 250, PP = 5},
   [3] = {soul = 150,nuggets = 250, PP = 7},
   [4] = {soul = 150,nuggets = 250, PP = 8}
--[5] = {soul needed, nuggets needed, reward premium points}
}
local Storage = 9910
local maxStorage = 4
local itemId = {5550,2157} -- item id of Soul, Item id of nuggets
function creatureSayCallback(cid, type, msg)
  local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
  doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) <= 0 and 1 or getPlayerStorageValue(cid,Storage))
  local s = config[getPlayerStorageValue(cid,Storage)]
   if msgcontains(msg, 'trade') then
     if s then
       selfSay("Do You want to recieve "..s.PP.." Premium Points for "..s.soul.." soul Orb and "..s.nuggets.." Gold nuggets?", cid)
       talkState[talkUser] = 2
     end
   elseif msgcontains(msg, 'yes') and talkState[talkUser] == 2 then
     if s then
       if getPlayerItemCount(cid, itemId[1]) >= s.soul and getPlayerItemCount(cid, itemId[2]) >= s.nuggets then
         doPlayerRemoveItem(cid, itemId[1],s.soul)
         doPlayerRemoveItem(cid, itemId[2],s.nuggets)
         selfSay("Congratulation, You now can enjoy your "..s.PP.." Premium Points.", cid)
         db.executeQuery("UPDATE `accounts` SET premium_point = premium_point + '" .. s.PP .. "' WHERE id = " .. getPlayerGUID(cid) .. ";")
         if getPlayerStorageValue(cid,Storage) < maxStorage then
           doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) + 1)
         end
       end
     end
   end     
  return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

Not tested

tetra20 · May 31, 2016

Code:

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
local config = {
   [1] = {soul = 150,nuggets = 250, PP = 1},
   [2] = {soul = 150,nuggets = 250, PP = 5},
   [3] = {soul = 150,nuggets = 250, PP = 7},
   [4] = {soul = 150,nuggets = 250, PP = 8}
   --[5] = {soul needed, nuggets needed, reward premium points}
}
local Storage = 9910
local maxStorage = 4
local itemId = {5550,2157} -- item id of Soul, Item id of nuggets
function creatureSayCallback(cid, type, msg)
  local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
  doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) <= 0 and 1 or getPlayerStorageValue(cid,Storage))
  local s = config[getPlayerStorageValue(cid,Storage)]
   if msgcontains(msg, 'trade') then
     if s then
       selfSay("Do You want to recieve "..s.PP.." Premium Points for "..s.soul.." soul Orb and "..s.nuggets.." Gold nuggets?", cid)
       talkState[talkUser] = 2
     end
   elseif msgcontains(msg, 'yes') and talkState[talkUser] == 2 then
     if s then
       if getPlayerItemCount(cid, itemId[1]) >= s.soul and getPlayerItemCount(cid, itemId[2]) >= s.nuggets then
         doPlayerRemoveItem(cid, itemId[1],s.soul)
         doPlayerRemoveItem(cid, itemId[2],s.nuggets)
         selfSay("Congratulation, You now can enjoy your "..s.PP.." Premium Points.", cid)
         db.executeQuery("UPDATE `accounts` SET premium_point = premium_point + '" .. s.PP .. "' WHERE id = " .. getPlayerGUID(cid) .. ";")
         if getPlayerStorageValue(cid,Storage) < maxStorage then
           doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) + 1)
         end
       else
         selfSay("You Dont have the needed items..", cid)
       end
     else
       selfSay("You dont have any availability to trade", cid)
     end
   end     
  return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

3li Xiber · Jun 1, 2016

tetra20 said:

Code:

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
local config = {
   [1] = {soul = 150,nuggets = 250, PP = 1},
   [2] = {soul = 150,nuggets = 250, PP = 5},
   [3] = {soul = 150,nuggets = 250, PP = 7},
   [4] = {soul = 150,nuggets = 250, PP = 8}
   --[5] = {soul needed, nuggets needed, reward premium points}
}
local Storage = 9910
local maxStorage = 4
local itemId = {5550,2157} -- item id of Soul, Item id of nuggets
function creatureSayCallback(cid, type, msg)
  local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
  doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) <= 0 and 1 or getPlayerStorageValue(cid,Storage))
  local s = config[getPlayerStorageValue(cid,Storage)]
   if msgcontains(msg, 'trade') then
     if s then
       selfSay("Do You want to recieve "..s.PP.." Premium Points for "..s.soul.." soul Orb and "..s.nuggets.." Gold nuggets?", cid)
       talkState[talkUser] = 2
     end
   elseif msgcontains(msg, 'yes') and talkState[talkUser] == 2 then
     if s then
       if getPlayerItemCount(cid, itemId[1]) >= s.soul and getPlayerItemCount(cid, itemId[2]) >= s.nuggets then
         doPlayerRemoveItem(cid, itemId[1],s.soul)
         doPlayerRemoveItem(cid, itemId[2],s.nuggets)
         selfSay("Congratulation, You now can enjoy your "..s.PP.." Premium Points.", cid)
         db.executeQuery("UPDATE `accounts` SET premium_point = premium_point + '" .. s.PP .. "' WHERE id = " .. getPlayerGUID(cid) .. ";")
         if getPlayerStorageValue(cid,Storage) < maxStorage then
           doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) + 1)
         end
       else
         selfSay("You Dont have the needed items..", cid)
       end
     else
       selfSay("You dont have any availability to trade", cid)
     end
   end    
  return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

15:02 Exchanger: You Dont have the needed items..
and i got the items into my backpack

tetra20 · Jun 1, 2016

show me your script

3li Xiber · Jun 1, 2016

tetra20 said:
show me your script

i didn't change items id , i solved it but i got this error

[31/05/2016 15:06:30] OTSYS_SQLITE3_PREPARE(): SQLITE ERROR: no such column: premium_point (UPDATE "accounts" SET premium_point = premium_point + '5' WHERE id = 7

and player can do the fourth exchange many times

tetra20 · Jun 1, 2016

Code:

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
local config = {
   [1] = {soul = 150,nuggets = 250, PP = 1},
   [2] = {soul = 150,nuggets = 250, PP = 5},
   [3] = {soul = 150,nuggets = 250, PP = 7},
   [4] = {soul = 150,nuggets = 250, PP = 8}
   --[5] = {soul needed, nuggets needed, reward premium points}
}
local Storage = 9910
local maxStorage = 4
local itemId = {5550,2157} -- item id of Soul, Item id of nuggets
function creatureSayCallback(cid, type, msg)
  local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
  doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) <= 0 and 1 or getPlayerStorageValue(cid,Storage))
  local s = config[getPlayerStorageValue(cid,Storage)]
   if msgcontains(msg, 'trade') then
     if s then
       selfSay("Do You want to recieve "..s.PP.." Premium Points for "..s.soul.." soul Orb and "..s.nuggets.." Gold nuggets?", cid)
       talkState[talkUser] = 2
     end
   elseif msgcontains(msg, 'yes') and talkState[talkUser] == 2 then
     if s then
       if getPlayerItemCount(cid, itemId[1]) >= s.soul and getPlayerItemCount(cid, itemId[2]) >= s.nuggets then
         doPlayerRemoveItem(cid, itemId[1],s.soul)
         doPlayerRemoveItem(cid, itemId[2],s.nuggets)
         selfSay("Congratulation, You now can enjoy your "..s.PP.." Premium Points.", cid)
         db.executeQuery("UPDATE `accounts` SET premium_point = premium_point + " .. s.PP .. " WHERE id = " .. getPlayerGUID(cid) .. ";")
         if getPlayerStorageValue(cid,Storage) < maxStorage then
           doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) + 1)
         end
       else
         selfSay("You Dont have the needed items..", cid)
       end
     else
       selfSay("You dont have any availability to trade", cid)
     end
   end     
  return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

This should fix it, the rest is up to you,i am done here xD

3li Xiber · Jun 1, 2016

its same bug

Roddet · Jun 1, 2016

Code:

db.executeQuery("UPDATE `accounts` SET `premium_points` = `premium_points` + '" .. s.PP .. "' WHERE id = '" ..getPlayerAccountId(cid) .. "';")

¬¬

3li Xiber · Jun 1, 2016

any one can repair @tetra20 script ?? @Musztang solved the problem of add_point
but the main script have problem : i can do the fourth step of exchanger many times and it dont stop
i need it to do 4x times only not more !

tetra20 · Jun 1, 2016

Code:

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
local config = {
   [1] = {soul = 150,nuggets = 250, PP = 1},
   [2] = {soul = 150,nuggets = 250, PP = 5},
   [3] = {soul = 150,nuggets = 250, PP = 7},
   [4] = {soul = 150,nuggets = 250, PP = 8}
   --[5] = {soul needed, nuggets needed, reward premium points}
}
local Storage = 9910
local maxStorage = 4
local itemId = {5550,2157} -- item id of Soul, Item id of nuggets
function creatureSayCallback(cid, type, msg)
  local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
  doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) <= 0 and 1 or getPlayerStorageValue(cid,Storage))
  local s = config[getPlayerStorageValue(cid,Storage)]
   if getPlayerStorageValue(cid,Storage) >= 4 then
     selfSay("You Can not Trade anymore", cid)
     return true
   end
   
   if msgcontains(msg, 'trade') then
     if s then
       selfSay("Do You want to recieve "..s.PP.." Premium Points for "..s.soul.." soul Orb and "..s.nuggets.." Gold nuggets?", cid)
       talkState[talkUser] = 2
     end
   elseif msgcontains(msg, 'yes') and talkState[talkUser] == 2 then
     if s then
       if getPlayerItemCount(cid, itemId[1]) >= s.soul and getPlayerItemCount(cid, itemId[2]) >= s.nuggets then
         doPlayerRemoveItem(cid, itemId[1],s.soul)
         doPlayerRemoveItem(cid, itemId[2],s.nuggets)
         selfSay("Congratulation, You now can enjoy your "..s.PP.." Premium Points.", cid)
         db.executeQuery("UPDATE `accounts` SET `premium_points` = `premium_points` + '" .. s.PP .. "' WHERE id = '" ..getPlayerAccountId(cid) .. "';")
         if getPlayerStorageValue(cid,Storage) < maxStorage then
           doPlayerSetStorageValue(cid, Storage, getPlayerStorageValue(cid,Storage) + 1)
         end
       else
         selfSay("You Dont have the needed items..", cid)
       end
     else
       selfSay("You dont have any availability to trade", cid)
     end
   end     
  return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

3li Xiber · Jun 1, 2016

it dont do the fourth time , it ends at the third time lol

tetra20 · Jun 1, 2016

then change >= 4 to >= 5

3li Xiber · Jun 1, 2016

tetra20 said:
then change >= 4 to >= 5

more than one char on one account can "exchange"
and i want it to be only one time for "account" not "char"

Elgenady · Jun 1, 2016

this will help you
https://otland.net/threads/hasaccountstorage-cid-key-value.148522/

3li Xiber · Jun 1, 2016

BUMP !!

Premium Points Exchanger {NPC}

3li Xiber

Active Member

3li Xiber

Active Member

tetra20

DD

tetra20

DD

3li Xiber

Active Member

tetra20

DD

3li Xiber

Active Member

tetra20

DD

3li Xiber

Active Member

Roddet

†

3li Xiber

Active Member

tetra20

DD

3li Xiber

Active Member

tetra20

DD

3li Xiber

Active Member

Elgenady

Veteran OT User

3li Xiber

Active Member

Similar threads