InGame item shop

[M>M]

hi guy's,
I want to know how to add a item shop to my pserver like the one in AOR server
and I can control the item in it and how to add point to players acc

[ninex]

just about half a page down from your post was your answer

[SilentBill]

Uhhh, no, OP wants to know how to make a Cash Shop.

[ninex]

I think thats a good way to be a target for a law suit from gpot dont you .....

[reddragon45]

not if you change recharge for game cash


if you change rupes we can us that

local numrac, exchange_rupy, text, nummoney, player_money

-- ÀÏ¹Ý È¯À²Àº 250
local exchange_rate = 250

-- ½ÃÅ©·çÆ® ÇÁ¸®Æнº°¡ È°¼ºÈ*µÈ »óÅÂ(ÇÁ¸®¹Ì¾ö ȸ¿ø)ÀÌ°í ½ÃÅ©·çÆ®ÀÏ ¶§,
-- ÇÁ¸®¹Ì¾ö ¼*ºñ½º üũ ÁÖ¼®Ã³¸®

if is_premium() then
if npc_id == 7015 then
exchange_rate = 375
end
end

numrac = gv("chaos") -- ÇöÀç ¼öÁýÇÑ ¶óÅ©ÀÇ ¾çÀ» °¡Á®¿Â´Ù.
exchange_rupy = math.floor(numrac * exchange_rate) -- ȯÀü °¡´ÉÇÑ ÃÖ´ë ·çÇÇÀÇ ·®À» °è»êÇÑ´Ù.
player_money = gv("gold") -- À¯Àú ÇöÀç ¼ÒÁö±ÝÀ» °¡Á®¿Â´Ù.
nummoney = exchange_rupy + player_money -- À¯Àú ÇöÀç ¼ÒÁö±Ý°ú ȯÀü±Ý¾×À» ÇÕÄ£´Ù.
if nummoney > 10000000000 then -- ȯÀü°¡´ÉÇÑ ÃÖ´ë ·çÇÇ ·®°ú À¯Àú ÇöÀç ¼ÒÁö±ÝÀ» ÇÕÃļ* 100¾ïÀÌ ³Ñ´ÂÁö üũ ÇÑ´Ù.
dlg_text("@90760310") -- ¼ÒÁö±ÝÀÌ ÃÊ°úµÇ¾ú´Ù´Â ¸Þ½ÃÁöÃâ·Â
dlg_menu( "@90010003", 'NPC_ChipExchange_contact()' ) -- µ¹¾Æ°¡±â
dlg_show() -- º¸À̱â
return
end

-- <´ë»ç Ãâ·Â> °¢ NPC¿¡ µû¶ó ÀûÇÕÇÑ
-- °¡ÀÌ¾Æ ÀÏ ¶§ (4015 ºÎ½ºÆ®Ä¨±³È¯»ó ¶õƼ½º).
if npc_id == 4015 then
text = sconv("@90401506", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- µ¥¹Ù ÀÏ ¶§ (1015 ºÎ½ºÆ®Ä¨±³È¯»ó ¸¶¸°´À)
elseif npc_id == 1015 then
text = sconv("@90101506", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- ¾Æ¼ö¶ó ÀÏ ¶§ (2015 ºÎ½ºÆ®Ä¨±³È¯»ó ¶óÇǽº)
elseif npc_id == 2015 then
text = sconv("@90201506", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- ¼ö·ÃÀÚÀÇ ¼¶ ½´¸®¸£ ÀÏ ¶§ (3023 ºÎ½ºÆ®Ä¨±³È¯»ó ½´¸®¸£)
elseif npc_id == 3023 then
text = sconv("@90302306", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- ·Ðµµ ÀÏ ¶§ (6015 ¶óÅ© Æ®·¹ÀÌ´õ Ä¡¿ì)
elseif npc_id == 6015 then
text = sconv("@90601506", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- µµ½Ã À¯Àû ÀÏ ¶§ (7039 ¶óÅ© Æ®·¹ÀÌ´õ Ƽ·¹)
elseif npc_id == 7039 then
text = sconv("@90703906", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- ÀÒ¾î¹ö¸° ºñ¹ÐÀÇ ¼¶ ÀÏ ¶§ (7603 ¶óÅ© Æ®·¹ÀÌ´õ ±×¶õü½ºÅÍ)
elseif npc_id == 7603 then
text = sconv("@90760306", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- ÇؾȰ¡ Ä·ÇÁ ÀÏ ¶§ (7606 ¶óÅ© Æ®·¹ÀÌ´õ ÇÇÄ«Å÷)
elseif npc_id == 7606 then
text = sconv("@90760606", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- ½ÃÅ©·çÆ® ÀÏ ¶§ (7015 ¶óÅ© Æ®·¹ÀÌ´õ ·çºó½ºÅ°)
elseif npc_id == 7015 then
text = sconv("@90701506", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
-- ½ÃÅ©·çÆ® ÀÏ ¶§ (11130 ¶óÅ© Æ®·¹ÀÌ´õ ·çºó½ºÅ°)
elseif npc_id == 11130 then
text = sconv("@90701506", "#@rac@#", tostring( numrac ) , "#@number@#",tostring(exchange_rupy)) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
end
dlg_text_without_quest_menu( text ) -- ´ë»çâ¿¡ ÅؽºÆ® »ðÀÔ

-- <°øÅë ¸Þ´º>
-- ÀüºÎ ±³È¯.
if numrac > 0 then
dlg_menu( "@90010083", 'ChipExchange_RP_num(' .. numrac .. ', ' .. exchange_rate .. ')' )
end

local num1, num2, num3, num4

num1 = 10

if numrac <10 then
num1 = 1
num2 = 5
num3 = 10
num4 = 20

elseif numrac < 200 then
num2 = 30
num3 = 50
num4 = 100

elseif numrac < 500 then
num2 = 50
num3 = 100
num4 = 300

else
num2 = 50
num3 = 200
num4 = 500

end

if numrac >= num1 then
-- #@number@#¶óÅ©¸¸ ±³È¯. num1
text = sconv("@90010082", "#@number@#", tostring( num1 ) ) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
dlg_menu( text, 'ChipExchange_RP_num(' .. num1 .. ', ' .. exchange_rate .. ')' )
end
if numrac >= num2 then
-- #@number@#¶óÅ©¸¸ ±³È¯. num2
text = sconv("@90010082", "#@number@#", tostring( num2 ) ) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
dlg_menu( text, 'ChipExchange_RP_num(' .. num2 .. ', ' .. exchange_rate .. ')' )
end
if numrac >= num3 then
-- #@number@#¶óÅ©¸¸ ±³È¯. num3
text = sconv("@90010082", "#@number@#", tostring( num3 ) ) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
dlg_menu( text, 'ChipExchange_RP_num(' .. num3 .. ', ' .. exchange_rate .. ')' )
end
if numrac >= num4 then
-- #@number@#¶óÅ©¸¸ ±³È¯. num4
text = sconv("@90010082", "#@number@#", tostring( num4 ) ) -- º¯¼ö¸¦ ½ÇÁ¦ °ª(½ºÆ®¸µ)À¸·Î ġȯ ½ÃŲ´Ù.
dlg_menu( text, 'ChipExchange_RP_num(' .. num4 .. ', ' .. exchange_rate .. ')' )
end

-- ¼ö·ÃÀÚÀÇ ¼¶ ½´¸®¸£ ÀÏ ¶§ (3023 ºÎ½ºÆ®Ä¨±³È¯»ó ½´¸®¸£)
if npc_id == 3023 then
--µ¹¾Æ°¡±â
dlg_menu( "@90010003", 'NPC_ChipExchange_beginner_contact()' )
else
--µ¹¾Æ°¡±â
dlg_menu( "@90010003", 'NPC_ChipExchange_contact()' )
end

--´ëÈ* Á¾·á
dlg_menu( "@90010002", "" )

-- ´ÙÀ̾ó·Î±× Ãâ·ÂÇϱâ
dlg_show()

end

[ismokedrow]

Cash Shop is a **** poor way to fund your server, let the users speak for your server. If you are good enough they will pay willingly.