#name needs to be $name. don't think #name registers in the perl system as a variable, # is used to comment out sections. and although it is inside quotes, i think when this is run you will see
Quote:
'Greetin's t'ye #name! Isn't the area 'round 'ere so nice an' quiet?
Such a departure from me old days; slaving o'er the forge t'create masterpieces! T'be 'onest, at times I do miss the old forge, but after I created me finest breastplate, it seemed as if nothing else I made could ever live up t'it. So I left me home to'wander the land an' see what I could learn o'the world. I 'ave learned quite a bit from the elders 'ere an' the skilled craftspeople in New Tanaan. I 'ave even devised a type o'emblem that will impart the magic o'tranquility into the user t'create planar armors from pieces o'energy found in the planes.
|
instead of seeing
Quote:
'Greetin's t'ye Joe! Isn't the area 'round 'ere so nice an' quiet?
Such a departure from me old days; slaving o'er the forge t'create masterpieces! T'be 'onest, at times I do miss the old forge, but after I created me finest breastplate, it seemed as if nothing else I made could ever live up t'it. So I left me home to'wander the land an' see what I could learn o'the world. I 'ave learned quite a bit from the elders 'ere an' the skilled craftspeople in New Tanaan. I 'ave even devised a type o'emblem that will impart the magic o'tranquility into the user t'create planar armors from pieces o'energy found in the planes
|
Code:
sub EVENT_ITEM{
if($platinum == 500){
quest::summonitem("17184");
if($class == BARD){
quest::summonitem("16268"); }
if($class == WARRIOR)
quest::summonitem("16267"); }
if($class == PALADIN)
quest::summonitem("16269"); }
if($class == SHADOWKNIGHT)
quest::summonitem("16270"); }
if($class == CLERIC)
quest::summonitem("16271"); }
changing the classes as said above.
Code:
if($class eq "Cleric")
{
quest::summonitem(16271,0);
}
don't need quotes when summoning items just need (ItemID,Charges) charges can also be number of items if they stack.
also $platinum is not defined you need to define it at the begging of your sub EVENT_ITEM. e.g.
Code:
sub EVENT_ITEM
{
$myplatnium = $platinum
<events>
}
just the same you could replace all the $platinum with $myplatinum =P.
so lets re write the EVENT_ITEM sub.
Code:
sub EVENT_ITEM
{
$myplatinum = $platinum;
if($platinum == 500)
{
if($class eq "Bard")
{
quest::summonitem(17184,0);
}
elsif($class eq "Warrior")
{
quest::summonitem(16268,0);
}
elsif($class eq "Paladin")
{
quest::summonitem(16296,0);
}
}
}
Just continue on with the elsif($class eq "Class") etc....
if i missed anything sorry i am tired. good luck with the script.