Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Custom
Reload this Page Charm Upgrade Quest

Quests::Custom Custom Quests here

Reply
 
Thread Tools Display Modes
  #1  
Old 07-24-2011, 11:39 AM
lockjaws
Fire Beetle
  
Join Date: Jun 2008
Location: UK
Posts: 13
Default Charm Upgrade Quest
Before i begin I'd like to Thank Trevius for kindly allowing me to use and adapt some of his quest code from his armor quest for all levels, after speaking with him on his server.

**** There is NO SQL file currently for this quest****

The quest is designed to work with quest global and tasks, I'm sure you expert Perl quest writers will find many different ways of doing this but with my limited knowledge and this being my first attempt at creating a quest of Perl script writing this is what i came up with.

The quest gives a player a starting charm with lots of quests to upgrade as they progress.

it sets a qglobal after the first charm has been given then assigns a task, the quest is set to see which part of the task you are on i.e. you have not been given the task, you are on the task but not yet completed it or you have completed the task, each having a preset stage.

The way the quest works is you need to create your own reward items, quest turn in items and task reward items. these item id's only need to be set at the start of the quest text in the *modify here sections*.

The task id's also only need to be set in the task modify here section this saves time in adding item id's and task id's on each section of the quest script.

As there is no SQL file with this currently you will need to make your own tasks and item id's putting the correct id numbers in the right sections of the quest, as a result this quest may not be worth while for some but for others it may be just the thing they are looking for.

If you manage to find anything wrong with the quest please let me know.
Anyway here is the quest for you to use as you please.
Reply With Quote
  #2  
Old 07-24-2011, 11:41 AM
lockjaws
Fire Beetle
  
Join Date: Jun 2008
Location: UK
Posts: 13
Default
Code:
################################################
#
# MODIFY ITEM REWARDS HERE
# 
# REWARDS
#
################################################
%Rewards = (				#Name each item appropriately for use Charm rewards
#Solo charm rewards
"charm2" =>			1353,	#Elixir of the treant (rank2) (Quest giver reward)
"charm3" =>			1373,	#Elixir of the treant (rank3) (Quest giver reward)
"charm4" =>			1374,	#Elixir of the treant (rank4) (Quest giver reward)
"charm5" =>			1375,	#Elixir of the treant (rank5) (Quest giver reward)
"charm6" =>			1563,	#Elixir of the treant (rank6) (Quest giver reward)
#Raid charm rewards
"raid_charm2" =>	1261,	#Treant Bark Charm (rank1) (Quest giver reward)
"raid_charm3" =>	1377,	#Treant Bark Charm (rank2) (Quest giver reward)
"raid_charm4" =>	1378,	#Treant Bark Charm (rank3) (Quest giver reward)
"raid_charm5" =>	1379,	#Treant Bark Charm (rank4) (Quest giver reward)
"raid_charm6" =>	1380,	#Treant Bark Charm (rank5) (Quest giver reward)
#Guild Charm rewards
"guild_charm2" =>	1568,	#Treant Charm (Guild Rank1) (Quest giver reward)
"guild_charm3" =>	1569,	#Treant Charm (Guild Rank2) (Quest giver reward)
"guild_charm4" =>	1577,	#Treant Charm (Guild Rank3) (Quest giver reward)
"guild_charm5" =>	1579,	#Treant Charm (Guild Rank4) (Quest giver reward)
"guild_charm6" =>	1581,	#Treant Charm (Guild Rank5) (Quest giver reward)
);

################################################
#
# MODIFY TASK ID's HERE
#
################################################
%Task = (				#Name each Task appropriately for use Task Assign
#Solo charm
"s_task1" =>	224,	#Solo charm 1(task id 224)
"s_task2" =>	222,	#Solo charm 2(task id 222)
"s_task3" =>	225,	#Solo charm 3(task id 225)
"s_task4" =>	227,	#Solo charm 4(task id 227)
"s_task5" =>	229,	#Solo charm 5(task id 229)
#Raid charm
"r_task1" =>	231,	#Raid charm 1(task id 231)
"r_task2" =>	233,	#Raid charm 2(task id 233)
"r_task3" =>	235,	#Raid charm 3(task id 235)
"r_task4" =>	237,	#Raid charm 4(task id 237)
"r_task5" =>	239,	#Raid charm 5(task id 239)
#Guild Charm
"g_task1" =>	241,	#Guild charm 1(task id 241)
"g_task2" =>	243,	#Guild charm 2(task id 243)
"g_task3" =>	245,	#Guild charm 3(task id 245)
"g_task4" =>	247,	#Guild charm 4(task id 247)
"g_task5" =>	249,	#Guild charm 5(task id 249)
);

################################################
#
# MODIFY HERE
# 
# REQUIRED QUEST TURNINS
#
################################################
#Solo Section
my $solo_charm1 =				1372;		#Elixir of the treant (rank1) (Quest giver reward)
my $solo_charm2 =				1353;		#Elixir of the treant (rank2) (Quest giver reward)
my $solo_charm3 =				1373;		#Elixir of the treant (rank3) (Quest giver reward)
my $solo_charm4 =				1374;		#Elixir of the treant (rank4) (Quest giver reward)
my $solo_charm5 =				1375;		#Elixir of the treant (rank5) (Quest giver reward)
my $solo_charm6 =				1563;		#Elixir of the treant (Rank6) (Quest giver reward)
my $solo_quest_charm1 =			1449;		#Solo EXP Quest Token (Rank 1)  (crystal caverns)
my $solo_quest_charm2 =			1661;		#Solo EXP Quest Token (Rank 1)  (Zonename) 
my $solo_quest_charm3 =			1662;		#Solo EXP Quest Token (Rank 1)  (Zonename)
my $solo_quest_charm4 =			1663;		#Solo EXP Quest Token (Rank 1)  (Zonename)
my $solo_quest_charm5 =			1664;		#Solo EXP Quest Token (Rank 1)  (Zonename)
my $solo_token1 =				1806;		#Solo EXP Charm Token (Rank 1) (task id 224)
my $solo_token2 =				1450;		#Solo EXP Charm Token (Rank 1) (task id 222)
my $solo_token3 =				1458;		#Solo EXP Charm Token (Rank 1) (task id 225)
my $solo_token4 =				1502;		#Solo EXP Charm Token (Rank 1) (task id 227)
my $solo_token5 =				1503;		#Solo EXP Charm Token (Rank 1) (task id 229)
#RAID Section
my $solo_raid_charm2 =			1261;		#Treant Bark Charm (rank1) (Quest giver reward)
my $solo_raid_charm3 =			1377;		#Treant Bark Charm (rank2) (Quest giver reward)
my $solo_raid_charm4 =			1378;		#Treant Bark Charm (rank3) (Quest giver reward)
my $solo_raid_charm5 =			1379;		#Treant Bark Charm (rank4) (Quest giver reward)
my $solo_raid_charm6 =			1380;		#Treant Bark Charm (rank5) (Quest giver reward)
my $solo_raid_quest_charm1 =	1716;		#Solo RAID Quest Token (Rank 1)  (Zonename)
my $solo_raid_quest_charm2 =	1732;		#Solo RAID Quest Token (Rank 2)  (Zonename)
my $solo_raid_quest_charm3 =	1733;		#Solo RAID Quest Token (Rank 3)  (Zonename)
my $solo_raid_quest_charm4 =	1734;		#Solo RAID Quest Token (Rank 4)  (Zonename)
my $solo_raid_quest_charm5 =	1800;		#Solo RAID Quest Token (Rank 5)  (Zonename)
my $solo_raid_token1 =			1586;		#Solo RAID Charm Token (Rank 1) (task id 231)
my $solo_raid_token2 =			1587;		#Solo RAID Charm Token (Rank 2) (task id 233)
my $solo_raid_token3 =			1591;		#Solo RAID Charm Token (Rank 3) (task id 235)
my $solo_raid_token4 =			1592;		#Solo RAID Charm Token (Rank 4) (task id 237)
my $solo_raid_token5 =			1660;		#Solo RAID Charm Token (Rank 5) (task id 239)
#GUILD raid section
my $guild_raid_charm2 =			1568;		#Treant Charm (Guild Rank1) (Quest giver reward)
my $guild_raid_charm3 =			1569;		#Treant Charm (Guild Rank2) (Quest giver reward)
my $guild_raid_charm4 =			1577;		#Treant Charm (Guild Rank3) (Quest giver reward)
my $guild_raid_charm5 =			1579;		#Treant Charm (Guild Rank4) (Quest giver reward)
my $guild_raid_charm6 =			1581;		#Treant Charm (Guild Rank5) (Quest giver reward)
my $guild_quest_charm1 =		1801;		#Guild Quest Token (Rank 1)  (Zonename)
my $guild_quest_charm2 =		1802;		#Guild Quest Token (Rank 2)  (Zonename)
my $guild_quest_charm3 =		1803;		#Guild Quest Token (Rank 3)  (Zonename)
my $guild_quest_charm4 =		1804;		#Guild Quest Token (Rank 4)  (Zonename)
my $guild_quest_charm5 =		1805;		#Guild Quest Token (Rank 5)  (Zonename)
my $guild_token_charm1 =		1654;		#Guild Charm Token (Rank 1) (task id 241)
my $guild_token_charm2 =		1655;		#Guild Charm Token (Rank 2) (task id 243)
my $guild_token_charm3 =		1656;		#Guild Charm Token (Rank 3) (task id 245)
my $guild_token_charm4 =		1657;		#Guild Charm Token (Rank 4) (task id 247)
my $guild_token_charm5 =		1658;		#Guild Charm Token (Rank 5) (task id 249)
####################################################

sub EVENT_SAY {
###NEW ITEMS###
#Do NOT modify#
###############
my $charm1 = "charm1";
my $charm2 = "charm2";
my $charm3 = "charm3";
my $charm4 = "charm4";
my $charm5 = "charm5";
my $charm6 = "charm6";
my $raid_charm1 = "raid_charm1";
my $raid_charm2 = "raid_charm2";
my $raid_charm3 = "raid_charm3";
my $raid_charm4 = "raid_charm4";
my $raid_charm5 = "raid_charm5";
my $raid_charm6 = "raid_charm6";
my $guild_charm1 = "guild_charm1";
my $guild_charm2 = "guild_charm2";
my $guild_charm3 = "guild_charm3";
my $guild_charm4 = "guild_charm4";
my $guild_charm5 = "guild_charm5";
my $guild_charm6 = "guild_charm6";
#Create Task array for task assignments
###TASK ID'S###
#Do NOT modify#
###############
my $s_task1 = "s_task1";
my $s_task2 = "s_task2";
my $s_task3 = "s_task3";
my $s_task4 = "s_task4";
my $s_task5 = "s_task5";
my $r_task1 = "r_task1";
my $r_task2 = "r_task2";
my $r_task3 = "r_task3";
my $r_task4 = "r_task4";
my $r_task5 = "r_task5";
my $g_task1 = "g_task1";
my $g_task2 = "g_task2";
my $g_task3 = "g_task3";
my $g_task4 = "g_task4";
my $g_task5 = "g_task5";
#Create the Item Links from the Rewards Array for use in say messages
###############
#Do NOT modify#
###############
my $charm1_Link = quest::varlink($Rewards{$charm1});
my $charm2_Link = quest::varlink($Rewards{$charm2});
my $charm3_Link = quest::varlink($Rewards{$charm3});
my $charm4_Link = quest::varlink($Rewards{$charm4});
my $charm5_Link = quest::varlink($Rewards{$charm5});
my $charm6_Link = quest::varlink($Rewards{$charm6});
my $raid_charm1_Link = quest::varlink($Rewards{$raid_charm1});
my $raid_charm2_Link = quest::varlink($Rewards{$raid_charm2});
my $raid_charm3_Link = quest::varlink($Rewards{$raid_charm3});
my $raid_charm4_Link = quest::varlink($Rewards{$raid_charm4});
my $raid_charm5_Link = quest::varlink($Rewards{$raid_charm5});
my $raid_charm6_Link = quest::varlink($Rewards{$raid_charm6});
my $guild_charm1_Link = quest::varlink($Rewards{$guild_charm1});
my $guild_charm2_Link = quest::varlink($Rewards{$guild_charm2});
my $guild_charm3_Link = quest::varlink($Rewards{$guild_charm3});
my $guild_charm4_Link = quest::varlink($Rewards{$guild_charm4});
my $guild_charm5_Link = quest::varlink($Rewards{$guild_charm5});
my $guild_charm6_Link = quest::varlink($Rewards{$guild_charm6});
#Create the required quest turnin item links for use in say messages
###############
#Do NOT modify#
###############
my $charm1_template = quest::varlink($solo_charm1);
my $charm2_template = quest::varlink($solo_charm2);
my $charm3_template = quest::varlink($solo_charm3);
my $charm4_template = quest::varlink($solo_charm4);
my $charm5_template = quest::varlink($solo_charm5);
my $charm6_template = quest::varlink($solo_charm6);
my $charm1_token = quest::varlink($solo_token1);
my $charm2_token = quest::varlink($solo_token2);
my $charm3_token = quest::varlink($solo_token3);
my $charm4_token = quest::varlink($solo_token4);
my $charm5_token = quest::varlink($solo_token5);
my $charm1_quest = quest::varlink($solo_quest_charm1);
my $charm2_quest = quest::varlink($solo_quest_charm2);
my $charm3_quest = quest::varlink($solo_quest_charm3);
my $charm4_quest = quest::varlink($solo_quest_charm4);
my $charm5_quest = quest::varlink($solo_quest_charm5);
###############
#Do NOT modify#
###############
my $raid_charm2_template = quest::varlink($solo_raid_charm2);
my $raid_charm3_template = quest::varlink($solo_raid_charm3);
my $raid_charm4_template = quest::varlink($solo_raid_charm4);
my $raid_charm5_template = quest::varlink($solo_raid_charm5);
my $raid_charm6_template = quest::varlink($solo_raid_charm6);
my $raid_charm1_token = quest::varlink($solo_raid_token1);
my $raid_charm2_token = quest::varlink($solo_raid_token2);
my $raid_charm3_token = quest::varlink($solo_raid_token3);
my $raid_charm4_token = quest::varlink($solo_raid_token4);
my $raid_charm5_token = quest::varlink($solo_raid_token5);
my $raid_charm1_quest = quest::varlink($solo_raid_quest_charm1);
my $raid_charm2_quest = quest::varlink($solo_raid_quest_charm2);
my $raid_charm3_quest = quest::varlink($solo_raid_quest_charm3);
my $raid_charm4_quest = quest::varlink($solo_raid_quest_charm4);
my $raid_charm5_quest = quest::varlink($solo_raid_quest_charm5);
###############
#Do NOT modify#
###############
my $guild_charm2_template = quest::varlink($guild_raid_charm2);
my $guild_charm3_template = quest::varlink($guild_raid_charm3);
my $guild_charm4_template = quest::varlink($guild_raid_charm4);
my $guild_charm5_template = quest::varlink($guild_raid_charm5);
my $guild_charm1_token = quest::varlink($guild_token_charm1);
my $guild_charm2_token = quest::varlink($guild_token_charm2);
my $guild_charm3_token = quest::varlink($guild_token_charm3);
my $guild_charm4_token = quest::varlink($guild_token_charm4);
my $guild_charm5_token = quest::varlink($guild_token_charm5);
my $guild_charm1_quest = quest::varlink($guild_quest_charm1);
my $guild_charm2_quest = quest::varlink($guild_quest_charm2);
my $guild_charm3_quest = quest::varlink($guild_quest_charm3);
my $guild_charm4_quest = quest::varlink($guild_quest_charm4);
my $guild_charm5_quest = quest::varlink($guild_quest_charm5);

##################
#Message saylinks#
##################
my $charms = quest::saylink("charms");
my $begin = quest::saylink("begin the task");

#####################################
# Solo Exp Charms START quest script#
#####################################
#Check if global is present if not hands starter charm and sets qglobal
if ($text=~/Hail/i && $charm_upgrade == undef) 
{
		$client->Message(315,"$item do not lose this item as it can be upgraded as your
							 progress through the world. I can tell you about $charms if
							 you wish to hear about them?");
				quest::setglobal("charm_upgrade", 1, 5, "F");
				quest::summonitem(1372);  #Elixir of the Treant (Rank 1)
 }
################## 
#Solo EXP Charm 1#
##################
# Checks if global charm_upgrade to 1,
# so will have a new response when hailed and assign Solo EXP Charm 1 Task
  if ($text=~/charms/i && $charm_upgrade == 1) {
			 
		
		$client->Message(315, 
					  "As you progress through levels and content
					  I am able to offer you charm upgrades. Each charm is stronger
					  in power than the next. The quests are not easy mind you so
					  you'd best have your wits about you. would you like to $begin?");
		}
#Assign's Solo EXP Charm 1 Task
 if ($text=~/begin the task/i && $charm_upgrade == 1) 
			
		{		  
		$client->Message(315, 
					   "The Dwarven citizens within Crystal Caverns have been tormented
					   by The Spider Queen for too long. Bring me your $charm1_template your
					   $charm1_quest along with your $charm1_token from my task
					   reward as proof and I will reward you with $charm2_Link");
					   quest::assigntask($Task{$s_task1});
		
		}
#Check for global and Doesn't have quest, just incase they missed it.		
if ($text=~/Hail/i && $charm_upgrade == 1 && !quest::istaskactive($Task{$s_task1}) && !quest::istaskcompleted($Task{$s_task1})) 
			
		{		  
		$client->Message(315, 
					   "The Dwarven citizens within Crystal Caverns have been tormented
					   by The Spider Queen for too long. Bring me your $charm1_template your
					   $charm1_quest along with your $charm1_token from my task
					   reward as proof and I will reward you with $charm2_Link");
					   quest::assigntask($Task{$s_task1});
		
		}
		
		
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 1 && quest::istaskactive($Task{$s_task1}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message 
		elsif ($text=~/Hail/i && $charm_upgrade == 1 && quest::istaskcompleted($Task{$s_task1}))
		{
		$client->Message(315, 
					  "Hand Me your $charm1_template, $charm1_quest and $charm1_token
					  Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
			  
###################		
#Solo EXP Charm 2 #
###################   
# Checks if global charm_upgrade to 2 and if task is not assigned and completed yet

	if ($text=~/Hail/i && $charm_upgrade == 2 && !quest::istaskactive($Task{$s_task2}) && !quest::istaskcompleted($Task{$s_task2})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $charm2_template your $charm2_quest along 
					   with your $charm2_token from my task reward as proof and
					   I will reward you with $charm3_Link");
					   quest::assigntask($Task{$s_task2});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 2 && quest::istaskactive($Task{$s_task2}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 2 && quest::istaskcompleted($Task{$s_task2}))
		{
		$client->Message(315, 
					  "Hand Me your $charm2_template, $charm2_quest and $charm2_token
					  Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
##################		
#Solo EXP Charm 3#
##################	
# Checks if global charm_upgrade to 3
# so will have a new response when hailed and assign Solo EXP Charm 3

   if ($text=~/Hail/i && $charm_upgrade == 3 && !quest::istaskactive($Task{$s_task3}) && !quest::istaskcompleted($Task{$s_task3})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $charm3_template and your $charm3_quest along with 
					   your $charm3_token from my task reward as proof and I will reward
					   you with $charm4_Link");
					   quest::assigntask($Task{$s_task3});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 3 && quest::istaskactive($Task{$s_task3}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 3 && quest::istaskcompleted($Task{$s_task3}))
		{
		$client->Message(315, 
					  "Hand Me your $charm3_template, $charm3_quest and $charm3_token
					  Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
##################
#Solo EXP Charm 4#
##################	
# Checks if global charm_upgrade to 4
# so will have a new response when hailed and assign Solo EXP Charm 4 task	
  if ($text=~/Hail/i && $charm_upgrade == 4 && !quest::istaskactive($Task{$s_task4}) && !quest::istaskcompleted($Task{$s_task4})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $charm4_template your $charm4_quest along 
					   with your $charm4_token from my task reward as proof and
					   I will reward you with $charm5_Link");
					   quest::assigntask($Task{$s_task4});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 4 && quest::istaskactive($Task{$s_task4}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 4 && quest::istaskcompleted($Task{$s_task4}))
		{
		$client->Message(315, 
					  "Hand Me your $charm4_template, $charm4_quest and $charm4_token
					  Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
##################		
#Solo EXP Charm 5#
##################
# Checks if global charm_upgrade to 4
# so will have a new response when hailed and assign Solo EXP Charm 5 task


  if ($text=~/Hail/i && $charm_upgrade == 5 && !quest::istaskactive($Task{$s_task5}) && !quest::istaskcompleted($Task{$s_task5})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $charm5_template your $charm5_quest along 
					   with your $charm5_token from my task reward as proof and 
					   I will reward you with $charm6_Link");
					   quest::assigntask($Task{$s_task5});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 5 && quest::istaskactive($Task{$s_task5}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 5 && quest::istaskcompleted($Task{$s_task5}))
		{
		$client->Message(315, 
					  "Hand Me your $charm5_template, $charm5_quest and $charm5_token
					  Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
###################	
#Solo Raid Charm 1#
###################
 if ($text=~/Hail/i && $charm_upgrade == 10 && !quest::istaskactive($Task{$r_task1}) && !quest::istaskcompleted($Task{$r_task1})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $charm6_template and
					   your $raid_charm1_quest along with your $raid_charm1_token from my task
					   reward as proof and I will reward you with $raid_charm2_Link");
					   quest::assigntask($Task{$r_task1});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 10 && quest::istaskactive($Task{$r_task1}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 10 && quest::istaskcompleted($Task{$r_task1}))
		{
		$client->Message(315, 
					  "Hand Me your $charm6_template your $raid_charm1_quest and
					  $raid_charm1_token. Remember to REMOVE any augments you have 
					  in your current charm first before handing in"); 
		}
###################		
#Solo Raid Charm 2#
###################

  if ($text=~/Hail/i && $charm_upgrade == 11 && !quest::istaskactive($Task{$r_task2}) && !quest::istaskcompleted($Task{$r_task2})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $raid_charm2_template your $raid_charm2_quest
					   along with your $raid_charm2_token from my task reward as proof
					   and I will reward you with $raid_charm3_Link");
					   quest::assigntask($Task{$r_task2});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 11 && quest::istaskactive($Task{$r_task2}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 11 && quest::istaskcompleted($Task{$r_task2}))
		{
		$client->Message(315, 
					  "Hand Me your $raid_charm2_template your $raid_charm2_quest and
					  $raid_charm2_token. Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
###################		
#Solo Raid Charm 3#
###################

  if ($text=~/Hail/i && $charm_upgrade == 12 && !quest::istaskactive($Task{$r_task3}) && !quest::istaskcompleted($Task{$r_task3})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $raid_charm3_template and your $raid_charm3_quest
					   along with your $raid_charm3_token from my task reward as proof 
					   and I will reward you with $raid_charm4_Link");
					   quest::assigntask($Task{$r_task3});
					   quest::doanim(42);
		
		}

#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 12 && quest::istaskactive($Task{$r_task3}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 12 && quest::istaskcompleted($Task{$r_task3}))
		{
		$client->Message(315, 
					  "Hand Me your $raid_charm3_template your $raid_charm3_quest and
					  $raid_charm3_token. Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
###################		
#Solo Raid Charm 4#
###################

  if ($text=~/Hail/i && $charm_upgrade == 13 && !quest::istaskactive($Task{$r_task4}) && !quest::istaskcompleted($Task{$r_task4})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $raid_charm4_template and your $raid_charm4_quest
					   along with your $raid_charm4_token from my task reward as proof
					   and I will reward you with $raid_charm5_Link");
					   quest::assigntask($Task{$r_task4});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 13 && quest::istaskactive($Task{$r_task4}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 13 && quest::istaskcompleted($Task{$r_task4}))
		{
		$client->Message(315, 
					  "Hand Me your $raid_charm4_template your $raid_charm4_quest and
					  $raid_charm4_token. Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
###################		
#Solo Raid Charm 5#
###################
 if ($text=~/Hail/i && $charm_upgrade == 14 && !quest::istaskactive($Task{$r_task5}) && !quest::istaskcompleted($Task{$r_task5})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $raid_charm5_template and	your $raid_charm5_quest
					   along with your $raid_charm5_token from my task reward as proof
					   and I will reward you with $raid_charm6_Link");
					   quest::assigntask($Task{$r_task5});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 14 && quest::istaskactive($Task{$r_task5}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 14 && quest::istaskcompleted($Task{$r_task5}))
		{
		$client->Message(315, 
					  "Hand Me your $raid_charm5_template your $raid_charm5_quest and
					  $raid_charm5_token. Remember to REMOVE any augments you have in
					  your current charm first before handing in"); 
		}
####################
#Guild Raid Charm 1#
####################

  if ($text=~/Hail/i && $charm_upgrade == 20 && !quest::istaskactive($Task{$g_task1}) && !quest::istaskcompleted($Task{$g_task1})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $raid_charm6_template your $guild_charm1_quest
					   along with your $guild_charm1_token from my task reward as proof
					   and I will reward you with $guild_charm2_Link");
					   quest::assigntask($Task{$g_task1});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 20 && quest::istaskactive($Task{$g_task1}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 20 && quest::istaskcompleted($Task{$g_task1}))
		{
		$client->Message(315, 
					  "Hand me your $raid_charm6_template your $guild_charm1_quest
					   along with your $guild_charm1_token. Remember to REMOVE any
					   augments you have in your current charm first before handing in"); 
		}
		
####################
#Guild Raid Charm 2#
####################
  if ($text=~/Hail/i && $charm_upgrade == 21 && !quest::istaskactive($Task{$g_task2}) && !quest::istaskcompleted($Task{$g_task2})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $guild_charm2_template your $guild_charm2_quest
					   along with your $guild_charm2_token from my task reward as proof and
					   I will reward you with $guild_charm3_Link");
					   quest::assigntask($Task{$g_task2});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 21 && quest::istaskactive($Task{$g_task2}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 21 && quest::istaskcompleted($Task{$g_task2}))
		{
		$client->Message(315, 
					  "Hand Me your $guild_charm2_template your $guild_charm2_quest and
					  $guild_charm2_token. Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
####################
#Guild Raid Charm 3#
####################
  if ($text=~/Hail/i && $charm_upgrade == 22 && !quest::istaskactive($Task{$g_task3}) && !quest::istaskcompleted($Task{$g_task3})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $guild_charm3_template your $guild_charm3_quest
					   along with your $guild_charm3_token from my task reward as proof and
					   I will reward you with $guild_charm4_Link");
					   quest::assigntask($Task{$g_task3});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 22 && quest::istaskactive($Task{$g_task3}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 22 && quest::istaskcompleted($Task{$g_task3}))
		{
		$client->Message(315, 
					  "Hand Me your $guild_charm3_template your $guild_charm3_quest and
					  $guild_charm3_token. Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
####################
#Guild Raid Charm 4#
####################
  if ($text=~/Hail/i && $charm_upgrade == 23 && !quest::istaskactive($Task{$g_task4}) && !quest::istaskcompleted($Task{$g_task4})) 
			
		{		  
		$client->Message(315, 
					   "TBring me your $guild_charm4_template your $guild_charm4_quest
					   along with your $guild_charm4_token from my task reward as proof and
					   I will reward you with $guild_charm5_Link");
					   quest::assigntask($Task{$g_task4});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 23 && quest::istaskactive($Task{$g_task4}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 23 && quest::istaskcompleted($Task{$g_task4}))
		{
		$client->Message(315, 
					  "Hand Me your $guild_charm4_template your $guild_charm4_quest and
					  $guild_charm4_token. Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}
		
####################
#Guild Raid Charm 5#
####################
  if ($text=~/Hail/i && $charm_upgrade == 24 && !quest::istaskactive($Task{$g_task5}) && !quest::istaskcompleted($Task{$g_task5})) 
			
		{		  
		$client->Message(315, 
					   "Bring me your $guild_charm5_template your $guild_charm5_quest
					   along with your $guild_charm5_token from my task reward as proof and
					   I will reward you with $guild_charm6_Link");
					   quest::assigntask($Task{$g_task5});
					   quest::doanim(42);
		
		}
#checks if task is already asigned and says message 
		elsif ($text=~/Hail/i && $charm_upgrade == 24 && quest::istaskactive($Task{$g_task5}))
		{
		$client->Message(315, 
					  "You have not yet completed your quest for this charm yet
					  Check your quest log"); 
		}
#checks if task is already completed and says hand in items message
		elsif ($text=~/Hail/i && $charm_upgrade == 24 && quest::istaskcompleted($Task{$g_task5}))
		{
		$client->Message(315, 
					  "Hand Me your $guild_charm5_template your $guild_charm5_quest and
					  $guild_charm5_token. Remember to REMOVE any augments you have in your current
					  charm first before handing in"); 
		}

####################
#Guild Raid Charm 5#
####################
  if ($text=~/Hail/i && $charm_upgrade == 25) 
			
		{		  
		$client->Message(315, 
					   "Congratulations you have completed all of the charm quests.");
						quest::doanim(42);
		
		}

}
 
sub EVENT_ITEM
 {
 
#Create the full name of each item for the Rewards array
###############
#Do NOT modify#
###############
my $charm2 = "charm2";
my $charm3 = "charm3";
my $charm4 = "charm4";
my $charm5 = "charm5";
my $charm6 = "charm6";
my $raid_charm2 = "raid_charm2";
my $raid_charm3 = "raid_charm3";
my $raid_charm4 = "raid_charm4";
my $raid_charm5 = "raid_charm5";
my $raid_charm6 = "raid_charm6";
my $guild_charm2 = "guild_charm2";
my $guild_charm3 = "guild_charm3";
my $guild_charm4 = "guild_charm4";
my $guild_charm5 = "guild_charm5";
my $guild_charm6 = "guild_charm6";
########################
#solo exp zones charm 1#
########################
#solo exp zones charm 1 Charm id, questid, tokenid.
  if  (plugin::check_handin(\%itemcount, $solo_charm1=> 1, $solo_quest_charm1=> 1, $solo_token1=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 2, 5, "F");
    quest::summonitem($Rewards{$charm2});  #Elixir of the treant (rank 2)
    quest::ding ();
     }
#solo exp zones charm 2	 Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $solo_charm2=> 1, $solo_quest_charm2=> 1, $solo_token2=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 3, 5, "F");
    quest::summonitem($Rewards{$charm3}); #Elixir of the treant (rank 3)
    quest::ding ();
     }
#solo exp zones charm 3	Charm id, questid, tokenid. 
 if  (plugin::check_handin(\%itemcount, $solo_charm3=> 1, $solo_quest_charm3=> 1, $solo_token3=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 4, 5, "F");
    quest::summonitem($Rewards{$charm4});  #Elixir of the treant (rank 4)
    quest::ding ();
     }
#solo exp zones charm 4	Charm id, questid, tokenid. 
 if  (plugin::check_handin(\%itemcount, $solo_charm4=> 1, $solo_quest_charm4=> 1, $solo_token4=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 5, 5, "F");
    quest::summonitem($Rewards{$charm5});  #Elixir of the treant (rank 5)
    quest::ding ();
     }
#solo exp zones charm 5	Charm id, questid, tokenid. 
 if  (plugin::check_handin(\%itemcount, $solo_charm5=> 1, $solo_quest_charm5=> 1, $solo_token5=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 10, 5, "F");
    quest::summonitem($Rewards{$charm6});  #Elixir of the treant (rank 5)
    quest::ding ();
     }
	 
###################
#Solo Raid charm 1#
###################
#Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $solo_charm6=> 1, $solo_raid_quest_charm1=> 1, $solo_raid_token1=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 11, 5, "F");
    quest::summonitem($Rewards{$raid_charm2});  #Treant Bark Charm (Solo Raid Rank 1)
    quest::ding ();
     }
#Solo Raid charm 2	 Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $solo_raid_charm2=> 1, $solo_raid_quest_charm2=> 1, $solo_raid_token2=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 12, 5, "F");
    quest::summonitem($Rewards{$raid_charm3});  #Treant Bark Charm (Solo Raid Rank 2)
    quest::ding ();
     }
#Solo Raid charm 3	 Charm id, questid, tokenid. 
 if  (plugin::check_handin(\%itemcount, $solo_raid_charm3=> 1, $solo_raid_quest_charm3=> 1, $solo_raid_token3=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 13, 5, "F");
    quest::summonitem($Rewards{$raid_charm4});  #Treant Bark Charm (Solo Raid Rank 3)
    quest::ding ();
     }
#Solo Raid charm 4	 Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $solo_raid_charm4=> 1, $solo_raid_quest_charm4=> 1, $solo_raid_token4=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 14, 5, "F");
    quest::summonitem($Rewards{$raid_charm5});  #Treant Bark Charm (Solo Raid Rank 4)
    quest::ding ();
     }
#Solo Raid charm 5	 Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $solo_raid_charm5=> 1, $solo_raid_quest_charm5=> 1, $solo_raid_token5=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 20, 5, "F");
    quest::summonitem($Rewards{$raid_charm6});  #Treant Bark Charm (Solo Raid Rank 5)
    quest::ding ();
     }
####################
#Guild Raid Charm 1#
####################
#Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $solo_raid_charm6=> 1, $guild_quest_charm1=> 1, $guild_token_charm1=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 21, 5, "F");
    quest::summonitem($Rewards{$guild_charm2});  #Treant Charm (Guild Rank 1)
    quest::ding ();
     }
#Guild Raid Charm 2	 Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $guild_raid_charm2=> 1, $guild_quest_charm2=> 1, $guild_token_charm2=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 22, 5, "F");
    quest::summonitem($Rewards{$guild_charm3});  #Treant Charm (Guild Rank 2)
    quest::ding ();
     }
#Guild Raid Charm 3	 Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $guild_raid_charm3=> 1, $guild_quest_charm3=> 1, $guild_token_charm3=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 23, 5, "F");
    quest::summonitem($Rewards{$guild_charm4});  #Treant Charm (Guild Rank 3)
    quest::ding ();
     }
#Guild Raid Charm 4	 Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $guild_raid_charm4=> 1, $guild_quest_charm4=> 1, $guild_token_charm4=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::setglobal("charm_upgrade", 24, 5, "F");
    quest::summonitem($Rewards{$guild_charm5});  #Treant Charm (Guild Rank 4)
    quest::ding ();
     }
#Guild Raid Charm 5	 Charm id, questid, tokenid.
 if  (plugin::check_handin(\%itemcount, $guild_raid_charm5=> 1, $guild_quest_charm5=> 1, $guild_token_charm5=> 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::shout2("Congratulations to $name on completing all of the charm upgrade quests");
	quest::setglobal("charm_upgrade", 25, 5, "F");
    quest::summonitem($Rewards{$guild_charm6});  #Treant Charm (Guild Rank 5)
    quest::ding ();
     }
     else 
	{
	plugin::return_items(\%itemcount);	
	}
  }
Reply With Quote
  #3  
Old 07-25-2011, 11:06 AM
rencro
Hill Giant
  
Join Date: Sep 2008
Location: So. California
Posts: 219
Default
Thanks for the submission, i'll be trying this out soon..
Reply With Quote
  #4  
Old 02-12-2012, 03:41 AM
GurkhaPanzers
Hill Giant
  
Join Date: Aug 2010
Location: Arizona
Posts: 164
Default
It is live on Vahalla 5 bots if you want to see how it works. I love it personally/.
Reply With Quote
Reply

« Previous Thread | Next Thread »

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 AM.

EQEmulator - Archive - Top

 

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 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3