Advertisement
Guest User

Untitled

a guest
Jul 20th, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.50 KB | None | 0 0
  1. #Trials Script - Dread
  2. sub EVENT_COMBAT
  3. {
  4.     if ($combat_state == 1)
  5.     {
  6.         quest::emote("Enraged Dread begins to channel healing energy.");
  7.         quest::settimer("life",20);
  8.        
  9.     }
  10.     if ($combat_state == 0)
  11.     {
  12.         quest::stoptimer("life");
  13.     }
  14. }
  15.  
  16. sub EVENT_TIMER
  17. {
  18.     if ($timer eq "life")
  19.     {
  20.     my $cazic = $entity_list->GetMobByNpcID(304022);
  21.     if ($cazic)
  22.         {
  23.         my $cazichp = $cazic->GetHP();
  24.         $cazic->SetHP($cazichp + 100000);
  25.         }
  26.     }
  27. }
  28.  
  29. sub EVENT_KILLED_MERIT
  30. {
  31.     $client->AddCrystals(0, 5);
  32. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement