Perl Quest Lexicon

[mwmdragon]

quest::exp

Explaination: Adds an amount of experience to the players character.

Full Command: quest::exp(amount)

Amount = The amount of experience you would like the player to gain.

Example:

# After hailing the NPC the player gains 100 experience.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::exp(100);
}
}

[mwmdragon]

quest::level

Explaination: Sets the players character level to the level you specify.

Full Command: quest::level(newlevel)

Newlevel = The level you want the character to be.

Example:

# After hailing the NPC the player is forced to level 25.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::level(25);
}
}

[mwmdragon]

quest::safemove

Explaination: Moves the player to the safe coordinates on the zone they are in.

Full Command: quest::safemove( )

Example:

# After hailing the NPC the player is move to the safe coordinates of the same zone.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::safemove()
}
}

[mwmdragon]

quest::rain

Explaination: Makes it rain in the zone.

Full Command: quest::rain(n)

N= choose 1 to turn the rain on in the zone or 0 to turns the rain off in the zone.

Example:

# After hailing the NPC it begins to rain in the zone.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::rain(1);
}
}

[mwmdragon]

quest::snow

Explaination: Makes it snow in the zone.

Full Command: quest::snow(n)

N= choose 1 to turn the snow on in the zone or 0 to turns the snow off in the zone.

Example:

# After hailing the NPC it begins to snow in the zone.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::snow(1);
}
}

[mwmdragon]

quest::givecash

Explaination: Gives the player money based on whatever denominations you choose.

Full Command: quest::givecash(c,s,g,p)

c = the amount of copper to give the player.
s = the amount of silver to give the player.
g = the amount of gold to give the player.
p = the amount of platinum to give the player.

Example:

# The NPC give the player 1 of each coin for hailing him.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::givecash(1,1,1,1);

# If this does not work for you try this

[mwmdragon]

quest::pvp

Explaination: Turns Player Versus Player (PVP) on or off for the player.

Full Command: quest::pvp(