EQEmulator Forums - View Single Post - Simple Charm To Give Player Money Every Update

**Akkadius** · #3 09-09-2010, 11:41 AM

Quote:

Originally Posted by Astal

I cant seem to get it working, can anyone help?

Code:

sub EVENT_SCALE_CALC {

	my $currentmoney = $client->GetPlatinum();
	my $moneytogive = $currentmoney / 100 ;
	my $itemscale = 1;

	#check all slots for items
  if(plugin::check_hasitem($client, 2415)) {
	 $itemscale = $itemscale + 2; #scale charm up by 1 per item
  }

  if(plugin::check_hasitem($client, 2421)) {
	 $itemscale = $itemscale + 2;
  }
 
  if(plugin::check_hasitem($client, 2393)) {
	 $itemscale = $itemscale + 2;
  }
  
	$questitem->SetScale($itemscale);
	quest::givecash(0,0,0,$moneytogive);
}

This should help a little.