Ir para conteúdo

sharematrix

Cavaleiro
 Perfil  Explorar Conteúdo

  • Total de itens

    189

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por sharematrix

    Porque Fechou O Tcs 0.3?

    em Lixeira Pública

    Postado · Editado por ShareMatrix

    Eu concordo totalmente com o Gustavo (Admin), a licença GNU/GPL diz que é obrigatório postar as sources do projeto modificado, no caso o TFS

     

    Tirado da licença: Caso o software venha a ser modificado e o autor da modificação queira distribuí-lo, será também obrigatória a distribuição do código fonte das modificações

    [Encerrado] Ajuda No Vip System..plz!

    em Tópicos Sem Resposta

    Postado

    Você precisa adicionar o script em /data/globalevents/

     

    -- ### CONFIG ###
-- message send to player by script "type" (types you can check in "global.lua")
SHOP_MSG_TYPE = 19
-- time (in seconds) between connections to SQL database by shop script
SQL_interval = 30
-- ### END OF CONFIG ###
SQL_COMUNICATION_INTERVAL = SQL_interval * 1000
function onLogin(cid)
if(InitShopComunication == 0) then
	local eventServ = addEvent(sql_communication, SQL_COMUNICATION_INTERVAL, {})
	InitShopComunication = eventServ
end
registerCreatureEvent(cid, "PlayerDeath")
return TRUE
end

function sql_communication(parameters)
dofile("./config.lua")
env = assert(luasql.mysql())
con = assert(env:connect(mysqlDatabase, mysqlUser, mysqlPass, mysqlHost, mysqlPort))
result_plr = assert(con:execute("SELECT * FROM z_ots_comunication WHERE `type` = 'login';"))
todo = result_plr:fetch({}, "a")
while todo do
	id = tonumber(todo.id)
	action = tostring(todo.action)
	delete = tonumber(todo.delete_it)
	cid = getPlayerByName(tostring(todo.name))
	if isPlayer(cid) == TRUE then
		local itemtogive_id = tonumber(todo.param1)
		local itemtogive_count = tonumber(todo.param2)
		local container_id = tonumber(todo.param3)
		local container_count = tonumber(todo.param4)
		local add_item_type = tostring(todo.param5)
		local add_item_name = tostring(todo.param6)
		local received_item = 0
		local full_weight = 0
		if add_item_type == 'container' then
			container_weight = getItemWeight(container_id, 1)
			if isItemRune(itemtogive_id) == TRUE then
				items_weight = container_count * getItemWeight(itemtogive_id, 1)
			else
				items_weight = container_count * getItemWeight(itemtogive_id, itemtogive_count)
			end
			full_weight = items_weight + container_weight
		else
			full_weight = getItemWeight(itemtogive_id, itemtogive_count)
			if isItemRune(itemtogive_id) == TRUE then
				full_weight = getItemWeight(itemtogive_id, 1)
			else
				full_weight = getItemWeight(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)
				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.')
				delete = assert(con:execute("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";"))
				assert(con:execute("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
	todo = result_plr:fetch (todo, "a")
end
con:close()
env:close()
local eventServ = addEvent(sql_communication, SQL_COMUNICATION_INTERVAL, parameters)
end

     

    tag:

        <globalevent name="shop" interval="30" script="shop.lua"/>

    Virtual Aac - Top 5 Players

    em Lixeira Pública

    Postado · Editado por ShareMatrix

    Olá, rs

     

    Vim aqui postar o primeiro modulo do Virtual AAC

     

    è um TOP 5 Players, sabem o que é isso? é um script que lista os melhores 5 players do servidor.

    então vamos ao código

     

    $query = mysql_query("select * from players order by level desc");
while($top5 = mysql_fetch_array($query))
{
	$server['content'] .= 'Nome: <a href="?p=characters&name='.$top5['name'].'">'.$top5['name'].'</a> - Level: '.$top5['level'].'';
}

     

    Atenciosamente

    ShareMatrix

    Quais Os Jogos Que Você Tem No Seu Computador?

    em Jogos

    Postado

    Minha pequena listinha ;)

     

    - Tibia

    - GTA San Andreas

    - GTA IV

    - FarCry

    - Crysys

    - NFS Most Wanted

    - NFS Carbon

    - Diablo II

    - Diablo I

    - TestDrive Unlimited

    - Counter Strike 1.6

    - Counter Strike Source

    - Counter Strike Condition Zero

    - Battlefield 2

    - Battlefield 1942

    - Battlefield 2142

    - Star Wars: The Force Unleashed

    - Halo

    - Age of Empires I

    - Age of Empires II

    - Age of Mithology: The Titans

    - Unreal Tournament 2004

    - Assassin's Creed

    - Assassin's Creed II

    - Driver Parallel Lines

    - Guitar Hero 3

    - Final Fantasy 7

    - Breath of Fire 4

     

    - 1685 Roms de Super Nintendo

    - 1003 Roms de GBA

    - 749 Roms de Nintendo 64

    - 54 Roms de PS1

    - 6 Roms de PS2

     

    - 1000+ Jogos flash

     

    Eu jogo somente Diablo II, Tibia & FF7, o resto não abro faz + ou - 6 meses

  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...