Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Custom

Quests::Custom Custom Quests here

Reply
 
Thread Tools Display Modes
  #1  
Old 05-01-2009, 07:23 PM
KingMort
Banned
 
Join Date: Sep 2006
Posts: 841
Default

Well can see the Message that it's rampaging but no one gets any damage .. I was invul tanking but those around were taking no damage at all...
Reply With Quote
  #2  
Old 05-01-2009, 11:10 PM
Kayen
Developer
 
Join Date: Mar 2009
Location: -
Posts: 228
Default

Mort,

Are you using a very large mob? The larger the mob the larger you need to make the rampage distance. Post the code your using I'll take a look, unless its exactly the same.

Here is a direct copy and paste of just a trash mob I have using it. Feel free to just use that and let me know.

Code:
sub EVENT_COMBAT {

  if ($combat_state == 1) {
quest::settimer("Rampage", 8);
}

if ($combat_state == 0) {
$npc->WipeHateList();
quest::stoptimer("Rampage");
quest::stoptimer("getclients");
#$npc->SetHP($npc->GetMaxHP() * 1);
}
}

sub EVENT_TIMER {
if ($timer eq "Rampage") {
quest::stoptimer("Rampage");
my $TimeRA = quest::ChooseRandom(8);
quest::settimer("getclientsRAMPAGE", $TimeRA);
  }

####################################
##########AE RAMPAGE##################
#####################################
  if ($timer eq "getclientsRAMPAGE") {
  $cmname = $npc->GetCleanName();
  my $MaxDam = $npc->GetMaxDMG();
  my $ShieldMaxDam = ($MaxDam * .65);
  my $ShieldMinDam = $ShieldMaxDam / 2;
  my $DamageVar = ($ShieldMaxDam - $ShieldMinDam);
  
  $entity_list->MessageClose($npc, 1, 200, 13, "$cmname  goes on a RAMPAGE");
   
  my $list_check = 0;

  for ($list_check = 0; $list_check < 2000; $list_check++) {

  $client_search = $entity_list->GetClientByID($list_check);
     
    if ($client_search) {
    my $distanceCHK = $client_search->CalculateDistance($x, $y, $z);
    my $PLTarget = $npc->GetTarget();
    my $TargID = $PLTarget->GetID();
    my $ClID = $client_search->GetID();
    my $RampDamageVar = (int(rand($DamageVar ))) + $ShieldMinDam;
  
        if (($distanceCHK <= 31) && ($TargID != $ClID)) {
        $client_search->Damage($npc, $RampDamageVar, 7477, 1, true, -1, false);
        $client_search->Message(13, "$cmname hits YOU for $RampDamageVar points of damage" );
                            }

}
}
}
############################################################    
############################################################    
############################################################ 
}
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

   

All times are GMT -4. The time now is 05:00 PM.


 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3