Perl Quest Lexicon

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

[mwmdragon]

quest::doanim

Explaination: The mob or NPC will perform the animation you set it to do.

Full Command: quest::doanim(n)

n = See the list below for possible animation numbers to set this to.

1 - Kick
2 - Piercing
3 - 2h slash
4 - 2h blunt/piercing
5 - Throw
6 - Offhand attack
7 - Bash/Dragon Punch
8 - Mainhand slash
9 - Shoot bow
10 - Swim
11 - Round Kick
12 - Shake head no
13 - Embarassed(looks down)
14 - Embarassed(looks down)
15 - Falling backwards animation
16 - Death animation
17 - Elbows at waist, hands pointing out
18 - Hands pointing straight down
19 - Run animation(I think)
20 - Jump
21 - Falling face first
22 - Duck walking
23 - No idea
24 - Bow
25 - Swimming in place
26 - Idle animation(troll scratches butt, etc)
27 - Cheer
28 - Disgusted
29 - Wave
30 - Rude
31 - Yawn
32 - No emote(?)
33 - Sit down
34 - Walk backwards(I think)
35 - No emote(?)
36 - Kneel
37 - Swim
38 - Sitting down
39 - No emote(?)
40 - No emote(?)
41 - No emote(?)
42 - Cast anim(Canni, etc)
43 - Cast anim(Buffs, etc)
44 - Cast anim(Lifetap, nuke, etc)
45 - Flying Kick
46 - Tiger Claw
47 - Eagle Strike
48 - Nod yes
49 - Shake head no
50 - Plead
51 - Applaud/clap
52 - No idea
53 - Blush
54 - Chuckle
55 - No idea
56 - Duck(the emote)
57 - Curious look
58 - Dance
59 - Disagree
60 - Glare
61 - Peer
62 - Kneel
63 - Laugh
64 - Point
65 - Shrug
66 - Raise hand
67 - Salute
68 - Shiver
69 - Tap Foot
70 - Bow
71 - None(?)
72 - None(?)
73 - Sit down

Example:

# After being hailed the NPC begins to dance.

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

[mwmdragon]

quest::addskill

Explaination: Increases the players skill in the skill you choose by the amount you choose.

Full Command: quest::addskill(skill,value)

skill = See the list below for a list of possible skill numbers to use.

0 - 1H Blunt
1 - 1H Slashing
2 - 2H Blunt
3 - 2H Slashing
4 - Abjuration
5 - Alteration
6 - Apply Poison
7 - Archery
8 - Backstab
9 - Bind Wound
10 - Bash
11 - Block
12 - Brass Instruments
13 - Channeling
14 - Conjuration
15 - Defense
16 - Disarm
17 - Disarm Traps
18 - Divination
19 - Dodge
20 - Double Attack
21 - Dragon Punch
22 - Duel Wield
23 - Eagle Strike
24 - Evocation
25 - Feign Death
26 - Flying Kick
27 - Forage
28 - Hand To Hand
29 - Hide
30 - Kick
31 - Meditate
32 - Mend
33 - Offense
34 - Parry
35 - Pick Lock
36 - Piercing
37 - Riposte
38 - Round Kick
39 - Safe Fall
40 - Sense Heading
41 - Sing
42 - Sneak
43 - Specialize Abjure
44 - Specialize Alteration
45 - Specialize Conjuration
46 - Specialize Divinatation
47 - Specialize Evocation
48 - Pick Pockets
49 - Stringed Instruments
50 - Swimming
51 - Throwing
52 - Tiger Claw
53 - Tracking
54 - Wind Instruments
55 - Fishing
56 - Make Poison
57 - Tinkering
58 - Research
59 - Alchemy
60 - Baking
61 - Tailoring
62 - Sense Traps
63 - Blacksmithing
64 - Fletching
65 - Brewing
66 - Alcohol Tolerance
67 - Begging
68 - Jewelry Making
69 - Pottery
70 - Percussion Instruments
71 - Intimidation
72 - Berserking
73 - Taunt

value = the amount that you want to be added to the player skill.

Example:

# After hailing the NPC the playesr baking skill is increased by 5.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::addskill(60,5);
}
}

[mwmdragon]

quest::me

Explaination: Makes the client do a nameless or ownerless emote as if from a narrator.

Full Command: quest::me(

[mwmdragon]

quest::faction

Explaination: Adjusts the players faction with a chosen faction.

Full Command: quest::faction(factionid,value)

Factionid = The id of the faction you would like to adjust for the player, taken from your database.
Value = The amount you wish to adjust the players faction with the chosen faction.

Example:

# After hailing the NPC the players faction with faction ID 25 is increased by 5.

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

[mwmdragon]

quest::setguild

Explaination: Adds a player to a certain guild and also sets their rank in that guild.

Full Command: quest::setguild(guildid,rank)

Guildid = The guild you want the player to be a member of, can be found in the database.
Rank = The rank you want the player to be. You can find or create this in your database.

Example:

# After hailing the NPC the players is now the leader of the guild number 3

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

[mwmdragon]

quest::rebind

Explaination: Binds the player to a chosen zone at a chosen location.

Full Command: quest::rebind(zoneid,x,y,z)

Zoneid = The ID of the zone you want to bind the player in. Can be found in your database.
X = The x Axis you would like to bind the player to. Can be found by /loc but switch the x and y.
Y = The y Axis you would like to bind the player to. Can be found by /loc but switch the x and y.
Z = The z Axis you would like to bind the player to. Can be founf by /loc.

Example:

# After hailing the NPC the players is bound to zone 21 at the location -123.43,1200.03,21.34.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::rebind(21,-123.43,1200.03,21.34);
}
}

[mwmdragon]

quest::flagcheck

Explaination: Checks the value of a flag, usually used for quests.

Full Command: quest::flagcheck(flag,value)

Flag = The number of the flag that you are checking.
Value = The value you are looking for when checking the flag.

Example:

# After hailing the NPC will check if flag 1 is set to 0..

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

[mwmdragon]

quest::write

Explaination:

Full Command:

Example:

[mwmdragon]

quest::settime

Explaination: Changes the time in the zone changing the sky and lighting depending on the time set.

Full Command: quest::settime(hour,minutes)

Hour = The hour of the day in a 24 hour schedule (1:00pm = 13:00)
Minutes = The Minutes into the hour set before it.

Example:

# After hailing the NPC the time is set to five after midnight.

sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::settime(0,5);
}
}

[mwmdragon]

quest::setsky

Explaination: Changes the color of the sky.

Full Command: quest::setsky(n)

n = Anywhere from 0 to 255.

Example:

# After hailing the NPC the sky goes deep red.

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