eq2emu-content/ZoneScripts/QueensColony.lua
2024-10-26 11:37:28 +00:00

56 lines
2.1 KiB
Lua
Executable file

--[[
Script Name : ZoneScripts/QueensColony.lua
Script Purpose : Location Pop-ups
Script Author : John Adams
Script Date : 2009.05.07
Script Notes :
--]]
local WelcomeToNorrath = 133
local TheArtOfCombat = 132
local TheSourceOfEvil = 164
function init_zone_script(zone)
SetLocationProximityFunction(zone, -13.41, -4.94, 220.74, 20, "OfferQuestLocation", "LeaveLocation")
SetLocationProximityFunction(zone, 152.24, 3.69, -173.34, 15, "BladeMasterLocation", "LeaveLocation")
end
function OfferQuestLocation (zone, Player)
if GetClass(Player)==0 and GetLevel(Player)<3 then
ZoneRef = GetZone("IsleRefuge1")
Zone(ZoneRef,Player)
elseif not HasQuest(Player, WelcomeToNorrath) and not HasCompletedQuest(Player, WelcomeToNorrath)
and not HasQuest(Player, TheArtOfCombat) and not HasCompletedQuest(Player, TheArtOfCombat) then
OfferQuest(nil, Player, WelcomeToNorrath)
end
end
function BladeMasterLocation(zone, Player)
if HasQuest(Player, TheSourceOfEvil) and GetQuestStep(Player, TheSourceOfEvil) == 4 then
local blade = SpawnMob(zone, 2530032, false, 154.12, 1.87, -175.74, 349.984)
if blade ~= nil then
Attack(blade, Player)
end
end
end
function LeaveLocation(zone, Player)
end
function enter_location(zone, Player, GridID)
if GridID == 771354606 then
SendPopUpMessage(Player, "Sunset Meadow", 255, 255, 0)
end
end
function player_entry(zone, Player)
if GetClass(Player)==0 and GetLevel(Player)<3 then
ZoneRef = GetZone("IsleRefuge1")
Zone(ZoneRef,Player)
else
AddPlayerMail(Player, "EQ2EmulatorDevTeam", "Welcome", "Welcome to EQ2Emulator, this project is currently in Pre-Alpha. The best developed content follows the Commoner towards class progression. This is experienced by talking to Captain Varlos starting on the Far Journey or using the Desert of Flames client during character creation.\n\nWe appreciate feedback and bug reports for existing content, and are always looking for additional talent! Thank you for testing and enjoy your stay! -The EQ2EMU Team", 2)
SendPopUpMessage(Player, "The Queen's Colony", 230, 230, 230)
end
end