Temat: [8.42][Actions] Heartstone! Do domu z exspowiska :)

local posx = 59 -- POZYCJA X
local posy = 47 -- POZYCJA Y
local posz = 7 -- POZYCJA Z
--
function onUse(cid, item, frompos, item2, topos)
--
local condition = getCreatureCondition(cid, CONDITION_INFIGHT)
local pos = getPlayerPosition(cid)
--
	if  (condition == TRUE) then
		doPlayerSendCancel(cid, "You are in fight.")
	else
		doTeleportThing(cid, {x=posx, y=posy, z=posz})
		doRemoveItem(item.uid,1)
		doSendMagicEffect(pos, 37)
	end
	return 1
end

local posx = 59 -- POZYCJA X
local posy = 47 -- POZYCJA Y
local posz = 7 -- POZYCJA Z
--
function onUse(cid, item, frompos, item2, topos)
--
local condition = getCreatureCondition(cid, CONDITION_INFIGHT)
local pos = getPlayerPosition(cid)
local condition2 = getCreatureCondition(cid, CONDITION_EXHAUST)
--
local EXHAUST_TIME = 30 -- minut ma trwać exhaust
local EXHAUST_STOR = 7286
--
	if  (condition == TRUE) then
		doPlayerSendCancel(cid, "You are in fight.")
	elseif (os.time() < getPlayerStorageValue(cid, EXHAUST_STOR)) then
		doSendMagicEffect(frompos, CONST_ME_POFF)
		doPlayerSendCancel(cid, "You are exhausted.")
	else
		doTeleportThing(cid, {x=posx, y=posy, z=posz})
		setPlayerStorageValue(cid, EXHAUST_STOR, os.time() + EXHAUST_TIME*60)
		doSendMagicEffect(pos, 37)
	end
	return 1
end

local config = {
accessToUse = 0, 
level = 40,
mlvl = 3,
teleportTo = "town", --house/town
ignorePZ = false,  --true/false
removeItem = false,   --true/false
payForTeleportation = false,  --true/false
howPay = 1000,  --only if payForTeleportation == true
effect = CONST_ME_MAGIC_BLUE, --magic efect after tp
exhaust = {false,300,5675}, --enable exhaust, how seconds, storage
messages = {'You don\'t have required access!','You can not teleport to with PZ!','You don\'t have enought money to teleportation!',
'You are teleported!','You are exhausted!','You don\'t have enought level!','You don\'t have enought magic level!',"Position, that you want be teleported, does not exist!","You dont have any house!"}
}
function onUse(cid,item,fromPosition,itemEx,toPosition)
    --by Rahim
        if getPlayerAccess(cid) < config.accessToUse then return (doPlayerSendCancel(cid,config.messages[1]) + 1) end
        if config.level > getPlayerLevel(cid) then return (doPlayerSendCancel(cid,config.messages[6]) + 1) end
        if config.mlvl > getPlayerMagLevel(cid) then return (doPlayerSendCancel(cid,config.messages[7]) + 1) end
        if config.ignorePZ == false then
            if getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE then
                return (doPlayerSendCancel(cid,config.messages[2]) +1)
            end
        end
        if config.teleportTo == "house" then
            if getHouseByPlayerGUID(getPlayerGUID(cid)) == "" then
                return (doPlayerSendCancel(cid,config.messages[9])+1)
            end
            pos = getHouseEntry(getHouseByPlayerGUID(getPlayerGUID(cid)))
        elseif config.teleportTo == "town" then
            pos = getTownTemplePosition(getPlayerTown(cid))
        else
            return TRUE
        end
        if pos == nil or pos == -1 then return (doPlayerSendCancel(cid,config.messages[8]) +1) end
        if config.payForTeleportation == true then
            if getPlayerMoney(cid) < config.howPay then
                return (doPlayerSendCancel(cid,config.messages[3])+1)
            end
            doPlayerRemoveMoney(cid,config.howPay)
        end
        if config.exhaust[1] == true then
            if getPlayerStorageValue(cid,config.exhaust[3]) > os.time() then
                return (doPlayerSendCancel(cid,config.messages[5])+1)
            end
            setPlayerStorageValue(cid,config.exhaust[3],os.time()+config.exhaust[2])
        end
        doTeleportThing(cid,pos)
        doSendMagicEffect(pos,config.effect)
        doPlayerSendTextMessage(cid,22,config.messages[4])
        if config.removeItem == true then
            if isItemRune(item.itemid) == TRUE then
                if item.type > 1 then
                    doChangeTypeItem(item.uid,item.type-1)
                else
                    doRemoveItem(item.uid,1)
                end
            else
                doRemoveItem(item.uid,1)
            end
        end
        return TRUE
end