Ajudem Pliz Preciso Desses Script

[testepaulinho 0]

Queria as TALKACTIONs !

 

!Bless

!report

!deathlist

!promotion

!ranks

!frags

[soulpop 6]

Vá em TalkAction e abra Talkactions.xml e Adicione isso

 

<talkaction words="!bless" script="bless.lua" />

 

Depois vá a pasta Scripts e renomei 1 arquivo para bless.lua e coloque isto dentro

 

function onSay(cid, words, param)
       if getPlayerBlessing(cid, 1) or getPlayerBlessing(cid, 2) or getPlayerBlessing(cid, 3) or getPlayerBlessing(cid, 4) or getPlayerBlessing(cid, 5) then
               doPlayerSendCancel(cid,'You have already got one or more blessings!')
       else
               if doPlayerRemoveMoney(cid, 120000) == TRUE then
                       doPlayerAddBlessing(cid, 1)
                       doPlayerAddBlessing(cid, 2)
                       doPlayerAddBlessing(cid, 3)
                       doPlayerAddBlessing(cid, 4)
                       doPlayerAddBlessing(cid, 5)
                       doSendMagicEffect(getPlayerPosition(cid), 28)
                       doPlayerSendTextMessage(cid,MESSAGE_EVENT_ADVANCE, 'You have been blessed by the gods!')
               else
                       doPlayerSendCancel(cid, "You need 120k to get blessed!")
               end
       end
return TRUE
end

 

 

Comando !Rank

<talkaction words="!rank" script="ranks.lua"/>

 

Scripts

 

---By Léo---
local ranks = {

['fist'] = {0},

['club'] = {1},
['sword'] = {2},
['axe'] = {3},
['distance'] = {4},
['shield'] = {5},
['fish'] = {6},
['magic'] = {7},
['level'] = {8},

}


function onSay(cid, words, param)

local msg = string.lower(param)
if ranks[msg] ~= nil then
str = getHighscoreString((ranks[msg][1]))
else
str = getHighscoreString((8))
end
doShowTextDialog(cid,6500, str)
return TRUE

end

 

 

Comando !frags

 

<talkaction words="!frags" event="script" value="frags.lua"/>

 

 

Scripts

 

local config = {
useFragHandler = getBooleanFromString(getConfigValue('useFragHandler')),
advancedFragList = getBooleanFromString(getConfigValue('advancedFragList'))
}

function onSay(cid, words, param, channel)
if(not config.useFragHandler) then
	return false
end

local time = os.time()
local times = {today = (time - 86400), week = (time - (7 * 86400))}

local contents, result = {day = {}, week = {}, month = {}}, db.getResult("SELECT `pd`.`date`, `pd`.`level`, `p`.`name` FROM `player_killers` pk LEFT JOIN `killers` k ON `pk`.`kill_id` = `k`.`id` LEFT JOIN `player_deaths` pd ON `k`.`death_id` = `pd`.`id` LEFT JOIN `players` p ON `pd`.`player_id` = `p`.`id` WHERE `pk`.`player_id` = " .. getPlayerGUID(cid) .. " AND `k`.`unjustified` = 1 AND `pd`.`date` >= " .. (time - (30 * 86400)) .. " ORDER BY `pd`.`date` DESC")
if(result:getID() ~= -1) then
	repeat
		local content = {
			name = result:getDataString("name"),
			level = result:getDataInt("level"),
			date = result:getDataInt("date")
		}
		if(content.date > times.today) then
			table.insert(contents.day, content)
		elseif(content.date > times.week) then
			table.insert(contents.week, content)
		else
			table.insert(contents.month, content)
		end
	until not result:next()
	result:free()
end

local size = {
	day = table.maxn(contents.day),
	week = table.maxn(contents.week),
	month = table.maxn(contents.month)
}
if(config.advancedFragList) then
	local result = "Frags gained today: " .. size.day .. "."
	if(size.day > 0) then
		for _, content in ipairs(contents.day) do
			result = result .. "\n* " .. os.date("%d %B %Y %X at ", content.date) .. content.name .. " on level " .. content.level
		end

		result = result .. "\n"
	end

	result = result .. "\nFrags gained this week: " .. (size.day + size.week) .. "."
	if(size.week > 0) then
		for _, content in ipairs(contents.week) do
			result = result .. "\n* " .. os.date("%d %B %Y %X at ", content.date) .. content.name .. " on level " .. content.level
		end

		result = result .. "\n"
	end

	result = result .. "\nFrags gained this month: " .. (size.day + size.week + size.month) .. "."
	if(size.month > 0) then
		for _, content in ipairs(contents.month) do
			result = result .. "\n* " .. os.date("%d %B %Y %X at ", content.date) .. content.name .. " on level " .. content.level
		end

		result = result .. "\n"
	end

	local skullEnd = getPlayerSkullEnd(cid)
	if(skullEnd > 0) then
		result = result .. "\nYour " .. (getCreatureSkullType(cid) == SKULL_RED and "red" or "black") .. " skull will expire at " .. os.date("%d %B %Y %X", skullEnd)
	end

	doPlayerPopupFYI(cid, result)
else
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You currently have " .. size.day .. " frags today, " .. (size.day + size.week) .. " this week and " .. (size.day + size.week + size.month) .. " this month.")
	if(size.day > 0) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Last frag at " .. os.date("%d %B %Y %X", contents.day[1].date) .. " on level " .. contents.day[1].level .. " (" .. contents.day[1].name .. ").")
	end

	local skullEnd = getPlayerSkullEnd(cid)
	if(skullEnd > 0) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your " .. (getCreatureSkullType(cid) == SKULL_RED and "red" or "black") .. " skull will expire at " .. os.date("%d %B %Y %X", skullEnd))
	end
end

return true
end

 

 

Caso Ajudei Rep ++

Editado Setembro 5, 2011 por BackMan

[FrozenGames 2]

Amigo proxima vez que pedir scripts , com todo respeito peça aki olha :

 

http://www.xtibia.com/forum/forum/86-pedidos-de-scripts/