Item quests

[Shadow-Wolf]

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:

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.