NPC The Queen of The Banshee 100% RL

[Hakeq]

Autor: Selius

The Queen of The Banshee.xml

<?xml version="1.0" encoding="UTF-8"?>
<npc name="The Queen of the Banshee" script="banshee_queen.lua" walkinterval="1000" access="3" floorchange="0">
    <health now="100" max="100"/>
    <look type="78" head="0" body="0" legs="0" feet="0" addons="0"/>
    <parameters>
        
        <parameter key="message_greet" value="Be greeted, dear visitor. Come and stay ... a while."/>
        <parameter key="message_farewell" value="We will meet again."/>
        <parameter key="message_placedinqueue" value="Wait as patiently as death is waiting for you!"/>
        <parameter key="message_walkaway" value="Yes, flee from death. But know it shall be always one step behind you."/>
        
        <parameter key="module_keywords" value="1" />
        <parameter key="keywords" value="name;job;place;race;seed;destruction;complex;ghostlands;banshee;seal;guardian;" />
        <parameter key="keyword_reply1" value="It hurts me to even think about my mortal past. Its long lost and forgotten. So don't ask me about it!" />
        <parameter key="keyword_reply2" value="It is my curse to be the eternal guardian of this ancient place." />
        <parameter key="keyword_reply3" value="It served as a temple, a source of power and ... as a sender for an ancient race in time long gone by and forgotten." />
        <parameter key="keyword_reply4" value="The race that built this edifice came to this place from the stars. They ran from an enemy even more horrible than even themselves. But they carried the seed of their own destruction in them." />
        <parameter key="keyword_reply5" value="This ancient race was annihilated by its own doings, that's all I know. Aeons have passed since then, but the sheer presence of this complex is still defiling and desecrating this area." />
        <parameter key="keyword_reply6" value="This ancient race was annihilated by its own doings, that's all I know. Aeons have passed since then, but the sheer presence of this complex is still defiling and desecrating this area." />
        <parameter key="keyword_reply7" value="Its constructors were too strange for you or even me to understand. We cannot know what this ... thing they have built was supposed to be good for. All I can feel is a constant twisting and binding of souls, though that is probably only a side-effect." />
        <parameter key="keyword_reply8" value="The place you know as the Ghostlands had a different name once ... and many names thereafter. Too many for me to remember them all." />
        <parameter key="keyword_reply9" value="They are my maidens. They give me comfort in my eternal vigil over the last seal." />
        <parameter key="keyword_reply10" value="I am the guardian of the SEVENTH and final seal. The seal to open the last door before ... but perhaps it is better you see it with your own eyes." />
        <parameter key="keyword_reply11" value="I am the guardian of the SEVENTH and final seal. The seal to open the last door before ... but perhaps it is better you see it with your own eyes." />

    </parameters>
</npc>

banshee_queen.lua

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)

function onCreatureAppear(cid)            npcHandler:onCreatureAppear(cid)            end
function onCreatureDisappear(cid)        npcHandler:onCreatureDisappear(cid)            end
function onCreatureSay(cid, type, msg)    npcHandler:onCreatureSay(cid, type, msg)    end
function onThink()                        npcHandler:onThink()                        end

function creatureSayCallback(cid, type, msg)
    if(npcHandler.focus ~= cid) then
        return false
    end
    
    -- NPC The Queen of the Banshees feito por Rodrigo (Nottinghster) 
    -- Inicio The Queen of the Banshees NPC
    
    local primeiro_selo = getPlayerStorageValue(cid, 20001)
    local segundo_selo = getPlayerStorageValue(cid, 20002)
    local terceiro_selo = getPlayerStorageValue(cid, 20003)
    local quarto_selo = getPlayerStorageValue(cid, 20004)
    local quinto_selo = getPlayerStorageValue(cid, 20005)
    local sexto_selo = getPlayerStorageValue(cid, 20006)
    local setimo_selo = getPlayerStorageValue(cid, 20007)
    local teletransporte = {x=32202, y=31812, z=8, stackpos =0}
    
    if msgcontains(msg, 'seventh') or msgcontains(msg, 'last') and getPlayerLevel(cid) < 60 then
    selfSay('You are not experienced enough to master the challenges ahead or to receive knowledge about the seventh seal. Go and learn more before asking me again.')
    
    elseif msgcontains(msg, 'seventh') or msgcontains(msg, 'last') and getPlayerLevel(cid) > 59 then
    selfSay('If you have passed the first six seals and entered the blue fires that lead to the chamber of the seal you might receive my kiss ... It will open the last seal. Do you think you are ready?')
    talk_state = 2
    
    elseif msgcontains(msg, 'kiss') and setimo_selo == -1 and talk_state == 8 then
    selfSay('Are you prepared to receive my kiss, even though this will mean that your death as well as a part of your soul will forever belong to me, my dear?')
    talk_state = 1
    elseif msgcontains(msg, 'kiss') and setimo_selo == -1 then
    selfSay('To receive my kiss you have to pass all other seals first.')
    talk_state = 0
    elseif msgcontains(msg, 'kiss') and setimo_selo == 1 then
    selfSay('You have already received my kiss. You should know better then to ask for it.')
    talk_state = 0
    
    elseif msgcontains(msg, 'yes') and talk_state == 1 then
    selfSay('So be it! Hmmmmmm...')
    doTeleportThing(cid, teletransporte)
    setPlayerStorageValue(cid, 20007, 1)
    elseif msgcontains(msg, 'no') and talk_state == 1 then
    selfSay('Perhaps it is the better choice for you, my dear.')
    talk_state = 0
    
    elseif msgcontains(msg, 'yes') and talk_state == 2 and quarto_selo == 1 then
    selfSay('Yessss, I can sense you have passed the seal of sacrifice. Have you passed any other seal yet?')
    talk_state = 3
    elseif msgcontains(msg, 'yes') and talk_state == 2 and quarto_selo == -1 then
    selfSay('You have not passed the seal of sacrifice yet. Return to me when you are better prepared.')
    talk_state = 0
    elseif msgcontains(msg, 'no') and talk_state == 2 then
    selfSay('Then try to be better prepared next time we meet.')
    talk_state = 0
    
    elseif msgcontains(msg, 'yes') and talk_state == 3 and primeiro_selo == 1 then
    selfSay('I sense you have passed the hidden seal as well. Have you passed any other seal yet?')
    talk_state = 4
    elseif msgcontains(msg, 'yes') and talk_state == 3 and primeiro_selo == -1 then
    selfSay('You have not found the hidden seal yet. Return when you are better prepared.')
    talk_state = 0
    elseif msgcontains(msg, 'no') and talk_state == 3 then
    selfSay('Then try to be better prepared next time we meet.')
    talk_state = 0
    
    elseif msgcontains(msg, 'yes') and talk_state == 4 and segundo_selo == 1 then
    selfSay('Oh yes, you have braved the plagueseal. Have you passed any other seal yet?')
    talk_state = 5
    elseif msgcontains(msg, 'yes') and talk_state == 4 and segundo_selo == -1 then
    selfSay('You have not faced the plagueseal yet. Return to me when you are better prepared.')
    talk_state = 0
    elseif msgcontains(msg, 'no') and talk_state == 4 then
    selfSay('Then try to be better prepared next time we meet.')
    talk_state = 0
    
    elseif msgcontains(msg, 'yes') and talk_state == 5 and terceiro_selo == 1 then
    selfSay('Ah, I can sense the power of the seal of demonrage burning in your heart. Have you passed any other seal yet?')
    talk_state = 6
    elseif msgcontains(msg, 'yes') and talk_state == 5 and terceiro_selo == -1 then
    selfSay('You are not filled with the fury of the imprisoned demon. Return when you are better prepared.')
    talk_state = 0
    elseif msgcontains(msg, 'no') and talk_state == 5 then
    selfSay('Then try to be better prepared next time we meet.')
    talk_state = 0
    
    elseif msgcontains(msg, 'yes') and talk_state == 6 and quinto_selo == 1 then
    selfSay('So, you have managed to pass the seal of the 1 path. Have you passed any other seal yet?')
    talk_state = 7
    elseif msgcontains(msg, 'yes') and talk_state == 6 and quinto_selo == -1 then
    selfSay('You have not found your 1 path yet. Return when you are better prepared.')
    talk_state = 0
    elseif msgcontains(msg, 'no') and talk_state == 6 then
    selfSay('Then try to be better prepared next time we meet.')
    talk_state = 0
    
    elseif msgcontains(msg, 'yes') and talk_state == 7 and sexto_selo == 1 then
    selfSay('I see! You have mastered the seal of logic. You have made the sacrifice, you have seen the unseen, you possess fortitude, you have filled yourself with power and found your path. You may ask me for my kiss now.')
    talk_state = 8
    elseif msgcontains(msg, 'yes') and talk_state == 7 and sexto_selo == -1 then
    selfSay('You have not found your 1 path yet. Return to meh when you are better prepared.')
    talk_state = 0
    elseif msgcontains(msg, 'no') and talk_state == 7 then
    selfSay('Then try to be better prepared next time we meet.')
    talk_state = 0
    
    elseif msgcontains(msg, 'spectral dress') then
    selfSay('Your wish for a spectral dress is silly. Allthough I will grant you the permission to take one. My maidens left one in a box in a room, directly south of here.')
    setPlayerStorageValue(cid, 327, 1)
    doPlayerAddItem(cid, 2657, 1)
    
    elseif msgcontains(msg, 'bye') and (talk_state >= 1 and talk_state <= 8) then
    selfSay('We will meet again.')
    talk_state = 0
    
    end
    -- Final The Queen of the Banshees NPC
    -- NPC The Queen of the Banshees feito por Rodrigo (Nottinghster)
    return true
end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())