Skrypt na anihilator

[Gangstabanga]

witam. szukam skrypt na anihilator do skrzynek questowych, ?e mo?na odebra? tylko 1 nagrode a nie wszystkie z g?ry dzi?kuje

 

[Unnamed]

Odp: Skrypt na anihilator

szuka?am troch? i tylko to znalaz?am spr?buj
No wi?c tak:

actions.xml

<action itemid="1740" script="quests/system.lua"/>
<action fromid="1747" toid="1749" script="quests/system.lua"/>

w folderze quests zrobi? plik o rozszerzeniu lua oraz nazwa? go system i do niego wklei?

local specialQuests = {
	[2001] = 30015 --Annihilator
}
local questsExperience = {
	[30015] = 10000
}
function onUse(cid, item, fromPosition, itemEx, toPosition)
	local storage = specialQuests[item.actionid]
	if(not storage) then
		storage = item.uid
		if(storage > 65535) then
			return false
		end
	end
	if(getPlayerStorageValue(cid, storage) > 0) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is empty.")
		return true
	end
	local items = {}
	local reward = 0
	local size = isContainer(item.uid) and getContainerSize(item.uid) or 0
	if(size == 0) then
		reward = doCopyItem(item, false)
	else
		for i = 0, size do
			local tmp = getContainerItem(item.uid, i)
			if(tmp.itemid > 0) then
				table.insert(items, tmp)
			end
		end
	end
	size = table.maxn(items)
	if(size == 1) then
		reward = doCopyItem(items[1], true)
	end
	local result = ""
	if(reward ~= 0) then
		local ret = getItemDescriptions(reward.uid)
		if(reward.type > 0 and isItemRune(reward.itemid)) then
			result = reward.type .. " charges " .. ret.name
		elseif(reward.type > 0 and isItemStackable(reward.itemid)) then
			result = reward.type .. " " .. ret.plural
		else
			result = ret.article .. " " .. ret.name
		end
	else
		if(size > 20) then
			reward = doCopyItem(item, false)
		elseif(size > 8) then
			reward = getThing(doCreateItemEx(1988, 1))
		else
			reward = getThing(doCreateItemEx(1987, 1))
		end
		for i = 1, size do
			local tmp = doCopyItem(items[i], true)
			if(doAddContainerItemEx(reward.uid, tmp.uid) ~= RETURNVALUE_NOERROR) then
				print("[Warning] QuestSystem:", "Could not add quest reward")
			else
				local ret = ", "
				if(i == 2) then
					ret = " and "
				elseif(i == 1) then
					ret = ""
				end
				result = result .. ret
				ret = getItemDescriptions(tmp.uid)
				if(tmp.type > 0 and isItemRune(tmp.itemid)) then
					result = result .. tmp.type .. " charges " .. ret.name
				elseif(tmp.type > 0 and isItemStackable(tmp.itemid)) then
					result = result .. tmp.type .. " " .. ret.plural
				else
					result = result .. ret.article .. " " .. ret.name
				end
			end
		end
	end
	if(doPlayerAddItemEx(cid, reward.uid, false) ~= RETURNVALUE_NOERROR) then
		result = "You have found a reward weighing " .. getItemWeight(reward.uid) .. " oz. It is too heavy or you have not enough space."
	else
		result = "You have found " .. result .. "."
		setPlayerStorageValue(cid, storage, 1)
		if(questsExperience[storage] ~= nil) then
			doPlayerAddExp(cid, questsExperience[storage])
			doSendAnimatedText(getCreaturePosition(cid), questsExperience[storage], TEXTCOLOR_WHITE)
		end
	end
	doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, result)
	return true
end

 

[Xart Irok]

Odp: Skrypt na anihilator

Masz tu z mojego silnika:

function onUse(cid, item, fromPosition, itemEx, toPosition)
	if item.uid == 5010 then
		queststatus = getPlayerStorageValue(cid,100)
		if queststatus == -1 then
			doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"You have found a demon armor.")
			doPlayerAddItem(cid,2494,1)
			setPlayerStorageValue(cid,100,1)
		else
			doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"It is empty.")
		end
	end
	if item.uid == 5011 then
		queststatus = getPlayerStorageValue(cid,100)
		if queststatus ~= 1 then
			doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"You have found a magic sword.")
			doPlayerAddItem(cid,2400,1)
			setPlayerStorageValue(cid,100,1)
		else
			doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"It is empty.")
		end
	end
	if item.uid == 5012 then
		queststatus = getPlayerStorageValue(cid,100)
		if queststatus ~= 1 then
			doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"You have found a stonecutter axe.")
			doPlayerAddItem(cid,2431,1)
			setPlayerStorageValue(cid,100,1)
		else
			doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"It is empty.")
		end
	end
	if item.uid == 5013 then
		queststatus = getPlayerStorageValue(cid,100)
		if queststatus ~= 1 then
			doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"You have found a Thunder Hammer.")
			doPlayerAddItem(cid,2421,1)
			setPlayerStorageValue(cid,100,1)
		else
			doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"It is empty.")
		end
	end
return 1
end

 

[VanTiger]

Odp: Skrypt na anihilator

witam wszystkich graczy;D mam pewien problem czy mozliwe jest pomyslne wykonanie questu anihilator room 104 lvl knight skill 74 shielding eq: dsm, rh, crown legs. tower shield. prosze o pomoc Dzieki