Postado Junho 23, 2012 12 anos Eae Galera Do Tibiaking,Vim Aki Postar Um Sistema Para o Shop.lua,Ele e Muito BOm Para Evitar Clones , e Etc É O Seguinte Vou Postar , Um Sistema Para Shop.lua , Que se Alguem Comprar No SHop, o Player Que Comprasse , Ja Vinhesse Nesse Item o Nome Dele , Então Vamos Lá!!! Abra a Pasta Do Seu Otserv , Vá em Data/globalevents/globalevents.xml E Adicione a Seguinte Tag <globalevent name="shop" interval="30" event="script" value="shop.lua"/> Agora No Msm Local data/globalevents/shop.lua Se Voçe n Tiver o Shop.lua Crie Um Ou Pegue 1 arquivo .lua , e Renomei Para Shop.lua e Apague Tudo que Estar La Dentro e Poe a Seguinte Tag local SHOP_MSG_TYPE = MESSAGE_EVENT_ORANGE local SQL_interval = 30 function onThink(interval, lastExecution) local result_plr = db.getResult("SELECT * FROM z_ots_comunication WHERE `type` = 'login';") if(result_plr:getID() ~= -1) then while(true) do local id = tonumber(result_plr:getDataInt("id")) local action = tostring(result_plr:getDataString("action")) local delete = tonumber(result_plr:getDataInt("delete_it")) local cid = getCreatureByName(tostring(result_plr:getDataString("name"))) if isPlayer(cid) then local itemtogive_id = tonumber(result_plr:getDataInt("param1")) local itemtogive_count = tonumber(result_plr:getDataInt("param2")) local container_id = tonumber(result_plr:getDataInt("param3")) local container_count = tonumber(result_plr:getDataInt("param4")) local add_item_type = tostring(result_plr:getDataString("param5")) local add_item_name = tostring(result_plr:getDataString("param6")) local received_item = 0 local full_weight = 0 if add_item_type == 'container' then container_weight = getItemWeightById(container_id, 1) if isItemRune(itemtogive_id) == TRUE then items_weight = container_count * getItemWeightById(itemtogive_id, 1) else items_weight = container_count * getItemWeightById(itemtogive_id, itemtogive_count) end full_weight = items_weight + container_weight else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) if isItemRune(itemtogive_id) == TRUE then full_weight = getItemWeightById(itemtogive_id, 1) else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) end end local free_cap = getPlayerFreeCap(cid) if full_weight <= free_cap then if add_item_type == 'container' then local new_container = doCreateItemEx(container_id, 1) local iter = 0 while iter ~= container_count do doAddContainerItem(new_container, itemtogive_id, itemtogive_count) iter = iter + 1 end received_item = doPlayerAddItemEx(cid, new_container) else local new_item = doCreateItemEx(itemtogive_id, itemtogive_count) doItemSetAttribute(new_item, "description", "This item can only be used by the player ".. getPlayerName(cid) .."!") doItemSetAttribute(new_item, "aid", getPlayerGUID(cid)+10000) received_item = doPlayerAddItemEx(cid, new_item) end if received_item == RETURNVALUE_NOERROR then doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, 'You received >> '.. add_item_name ..' << from OTS shop.') db.executeQuery("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";") db.executeQuery("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";") else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. Please make place for this item in your backpack/hands and wait about '.. SQL_interval ..' seconds to get it.') end else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. It weight is '.. full_weight ..' oz., you have only '.. free_cap ..' oz. free capacity. Put some items in depot and wait about '.. SQL_interval ..' seconds to get it.') end end if not(result_plr:next()) then break end end result_plr:free() end return true end Espero Ter Ajudado, !!! Creditos: Gm Bekman Jeff Owns Malvera Otserv Dedicado-24h Hospedado In Usa Utilizando Cliente Proprio Ou Ipchanger (Pode ser Baixado No Site) Supporter Execelente Supporter "In Forum And Game" Eventos Diariamentes Muitas Novidades Para a Melhora Do Server E Muito Mais.... Então? Estar esperando oque? Acesse Já o Malvera Ot , Venha Montar Sua Team , Parar Batalhar Contra Outras Team , Upar Skills ,Leveis,Etc.. Sejá Vip e Ganhe 20% De Exp , Ganhe Vip Set Incluindo Runes , Ganhe Destaque No Nome Ex: [Vip] Malvera ,E Tambem Ganhe Acesso Aos Treiners que Nunca desloga , Entre Muitas Outras Vantagen .. Saiba Mais Sobre as Noticias Do Malvera Já no Site Ip: Malvera IP Site: Malvera Site Otslist: Malvera No Otslist Suporter: Malvera Suporter Forum: Malvera Forum Cliente Download: Malvera Cliente
Postado Junho 23, 2012 12 anos Muito bom (: De boua na lagoa ? *-* Entrada ao Tibia King:27/05/2012 (02:14)
Postado Junho 23, 2012 12 anos Autor Obrigado, Slaake... , Sim e Lembrando , Tenho Ctz , Que Os Lek vao Perguntar, Que Aonde Que Vai Comprar O Item , Reposta: E Então Eu So Postei o Script Do Shop.lua , Que é No Global events , So Postei o Script , A Parte Do GeSior n e Comigo Malvera Otserv Dedicado-24h Hospedado In Usa Utilizando Cliente Proprio Ou Ipchanger (Pode ser Baixado No Site) Supporter Execelente Supporter "In Forum And Game" Eventos Diariamentes Muitas Novidades Para a Melhora Do Server E Muito Mais.... Então? Estar esperando oque? Acesse Já o Malvera Ot , Venha Montar Sua Team , Parar Batalhar Contra Outras Team , Upar Skills ,Leveis,Etc.. Sejá Vip e Ganhe 20% De Exp , Ganhe Vip Set Incluindo Runes , Ganhe Destaque No Nome Ex: [Vip] Malvera ,E Tambem Ganhe Acesso Aos Treiners que Nunca desloga , Entre Muitas Outras Vantagen .. Saiba Mais Sobre as Noticias Do Malvera Já no Site Ip: Malvera IP Site: Malvera Site Otslist: Malvera No Otslist Suporter: Malvera Suporter Forum: Malvera Forum Cliente Download: Malvera Cliente
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.