• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

NPC The Oracle

Pyromental

Pyromental

?
Joined
Aug 1, 2009
Messages
118
Solutions
1
Reaction score
21
Just another fully working, yet unoptimized/quite messy Oracle NPC script..
I didn't bother using nodes, due to possible issues that they might cause.
The keyword responses are based on Cipsoft's oracle.npc .. and this script is 100% writen by me.
HTML: 
<?xml version="1.0"?>
<npc name="The Oracle" script="data/npc/scripts/oracle.lua" walkinterval="0">
	<health now="100" max="100"/>
	<look typeex="1448"/>
</npc>
Lua: 
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)

local Topic, vocation, town, destination = {}, {}, {}, {}
local TOWN_ISLANDOFDESTINY = 16
local islandOfDestinyEnabled = false

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 greetCallback(cid)
	if(getPlayerLevel(cid) < 8) then
		npcHandler:say("CHILD! COME BACK WHEN YOU HAVE GROWN UP!", cid)
		return false
	elseif(getPlayerLevel(cid) > 9) then
		npcHandler:say(getCreatureName(cid) .. ", I CAN'T LET YOU LEAVE - YOU ARE TOO STRONG ALREADY! YOU CAN ONLY LEAVE WITH LEVEL 9 OR LOWER.", cid)
		return false
	else
		local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
		Topic[talkUser], vocation[talkUser], town[talkUser], destination[talkUser] = 0, 0, 0, 0
		return true
	end
end

function creatureSayCallback(cid, type, msg)
	local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
	if(not npcHandler:isFocused(cid)) then
		return false
	elseif msgcontains(msg, "yes") and Topic[talkUser] == 0 then
		npcHandler:say(islandOfDestinyEnabled and "I WILL BRING YOU TO THE ISLAND OF DESTINY AND YOU WILL BE UNABLE TO RETURN HERE! ARE YOU SURE?" or "IN WHICH TOWN DO YOU WANT TO LIVE: {CARLIN}, {AB'DENDRIEL}, {KAZORDOON}" .. (isPremium(cid) == TRUE and ", {THAIS}, {VENORE}, {DARASHIA}, {ANKRAHMUN}, {EDRON} OR {PORT HOPE}?" or " OR {THAIS}?"), cid)
		Topic[talkUser] = islandOfDestinyEnabled and 4 or 1
	elseif Topic[talkUser] == 0 then
		npcHandler:unGreet(cid)
	elseif msgcontains(msg, "carlin") and Topic[talkUser] == 1 then
		npcHandler:say("IN CARLIN! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
		Topic[talkUser] = 2
		town[talkUser] = 2
		destination[talkUser] = {x=32360, y=31782, z=7}
	elseif msgcontains(msg, "ab'dendriel") and Topic[talkUser] == 1 then
		npcHandler:say("IN AB'DENDRIEL! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
		Topic[talkUser] = 2
		town[talkUser] = 3
		destination[talkUser] = {x=32732, y=31634, z=7}
	elseif msgcontains(msg, "kazordoon") and Topic[talkUser] == 1 then
		npcHandler:say("IN KAZORDOON! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
		Topic[talkUser] = 2
		town[talkUser] = 4
		destination[talkUser] = {x=32649, y=31925, z=11}
	elseif msgcontains(msg, "thais") and Topic[talkUser] == 1 then
		npcHandler:say("IN THAIS! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
		Topic[talkUser] = 2
		town[talkUser] = 5
		destination[talkUser] = {x=32369, y=32241, z=7}
	elseif msgcontains(msg, "venore") and Topic[talkUser] == 1 then
		npcHandler:say("IN VENORE! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
		Topic[talkUser] = 2
		town[talkUser] = 6
		destination[talkUser] = {x=32957, y=32076, z=7}
	elseif msgcontains(msg, "darashia") and Topic[talkUser] == 1 then
		if isPremium(cid) == TRUE then
			npcHandler:say("IN DARASHIA! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
			Topic[talkUser] = 2
			town[talkUser] = 7
			destination[talkUser] = {x=33213, y=32454, z=1}
		else
			npcHandler:say("YOU NEED A PREMIUM ACCOUNT IN ORDER TO GO THERE!", cid)
			Topic[talkUser] = 1
		end
	elseif msgcontains(msg, "ankrahmun") and Topic[talkUser] == 1 then
		if isPremium(cid) == TRUE then
			npcHandler:say("IN ANKRAHMUN! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
			Topic[talkUser] = 2
			town[talkUser] = 8
			destination[talkUser] = {x=33194, y=32853, z=8}
		else
			npcHandler:say("YOU NEED A PREMIUM ACCOUNT IN ORDER TO GO THERE!", cid)
			Topic[talkUser] = 1
		end
	elseif msgcontains(msg, "edron") and Topic[talkUser] == 1 then
		if isPremium(cid) == TRUE then
			npcHandler:say("IN EDRON! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
			Topic[talkUser] = 2
			town[talkUser] = 9
			destination[talkUser] = {x=33217, y=31814, z=8}
		else
			npcHandler:say("YOU NEED A PREMIUM ACCOUNT IN ORDER TO GO THERE!", cid)
			Topic[talkUser] = 1
		end
	elseif msgcontains(msg, "port") and msgcontains(msg, "hope") and Topic[talkUser] == 1 then
		if isPremium(cid) == TRUE then
			npcHandler:say("IN PORT HOPE! AND WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
			Topic[talkUser] = 2
			town[talkUser] = 10
			destination[talkUser] = {x=32595, y=32744, z=6}
		else
			npcHandler:say("YOU NEED A PREMIUM ACCOUNT IN ORDER TO GO THERE!", cid)
			Topic[talkUser] = 1
		end
	elseif Topic[talkUser] == 1 then
		npcHandler:say("{CARLIN}, {AB'DENDRIEL}, {KAZORDOON}" .. (isPremium(cid) == TRUE and ", {THAIS}, {VENORE}, {DARASHIA}, {ANKRAHMUN}, {EDRON} OR {PORT HOPE}?" or " OR {THAIS}?"), cid)
		Topic[talkUser] = 1
	elseif msgcontains(msg, "sorcerer") and Topic[talkUser] == 2 then
		npcHandler:say("A SORCERER! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
		Topic[talkUser] = 3
		vocation[talkUser] = 1
	elseif msgcontains(msg, "druid") and Topic[talkUser] == 2 then
		npcHandler:say("A DRUID! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
		Topic[talkUser] = 3
		vocation[talkUser] = 2
	elseif msgcontains(msg, "paladin") and Topic[talkUser] == 2 then
		npcHandler:say("A PALADIN! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
		Topic[talkUser] = 3
		vocation[talkUser] = 3
	elseif msgcontains(msg, "knight") and Topic[talkUser] == 2 then
		npcHandler:say("A KNIGHT! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
		Topic[talkUser] = 3
		vocation[talkUser] = 4
	elseif Topic[talkUser] == 2 then
		npcHandler:say("{KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
		Topic[talkUser] = 2
	elseif msgcontains(msg, "yes") and Topic[talkUser] == 3 then
		npcHandler:say("SO BE IT!", cid)
		Topic[talkUser] = 0
		doPlayerSetVocation(cid, vocation[talkUser])
		doPlayerSetTown(cid, town[talkUser])
		npcHandler:releaseFocus(cid)
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
		doTeleportThing(cid, destination[talkUser])
		doSendMagicEffect(destination[talkUser], CONST_ME_TELEPORT)
	elseif Topic[talkUser] == 3 then
		npcHandler:unGreet(cid)
	elseif Topic[talkUser] == 4 then
		if msgcontains(msg, "yes") then
			npcHandler:say("SO BE IT!", cid)
			Topic[talkUser] = 0
			doPlayerSetTown(cid, TOWN_ISLANDOFDESTINY)
			npcHandler:releaseFocus(cid)
			doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
			doTeleportThing(cid, {x=32091,y=32027,z=7})
			doSendMagicEffect({x=32091,y=32027,z=7}, CONST_ME_TELEPORT)
			doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Welcome to the Island of Destiny. Walk north to find trainers who will help you find a suitable vocation.")
			doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "The surface of this island is a protection zone. You can't attack or regain health here. If you need healing, talk to Yandur.")
			doAddMapMark(cid, {x=32099,y=31996,z=7}, MAPMARK_EXCLAMATION, "Island of Destiny - Training Centre")
			doAddMapMark(cid, {x=32098,y=31986,z=7}, MAPMARK_GREENNORTH, "Ship to Mainland")
		else
			npcHandler:unGreet(cid)
		end
	end
	return TRUE
end

npcHandler:setMessage(MESSAGE_GREET, "|PLAYERNAME|, ARE YOU PREPARED TO FACE YOUR DESTINY?")
npcHandler:setMessage(MESSAGE_WALKAWAY, "COME BACK WHEN YOU ARE PREPARED TO FACE YOUR DESTINY!")
npcHandler:setMessage(MESSAGE_FAREWELL, "COME BACK WHEN YOU ARE PREPARED TO FACE YOUR DESTINY!")

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

Edit:
If you want it to work with AlTcApS-like messages, you'll need to edit function msgcontains in your data/npc/lib/npc.lua:
Lua: 
function msgcontains(message, keyword)
	if(type(keyword) == "table") then
		return table.isStrIn(keyword, message)
	end

	local a, b = message:lower():find(keyword:lower())
	if(a ~= nil and b ~= nil) then
		return true
	end

	return false
end
 
Last edited:
Cool, thanks for the release.
 
I'll consider making it more configurable, eg. arrays with vocation names/IDs, town names, town IDs, and destinations..
and remove any instances of unneeded (obsolete) talkstate[talkUser] redefining
 
Oracle without city

Here is oracle without city:D
Original credits to Pyromental!!Thank you!

Code: 
local LEVEL = 8

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

local talkState = {}
local vocation = {}
local rook = {x=227, y=84, z=4}

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 greetCallback(cid)
    if(getPlayerLevel(cid) < LEVEL) then
        npcHandler:say('CHILD! COME BACK WHEN YOU HAVE GROWN UP!', cid)
        return false
    elseif getPlayerVocation(cid) > 0 then
                npcHandler:say("YOU ALREADY HAVE A VOCATION!", cid)
                return false
        else
                local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
                talkState[talkUser] = 0
        return true
    end
end

function creatureSayCallback(cid, type, msg)

        if(not npcHandler:isFocused(cid)) then
                return false
        end
       
        local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
        if msgcontains(msg, 'yes') and talkState[talkUser] == 0 then
                if isPremium(cid) == TRUE then
                        npcHandler:say("{KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
                else
                        npcHandler:say("{KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
                end
                talkState[talkUser] = 2
        elseif talkState[talkUser] == 0 then
                npcHandler:unGreet(cid)

        elseif msgcontains(msg, 'sorcerer') and talkState[talkUser] == 2 then
                npcHandler:say("A SORCERER! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
                talkState[talkUser] = 3
                vocation[talkUser] = 1
        elseif msgcontains(msg, 'druid') and talkState[talkUser] == 2 then
                npcHandler:say("A DRUID! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
                talkState[talkUser] = 3
                vocation[talkUser] = 2
        elseif msgcontains(msg, 'paladin') and talkState[talkUser] == 2 then
                npcHandler:say("A PALADIN! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
                talkState[talkUser] = 3
                vocation[talkUser] = 3
        elseif msgcontains(msg, 'knight') and talkState[talkUser] == 2 then
                npcHandler:say("A KNIGHT! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
                talkState[talkUser] = 3
                vocation[talkUser] = 4
        elseif talkState[talkUser] == 2 then
                npcHandler:say("{KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
                talkState[talkUser] = 2
        elseif msgcontains(msg, 'yes') and talkState[talkUser] == 3 then
                npcHandler:say("SO BE IT!", cid)
                talkState[talkUser] = 0
                doPlayerSetVocation(cid, vocation[talkUser])
                npcHandler:releaseFocus(cid)
                doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
                doTeleportThing(cid, rook)
                doSendMagicEffect(rook, CONST_ME_TELEPORT)
        elseif talkState[talkUser] == 3 then
                npcHandler:unGreet(cid)
        end
        return TRUE
end

npcHandler:setMessage(MESSAGE_GREET, '|PLAYERNAME|, ARE YOU PREPARED TO FACE YOUR DESTINY?')
npcHandler:setMessage(MESSAGE_WALKAWAY, 'COME BACK WHEN YOU ARE PREPARED TO FACE YOUR DESTINY!')
npcHandler:setMessage(MESSAGE_FAREWELL, 'COME BACK WHEN YOU ARE PREPARED TO FACE YOUR DESTINY!')

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

:p

P.S.Sorry for my terrible English!:(
 
Slightly improved version of your script:
Lua: 
local LEVEL = 8

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

local talkState = {}
local vocation = {}
local destination = {x = 1000, y = 1000, z = 7}
local newTownId = 5

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 greetCallback(cid)
    if(getPlayerLevel(cid) < LEVEL) then
        npcHandler:say('CHILD! COME BACK WHEN YOU HAVE GROWN UP!', cid)
        return false
    elseif getPlayerVocation(cid) > 0 then
        npcHandler:say("YOU ALREADY HAVE A VOCATION!", cid)
        return false
    else
        local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
        talkState[talkUser] = 0
        return true
    end
end

function creatureSayCallback(cid, type, msg)

        if(not npcHandler:isFocused(cid)) then
                return false
        end
        
        local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
        if msgcontains(msg, 'yes') and talkState[talkUser] == 0 then
                npcHandler:say("WHAT PROFESSION HAVE YOU CHOSEN: {KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
                talkState[talkUser] = 1
        elseif talkState[talkUser] == 0 then
                npcHandler:unGreet(cid)
        elseif msgcontains(msg, 'sorcerer') and talkState[talkUser] == 1 then
                npcHandler:say("A SORCERER! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
                talkState[talkUser] = 2
                vocation[talkUser] = 1
        elseif msgcontains(msg, 'druid') and talkState[talkUser] == 1 then
                npcHandler:say("A DRUID! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
                talkState[talkUser] = 2
                vocation[talkUser] = 2
        elseif msgcontains(msg, 'paladin') and talkState[talkUser] == 1 then
                npcHandler:say("A PALADIN! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
                talkState[talkUser] = 2
                vocation[talkUser] = 3
        elseif msgcontains(msg, 'knight') and talkState[talkUser] == 1 then
                npcHandler:say("A KNIGHT! ARE YOU SURE? THIS DECISION IS IRREVERSIBLE!", cid)
                talkState[talkUser] = 2
                vocation[talkUser] = 4
        elseif talkState[talkUser] == 1 then
                npcHandler:say("{KNIGHT}, {PALADIN}, {SORCERER}, OR {DRUID}?", cid)
                talkState[talkUser] = 1
        elseif msgcontains(msg, 'yes') and talkState[talkUser] == 2 then
                npcHandler:say("SO BE IT!", cid)
                talkState[talkUser] = 0
                doPlayerSetVocation(cid, vocation[talkUser])
				doPlayerSetTown(cid, newTownId)
                npcHandler:releaseFocus(cid)
                doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
                doTeleportThing(cid, destination)
                doSendMagicEffect(destination, CONST_ME_TELEPORT)
        elseif talkState[talkUser] == 2 then
                npcHandler:unGreet(cid)
        end
        return TRUE
end

npcHandler:setMessage(MESSAGE_GREET, '|PLAYERNAME|, ARE YOU PREPARED TO FACE YOUR DESTINY?')
npcHandler:setMessage(MESSAGE_WALKAWAY, 'COME BACK WHEN YOU ARE PREPARED TO FACE YOUR DESTINY!')
npcHandler:setMessage(MESSAGE_FAREWELL, 'COME BACK WHEN YOU ARE PREPARED TO FACE YOUR DESTINY!')

npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
 
Could u make something like adding wand and rod to sorc/druid and maybe 1 spear to palladin :p Thanks :p

edit: ofc when they are teleporting to main cities :>
 
Last edited:
:S please i need it but have an error

[05/10/2009 17:43:57] data/npc/scripts/oracle.lua:eek:nCreatureSay

[05/10/2009 17:43:57] luaDoPlayerSetTown(). Not found townid


I use tFS Mystic spirit 0.2.5
 
This Oracle is awesome!:thumbup: Good job man. Did some configuring and she works perfectly. I even tried to add in a script so that she would remove all players equip and give them the noob equip you would normally get from destiny isle, but to no avail. I'm not used to the functions or commands in Lua for OT and had seen a getPlayerSlotItem(cid,slot) command and assumed there would be a setPlayerSlotItem(cid,slot,item) command, but I was wrong<_<.....Lol. After writing the script using that command and then finding out there was no such command:(.....I gave up. Any ideas?
 
OP here,
Code: 
for slot = CONST_SLOT_HEAD, CONST_SLOT_AMMO do
	local item = getPlayerSlotItem(cid, slot).uid
	if item > 0 then
		doRemoveItem(item)
	end
end

Bump. Added Island of Destiny and maximum level support.
 
Last edited:
Ah thanks, but I notice you added Isle of Destiny support to The Oracle. Do you have a full releasable version of the island? I've noticed that nobody else really does, and I would assume it is because it would be such a pain in the neck to track. That's why I didn't do it anyway. I had considered just building my own, but if I could get my hands on a rl version that would be great to.:thumbup: Don't really need the NPC's, those would take no time to throw together really, just looking for the map and the spawns.
 
i have full island of destiny with all the vocation areas but i'm too lazy to cut it out :S
 
Ha, I understand. Well, if you get bored one day or something...., think about it for me. I suppose the Oracle redirecting to main cities and reequipping will do in the meantime, or until I quit being lazy and just do it myself.... LOL.
 

Similar threads

demonrage
  • Question
Put item check on this npc
Replies
0
Views
61
demonrage
demonrage
Mateus Robeerto
  • Question
npc who exchange item for another item that gives storage only once exchange TFS 1.5 NEKIRO
Replies
8
Views
642
Idletibia
I
E
  • Question
TFS 0.X 8.60 0.4 NPC Promotion with VIP coin price ID: 11192 Amount: 100 script no function
Replies
2
Views
169
Mateus Robeerto
Mateus Robeerto
L
  • Question
Lua Request Varkhal Addon NPC TFS 1.2
Replies
2
Views
374
LegacyOT
L
bolachapanco
  • Question
NPC Addoner - Canary Source
Replies
0
Views
478
bolachapanco
bolachapanco
Xikini
NPC Multiple Shop NPC
Replies
9
Views
1K
Jeyci
J
E
  • Question
TFS 0.X 0.4 Recovery Exp only recovers levels from level 1 to 100, it does not recover levels from level 717217, I want it to recover levels 1 until 717217
Replies
1
Views
168
Enderlop
E
Shoorkill
  • Question
[TFS 1.5]reset level, life and mana, when acquiring vocation evolution
Replies
2
Views
648
Mateus Robeerto
Mateus Robeerto
Back
Top