Go Back   EQEmulator Home > EQEmulator Forums > Archives > Archive::Development > Archive::Quests

Archive::Quests Archive area for Quests's posts that were moved here after an inactivity period of 90 days.

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 08-07-2004, 05:33 AM
sotonin
Demi-God
 
Join Date: May 2004
Posts: 1,177
Default Reset Spell Specialization?

Is there a function out there to reset a players spell specialization? I am working on "Ostorm"'s quest at the moment and am at a loss. here's what i've got so far.

Code:
sub EVENT_SAY { 
if($text=~/Hail/i){
quest::say("I am Ostorm of the Temple of Solusek Ro. guardian of the sacred crystal of Kintaz.  Be wary and keep your distance. lest the proximity of the crystal [steal] your [memories].");
}
if($text=~/steal/i){
quest::say("It is the nature of the crystal of Kintaz to steal the memories of those around it. Only I am safe, and then only because of the strong wardings placed on me by Solusek Ro himself.  Are you interested in [losing] any [memories]?");
}
if($text=~/losing/i){
quest::say("Recently, I have been experimenting with the crystal, and have found that those exposed to ruby light filtered through it tend to lose the memories of their most specialized arcane skills.  Are you sure you want to [lose advanced memory] of specialization?");
}
if($text=~/lose advanced memory/i){
quest::say("Be warned that once exposed to the crystal, I can not reverse the effects.  If you desire exposure, fetch me a ruby.");
}
}
sub EVENT_ITEM {
	if($itemcount{10031} == 2 && $itemcount{10000} == 1){
		quest::say("Well done, $name, here is your Lambent Fire Opal.");
		quest::summonitem("10128");
	} elsif($itemcount{10035} == 1){
		quest::idontknowhowtodoit("");
	} else {
		quest::say("I don't need this.");
		if($item1 > 0){quest::summonitem("$item1");} 
		if($item2 > 0){quest::summonitem("$item2");} 
		if($item3 > 0){quest::summonitem("$item3");} 
		if($item4 > 0){quest::summonitem("$item4");}
		if($platinum != 0 || $gold !=0 || $silver != 0 || $copper != 0) {quest::givecash($platinum, $gold, $silver, $copper);}
	}
}

#END of FILE Zone:soltemple  ID:80012 -- Ostorm
Reply With Quote
 


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 10:15 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