PacketMan
Banned User
- Joined
- Apr 8, 2010
- Messages
- 48
- Reaction score
- 0
Made it a long time ago, however i don't knwo if it work's.
Actions.Xml
bigboil.lua
inqchests.lua
pirateghost.lua
thecount.lua
Actions.Xml
Code:
<!-- InquisitonQuest -->
<action uniqueid="1300" event="script" value="inq/inqchests.lua" />
<action uniqueid="1301" event="script" value="inq/inqchests.lua" />
<action uniqueid="1302" event="script" value="inq/inqchests.lua" />
<action uniqueid="1303" event="script" value="inq/inqchests.lua" />
<action uniqueid="1304" event="script" value="inq/inqchests.lua" />
<action uniqueid="1305" event="script" value="inq/inqchests.lua" />
<action uniqueid="1306" event="script" value="inq/inqchests.lua" />
<action uniqueid="1307" event="script" value="inq/inqchests.lua" />
<action uniqueid="1308" event="script" value="inq/inqchests.lua" />
<action uniqueid="12344" event="script" value="inq/teleports.lua" />
<!-- Inquisiton -->
<action uniqueid="64446" event="script" value="thecount.lua"/>
<action actionid="18898" event="script" value="bigboil.lua" />
<action actionid="18899" event="script" value="pirateghost.lua" />
bigboil.lua
Code:
function onUse(cid, item, fromPosition, itemEx, toPosition)
if item.itemid == 2006 and item.actionid == 6669 then
if getPlayerStorageValue(cid, 1889) == 20 then
if fromPosition.x == CONTAINER_POSITION then
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_EXPLOSIONHIT)
doPlayerRemoveItem(cid, 2006, 1)
setPlayerStorageValue(cid, 1889, 21)
else
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need hold the item on you.")
end
else
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You arent a inquisition member")
end
end
return TRUE
end
inqchests.lua
Code:
function onUse(cid, item, fromPosition, itemEx, toPosition)
if item.uid == 1300 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found robe of the underworld.")
doPlayerAddItem(cid,8890,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 1301 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Spellbook of Dark Mysteries.")
doPlayerAddItem(cid,8918,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 1302 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Fireborn Giant Armor.")
doPlayerAddItem(cid,8881,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 1303 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Master Archer's Armor.")
doPlayerAddItem(cid,8888,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 1304 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Royal Crossbow.")
doPlayerAddItem(cid,8851,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 1305 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Hellforged Axe.")
doPlayerAddItem(cid,8924,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 1306 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Obsidian Truncheon.")
doPlayerAddItem(cid,8928,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 1307 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Emerald Sword.")
doPlayerAddItem(cid,8930,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 1308 then
queststatus = getPlayerStorageValue(cid,6076)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Warsinger Bow.")
doPlayerAddItem(cid,8854,1)
setPlayerStorageValue(cid,6076,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
end
return 1
end
pirateghost.lua
Code:
local function Eliminar()
local piedra2 = {x = 32258, y = 32791, z = 7, stackpos = 1}
local piedrapos = getThingfromPos(piedra2)
doRemoveItem(piedrapos.uid, 1)
end
function onUse(cid, item, fromPosition, itemEx, toPosition)
local piedra = {x = 32258, y = 32791, z = 7}
if item.itemid == 2006 and item.actionid == 18899 then
if getPlayerStorageValue(cid, 1889) == 26 then
if fromPosition.x == CONTAINER_POSITION then
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_EXPLOSIONHIT)
doSummonCreature("Pirate Ghost", { x =32255, y =32791, z =7})
setPlayerStorageValue(cid, 1889, 27)
doPlayerRemoveItem(cid, 2006, 1)
doCreateItem(1304, 1, piedra)
addEvent(Eliminar, 20*1000)
else
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need hold the item on you.")
end
else
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You arent a inquisition member")
end
end
return TRUE
end
thecount.lua
Code:
function onUse(cid, item, fromPosition, itemEx, toPosition)
local removals =
{
{x = 32779, y = 31977, z = 9, stackpos = 255},
{x = 32777, y = 31982, z = 9, stackpos = 255},
{x = 32781, y = 31982, z = 9, stackpos = 255}
}
ret = false
if getPlayerStorageValue(cid, 1889) == 22 then
for i = 1, #removals do
local amuletos = getThingfromPos(removals[i])
if amuletos.itemid == 2199 then
doRemoveItem(getThingfromPos(removals[i]).uid, 1)
doCreateMonster("The Count", {x = 32780, y = 31980, z = 9})
else
ret = true
end
end
if ret then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You need to put the amulets in the altars.")
end
else
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You aren't a member of the inquisition.")
end
return TRUE
end