Illusionist NPC.

[Zamthos]

All right, so what it does is set your race to any 1 of the 16 starter races, change your size from between 3-8, change your races to certain races for platinum, change your texture from cloth, leather, chain, or plate, or change your gender, and even revert you back, this is all temporary, so when you zone out it is gone.

Enjoy!
##Master Illusionist
##Zamthos


sub EVENT_SPAWN
{
quest::settimer("Effect", 1);
}

sub EVENT_TIMER
{
if($timer eq "Effect")
{
$npc->SendAppearanceEffect(386);
}
}





sub EVENT_SAY
{
my $NPCNAME = $npc->GetCleanName();
my $cloth = quest::saylink("cloth", 1);
my $chain = quest::saylink("chain", 1);
my $plate = quest::saylink("plate", 1);
my $leather = quest::saylink("leather", 1);
my $list = quest::saylink("list", 1);
my $tell = quest::saylink("tell", 1);
my $human = quest::saylink("Human", 1);
my $barbarian = quest::saylink("Barbarian", 1);
my $erudite = quest::saylink("Erudite", 1);
my $woodelf = quest::saylink("Wood Elf", 1);
my $highelf = quest::saylink("High Elf", 1);
my $darkelf = quest::saylink("Dark Elf", 1);
my $halfelf = quest::saylink("Half Elf", 1);
my $dwarf = quest::saylink("Dwarf", 1);
my $troll = quest::saylink("Troll", 1);
my $ogre = quest::saylink("Ogre", 1);
my $halfling = quest::saylink("Halfling", 1);
my $gnome = quest::saylink("Gnome", 1);
my $iksar = quest::saylink("Iksar", 1);
my $vahshir = quest::saylink("Vah Shir", 1);
my $froglok = quest::saylink("Froglok", 1);
my $drakkin = quest::saylink("Drakkin", 1);
my $skeleton = quest::saylink("Skeleton", 1);
my $werewolf = quest::saylink("Werewolf", 1);
my $spectre = quest::saylink("Spectre", 1);
my $water = quest::saylink("Water", 1);
my $air = quest::saylink("Air", 1);
my $earth = quest::saylink("Earth", 1);
my $fire = quest::saylink("Fire", 1);
my $revert = quest::saylink("revert", 1);



if($text=~/Hail/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'What would you like to be temporarily changed into, you can change into any of the 16 normal character races, would you like for me to $list them? If you give me 10 Platinum I can turn you in to my race temporarily.'");
$client->Message(315, "$NPCNAME whispers to you, 'I also know how to change your textures between $cloth, $chain, $plate, and $leather!'");
$client->Message(315, "$NPCNAME whispers to you, 'I can change your size, as long as it is between 3 and 8.'");
$client->Message(315, "$NPCNAME whispers to you, 'I have been training for weeks to learn how to do more illusions, but these will cost platinum, would you like me to $tell you the names of the illusions?'");
$client->Message(315, "$NPCNAME whispers to you, 'I can also $revert you back to your normal race.'");
}
if($text=~/List/i)
{
$client->Message(315, "--------------------------------------------------------------------------------------------------------");
$client->Message(315, "
$human,
$barbarian,
$erudite,
$woodelf,
$highelf,
$darkelf,
$halfelf,
$dwarf,
$troll,
$ogre,
$halfling,
$gnome,
$iksar,
$vahshir,
$froglok,
$drakkin");
$client->Message(315, "--------------------------------------------------------------------------------------------------------");
}

if($text=~/Tell/i)
{
$client->Message(315, "--------------------------------------------------------------------------------------------------------");
$client->Message(315, "
$skeleton,
$werewolf,
$spectre,
$water,
$air,
$earth,
$fire");
$client->Message(315, "--------------------------------------------------------------------------------------------------------");
}

if($text=~/Revert/i)
{
quest::playerrace(0);
$client->Message(315, "$NPCNAME whispers to you, 'You are back to your normal race.'");
}

if($text=~/Skeleton/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'That will be 15 platinum.'");
}

if($text=~/Werewolf/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'That will be 20 platinum.'");
}

if($text=~/Spectre/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'That will be 25 platinum.'");
}

if($text=~/Water/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'That will be 30 platinum.'");
}

if($text=~/Air/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'That will be 32 platinum.'");
}

if($text=~/Earth/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'That will be 34 platinum.'");
}

if($text=~/Fire/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'That will be 36 platinum.'");
}

if (($text > 2) && ($text < 9))
{
quest::playersize($text);
}

if($text=~/Cloth/i)
{
quest::playertexture(1);
}

if($text=~/Chain/i)
{
quest::playertexture(2);
}

if($text=~/Plate/i)
{
quest::playertexture(3);
}

if($text=~/Leather/i)
{
quest::playertexture(4);
}

if($text=~/Human/i)
{
quest::playerrace(1);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Human, temporarily.'");
}

if($text=~/Barbarian/i)
{
quest::playerrace(2);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Barbarian, temporarily.'");
}

if($text=~/Erudite/i)
{
quest::playerrace(3);
$client->Message(315, "$NPCNAME whispers to you, 'You are now an Erudite, temporarily.'");
}

if($text=~/Wood Elf/i)
{
quest::playerrace(4);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Wood Elf, temporarily.'");
}

if($text=~/High Elf/i)
{
quest::playerrace(5);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a High Elf, temporarily.'");
}

if($text=~/Dark Elf/i)
{
quest::playerrace(6);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Dark Elf, temporarily.'");
}

if($text=~/Half Elf/i)
{
quest::playerrace(7);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Half Elf, temporarily.'");
}

if($text=~/Dwarf/i)
{
quest::playerrace(8);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Dwarf, temporarily.'");
}

if($text=~/Troll/i)
{
quest::playerrace(9);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Troll, temporarily.'");
}

if($text=~/Ogre/i)
{
quest::playerrace(10);
$client->Message(315, "$NPCNAME whispers to you, 'You are now an Ogre, temporarily.'");
}

if($text=~/Halfling/i)
{
quest::playerrace(11);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Halfling, temporarily.'");
}

if($text=~/Gnome/i)
{
quest::playerrace(12);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Gnome, temporarily.'");
}

if($text=~/Iksar/i)
{
quest::playerrace(128);
$client->Message(315, "$NPCNAME whispers to you, 'You are now an Iksar, temporarily.'");
}

if($text=~/Vah Shir/i)
{
quest::playerrace(130);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Vah Shir, temporarily.'");
}

if($text=~/Froglok/i)
{
quest::playerrace(330);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Froglok, temporarily.'");
}

if($text=~/Drakkin/i)
{
quest::playerrace(522);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Drakkin, temporarily.'");
}
}

sub EVENT_ITEM
{
my $NPCNAME = $npc->GetCleanName();


if($platinum == 10)
{
quest::playerrace(464);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Gargoyle, temporarily.'");
}

elsif($platinum == 15)
{
quest::playerrace(367);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Skeleton, temeporarily.'");
}

elsif($platinum == 20)
{
quest::playerrace(454);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Werewolf, temeporarily.'");
}

elsif($platinum == 25)
{
quest::playerrace(174);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Spectre, temeporarily.'");
}

elsif($platinum == 30)
{
quest::playerrace(211);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Water Elemental, temporarily.'");
}

elsif($platinum == 32)
{
quest::playerrace(210);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Air Elemental, temporarily.'");
}

elsif($platinum == 34)
{
quest::playerrace(209);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Earth Elemental, temporarily.'");
}

elsif($platinum == 36)
{
quest::playerrace(212);
$client->Message(315, "$NPCNAME whispers to you, 'You are now a Fire Elemental, temporarily.'");
}

else
{
quest::say("I do not need this.");
quest::givecash($copper,$silver,$gold,$platinum);
plugin::return_items(\%itemcount);
}
}

[Drajor]

Its good to see you having fun creating things!

[Zamthos]

Haha, thought I would release it, I have a few more I could release, I just might, do I know you? Haha.

[Drajor]

I doubt it. I stay fairly quiet!

[Caryatis]

http://i48.tinypic.com/29cxb92.png

[Zamthos]

I don't touch loops, not even Fruit Loops. Haha.