Spells checking queststatus

[christiandb]

Hey I need a spell that checks a queststatus before it works because some people bought VIP which simply adds a queststatus so they can open a special VIP door. Now I want to make a spell for them but I dont know how. I came till this but it doesnt work.

if queststatus = getPlayerStorageValue(cid,11551,1) then
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)

local condition = createConditionObject(CONDITION_HASTE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 45000)
setConditionFormula(condition, 0.95, -74, 0.95, -74)
setCombatCondition(combat, condition)

function onCastSpell(cid, var)
doCombat(cid, combat, var)
end

PS: I'm very very very noob at scripting so don't blaim me.

 

[Fare]

change

function onCastSpell(cid, var)
doCombat(cid, combat, var)
end

to

function onCastSpell(cid, var)
if getPlayerStorageValue(cid, ****) == 1 then
doCombat(cid, combat, var)
else
doPlayerSendTextMessage(cid, 22, "You need to buy VIP before useing this spell!")
end

Change **** for your queststatus

 

[christiandb]

Hmm I just tested it. It does work but it still takes mana if a non-vip player casts it.

 

[EvulMastah]

Try adding

return FALSE

after

doPlayerSendTextMessage(cid, 22, "You need to buy VIP before using this spell!")

 

[christiandb]

That didn't work out. Thanks for the effort tho.

got this right now:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)

local condition = createConditionObject(CONDITION_HASTE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 70000)
setConditionFormula(condition, 1.1, -100, 1.1, -100)
setCombatCondition(combat, condition)
function onCastSpell(cid, var)
if getPlayerStorageValue(cid, 11551) == 1 then
doCombat(cid, combat, var)
else
doPlayerSendTextMessage(cid, 22, "You need to buy VIP before useing this spell!")
return FALSE
end
end

edit: rep added to both

 

[EvulMastah]

change

doCombat(cid, combat, var)

to

 return doCombat(cid, combat, var)

Maybe this one will work