Item Scaling help

[helman]

Ok. I've been bizy. but I'm now able to work on this more. So I got My handin npc working but I'm having a bit of a hard time getting the Charm File to work. I Have some questions to help me figure this out.

First, How do I name my .pl? Charm77640.pl or just 77640.pl.

Second, Whats a Good reference for building my Charm file. Here This Code here

sub EVENT_SCALE_CALC 
{
	if (defined($qglobals{titanium_relic})) {
		$questitem->SetScale($qglobals{titanium_relic}/10);
	}
	else {
		$questitem->SetScale(0);
	}
}

Or this from my LDDAugText

 my $charge = 5;
   if (defined $qglobals{GUKpower}) {
      if ($qglobals{GUKpower} <= 5) {
         $charge += $qglobals{GUKpower} * 20;
      }
      elsif ($qglobals{GUKpower} >= 7) {
         $charge += 200;
      }
      else {
         $charge += 150;
      }
   }

If the one from my LDDAugText What dose $charge do and how do I use it to build my Charm file.(I have to ask cause its not in the Quest Cheat Sheet.)

Ok Thanks.