View Single Post
  #1  
Old 06-22-2004, 07:45 PM
nilar
Hill Giant
 
Join Date: Dec 2003
Location: The moon
Posts: 230
Default Help with Perl script

Can anyone tell me whats wrong with this script? The second sub Event_Say and the sub Event_Attack work but I can't get the first sub Event_say to work.

Code:
sub EVENT_SAY(){
  if ($text=~/Hail/i){quest::say("Hello there $name. I am the Avatar of Anarchy. If you are wishing to turn to the dark side, I can call upon Cazic Thule to free you from the chains of order. This will convert you into a Player Killer who can kill and be killed by other Player Killers. Do you wish to [convert]?");  }
}
sub EVENT_SAY(){
  if ($text=~/convert/i){quest::say("Very well then $name. Bring Anarchy upon this world!"); quest::pvp("on");  }
}
sub EVENT_ATTACK(){
  quest::shout("FOOL! You have dug your own grave!");
}
__________________
"I can imagine a world without war, a world without hate. And I can imagine myself attacking that world. They would never expect it"

Nilar Nightwolf- SaltyBoogers Non Legit ServerOp
Ascendra Custom Legit ServerOp
GM-Mgmt Jezebells Everquest Server
Senyen of the Abyss [65 Forest Stalker] Dil's World
Reply With Quote