Perl Quest Lexicon

[mwmdragon]

quest::depop

Explaination: Makes the mob or NPC depop or unspawn.

Full Command: quest::depop( )

Example:

# After being hailing, the NPC depops.

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

[mwmdragon]

quest::cumflag

Explaination: Flag 50 for mob will increase by 1.

Full Command: quest::cumflag( )

Example:

# After being hailing, the NPCs Flag 50 goes up by 1

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

[mwmdragon]

quest::flagnpc

Explaination: Sets flag values on mobs and NPCs mainly for quests.

Full Command: quest::flagnpc(flag,flagvalue)

Flag = a variable you wish to assign the value to.
Flagvalue = the value you want the flag variable to equal

Example:

# After being hailed, a flag on the NPC 7 is set to 1.

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

[mwmdragon]

quest::flagclient

Explaination: Sets a flag on the player, mainly for quests.

Full Command: quest::flagclient(flag,flagvalue)

Flag = a variable you wish to assign the value to.
Flagvalue = the value you want the flag variable to equal

Example:

# After being hailed the NPC sets a flag on the player 3 to 1.

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

[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()
}
}