Ok, I fixed this and tested on my server.
Code:
sub EVENT_SCALE_CALC {
my $baking = $client->GetSkill(60);
my $tailoring = $client->GetSkill(61);
my $blacksmithing = $client->GetSkill(63);
my $jewelcrafting = $client->GetSkill(68);
my $brewing = $client->GetSkill(65);
my $pottery = $client->GetSkill(69);
my $fletching = $client->GetSkill(64);
my $tradeskills = $baking + $tailoring + $blacksmithing + $jewelcrafting + $brewing + $pottery + $fletching;
my $scale = $tradeskills - 700;
if($scale < 0) {
$scale = 0;
}
if($scale > 1400) {
$scale = 1400;
}
$questitem->SetScale($scale/1400);
}