1. itemshop = {}
  2. itemshop.config = {}
  3. itemshop.paths = {
  4. get_locale_base_path().."/quest/source/itemshop/syserr",
  5. get_locale_base_path().."/quest/source/itemshop/ITEMSHOP_CONFIG"
  6. }
  7. itemshop.viewers = {}
  8. itemshop.item = {
  9. ['ITEMSHOP'] = {},
  10. ['DRSSHOP'] = {},
  11. ['3RDSHOP'] = {},
  12. ['MOSTBOUGHT'] = {}
  13. }
  14. itemshop.logs = {}
  16. function split(str, delim, maxNb)
  17. if str == nil then return str end
  18. if string.find(str, delim) == nil then return { str } end
  19. if maxNb == nil or maxNb < 1 then maxNb = 0 end
  20. local result = {}
  21. local pat = "(.-)" .. delim .. "()"
  22. local nb = 0
  23. local lastPos
  24. for part, pos in string.gfind(str, pat) do
  25. nb = nb + 1
  26. result[nb] = part
  27. lastPos = pos
  28. if nb == maxNb then break end
  29. end
  30. if nb ~= maxNb then result[nb + 1] = string.sub(str, lastPos) end
  31. return result
  32. end
  34. function itemshop.syserr(err)
  35. local syserr_ishop = io.open(itemshop.paths[1], "a+")
  36. syserr_ishop:write(err)
  37. syserr_ishop:close()
  38. end
  40. os.remove(itemshop.paths[1])
  41. if true then
  42. local config_path = io.open(itemshop.paths[2], "r")
  43. if config_path == nil then
  44. itemshop.syserr("Can't load config file. Contact the creator.")
  45. return false
  46. end
  47. end
  49. function itemshop.get_coins()
  50. local c,account = mysql_direct_query("SELECT "..itemshop.config.COINS_COLUMN.." as coins, "..itemshop.config.DRS_COLUMN.." as drs FROM "..itemshop.config.ACCOUNT_TABLE.." WHERE id = "..pc.get_account_id().." LIMIT 1;")
  51. cmdchat('ITEMSHOP SEND_COINS#'..account[1].coins..'#'..account[1].drs)
  52. return tonumber(account[1].coins)
  53. end
  55. function itemshop.get_drs()
  56. local c,account = mysql_direct_query("SELECT "..itemshop.config.DRS_COLUMN.." as drs FROM "..itemshop.config.ACCOUNT_TABLE.." WHERE id = "..pc.get_account_id().." LIMIT 1;")
  57. return tonumber(account[1].drs)
  58. end
  60. function itemshop.get_3rd()
  61. local info
  62. if string.find(itemshop.config.OTHER_SHOP_TABLE, 'account') then
  63. info = pc.get_account_id()
  64. elseif string.find(itemshop.config.OTHER_SHOP_TABLE, 'player') then
  65. info = pc.get_player_id()
  66. end
  67. local c,qry = mysql_direct_query("SELECT "..(itemshop.config.OTHER_COLUMN).." as other FROM "..(itemshop.config.OTHER_SHOP_TABLE).." WHERE id = "..info.." LIMIT 1;")
  68. cmdchat('ITEMSHOP SEND_3RD_SHOP_COIN#'..qry[1].other)
  69. return tonumber(qry[1].other)
  70. end
  72. function itemshop.create_string(tab)
  73. local str_c = ""
  74. for i = 1, table.getn(tab) do
  75. str_c = str_c..tab[i]..(i < table.getn(tab) and ',' or '')
  76. end
  77. return str_c
  78. end
  80. function itemshop.load_config()
  81. local cfg = io.open(itemshop.paths[2], 'r')
  82. local booleans = {'ENABLE_ADMIN_PANEL', 'WHEEL_COST_DRS'}
  83. local tables = {'WHEEL_BAD_ITEMS', 'WHEEL_GOOD_ITEMS', 'ADMIN_PANEL_MEMBERS'}
  84. for line in cfg:lines() do
  85. tokens = split(line, ': ')
  86. local key = tokens[1]
  87. local value
  88. if itemshop.config_is_in(key, booleans) then
  89. if tonumber(tokens[2]) == 1 then
  90. value = true
  91. elseif tonumber(tokens[2]) == 0 then
  92. value = false
  93. end
  94. elseif itemshop.config_is_in(key, tables) then
  95. value = split(tokens[2], ',')
  96. else
  97. if tonumber(tokens[2]) then
  98. value = tonumber(tokens[2])
  99. else
  100. value = tostring(tokens[2])
  101. end
  102. end
  103. itemshop.config[key] = value
  104. end
  105. end
  107. function itemshop.config_is_in(cfg_opt, tbl)
  108. for i = 1, table.getn(tbl) do
  109. if tbl[i] == cfg_opt then
  110. return true
  111. end
  112. end
  113. return false
  114. end
  116. itemshop.load_config()
  118. function itemshop.load_items_array()
  119. itemshop.item['ITEMSHOP'] = {}
  120. local c,items = mysql_direct_query("SELECT * FROM "..itemshop.config.ITEMSHOP_ITEMS_TABLE..";")
  121. if c > 0 then
  122. for i = 1,c do
  123. itemshop.item['ITEMSHOP'][i] = {items[i].category, items[i].id, items[i].vnum, items[i].price, items[i].attrtype0, items[i].attrvalue0, items[i].attrtype1, items[i].attrvalue1, items[i].attrtype2, items[i].attrvalue2, items[i].attrtype3, items[i].attrvalue3, items[i].attrtype4, items[i].attrvalue4, items[i].attrtype5, items[i].attrvalue5, items[i].attrtype6, items[i].attrvalue6, items[i].socket0, items[i].socket1, items[i].socket2, items[i].time, items[i].percent}
  124. end
  125. end
  126. itemshop.item['DRSSHOP'] = {}
  127. local c,items = mysql_direct_query("SELECT * FROM "..itemshop.config.DRSSHOP_ITEMS_TABLE..";")
  128. if c > 0 then
  129. for i = 1,c do
  130. itemshop.item['DRSSHOP'][i] = {items[i].category, items[i].id, items[i].vnum, items[i].price, items[i].attrtype0, items[i].attrvalue0, items[i].attrtype1, items[i].attrvalue1, items[i].attrtype2, items[i].attrvalue2, items[i].attrtype3, items[i].attrvalue3, items[i].attrtype4, items[i].attrvalue4, items[i].attrtype5, items[i].attrvalue5, items[i].attrtype6, items[i].attrvalue6, items[i].socket0, items[i].socket1, items[i].socket2, items[i].time, items[i].percent}
  131. end
  132. end
  133. itemshop.item['3RDSHOP'] = {}
  134. local c,items = mysql_direct_query("SELECT * FROM "..itemshop.config.OTHERSHOP_ITEMS_TABLE..";")
  135. if c > 0 then
  136. for i = 1,c do
  137. itemshop.item['3RDSHOP'][i] = {items[i].category, items[i].id, items[i].vnum, items[i].price, items[i].attrtype0, items[i].attrvalue0, items[i].attrtype1, items[i].attrvalue1, items[i].attrtype2, items[i].attrvalue2, items[i].attrtype3, items[i].attrvalue3, items[i].attrtype4, items[i].attrvalue4, items[i].attrtype5, items[i].attrvalue5, items[i].attrtype6, items[i].attrvalue6, items[i].socket0, items[i].socket1, items[i].socket2, items[i].time, items[i].percent}
  138. end
  139. end
  140. end
  142. itemshop.load_items_array()
  144. function itemshop.unset_coins(amount)
  145. mysql_direct_query("UPDATE "..itemshop.config.ACCOUNT_TABLE.." SET "..itemshop.config.COINS_COLUMN.." = "..itemshop.config.COINS_COLUMN.." - "..amount.." WHERE id = "..pc.get_account_id()..";")
  146. mysql_direct_query("UPDATE "..itemshop.config.ACCOUNT_TABLE.." SET "..itemshop.config.DRS_COLUMN.." = "..itemshop.config.DRS_COLUMN.." + "..amount.." WHERE id = "..pc.get_account_id()..";")
  147. itemshop.get_coins()
  148. end
  150. function itemshop.unset_drs(amount)
  151. mysql_direct_query("UPDATE "..itemshop.config.ACCOUNT_TABLE.." SET "..itemshop.config.DRS_COLUMN.." = "..itemshop.config.DRS_COLUMN.." - "..amount.." WHERE id = "..pc.get_account_id()..";")
  152. itemshop.get_coins()
  153. end
  155. function itemshop.unset_3rd(amount)
  156. local info
  157. if string.find(itemshop.config.OTHER_SHOP_TABLE, 'account') then
  158. info = pc.get_account_id()
  159. elseif string.find(itemshop.config.OTHER_SHOP_TABLE, 'player') then
  160. info = pc.get_player_id()
  161. end
  162. mysql_direct_query("UPDATE "..(itemshop.config.OTHER_SHOP_TABLE).." SET "..(itemshop.config.OTHER_COLUMN).." = "..(itemshop.config.OTHER_COLUMN).." - "..amount.." WHERE id = "..info..";")
  163. itemshop.get_3rd()
  164. end
  166. function itemshop.load_items()
  167. if table.getn(itemshop.item['ITEMSHOP']) > 0 then
  168. for k,items in pairs(itemshop.item['ITEMSHOP']) do
  169. cmdchat('ITEMSHOP SET_ITEM#itemshop#'..items[1]..'#'..items[2]..'#'..items[3]..'#'..items[4]..'#'..items[5]..'#'..items[6]..'#'..items[7]..'#'..items[8]..'#'..items[9]..'#'..items[10]..'#'..items[11]..'#'..items[12]..'#'..items[13]..'#'..items[14]..'#'..items[15]..'#'..items[16]..'#'..items[17]..'#'..items[18]..'#'..items[19]..'#'..items[20]..'#'..items[21]..'#'..items[22]..'#0#'..items[23])
  170. end
  171. end
  172. if table.getn(itemshop.item['DRSSHOP']) > 0 then
  173. for k,items in pairs(itemshop.item['DRSSHOP']) do
  174. cmdchat('ITEMSHOP SET_ITEM#drs_shop#'..items[1]..'#'..items[2]..'#'..items[3]..'#'..items[4]..'#'..items[5]..'#'..items[6]..'#'..items[7]..'#'..items[8]..'#'..items[9]..'#'..items[10]..'#'..items[11]..'#'..items[12]..'#'..items[13]..'#'..items[14]..'#'..items[15]..'#'..items[16]..'#'..items[17]..'#'..items[18]..'#'..items[19]..'#'..items[20]..'#'..items[21]..'#'..items[22]..'#0#'..items[23])
  175. end
  176. end
  177. if table.getn(itemshop.item['3RDSHOP']) > 0 then
  178. for k,items in pairs(itemshop.item['3RDSHOP']) do
  179. cmdchat('ITEMSHOP SET_ITEM#3rd_shop#'..items[1]..'#'..items[2]..'#'..items[3]..'#'..items[4]..'#'..items[5]..'#'..items[6]..'#'..items[7]..'#'..items[8]..'#'..items[9]..'#'..items[10]..'#'..items[11]..'#'..items[12]..'#'..items[13]..'#'..items[14]..'#'..items[15]..'#'..items[16]..'#'..items[17]..'#'..items[18]..'#'..items[19]..'#'..items[20]..'#'..items[21]..'#'..items[22]..'#0#'..items[23])
  180. end
  181. end
  182. end
  184. function itemshop.load_hotoffers()
  185. if table.getn(itemshop.item['ITEMSHOP']) > 0 then
  186. for k,items in pairs(itemshop.item['ITEMSHOP']) do
  187. if items[22] > get_time() then
  188. cmdchat('ITEMSHOP SET_ITEM_HOTOFFERS#'..items[2]..'#'..items[3]..'#'..items[4]..'#'..items[5]..'#'..items[6]..'#'..items[7]..'#'..items[8]..'#'..items[9]..'#'..items[10]..'#'..items[11]..'#'..items[12]..'#'..items[13]..'#'..items[14]..'#'..items[15]..'#'..items[16]..'#'..items[17]..'#'..items[18]..'#'..items[19]..'#'..items[20]..'#'..items[21]..'#'..items[22]..'#0#'..items[23])
  189. end
  190. end
  191. end
  192. end
  194. function itemshop.load_mostbought_array()
  195. itemshop.item['MOSTBOUGHT'] = {}
  196. local c,vnum = mysql_direct_query("SELECT vnum,count(vnum) c FROM "..itemshop.config.ITEMSHOP_LOGS_TABLE.." GROUP BY vnum ORDER BY c DESC LIMIT 10;")
  197. if c > 0 then
  198. for a = 1,c do
  199. local co,items = mysql_direct_query("SELECT * FROM "..itemshop.config.ITEMSHOP_ITEMS_TABLE.." WHERE vnum = "..tonumber(vnum[a].vnum)..";")
  200. for i = 1,co do
  201. local array = {items[i].category, items[i].id, items[i].vnum, items[i].price, items[i].attrtype0, items[i].attrvalue0, items[i].attrtype1, items[i].attrvalue1, items[i].attrtype2, items[i].attrvalue2, items[i].attrtype3, items[i].attrvalue3, items[i].attrtype4, items[i].attrvalue4, items[i].attrtype5, items[i].attrvalue5, items[i].attrtype6, items[i].attrvalue6, items[i].socket0, items[i].socket1, items[i].socket2, items[i].time, items[i].percent}
  202. table.insert(itemshop.item['MOSTBOUGHT'], array)
  203. end
  204. end
  205. end
  206. end
  208. itemshop.load_mostbought_array()
  210. function itemshop.load_mostbought()
  211. if table.getn(itemshop.item['MOSTBOUGHT']) > 0 then
  212. for k,items in pairs(itemshop.item['MOSTBOUGHT']) do
  213. cmdchat('ITEMSHOP SET_ITEM_MOSTBOUGHT#'..items[2]..'#'..items[3]..'#'..items[4]..'#'..items[5]..'#'..items[6]..'#'..items[7]..'#'..items[8]..'#'..items[9]..'#'..items[10]..'#'..items[11]..'#'..items[12]..'#'..items[13]..'#'..items[14]..'#'..items[15]..'#'..items[16]..'#'..items[17]..'#'..items[18]..'#'..items[19]..'#'..items[20]..'#'..items[21]..'#'..items[22]..'#0#'..items[23])
  214. end
  215. end
  216. end
  218. function itemshop.load_logs_array()
  219. itemshop.logs = {}
  220. local c,logs = mysql_direct_query("SELECT * FROM "..itemshop.config.ITEMSHOP_LOGS_TABLE..";")
  221. if c > 0 then
  222. for i = 1,c do
  223. if itemshop.logs[logs[i].pid] == nil then itemshop.logs[logs[i].pid] = {} end
  224. itemshop.logs[logs[i].pid][i] = {logs[i].vnum, logs[i].amount, logs[i].price, (string.gsub(logs[i].date, ' ', '[_]')), logs[i].attrtype0, logs[i].attrvalue0, logs[i].attrtype1, logs[i].attrvalue1, logs[i].attrtype2, logs[i].attrvalue2, logs[i].attrtype3, logs[i].attrvalue3, logs[i].attrtype4, logs[i].attrvalue4, logs[i].attrtype5, logs[i].attrvalue5, logs[i].attrtype6, logs[i].attrvalue6, logs[i].socket0, logs[i].socket1, logs[i].socket2}
  225. end
  226. end
  227. end
  229. itemshop.load_logs_array()
  231. function itemshop.load_logs(order)
  232. if itemshop.logs[pc.get_player_id()] ~= nil then
  233. if order == 'all' then
  234. if table.getn(itemshop.logs[pc.get_player_id()]) > 0 then
  235. for k,logs in pairs(itemshop.logs[pc.get_player_id()]) do
  236. cmdchat('ITEMSHOP SET_LOG#'..logs[1]..'#'..logs[2]..'#'..logs[3]..'#'..logs[4]..'#'..logs[5]..'#'..logs[6]..'#'..logs[7]..'#'..logs[8]..'#'..logs[9]..'#'..logs[10]..'#'..logs[11]..'#'..logs[12]..'#'..logs[13]..'#'..logs[14]..'#'..logs[15]..'#'..logs[16]..'#'..logs[17]..'#'..logs[18]..'#'..logs[19]..'#'..logs[20]..'#'..logs[21])
  237. end
  238. end
  239. elseif order == 'last' then
  240. if table.getn(itemshop.logs[pc.get_player_id()]) > 0 then
  241. logs = itemshop.logs[pc.get_player_id()][table.getn(itemshop.logs[pc.get_player_id()])]
  242. cmdchat('ITEMSHOP SET_LOG#'..logs[1]..'#'..logs[2]..'#'..logs[3]..'#'..logs[4]..'#'..logs[5]..'#'..logs[6]..'#'..logs[7]..'#'..logs[8]..'#'..logs[9]..'#'..logs[10]..'#'..logs[11]..'#'..logs[12]..'#'..logs[13]..'#'..logs[14]..'#'..logs[15]..'#'..logs[16]..'#'..logs[17]..'#'..logs[18]..'#'..logs[19]..'#'..logs[20]..'#'..logs[21])
  243. end
  244. end
  245. end
  246. end
  248. function itemshop.create_categorys()
  249. for i = 1, itemshop.config.ITEMSHOP_CATEGORY_COUNT do
  250. cmdchat('ITEMSHOP CREATE_CATEGORY#itemshop#'..i)
  251. end
  252. for i = 1, itemshop.config.DRSSHOP_CATEGORY_COUNT do
  253. cmdchat('ITEMSHOP CREATE_CATEGORY#drs_shop#'..i)
  254. end
  255. for i = 1, itemshop.config.OTHERSHOP_CATEGORY_COUNT do
  256. cmdchat('ITEMSHOP CREATE_CATEGORY#3rd_shop#'..i)
  257. end
  258. end
  260. function itemshop.open_shop()
  261. if pc.is_gm() and itemshop.config.ENABLE_ADMIN_PANEL and (itemshop.config_is_in(pc.get_name(), itemshop.config.ADMIN_PANEL_MEMBERS) or itemshop.config_is_in(pc.get_player_id(), itemshop.config.ADMIN_PANEL_MEMBERS)) then
  262. cmdchat('ITEMSHOP OPEN#1')
  263. else
  264. cmdchat('ITEMSHOP OPEN#0')
  265. end
  266. itemshop.add_viewer(pc.get_name())
  267. end
  269. function itemshop.close_shop()
  270. itemshop.delete_viewer(pc.get_name())
  271. end
  273. function itemshop.buy_item(shop, id, amount)
  274. if (amount < 1) then return end
  275. local shop_info = {}
  276. if shop == 'itemshop' then
  277. shop_info[1] = itemshop.config.ITEMSHOP_ITEMS_TABLE
  278. shop_info[2] = itemshop.get_coins()
  279. shop_info[3] = itemshop.config.TXT_NO_COINS_BUY_ITEM
  280. shop_info[4] = itemshop.config.TXT_COIN_NAME
  281. shop_info[5] = itemshop.unset_coins
  282. elseif shop == 'drs_shop' then
  283. shop_info[1] = itemshop.config.DRSSHOP_ITEMS_TABLE
  284. shop_info[2] = itemshop.get_drs()
  285. shop_info[3] = itemshop.config.TXT_NO_DRS_BUY_ITEM
  286. shop_info[4] = itemshop.config.TXT_DRS_NAME
  287. shop_info[5] = itemshop.unset_drs
  288. elseif shop == '3rd_shop' then
  289. shop_info[1] = itemshop.config.OTHERSHOP_ITEMS_TABLE
  290. shop_info[2] = itemshop.get_3rd()
  291. shop_info[3] = itemshop.config.TXT_NO_3RD_BUY_ITEM
  292. shop_info[4] = itemshop.config.TXT_3RD_NAME
  293. shop_info[5] = itemshop.unset_3rd
  294. end
  295. local c,itemInfo = mysql_direct_query("SELECT * FROM "..shop_info[1].." WHERE id = "..id.." LIMIT 1;")
  296. if c > 0 then
  297. local price if tonumber(itemInfo[1].time)-get_time() > 0 then
  298. price = tonumber(itemInfo[1].price)-(tonumber(itemInfo[1].price)/100)*tonumber(itemInfo[1].percent) else price = tonumber(itemInfo[1].price) end
  299. if price < 0 or (price*amount) < 0 then return end
  300. if shop_info[2] < price*amount then
  301. syschat(shop_info[3])
  302. return
  303. end
  304. if not pc.enough_inventory(tonumber(itemInfo[1].vnum)) then
  305. syschat(itemshop.config.TXT_NOT_ENOUGH_INVENTORY)
  306. return
  307. end
  308. local attributes = {{tonumber(itemInfo[1].attrtype0), tonumber(itemInfo[1].attrvalue0)},{tonumber(itemInfo[1].attrtype1), tonumber(itemInfo[1].attrvalue1)},{tonumber(itemInfo[1].attrtype2), tonumber(itemInfo[1].attrvalue2)},{tonumber(itemInfo[1].attrtype3), tonumber(itemInfo[1].attrvalue3)},{tonumber(itemInfo[1].attrtype4), tonumber(itemInfo[1].attrvalue4)},{tonumber(itemInfo[1].attrtype5), tonumber(itemInfo[1].attrvalue5)},{tonumber(itemInfo[1].attrtype6), tonumber(itemInfo[1].attrvalue6)}}
  309. local sockets = {tonumber(itemInfo[1].socket0),tonumber(itemInfo[1].socket1),tonumber(itemInfo[1].socket2)}
  310. pc.give_item2_select(tonumber(itemInfo[1].vnum), amount)
  311. for attr = 0,6 do
  312. item.set_value(attr, attributes[attr+1][1], attributes[attr+1][2])
  313. end
  314. for socket = 0,2 do
  315. if sockets[socket+1] >= (86000/2) then
  316. sockets[socket+1] = sockets[socket+1] + get_time()
  317. end
  318. item.set_socket(socket, sockets[socket+1])
  319. end
  320. if item.get_count() > 1 then
  321. chat(string.format(itemshop.config.TXT_BOUGHT_ITEM_W_AMOUNT, amount, item.get_name(), price, shop_info[4]))
  322. else
  323. chat(string.format(itemshop.config.TXT_BOUGHT_ITEM_WO_AMOUNT, item.get_name(), price, shop_info[4]))
  324. end
  325. if shop == 'itemshop' then
  326. itemshop.write_log(pc.get_player_id(), tonumber(itemInfo[1].vnum), amount, item.get_id(), attributes, sockets, price)
  327. end
  328. shop_info[5](price*amount)
  329. itemshop.load_mostbought_array()
  330. itemshop.send_global_data('MOSTBOUGHT')
  331. end
  332. end
  334. function itemshop.write_log(pid, vnum, amount, itemID, attrs, sockets, price)
  335. local s_attrs,s_sockets = '',''
  336. for i = 1, table.getn(attrs) do
  337. s_attrs = s_attrs..attrs[i][1]..','..attrs[i][2]..(i < 7 and ',' or '')
  338. end
  339. for i = 1, table.getn(sockets) do
  340. s_sockets = s_sockets..sockets[i]..(i < 3 and ',' or '')
  341. end
  342. mysql_direct_query("INSERT INTO "..itemshop.config.ITEMSHOP_LOGS_TABLE.." (pid,vnum,amount,item_id,attrtype0,attrvalue0,attrtype1,attrvalue1,attrtype2,attrvalue2,attrtype3,attrvalue3,attrtype4,attrvalue4,attrtype5,attrvalue5,attrtype6,attrvalue6,socket0,socket1,socket2,price,date) VALUES ("..pid..","..vnum..","..amount..","..itemID..","..s_attrs..","..s_sockets..","..price..",'"..os.date("%Y-%m-%d %H:%M:%S").."');")
  343. if itemshop.logs[pid] == nil then itemshop.logs[pid] = {} end
  344. itemshop.logs[pid][table.getn(itemshop.logs[pid]) + 1] = {vnum, amount, price, (string.gsub(os.date("%Y-%m-%d %H:%M:%S"), ' ', '[_]')), attrs[1][1], attrs[1][2], attrs[2][1], attrs[2][2], attrs[3][1], attrs[3][2], attrs[4][1], attrs[4][2], attrs[5][1], attrs[5][2], attrs[6][1], attrs[6][2], attrs[7][1], attrs[7][2], sockets[1], sockets[2], sockets[3]}
  345. itemshop.load_logs('last')
  346. end
  348. function itemshop.load_wheel_items()
  349. cmdchat('ITEMSHOP SET_WHEEL_PRIZE#G#'..itemshop.create_string(itemshop.config.WHEEL_GOOD_ITEMS))
  350. cmdchat('ITEMSHOP SET_WHEEL_PRIZE#B#'..itemshop.create_string(itemshop.config.WHEEL_BAD_ITEMS))
  351. end
  353. function itemshop.request_spin_wheel()
  354. local price = itemshop.config.WHEEL_COST_DRS and itemshop.get_drs() or itemshop.get_coins()
  355. if price < itemshop.config.WHEEL_COST then
  356. syschat(itemshop.config.TXT_NO_COINS_SPIN_WHEEL)
  357. return
  358. end
  359. if pc.getf('itemshop', 'spin_time') ~= 0 and pc.getf('itemshop', 'spin_time') < get_time() then
  360. pc.setf('itemshop', 'spin_time', 0)
  361. pc.setf('itemshop', 'wheel_spins', 0)
  362. end
  363. if pc.getf('itemshop', 'wheel_spins') >= itemshop.config.WHEEL_LIMIT_SPINS_TIME then
  364. if pc.getf('itemshop', 'spin_time') <= 0 then
  365. pc.setf('itemshop', 'spin_time', get_time()+60*itemshop.config.WHEEL_LIMIT_TIME_SPINS_MINUTES)
  366. end
  367. syschat(itemshop.config.TXT_NO_MORE_SPINS)
  368. local remain = pc.getf('itemshop', 'spin_time')-get_time()
  369. local hours = math.floor(remain / 3600)
  370. local minutes = 0
  371. if hours >= 1 then
  372. minutes = math.floor((remain - (hours*3600)) / 60)
  373. syschat(string.format(itemshop.config.TXT_WHEEL_WAIT_TIME_W_HOURS, hours, minutes))
  374. else
  375. minutes = math.floor(remain / 60)
  376. if minutes < 1 then
  377. syschat(string.format(itemshop.config.TXT_WHEEL_WAIT_TIME_W_SEC, remain))
  378. else
  379. syschat(string.format(itemshop.config.TXT_WHEEL_WAIT_TIME_WO_HOURS, minutes))
  380. end
  381. end
  382. return
  383. end
  384. pc.setf('itemshop', 'wheel_spins', pc.getf('itemshop', 'wheel_spins')+1)
  385. if pc.getf('itemshop', 'wheel_spins') >= itemshop.config.WHEEL_LIMIT_SPINS_TIME then
  386. if pc.getf('itemshop', 'spin_time') <= 0 then
  387. pc.setf('itemshop', 'spin_time', get_time()+60*itemshop.config.WHEEL_LIMIT_TIME_SPINS_MINUTES)
  388. end
  389. end
  390. pc.setf('itemshop_manager', 'enable_wheel', 1)
  391. cmdchat('ITEMSHOP ALLOW_SPIN_WHEEL#')
  392. if itemshop.config.WHEEL_COST_DRS then
  393. itemshop.unset_drs(itemshop.config.WHEEL_COST)
  394. else
  395. itemshop.unset_coins(itemshop.config.WHEEL_COST)
  396. end
  397. end
  399. function itemshop.admin_add_item_time(item_id, item_time, percent, shop)
  400. if itemshop.config.ENABLE_ADMIN_PANEL == false then return end
  401. if not pc.is_gm() then return end
  402. local shop_db
  403. if shop == 0 then
  404. shop_db = itemshop.config.ITEMSHOP_ITEMS_TABLE
  405. elseif shop == 1 then
  406. shop_db = itemshop.config.DRSSHOP_ITEMS_TABLE
  407. elseif shop == 2 then
  408. shop_db = itemshop.config.OTHERSHOP_ITEMS_TABLE
  409. end
  410. local realTime = item_time+get_time()
  411. mysql_direct_query("UPDATE "..shop_db.." SET time = "..realTime..", percent = "..percent.." WHERE id = "..item_id..";")
  412. local shop_name = {[0] = 'ITEMSHOP', [1] = 'DRSSHOP', [2] = '3RDSHOP'}
  413. for k,items in pairs(itemshop.item[shop_name[shop]]) do
  414. if items[2] == item_id then
  415. items[22] = realTime
  416. items[23] = percent
  417. break
  418. end
  419. end
  420. for k,items in pairs(itemshop.item['MOSTBOUGHT']) do
  421. if items[2] == item_id then
  422. items[22] = realTime
  423. items[23] = percent
  424. break
  425. end
  426. end
  427. chat(string.format(itemshop.config.TXT_SUCCESS_TIME_ITEM, percent, item_time))
  428. itemshop.send_global_data('DISCOUNT')
  429. end
  431. function itemshop.admin_add_category_time(category, category_time, percent, shop)
  432. if itemshop.config.ENABLE_ADMIN_PANEL == false then return end
  433. if not pc.is_gm() then return end
  434. local shop_db
  435. if shop == 0 then
  436. shop_db = itemshop.config.ITEMSHOP_ITEMS_TABLE
  437. elseif shop == 1 then
  438. shop_db = itemshop.config.DRSSHOP_ITEMS_TABLE
  439. elseif shop == 2 then
  440. shop_db = itemshop.config.OTHERSHOP_ITEMS_TABLE
  441. end
  442. local realTime = category_time+get_time()
  443. mysql_direct_query("UPDATE "..shop_db.." SET time = "..realTime..", percent = "..percent.." WHERE category = "..category..";")
  444. local shop_name = {[0] = 'ITEMSHOP', [1] = 'DRSSHOP', [2] = '3RDSHOP'}
  445. for k,items in pairs(itemshop.item[shop_name[shop]]) do
  446. if items[1] == category then
  447. items[22] = realTime
  448. items[23] = percent
  449. end
  450. end
  451. for k,items in pairs(itemshop.item['MOSTBOUGHT']) do
  452. if items[1] == category then
  453. items[22] = realTime
  454. items[23] = percent
  455. end
  456. end
  457. chat(string.format(itemshop.config.TXT_SUCCESS_TIME_CATEGORY, percent, category_time, category))
  458. itemshop.send_global_data('DISCOUNT')
  459. end
  461. function itemshop.admin_add_item(category, vnum, price, attributes, sockets, shop)
  462. if itemshop.config.ENABLE_ADMIN_PANEL == false then return end
  463. if not pc.is_gm() then return end
  464. local s_attrs,s_sockets = '',''
  465. for i = 1, table.getn(attributes) do
  466. s_attrs = s_attrs..attributes[i][1]..','..attributes[i][2]..(i < 7 and ',' or '')
  467. end
  468. for i = 1, table.getn(sockets) do
  469. s_sockets = s_sockets..sockets[i]..(i < 3 and ',' or '')
  470. end
  471. local shop_db
  472. if shop == 0 then
  473. shop_db = itemshop.config.ITEMSHOP_ITEMS_TABLE
  474. elseif shop == 1 then
  475. shop_db = itemshop.config.DRSSHOP_ITEMS_TABLE
  476. elseif shop == 2 then
  477. shop_db = itemshop.config.OTHERSHOP_ITEMS_TABLE
  478. end
  479. local shop_name = {[0] = 'ITEMSHOP', [1] = 'DRSSHOP', [2] = '3RDSHOP'}
  480. mysql_direct_query("INSERT INTO "..shop_db.." (category,vnum,price,attrtype0,attrvalue0,attrtype1,attrvalue1,attrtype2,attrvalue2,attrtype3,attrvalue3,attrtype4,attrvalue4,attrtype5,attrvalue5,attrtype6,attrvalue6,socket0,socket1,socket2) VALUES ("..category..","..vnum..","..price..","..s_attrs..","..s_sockets..");")
  481. itemshop.load_items_array()
  482. chat(itemshop.config.TXT_SUCCESS_ADDED_ITEM)
  483. itemshop.send_global_data('NEW_ITEM')
  484. end
  486. function itemshop.admin_delete_item(shop, item_id)
  487. if itemshop.config.ENABLE_ADMIN_PANEL == false then return end
  488. if not pc.is_gm() then return end
  489. if not (itemshop.config_is_in(pc.get_name(), itemshop.config.ADMIN_PANEL_MEMBERS) or itemshop.config_is_in(pc.get_player_id(), itemshop.config.ADMIN_PANEL_MEMBERS)) then return end
  490. local shop_db
  491. if shop == 'itemshop' then
  492. shop_db = itemshop.config.ITEMSHOP_ITEMS_TABLE
  493. elseif shop == 'drs_shop' then
  494. shop_db = itemshop.config.DRSSHOP_ITEMS_TABLE
  495. elseif shop == '3rd_shop' then
  496. shop_db = itemshop.config.OTHERSHOP_ITEMS_TABLE
  497. end
  498. mysql_direct_query("DELETE FROM "..shop_db.." WHERE id = "..item_id..";")
  499. itemshop.load_items_array()
  500. itemshop.load_mostbought_array()
  501. itemshop.load_items_array()
  502. chat(itemshop.config.TXT_SUCCESS_DELETED_ITEM)
  503. itemshop.send_global_data('NONE')
  504. end
  506. function itemshop.admin_edit_item_price(shop, item_id, new_price)
  507. if new_price == 0 then return end
  508. if itemshop.config.ENABLE_ADMIN_PANEL == false then return end
  509. if not pc.is_gm() then return end
  510. if not (itemshop.config_is_in(pc.get_name(), itemshop.config.ADMIN_PANEL_MEMBERS) or itemshop.config_is_in(pc.get_player_id(), itemshop.config.ADMIN_PANEL_MEMBERS)) then return end
  511. local shop_db
  512. if shop == 'itemshop' then
  513. shop_db = itemshop.config.ITEMSHOP_ITEMS_TABLE
  514. elseif shop == 'drs_shop' then
  515. shop_db = itemshop.config.DRSSHOP_ITEMS_TABLE
  516. elseif shop == '3rd_shop' then
  517. shop_db = itemshop.config.OTHERSHOP_ITEMS_TABLE
  518. end
  519. mysql_direct_query("UPDATE "..shop_db.." SET price = "..new_price.." WHERE id = "..item_id..";")
  520. local shop_name = {['itemshop'] = 'ITEMSHOP', ['drs_shop'] = 'DRSSHOP', ['3rd_shop'] = '3RDSHOP'}
  521. for k,items in pairs(itemshop.item[shop_name[shop]]) do
  522. if items[2] == item_id then
  523. items[4] = new_price
  524. break
  525. end
  526. end
  527. for k,items in pairs(itemshop.item['MOSTBOUGHT']) do
  528. if items[2] == item_id then
  529. items[4] = new_price
  530. break
  531. end
  532. end
  533. chat(itemshop.config.TXT_SUCCESS_DELETED_ITEM)
  534. itemshop.send_global_data('CHANGED_PRICE')
  535. end
  537. function itemshop.add_viewer(name)
  538. table.insert(itemshop.viewers, name)
  539. end
  541. function itemshop.delete_viewer(name)
  542. for k,pname in pairs(itemshop.viewers) do
  543. if pname == name then
  544. table.remove(itemshop.viewers, k)
  545. end
  546. end
  547. end
  549. function itemshop.send_global_data(data)
  550. local old_vid = pc.get_vid()
  551. for k,pname in pairs(itemshop.viewers) do
  552. local vid = find_pc_by_name(pname)
  553. if vid > 0 then
  554. pc.select(vid)
  555. cmdchat('ITEMSHOP CLEAR_CONTENT#')
  556. itemshop.create_categorys()
  557. itemshop.load_items()
  558. itemshop.load_hotoffers()
  559. itemshop.load_mostbought()
  560. if data == 'NEW_ITEM' then
  561. chat(itemshop.config.TXT_GLOBAL_NEW_ITEM)
  562. elseif data == 'DISCOUNT' then
  563. chat(itemshop.config.TXT_GLOBAL_DISCOUNT)
  564. elseif data == 'CHANGED_PRICE' then
  565. chat(itemshop.config.TXT_GLOBAL_EDITED_PRICE)
  566. end
  567. cmdchat('ITEMSHOP REFRESH_CONTENT#')
  568. end
  569. end
  570. pc.select(old_vid)
  571. end

itemshop_lib.lua