Perl Quest Lexicon

[mwmdragon]

quest::summonitem

Explaination: Summons an item for the player who triggers the event.

Full Command: quest::summonitem(itemid,amount or charges)

Itemid = The items ID number from your database.
Charges or Amount = Sets the amount of the item given to the player, or if the item can have a certain amount of charges set on it, it will set charges instead of amount of the item given.

Example:

# Gives the player one instance of the item indicated after being hailed.

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

[mwmdragon]

quest::castspell

Explaination: Makes the mob or NPC cast a certain spell on the creature with the indicated ID.

Full Command: quest::castspell(id,spellid)

ID = The ID of the creature the spell is to be cast on.
SpellID = The ID of the spell to cast taken from the spells_us.txt

Example:

# Casts the bind affinity spell on the hailing person.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::castspell($userid,2049);
}
}

[mwmdragon]

quest::selfcast

Explaination: Makes the player cast a spell on themselves.

Full Command: quest::selfcast(spellid)

SpellID = The ID of the spell to cast taken from the spells_us.txt

Example:

# After hailing, the player casts bind affinity on themselves.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::selfcast($userid,2049);
}
}

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