fork download
copy 
  1. sub EVENT_SAY 
  2. {
  3. 	my $enlightenment = quest::saylink("enlightenment");
  4. 	if($text=~/hail/i) 
  5. 	{
  6. 		quest::say("Greetings. Do you seek [$enlightenment]?"); 
  7. 	}
  8.     my $shaman = quest::saylink("shaman");
  9. my $cleric = quest::saylink("cleric");
  10. my $beastlord = quest::saylink("beastlord");
  11. my $druid = quest::saylink("druid");	
  12. my $monk = quest::saylink("monk");
  13. my $join = quest::saylink("join");
  14. 	if($text=~/enlightenment/i)
  15. 	{
  16. 		quest::say("All who would consider themselves a priest must first become enlightened and transcend beyond mortal affairs. If you are a [$shaman], [$cleric], [$beastlord], [$druid], or [$monk] then we can begin this spiritual transformation. If you are something else, then you should speak with someone more like yourself.");
  17. 	}
  18.  
  19. 	if($text=~/join/i)
  20. 	{
  21. 		quest::say("Fantastic! Class is about ready to begin, but don't worry, you can come with me. Say, are you a [$wizard], [$magician], [$necromancer], [$enchanter], or some [$other] life choice?");
  22. 	}
  23.  
  24. 		if($text=~/monk/i)
  25. 	{
  26. 	if ($class=~/Monk/i) {
  27. 		quest::say("A monk. A respectful path to choose in life. Very well. Prepare to become enlightened.");
  28. 		$client->Message(315, "You enter a trance and awaken in a strange room.");
  29. 		quest::movepc(202,125,693,-156, 27);
  30. 	}
  31. 	}
  32.  
  33. 	{
  34. 	if($text=~/druid/i)
  35. 	if ($class=~/Druid/i) {
  36. 		quest::say("A druid. A respectful path to choose in life. Very well. Prepare to become enlightened.");
  37. 		$client->Message(315, "You enter a trance and awaken in a strange room.");
  38. 		quest::movepc(202,125,693,-156, 27);
  39. 	}
  40. 	}
  41.  
  42.  
  43. 		if($text=~/shaman/i)
  44. 		if ($class=~/Shaman/i) {
  45. 		quest::say("A shaman. A respectful path to choose in life. Very well. Prepare to become enlightened.");
  46. 		$client->Message(315, "You enter a trance and awaken in a strange room.");
  47. 		quest::movepc(202,125,693,-156, 27);
  48. 	}
  49. 	    if($text=~/cleric/i)
  50. 		if ($class=~/Cleric/i) {
  51. 	{
  52. 		quest::say("A cleric. A respectful path to choose in life. Very well. Prepare to become enlightened.");
  53. 		$client->Message(315, "You enter a trance and awaken in a strange room.");
  54. 		quest::movepc(202,125,693,-156, 27);
  55. 	}
  56. 		if($text=~/beastlord/i)
  57.         if ($class=~/Beastlord/i) {
  58. 	{
  59. 		quest::say("A beastlord. A respectful path to choose in life. Very well. Prepare to become enlightened.");
  60. 		$client->Message(315, "You enter a trance and awaken in a strange room.");
  61. 		quest::movepc(202,125,693,-156, 27);
  62. 	}
  63. 	if($text=~/other/i)
  64. 	{
  65. 		quest::say("Well, if you aren't a pureblooded magic user, I suggest you go waste someone else's time. My workshop only deals with primary magic.");
  66. 	}
  67. }
Runtime error #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/Nprz0
language:
Perl (perl 5.28.1)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!