Thread
:
Perl Quest Lexicon
View Single Post
#
30
03-14-2005, 08:25 PM
mwmdragon
Discordant
Join Date: Apr 2003
Location: Winnipeg, Manitoba Canada
Posts: 270
quest::setsky
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);
}
}
__________________
Thanks
MWMDRAGON
NeverQuest
http://neverquest.gotdns.com
Emucade
http://dragonsden.emuunlim.com
mwmdragon
View Public Profile
Send a private message to mwmdragon
Find all posts by mwmdragon