Saga System Wodbo

ZwhiteDog · Maio 15, 2015

Bom quando eu tinha o Server de Dragon Ball versão 8.00 tinha o sistema saga. Mas eu n tinha sources, aí agr eu tô com as sources do meu wodbo só que a versão é 8.54. Mas n tem o sistema saga.

Esse sistema saga vou explica como Funcionava no wodbo 8.00:

eu crio o monster, esse monster só pode ataca alguém e ser atacado ser o player estive o storage que o monster precisa para se move, caso contrário o monster ficará parado. Aí o cara fala com o npc aí ele manda mata esse monster que precisa de o certo storage, o npc da esse certo storage para que monster pode ataca vc e ser atacado.

Aí quero coloca no meu Server na versão 8.54 tfs 0.3.5 mas n ser como fazer, alguém pode ajudar. Se precisa mexe em sources pode fala que eu tenho.

O npc n precisa fazer pq eu msm faço.

Amanhã estarei trazendo mas conteúdo para que ainda n entendeu.

Rep+

Editado Maio 15, 2015 por ZwhiteDog (veja o histórico de edições)

Sanieg · Maio 15, 2015

ZwhiteDog Bem o sistema de saga só se ativa com o comando !saga você esqueceu desse detalhe.

A linguagem utilizada no script do sistema de saga (vai saber que linguá é essa) você tem que procurar a função que aparece

no script do comando saga essa função fica em seu 050-function (se tiver ).

Não sei direito como funciona porém sei que é por uma storage você deve encontrar no script.

ZwhiteDog · Maio 16, 2015

Obrigado por min alerta. Isso msm para inicia a saga o player tem que falar !saga, mas eu já tenho esse comando pra inicia..

eu achei function que vc dis na lib.

function doPlayerGiveItem(cid, itemid, amount, subType)

local item = 0
if(isItemStackable(itemid)) then
item = doCreateItemEx(itemid, amount)
if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then
return false
end
else
for i = 1, amount do
item = doCreateItemEx(itemid, subType)
if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then
return false
end
end
end

return true
end

function doPlayerGiveItemContainer(cid, containerid, itemid, amount, subType)
for i = 1, amount do
local container = doCreateItemEx(containerid, 1)
for x = 1, getContainerCapById(containerid) do
doAddContainerItem(container, itemid, subType)
end

if(doPlayerAddItemEx(cid, container, true) ~= RETURNVALUE_NOERROR) then
return false
end
end

return true
end

function doPlayerTakeItem(cid, itemid, amount)
return getPlayerItemCount(cid, itemid) >= amount and doPlayerRemoveItem(cid, itemid, amount)
end

function doPlayerBuyItem(cid, itemid, count, cost, charges)
return doPlayerRemoveMoney(cid, cost) and doPlayerGiveItem(cid, itemid, count, charges)
end

function doPlayerBuyItemContainer(cid, containerid, itemid, count, cost, charges)
return doPlayerRemoveMoney(cid, cost) and doPlayerGiveItemContainer(cid, containerid, itemid, count, charges)
end

function doPlayerSellItem(cid, itemid, count, cost)
if(not doPlayerTakeItem(cid, itemid, count)) then
return false
end

if(not doPlayerAddMoney(cid, cost)) then
error('[doPlayerSellItem] Could not add money to: ' .. getPlayerName(cid) .. ' (' .. cost .. 'gp).')
end

return true
end

function doPlayerWithdrawMoney(cid, amount)
if(not getBooleanFromString(getConfigInfo('bankSystem'))) then
return false
end

local balance = getPlayerBalance(cid)
if(amount > balance or not doPlayerAddMoney(cid, amount)) then
return false
end

doPlayerSetBalance(cid, balance - amount)
return true
end

function doPlayerDepositMoney(cid, amount)
if(not getBooleanFromString(getConfigInfo('bankSystem'))) then
return false
end

if(not doPlayerRemoveMoney(cid, amount)) then
return false
end

doPlayerSetBalance(cid, getPlayerBalance(cid) + amount)
return true
end

function isPremium(cid)
return (isPlayer(cid) and (getPlayerPremiumDays(cid) > 0 or getBooleanFromString(getConfigInfo('freePremium'))))
end

function getMonthDayEnding(day)
if(day == "01" or day == "21" or day == "31") then
return "st"
elseif(day == "02" or day == "22") then
return "nd"
elseif(day == "03" or day == "23") then
return "rd"
end

return "th"
end

function getMonthString(m)
return os.date("%B", os.time{year = 1970, month = m, day = 1})
end

function getArticle(str)
return str:find("[AaEeIiOoUuYy]") == 1 and "an" or "a"
end

function isNumber(str)
return tonumber(str) ~= nil
end

function doPlayerAddAddons(cid, addon)
for i = 0, table.maxn(maleOutfits) do
doPlayerAddOutfit(cid, maleOutfits, addon)
end

for i = 0, table.maxn(femaleOutfits) do
doPlayerAddOutfit(cid, femaleOutfits, addon)
end
end

function doPlayerWithdrawAllMoney(cid)
return doPlayerWithdrawMoney(cid, getPlayerBalance(cid))
end

function doPlayerDepositAllMoney(cid)
return doPlayerDepositMoney(cid, getPlayerMoney(cid))
end

function doPlayerTransferAllMoneyTo(cid, target)
return doPlayerTransferMoneyTo(cid, target, getPlayerBalance(cid))
end

function playerExists(name)
return getPlayerGUIDByName(name) ~= 0
end

function getTibiaTime()
local minutes = getWorldTime()
local hours = 0
while (minutes > 60) do
hours = hours + 1
minutes = minutes - 60
end

return {hours = hours, minutes = minutes}
end

function doWriteLogFile(file, text)
local f = io.open(file, "a+")
if(not f) then
return false
end

f:write("[" .. os.date("%d/%m/%Y %H:%M:%S") .. "] " .. text .. "\n")
f:close()
return true
end

function getExperienceForLevel(lv)
lv = lv - 1
return ((50 * lv * lv * lv) - (150 * lv * lv) + (400 * lv)) / 3
end

function doMutePlayer(cid, time)
local condition = createConditionObject(CONDITION_MUTED)
setConditionParam(condition, CONDITION_PARAM_TICKS, time * 1000)
return doAddCondition(cid, condition)
end

function getPlayerGroupName(cid)
return getGroupInfo(getPlayerGroupId(cid)).name
end

function getPlayerVocationName(cid)
return getVocationInfo(getPlayerVocation(cid)).name
end

function getPromotedVocation(vid)
return getVocationInfo(vid).promotedVocation
end

function doPlayerRemovePremiumDays(cid, days)
return doPlayerAddPremiumDays(cid, -days)
end

function getPlayerMasterPos(cid)
return getTownTemplePosition(getPlayerTown(cid))
end

function getHouseOwner(houseId)
return getHouseInfo(houseId).owner
end

function getHouseName(houseId)
return getHouseInfo(houseId).name
end

function getHouseEntry(houseId)
return getHouseInfo(houseId).entry
end

function getHouseRent(houseId)
return getHouseInfo(houseId).rent
end

function getHousePrice(houseId)
return getHouseInfo(houseId).price
end

function getHouseTown(houseId)
return getHouseInfo(houseId).town
end

function getHouseTilesCount(houseId)
return getHouseInfo(houseId).tiles
end

function getItemNameById(itemid)
return getItemDescriptionsById(itemid).name
end

function getItemPluralNameById(itemid)
return getItemDescriptionsById(itemid).plural
end

function getItemArticleById(itemid)
return getItemDescriptionsById(itemid).article
end

function getItemName(uid)
return getItemDescriptions(uid).name
end

function getItemPluralName(uid)
return getItemDescriptions(uid).plural
end

function getItemArticle(uid)
return getItemDescriptions(uid).article
end

function getItemText(uid)
return getItemDescriptions(uid).text
end

function getItemSpecialDescription(uid)
return getItemDescriptions(uid).special
end

function getItemWriter(uid)
return getItemDescriptions(uid).writer
end

function getItemDate(uid)
return getItemDescriptions(uid).date
end

function getTilePzInfo(pos)
return getTileInfo(pos).protection
end

function getTileZoneInfo(pos)
local tmp = getTileInfo(pos)
if(tmp.pvp) then
return 2
end

if(tmp.nopvp) then
return 1
end

return 0
end

function doShutdown()
return doSetGameState(GAMESTATE_SHUTDOWN)
end

function doSummonCreature(name, pos, displayError)
local displayError, cid = displayError or true, doCreateMonster(name, pos, displayError)
if(not cid) then
cid = doCreateNpc(name, pos, displayError)
end

return cid
end

function getOnlinePlayers()
local tmp = getPlayersOnline()
local players = {}
for i, cid in ipairs(tmp) do
table.insert(players, getCreatureName(cid))
end

return players
end

function getPlayerByName(name)
local cid = getCreatureByName(name)
return isPlayer(cid) and cid or nil
end

function isPlayer(cid)
return isCreature(cid) and cid >= AUTOID_PLAYERS and cid < AUTOID_MONSTERS
end

function isPlayerGhost(cid)
if(not isPlayer(cid)) then
return false
end

return getCreatureCondition(cid, CONDITION_GAMEMASTER, GAMEMASTER_INVISIBLE) or getPlayerFlagValue(cid, PLAYERFLAG_CANNOTBESEEN)
end

function isMonster(cid)
return isCreature(cid) and cid >= AUTOID_MONSTERS and cid < AUTOID_NPCS
end

function isNpc(cid)
return isCreature(cid) and cid >= AUTOID_NPCS
end

function doPlayerSetExperienceRate(cid, value)
return doPlayerSetRate(cid, SKILL__LEVEL, value)
end

function doPlayerSetMagicRate(cid, value)
return doPlayerSetRate(cid, SKILL__MAGLEVEL, value)
end

function doPlayerAddLevel(cid, amount, round)
local experience, level = 0, getPlayerLevel(cid)
if(amount > 0) then
experience = getExperienceForLevel(level + amount) - (round and getPlayerExperience(cid) or getExperienceForLevel(level))
else
experience = -((round and getPlayerExperience(cid) or getExperienceForLevel(level)) - getExperienceForLevel(level + amount))
end

return doPlayerAddExperience(cid, experience)
end

function doPlayerAddMagLevel(cid, amount)
for i = 1, amount do
doPlayerAddSpentMana(cid, (getPlayerRequiredMana(cid, getPlayerMagLevel(cid, true) + 1) - getPlayerSpentMana(cid)) / getConfigInfo('rateMagic'))
end
return true
end

function doPlayerAddSkill(cid, skill, amount, round)
if(skill == SKILL__LEVEL) then
return doPlayerAddLevel(cid, amount, round)
elseif(skill == SKILL__MAGLEVEL) then
return doPlayerAddMagLevel(cid, amount)
end

return doPlayerAddSkillTry(cid, skill, (getPlayerRequiredSkillTries(cid, skill, getPlayerSkillLevel(cid, skill) + 1) - getPlayerSkillTries(cid, skill)) / getConfigInfo('rateSkill'))
end

function getPartyLeader(cid)
local party = getPartyMembers(cid)
if(type(party) ~= 'table') then
return 0
end

return party[1]
end

function isInParty(cid)
return type(getPartyMembers(cid)) == 'table'
end

function isPrivateChannel(channelId)
return channelId >= CHANNEL_PRIVATE
end

function doPlayerResetIdleTime(cid)
return doPlayerSetIdleTime(cid, 0)
end

function doBroadcastMessage(text, class)
local class = class or MESSAGE_STATUS_WARNING
if(type(class) == 'string') then
local className = MESSAGE_TYPES[class]
if(className == nil) then
return false
end

class = className
elseif(class < MESSAGE_FIRST or class > MESSAGE_LAST) then
return false
end

local players = getPlayersOnline()
for _, pid in ipairs(players) do
doPlayerSendTextMessage(pid, class, text)
end

print("> Broadcasted message: \"" .. text .. "\".")
return true
end

function doPlayerBroadcastMessage(cid, text, class, checkFlag, ghost)
local checkFlag, ghost, class = checkFlag or true, ghost or false, class or TALKTYPE_BROADCAST
if(checkFlag and not getPlayerFlagValue(cid, PLAYERFLAG_CANBROADCAST)) then
return false
end

if(type(class) == 'string') then
local className = TALKTYPE_TYPES[class]
if(className == nil) then
return false
end

class = className
elseif(class < TALKTYPE_FIRST or class > TALKTYPE_LAST) then
return false
end

local players = getPlayersOnline()
for _, pid in ipairs(players) do
doCreatureSay(cid, text, class, ghost, pid)
end

print("> " .. getCreatureName(cid) .. " broadcasted message: \"" .. text .. "\".")
return true
end

function getBooleanFromString(input)
local tmp = type(input)
if(tmp == 'boolean') then
return input
end

if(tmp == 'number') then
return input > 0
end

local str = string.lower(tostring(input))
return (str == "yes" or str == "true" or (tonumber(str) ~= nil and tonumber(str) > 0))
end

function doCopyItem(item, attributes)
local attributes = attributes or false

local ret = doCreateItemEx(item.itemid, item.type)
if(attributes) then
if(item.actionid > 0) then
doItemSetAttribute(ret, "aid", item.actionid)
end
end

if(isContainer(item.uid)) then
for i = (getContainerSize(item.uid) - 1), 0, -1 do
local tmp = getContainerItem(item.uid, i)
if(tmp.itemid > 0) then
doAddContainerItemEx(ret, doCopyItem(tmp, true).uid)
end
end
end

return getThing(ret)
end

function doRemoveThing(uid)
if(isCreature(uid)) then
return doRemoveCreature(uid)
end

return doRemoveItem(uid)
end

function setAttackFormula(combat, type, minl, maxl, minm, maxm, min, max)
local min, max = min or 0, max or 0
return setCombatFormula(combat, type, -1, 0, -1, 0, minl, maxl, minm, maxm, min, max)
end

function setHealingFormula(combat, type, minl, maxl, minm, maxm, min, max)
local min, max = min or 0, max or 0
return setCombatFormula(combat, type, 1, 0, 1, 0, minl, maxl, minm, maxm, min, max)
end

function doChangeTypeItem(uid, subtype)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

local subtype = subtype or 1
return doTransformItem(thing.uid, thing.itemid, subtype)
end

function doSetItemText(uid, text, writer, date)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

doItemSetAttribute(uid, "text", text)
if(writer ~= nil) then
doItemSetAttribute(uid, "writer", tostring(writer))
if(date ~= nil) then
doItemSetAttribute(uid, "date", tonumber(date))
end
end

return true
end

function getFluidSourceType(itemid)
local item = getItemInfo(itemid)
return item and item.fluidSource or false
end

function getDepotId(uid)
return getItemAttribute(uid, "depotid") or false
end

function getItemDescriptions(uid)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

local item = getItemInfo(thing.itemid)
return {
name = getItemAttribute(uid, "name") or item.name,
plural = getItemAttribute(uid, "pluralname") or item.plural,
article = getItemAttribute(uid, "article") or item.article,
special = getItemAttribute(uid, "description") or "",
text = getItemAttribute(uid, "text") or "",
writer = getItemAttribute(uid, "writer") or "",
date = getItemAttribute(uid, "date") or 0
}
end

function getItemWeightById(itemid, count, precision)
local item, count, precision = getItemInfo(itemid), count or 1, precision or false
if(not item) then
return false
end

if(count > 100) then
-- print a warning, as its impossible to have more than 100 stackable items without "cheating" the count
print('[Warning] getItemWeightById', 'Calculating weight for more than 100 items!')
end

local weight = item.weight * count
--[[if(precision) then
return weight
end

local t = string.explode(tostring(weight), ".")
if(table.maxn(t) == 2) then
return tonumber(t[1] .. "." .. string.sub(t[2], 1, 2))
end]]--

return weight
end

function getItemWeaponType(uid)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

return getItemInfo(thing.itemid).weaponType
end

function getItemRWInfo(uid)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

local item, flags = getItemInfo(thing.itemid), 0
if(item.readable) then
flags = 1
end

if(item.writable) then
flags = flags + 2
end

return flags
end

function getItemLevelDoor(itemid)
local item = getItemInfo(itemid)
return item and item.levelDoor or false
end

function isItemStackable(itemid)
local item = getItemInfo(itemid)
return item and item.stackable or false
end

function isItemRune(itemid)
local item = getItemInfo(itemid)
return item and item.clientCharges or false
end

function isItemDoor(itemid)
local item = getItemInfo(itemid)
return item and item.type == 5 or false
end

function isItemContainer(itemid)
local item = getItemInfo(itemid)
return item and item.group == 2 or false
end

function isItemFluidContainer(itemid)
local item = getItemInfo(itemid)
return item and item.group == 12 or false
end

function isItemMovable(itemid)
local item = getItemInfo(itemid)
return item and item.movable or false
end

function isCorpse(uid)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

local item = getItemInfo(thing.itemid)
return item and item.corpseType ~= 0 or false
end

function getContainerCapById(itemid)
local item = getItemInfo(itemid)
if(not item or item.group ~= 2) then
return false
end

return item.maxItems
end

function getMonsterAttackSpells(name)
local monster = getMonsterInfo(name)
return monster and monster.attacks or false
end

function getMonsterHealingSpells(name)
local monster = getMonsterInfo(name)
return monster and monster.defenses or false
end

function getMonsterLootList(name)
local monster = getMonsterInfo(name)
return monster and monster.loot or false
end

function getMonsterSummonList(name)
local monster = getMonsterInfo(name)
return monster and monster.summons or false
end

aqui uma script de uns da saga(Cell):

function onSaga(cid, target)

local bomb = {x=20, y=20, z=7, stackpos=253}

if isPlayer(target) then
doPlayerAddExp(target,500000)
setPlayerStorageValue(target, 8000, 52)
doTeleportThing(cid, bomb)
end
return true
end

aqui o monster:

<?xml version="1.0" encoding="UTF-8"?>

<monster name="Cell" nameDescription="a cell" race="blood" saga="52" experience="20000" speed="295" manacost="0">

<health now="5000000" max="5000000"/>

<look type="211" head="0" body="0" legs="0" feet="0" corpse="2898"/>

<targetchange interval="60000" chance="0"/>

<strategy attack="0" defense="0"/>

<flags>

<flag attackable="1"/>

<flag hostile="1"/>

<flag illusionable="0"/>

<flag convinceable="0"/>

<flag pushable="0"/>

<flag canpushitems="1"/>

<flag staticattack="50"/>

<flag lightlevel="0"/>

<flag lightcolor="0"/>

<flag targetdistance="1"/>

<flag runonhealth="0"/>

</flags>

<attacks>

<attack name="melee" interval="1000" min="-4500" max="-5500"/>

</attacks>

<immunities>

<immunity physical="0"/>

<immunity energy="0"/>

<immunity fire="0"/>

<immunity poison="0"/>

<immunity lifedrain="0"/>

<immunity paralyze="0"/>

<immunity outfit="0"/>

<immunity drunk="0"/>

<immunity invisible="0"/>

</immunities>

<loot>

</loot>

<script><event name="cell"/></script>

</monster>

ai os script que eu achei sobre saga. mas ainda n sei como coloca no meu server.

obs: no script primeiro é em creaturescripts note o setPlayerStorageValue(target, 8000, 52) e no monster race="blood" saga="52" experience="20000" os dois sao "52".

Rep+ Editado Maio 16, 2015 por ZwhiteDog (veja o histórico de edições)

Sanieg · Maio 16, 2015

Ainda possui aquele servidor com a saga system ? procure o 050-function dele

e poste aqui, que te explico como adiciona-lo em seu servidor, eu iria baixar um aqui e

pegar porém minha internet esta muito ruim hoje .

ZwhiteDog · Maio 16, 2015

Então amigo é aquele que eu respondir ali em cima o primeiro spoiler, é o 050-function. mas qualquer coisa olha aqui dnv:

function doPlayerGiveItem(cid, itemid, amount, subType)

local item = 0
if(isItemStackable(itemid)) then
item = doCreateItemEx(itemid, amount)
if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then
return false
end
else
for i = 1, amount do
item = doCreateItemEx(itemid, subType)
if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then
return false
end
end
end

return true
end

function doPlayerGiveItemContainer(cid, containerid, itemid, amount, subType)
for i = 1, amount do
local container = doCreateItemEx(containerid, 1)
for x = 1, getContainerCapById(containerid) do
doAddContainerItem(container, itemid, subType)
end

if(doPlayerAddItemEx(cid, container, true) ~= RETURNVALUE_NOERROR) then
return false
end
end

return true
end

function doPlayerTakeItem(cid, itemid, amount)
return getPlayerItemCount(cid, itemid) >= amount and doPlayerRemoveItem(cid, itemid, amount)
end

function doPlayerBuyItem(cid, itemid, count, cost, charges)
return doPlayerRemoveMoney(cid, cost) and doPlayerGiveItem(cid, itemid, count, charges)
end

function doPlayerBuyItemContainer(cid, containerid, itemid, count, cost, charges)
return doPlayerRemoveMoney(cid, cost) and doPlayerGiveItemContainer(cid, containerid, itemid, count, charges)
end

function doPlayerSellItem(cid, itemid, count, cost)
if(not doPlayerTakeItem(cid, itemid, count)) then
return false
end

if(not doPlayerAddMoney(cid, cost)) then
error('[doPlayerSellItem] Could not add money to: ' .. getPlayerName(cid) .. ' (' .. cost .. 'gp).')
end

return true
end

function doPlayerWithdrawMoney(cid, amount)
if(not getBooleanFromString(getConfigInfo('bankSystem'))) then
return false
end

local balance = getPlayerBalance(cid)
if(amount > balance or not doPlayerAddMoney(cid, amount)) then
return false
end

doPlayerSetBalance(cid, balance - amount)
return true
end

function doPlayerDepositMoney(cid, amount)
if(not getBooleanFromString(getConfigInfo('bankSystem'))) then
return false
end

if(not doPlayerRemoveMoney(cid, amount)) then
return false
end

doPlayerSetBalance(cid, getPlayerBalance(cid) + amount)
return true
end

function isPremium(cid)
return (isPlayer(cid) and (getPlayerPremiumDays(cid) > 0 or getBooleanFromString(getConfigInfo('freePremium'))))
end

function getMonthDayEnding(day)
if(day == "01" or day == "21" or day == "31") then
return "st"
elseif(day == "02" or day == "22") then
return "nd"
elseif(day == "03" or day == "23") then
return "rd"
end

return "th"
end

function getMonthString(m)
return os.date("%B", os.time{year = 1970, month = m, day = 1})
end

function getArticle(str)
return str:find("[AaEeIiOoUuYy]") == 1 and "an" or "a"
end

function isNumber(str)
return tonumber(str) ~= nil
end

function doPlayerAddAddons(cid, addon)
for i = 0, table.maxn(maleOutfits) do
doPlayerAddOutfit(cid, maleOutfits, addon)
end

for i = 0, table.maxn(femaleOutfits) do
doPlayerAddOutfit(cid, femaleOutfits, addon)
end
end

function doPlayerWithdrawAllMoney(cid)
return doPlayerWithdrawMoney(cid, getPlayerBalance(cid))
end

function doPlayerDepositAllMoney(cid)
return doPlayerDepositMoney(cid, getPlayerMoney(cid))
end

function doPlayerTransferAllMoneyTo(cid, target)
return doPlayerTransferMoneyTo(cid, target, getPlayerBalance(cid))
end

function playerExists(name)
return getPlayerGUIDByName(name) ~= 0
end

function getTibiaTime()
local minutes = getWorldTime()
local hours = 0
while (minutes > 60) do
hours = hours + 1
minutes = minutes - 60
end

return {hours = hours, minutes = minutes}
end

function doWriteLogFile(file, text)
local f = io.open(file, "a+")
if(not f) then
return false
end

f:write("[" .. os.date("%d/%m/%Y %H:%M:%S") .. "] " .. text .. "\n")
f:close()
return true
end

function getExperienceForLevel(lv)
lv = lv - 1
return ((50 * lv * lv * lv) - (150 * lv * lv) + (400 * lv)) / 3
end

function doMutePlayer(cid, time)
local condition = createConditionObject(CONDITION_MUTED)
setConditionParam(condition, CONDITION_PARAM_TICKS, time * 1000)
return doAddCondition(cid, condition)
end

function getPlayerGroupName(cid)
return getGroupInfo(getPlayerGroupId(cid)).name
end

function getPlayerVocationName(cid)
return getVocationInfo(getPlayerVocation(cid)).name
end

function getPromotedVocation(vid)
return getVocationInfo(vid).promotedVocation
end

function doPlayerRemovePremiumDays(cid, days)
return doPlayerAddPremiumDays(cid, -days)
end

function getPlayerMasterPos(cid)
return getTownTemplePosition(getPlayerTown(cid))
end

function getHouseOwner(houseId)
return getHouseInfo(houseId).owner
end

function getHouseName(houseId)
return getHouseInfo(houseId).name
end

function getHouseEntry(houseId)
return getHouseInfo(houseId).entry
end

function getHouseRent(houseId)
return getHouseInfo(houseId).rent
end

function getHousePrice(houseId)
return getHouseInfo(houseId).price
end

function getHouseTown(houseId)
return getHouseInfo(houseId).town
end

function getHouseTilesCount(houseId)
return getHouseInfo(houseId).tiles
end

function getItemNameById(itemid)
return getItemDescriptionsById(itemid).name
end

function getItemPluralNameById(itemid)
return getItemDescriptionsById(itemid).plural
end

function getItemArticleById(itemid)
return getItemDescriptionsById(itemid).article
end

function getItemName(uid)
return getItemDescriptions(uid).name
end

function getItemPluralName(uid)
return getItemDescriptions(uid).plural
end

function getItemArticle(uid)
return getItemDescriptions(uid).article
end

function getItemText(uid)
return getItemDescriptions(uid).text
end

function getItemSpecialDescription(uid)
return getItemDescriptions(uid).special
end

function getItemWriter(uid)
return getItemDescriptions(uid).writer
end

function getItemDate(uid)
return getItemDescriptions(uid).date
end

function getTilePzInfo(pos)
return getTileInfo(pos).protection
end

function getTileZoneInfo(pos)
local tmp = getTileInfo(pos)
if(tmp.pvp) then
return 2
end

if(tmp.nopvp) then
return 1
end

return 0
end

function doShutdown()
return doSetGameState(GAMESTATE_SHUTDOWN)
end

function doSummonCreature(name, pos, displayError)
local displayError, cid = displayError or true, doCreateMonster(name, pos, displayError)
if(not cid) then
cid = doCreateNpc(name, pos, displayError)
end

return cid
end

function getOnlinePlayers()
local tmp = getPlayersOnline()
local players = {}
for i, cid in ipairs(tmp) do
table.insert(players, getCreatureName(cid))
end

return players
end

function getPlayerByName(name)
local cid = getCreatureByName(name)
return isPlayer(cid) and cid or nil
end

function isPlayer(cid)
return isCreature(cid) and cid >= AUTOID_PLAYERS and cid < AUTOID_MONSTERS
end

function isPlayerGhost(cid)
if(not isPlayer(cid)) then
return false
end

return getCreatureCondition(cid, CONDITION_GAMEMASTER, GAMEMASTER_INVISIBLE) or getPlayerFlagValue(cid, PLAYERFLAG_CANNOTBESEEN)
end

function isMonster(cid)
return isCreature(cid) and cid >= AUTOID_MONSTERS and cid < AUTOID_NPCS
end

function isNpc(cid)
return isCreature(cid) and cid >= AUTOID_NPCS
end

function doPlayerSetExperienceRate(cid, value)
return doPlayerSetRate(cid, SKILL__LEVEL, value)
end

function doPlayerSetMagicRate(cid, value)
return doPlayerSetRate(cid, SKILL__MAGLEVEL, value)
end

function doPlayerAddLevel(cid, amount, round)
local experience, level = 0, getPlayerLevel(cid)
if(amount > 0) then
experience = getExperienceForLevel(level + amount) - (round and getPlayerExperience(cid) or getExperienceForLevel(level))
else
experience = -((round and getPlayerExperience(cid) or getExperienceForLevel(level)) - getExperienceForLevel(level + amount))
end

return doPlayerAddExperience(cid, experience)
end

function doPlayerAddMagLevel(cid, amount)
for i = 1, amount do
doPlayerAddSpentMana(cid, (getPlayerRequiredMana(cid, getPlayerMagLevel(cid, true) + 1) - getPlayerSpentMana(cid)) / getConfigInfo('rateMagic'))
end
return true
end

function doPlayerAddSkill(cid, skill, amount, round)
if(skill == SKILL__LEVEL) then
return doPlayerAddLevel(cid, amount, round)
elseif(skill == SKILL__MAGLEVEL) then
return doPlayerAddMagLevel(cid, amount)
end

return doPlayerAddSkillTry(cid, skill, (getPlayerRequiredSkillTries(cid, skill, getPlayerSkillLevel(cid, skill) + 1) - getPlayerSkillTries(cid, skill)) / getConfigInfo('rateSkill'))
end

function getPartyLeader(cid)
local party = getPartyMembers(cid)
if(type(party) ~= 'table') then
return 0
end

return party[1]
end

function isInParty(cid)
return type(getPartyMembers(cid)) == 'table'
end

function isPrivateChannel(channelId)
return channelId >= CHANNEL_PRIVATE
end

function doPlayerResetIdleTime(cid)
return doPlayerSetIdleTime(cid, 0)
end

function doBroadcastMessage(text, class)
local class = class or MESSAGE_STATUS_WARNING
if(type(class) == 'string') then
local className = MESSAGE_TYPES[class]
if(className == nil) then
return false
end

class = className
elseif(class < MESSAGE_FIRST or class > MESSAGE_LAST) then
return false
end

local players = getPlayersOnline()
for _, pid in ipairs(players) do
doPlayerSendTextMessage(pid, class, text)
end

print("> Broadcasted message: \"" .. text .. "\".")
return true
end

function doPlayerBroadcastMessage(cid, text, class, checkFlag, ghost)
local checkFlag, ghost, class = checkFlag or true, ghost or false, class or TALKTYPE_BROADCAST
if(checkFlag and not getPlayerFlagValue(cid, PLAYERFLAG_CANBROADCAST)) then
return false
end

if(type(class) == 'string') then
local className = TALKTYPE_TYPES[class]
if(className == nil) then
return false
end

class = className
elseif(class < TALKTYPE_FIRST or class > TALKTYPE_LAST) then
return false
end

local players = getPlayersOnline()
for _, pid in ipairs(players) do
doCreatureSay(cid, text, class, ghost, pid)
end

print("> " .. getCreatureName(cid) .. " broadcasted message: \"" .. text .. "\".")
return true
end

function getBooleanFromString(input)
local tmp = type(input)
if(tmp == 'boolean') then
return input
end

if(tmp == 'number') then
return input > 0
end

local str = string.lower(tostring(input))
return (str == "yes" or str == "true" or (tonumber(str) ~= nil and tonumber(str) > 0))
end

function doCopyItem(item, attributes)
local attributes = attributes or false

local ret = doCreateItemEx(item.itemid, item.type)
if(attributes) then
if(item.actionid > 0) then
doItemSetAttribute(ret, "aid", item.actionid)
end
end

if(isContainer(item.uid)) then
for i = (getContainerSize(item.uid) - 1), 0, -1 do
local tmp = getContainerItem(item.uid, i)
if(tmp.itemid > 0) then
doAddContainerItemEx(ret, doCopyItem(tmp, true).uid)
end
end
end

return getThing(ret)
end

function doRemoveThing(uid)
if(isCreature(uid)) then
return doRemoveCreature(uid)
end

return doRemoveItem(uid)
end

function setAttackFormula(combat, type, minl, maxl, minm, maxm, min, max)
local min, max = min or 0, max or 0
return setCombatFormula(combat, type, -1, 0, -1, 0, minl, maxl, minm, maxm, min, max)
end

function setHealingFormula(combat, type, minl, maxl, minm, maxm, min, max)
local min, max = min or 0, max or 0
return setCombatFormula(combat, type, 1, 0, 1, 0, minl, maxl, minm, maxm, min, max)
end

function doChangeTypeItem(uid, subtype)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

local subtype = subtype or 1
return doTransformItem(thing.uid, thing.itemid, subtype)
end

function doSetItemText(uid, text, writer, date)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

doItemSetAttribute(uid, "text", text)
if(writer ~= nil) then
doItemSetAttribute(uid, "writer", tostring(writer))
if(date ~= nil) then
doItemSetAttribute(uid, "date", tonumber(date))
end
end

return true
end

function getFluidSourceType(itemid)
local item = getItemInfo(itemid)
return item and item.fluidSource or false
end

function getDepotId(uid)
return getItemAttribute(uid, "depotid") or false
end

function getItemDescriptions(uid)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

local item = getItemInfo(thing.itemid)
return {
name = getItemAttribute(uid, "name") or item.name,
plural = getItemAttribute(uid, "pluralname") or item.plural,
article = getItemAttribute(uid, "article") or item.article,
special = getItemAttribute(uid, "description") or "",
text = getItemAttribute(uid, "text") or "",
writer = getItemAttribute(uid, "writer") or "",
date = getItemAttribute(uid, "date") or 0
}
end

function getItemWeightById(itemid, count, precision)
local item, count, precision = getItemInfo(itemid), count or 1, precision or false
if(not item) then
return false
end

if(count > 100) then
-- print a warning, as its impossible to have more than 100 stackable items without "cheating" the count
print('[Warning] getItemWeightById', 'Calculating weight for more than 100 items!')
end

local weight = item.weight * count
--[[if(precision) then
return weight
end

local t = string.explode(tostring(weight), ".")
if(table.maxn(t) == 2) then
return tonumber(t[1] .. "." .. string.sub(t[2], 1, 2))
end]]--

return weight
end

function getItemWeaponType(uid)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

return getItemInfo(thing.itemid).weaponType
end

function getItemRWInfo(uid)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

local item, flags = getItemInfo(thing.itemid), 0
if(item.readable) then
flags = 1
end

if(item.writable) then
flags = flags + 2
end

return flags
end

function getItemLevelDoor(itemid)
local item = getItemInfo(itemid)
return item and item.levelDoor or false
end

function isItemStackable(itemid)
local item = getItemInfo(itemid)
return item and item.stackable or false
end

function isItemRune(itemid)
local item = getItemInfo(itemid)
return item and item.clientCharges or false
end

function isItemDoor(itemid)
local item = getItemInfo(itemid)
return item and item.type == 5 or false
end

function isItemContainer(itemid)
local item = getItemInfo(itemid)
return item and item.group == 2 or false
end

function isItemFluidContainer(itemid)
local item = getItemInfo(itemid)
return item and item.group == 12 or false
end

function isItemMovable(itemid)
local item = getItemInfo(itemid)
return item and item.movable or false
end

function isCorpse(uid)
local thing = getThing(uid)
if(thing.itemid < 100) then
return false
end

local item = getItemInfo(thing.itemid)
return item and item.corpseType ~= 0 or false
end

function getContainerCapById(itemid)
local item = getItemInfo(itemid)
if(not item or item.group ~= 2) then
return false
end

return item.maxItems
end

function getMonsterAttackSpells(name)
local monster = getMonsterInfo(name)
return monster and monster.attacks or false
end

function getMonsterHealingSpells(name)
local monster = getMonsterInfo(name)
return monster and monster.defenses or false
end

function getMonsterLootList(name)
local monster = getMonsterInfo(name)
return monster and monster.loot or false
end

function getMonsterSummonList(name)
local monster = getMonsterInfo(name)
return monster and monster.summons or false
end

Editado Maio 16, 2015 por ZwhiteDog (veja o histórico de edições)

Sanieg · Maio 16, 2015

Qual o script do comando !saga ?? ... Só para checar uma coisa

ZwhiteDog · Maio 17, 2015

ai é o comando !saga:

local saga = {

[0] = {msg = "Você não tem nenhuma saga"},

[1] = {msg = "Vá até o mizuki e fale com ele!", storage = 19881},

[2] = {msg = "Vá para a floresta proibida e fale com o mizuki!", storage = 19896},

[3] = {msg = "Vá até o construtor que fica ao oeste de konoha ", storage = 89745},

[4] = {msg = "!", storage = 19897},

[5] = {msg = "!", storage = 19898},

[6] = {msg = "!", storage = 19899},

[7] = {msg = "!", storage = 19895}

}

function onSay(cid, words, param)

if getPlayerStorageValue(cid, saga[7].storage) == 1 then

doPlayerPopupFYI(cid, saga[7].msg)

elseif getPlayerStorageValue(cid, saga[6].storage) == 1 then

doPlayerPopupFYI(cid, saga[6].msg)

elseif getPlayerStorageValue(cid, saga[5].storage) == 1 then

doPlayerPopupFYI(cid, saga[5].msg)

elseif getPlayerStorageValue(cid, saga[4].storage) == 1 then

doPlayerPopupFYI(cid, saga[4].msg)

elseif getPlayerStorageValue(cid, saga[3].storage) == 1 then

doPlayerPopupFYI(cid, saga[3].msg)

elseif getPlayerStorageValue(cid, saga[2].storage) == 1 then

doPlayerPopupFYI(cid, saga[2].msg)

elseif getPlayerStorageValue(cid, saga[1].storage) == 1 then

doPlayerPopupFYI(cid, saga[1].msg)

else

doPlayerPopupFYI(cid, saga[0].msg)

end

return true

end

mas acho que isso é so pra alerta o player pra onde tem que ir.

o que eu dis do suicide é esse:

local monster = 'Demon' -- name

local stor = 8000 -- storage

function onCombat(cid, target)

if (isPlayer(cid)) then

if (isMonster(target) and (getCreatureName(target) == monster and (getPlayerStorageValue(cid, stor) == 1 or 3))) then return false end

elseif (isMonster(cid)) then

if (isPlayer(target) and (getPlayerStorageValue(target, stor) == 1 or 3)) then return false end

end

return true

end

function onKill(cid, target)

if isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) == 2 then

setPlayerStorageValue(cid, stor, 3)

end

return true

end

registerCreatureEvent(cid, "SagaCombat")

registerCreatureEvent(cid, "SagaKill")

funcionou bem, mas o monster n fica parado. ele corre atras do player mas n hita e niguem pode mata, so quando fala com npc ai ele hita e pode morre.

Editado Maio 17, 2015 por ZwhiteDog (veja o histórico de edições)

Sanieg · Maio 17, 2015

você pode colocar speed="0" no monster ou se preferir:

registerCreatureEvent(cid, "SagaCombat")
registerCreatureEvent(cid, "SagaKill")
registerCreatureEvent(cid, "SagaStats")

<event type="combat" name="SagaCombat" event="script" value="saga.lua"/>
<event type="kill" name="SagaKill" event="script" value="saga.lua"/>
<event type="statschange" name="SagaStats" event="script" value="saga.lua"/>

local monster = 'Demon' -- name
local stor = 8000 -- storage


function onCombat(cid, target)
if (isPlayer(cid)) then
if (isMonster(target) and (getCreatureName(target) == monster and (getPlayerStorageValue(cid, stor) == 1 or 3))) then return false end
elseif (isMonster(cid)) then
if (isPlayer(target) and (getPlayerStorageValue(target, stor) == 1 or 3)) then return false end
end
return true
end
function onStatsChange(cid, target)
if isPlayer(cid) then
elseif isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) < 3 then
setCreatureNoMove(target, 1)
end
end
return true
end
function onKill(cid, target)
if getPlayerStorageValue(cid, stor) == 3 then
return true
end
if isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) == 2 then
setPlayerStorageValue(cid, stor, 3)
end
return true
end

Editado Maio 17, 2015 por Vinicius Xxgamexx (veja o histórico de edições)

ZwhiteDog · Maio 17, 2015

1) Se eu coloca speed 0 como va ataca eu quando estive o storage.

2) Desse jeito vai acontece óq?

Sanieg · Maio 17, 2015

Com speed 0 ele não ira se mover, a segunda forma ele não ira se mover se o player ainda não tiver feito essa saga...

Vou dar uma editada só para ele não fazer a saga novamente.

ZwhiteDog · Maio 17, 2015

deu esse erro no console:

[17/05/2015 11:29:47] [Error - LuaScriptInterface::loadFile] data/creaturescripts/scripts/sagas/cell.lua:20: '<eof>' expected near 'end'

[17/05/2015 11:29:47] [Warning - Event::loadScript] Cannot load script (data/creaturescripts/scripts/sagas/cel.lua)

[17/05/2015 11:29:47] data/creaturescripts/scripts/sagas/cell.lua:20: '<eof>' expected near 'end'

[17/05/2015 11:29:47] [Error - LuaScriptInterface::loadFile] data/creaturescripts/scripts/sagas/cell.lua:20: '<eof>' expected near 'end'

[17/05/2015 11:29:47] [Warning - Event::loadScript] Cannot load script (data/creaturescripts/scripts/sagas/cell.lua)

[17/05/2015 11:29:47] data/creaturescripts/scripts/sagas/cell.lua:20: '<eof>' expected near 'end'

[17/05/2015 11:29:47] [Error - LuaScriptInterface::loadFile] data/creaturescripts/scripts/sagas/cell.lua:20: '<eof>' expected near 'end'

[17/05/2015 11:29:47] [Warning - Event::loadScript] Cannot load script (data/creaturescripts/scripts/sagas/cell.lua)

[17/05/2015 11:29:47] data/creaturescripts/scripts/sagas/cell.lua:20: '<eof>' expected near 'end'

Sanieg · Maio 17, 2015

local monster = 'Demon' -- name
local stor = 8000 -- storage
function onStatsChange(cid, target)
if isPlayer(cid) then
elseif isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) < 3 then
setCreatureNoMove(target, 1)
end
end
return true
end
function onKill(cid, target)
if getPlayerStorageValue(cid, stor) == 3 then
end
return true
end
if isMonster(target) and getCreatureName(target) == monster and getPlayerStorageValue(cid, stor) == 2 then
setPlayerStorageValue(cid, stor, 3)
end
return true
end

Editado Maio 17, 2015 por Vinicius Xxgamexx (veja o histórico de edições)

ZwhiteDog · Maio 17, 2015

msm erro amigo?: