[br0nc0n]

Ok, I fixed this and tested on my server.

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);
}