Hmm, well there weren't any syntax errors to my knowledge, the only code I had besides the sub was $questitem->SetScale(1); and would change the input of that command to test it but it never scaled. I have however gotten it to work but it seems to update too slowly for my tastes. My current item quest looks like this:
Code:
sub EVENT_SCALE_CALC
{
my $skill = $client->GetSkill(66);
$questitem->SetScale($skill/100);
}
The item in question is a charm that raises its stats based on how good the players alcohol tolerance skill is. I know 100 isn't the max for the skill, I did this on purpose cause I wanted it to go even further for those who max it out. I was hoping to base the item on how drunk the player was but there doesn't seem to be any perl objects that could return that information and I don't think it would work well with the how long the scale checks take.