Perl Quest Lexicon

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

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