Action Desert Quest Switch

[Cykotitan]

Updated, red bold text (added doRemoveItem).

 

[chojrak]

@Cyko:
I know it should be:

getTileItemById

;p

 

[frankfarmer]

Updated, red bold text (added doRemoveItem).

The script works. But i can use the lever, even if i don't have the correct items or vocations.

I went there with my gamemaster, pulled the lever and got teleported.

Maybe a message "You are not doing this right.."

and actually the items should have a purpose!

 

[Cykotitan]

-.-"

[B]-- Script by Colandus[/B]

local config = {
	-- level needed to make the quest
	level = 20,
	-- if players should be able to do the quest unlimited amount of times (not conflicting quest rewards)
	redo = {
		status = true, -- true = unlimited, false = once
		storageValue = 4535 -- only if status is false this will be used
	},
	-- vocation requirement, positions and item configuration
	{
		vocations = {1, 5},
		itemId = 2175,
		playerPos = {x=32677, y=32089, z=8},
		newPos = {x=32671, y=32069, z=8},
		itemPos = {x=32679, y=32089, z=8}
	},
	{
		vocations = {2, 6},
		itemId = 2674,
		playerPos = {x=32669, y=32089, z=8},
		newPos = {x=32672, y=32069, z=8},
		itemPos = {x=32667, y=32089, z=8}
	},
	{
		vocations = {3, 7},
		itemId = 2455,
		playerPos = {x=32673, y=32085, z=8},
		newPos = {x=32671, y=32070, z=8},
		itemPos = {x=32673, y=32083, z=8}
	},
	{
		vocations = {4, 8},
		itemId = 2376,
		playerPos = {x=32673, y=32093, z=8},
		newPos = {x=32672, y=32070, z=8},
		itemPos = {x=32673, y=32094, z=8}
	}
}
function onUse(cid)
	local players = {}
	for _, v in ipairs(config) do
		local player = getTopCreature(v.playerPos).uid
		if isPlayer(player) == FALSE then
			return doPlayerSendCancel(cid, "There are not enough players.")
		elseif getPlayerLevel(player) < config.level then
			players.level = true
		elseif isInArray(v.vocations, getPlayerVocation(player)) == FALSE then
			players.vocation = true
		elseif config.redo.status and getPlayerStorageValue(cid, config.redo.storageValue) ~= TRUE then
			players.done = true
		else
			if getTileItemById(v.itemPos, v.itemId) < 1 then
				players.item = true
			else
				table.insert(players, player)
			end
		end
	end
	if players.level then
		doPlayerSendCancel(cid, "All players need to be level " .. config.level .. " or above.")
	elseif players.vocation then
		doPlayerSendCancel(cid, "All players must stand on the correct tiles.")
	elseif players.done then
		doPlayerSendCancel(cid, "A player in your team has already done this quest.")
	elseif players.item then
		doPlayerSendCancel(cid, "All items must be on the correct positions.")
	else
		for k, player in ipairs(players) do
			doSendMagicEffect(getCreaturePosition(player), CONST_ME_POFF)
			doTeleportThing(player, config[k].newPos)
			doSendMagicEffect(getCreaturePosition(player), CONST_ME_TELEPORT)
		end
	end
	return TRUE
end

 

[Colandus]

http://otland.net/f81/desert-vocation-quest-script-7-92-a-27272/

 

[frankfarmer]

Thanks alot.

 

[barker]

http://otland.net/f81/desert-vocation-quest-script-7-92-a-27272/

your script wouldnt work for me but judging that your name says 7.92 it wont work on tfs 0.3.5


also Chojraks wouldnt work on mine eithe :/

 

[wiccan]

because so many loops?
if one solves.