::scribespells() up to X level?

[Asphixiate]

I have a simple scribespells quest functioning, but I am wondering if it is possible to make it only scribe up to only level 50 spells?

Thanks.

[Asphixiate]

Well let me approach this a bit differently.

if my perl script is:

sub EVENT_SAY
{
if ($text=~/Hail/i) { quest::say("Hello, $name.  If you would like, I can [scribe] all of your spells up to level 50.  After that, you will have to find any remaining spells on your own!"); }
if ($text=~/scribe/i) { quest::say("Very well, here you are $name!");
quest::scribespells(); }
}

is there a way to modify this to do the following:

if pclevel < 50 then:

if ($text=~/Hail/i) { quest::say("Hello, $name.  If you would like, I can [scribe] all of your spells up to level 50.  After that, you will have to find any remaining spells on your own!"); }

if pclevel > 50 then

if ($text=~/Hail/i) { quest::say("Hello, $name.  You are too high to have any spells scribed!"); }

If someone could spell this out for me, that would be awesome!

Thanks

[trevius]

This is a pretty simple quest. The following should work perfectly for you. Let me know if you have any issues with it.

sub EVENT_SAY
{
if ($text=~/Hail/i && $ulevel <= 50) { quest::say("Hello, $name.  If you would like, I can [scribe] all of your spells up to level 50.  After that, you will have to find any remaining spells on your own!"); }
if ($text=~/Hail/i && $ulevel >= 51) { quest::say("Hello, $name.  You are too high to have any spells scribed!"); }
if ($text=~/scribe/i && $ulevel <= 50) { quest::say("Very well, here you are $name!");
quest::scribespells(); }
}

In the future, you might want to check the quest wiki. It has a TON of great info related to quests.

Here is the link:
http://www.eqemulator.net/wiki/wikka...=QuestTutorial

[Asphixiate]

great thank you trevius, wasn't sure how to structure it.

[Asphixiate]

Is there a reason this doesn't work? (I want to exclude the pure melee classes from scribing discs).

sub EVENT_SAY
{
if ($text=~/Hail/i && $ulevel <= 50 && $class != 'Warrior' || $class != 'Rogue' || $class != 'Monk'){ 
quest::say("Hello, $name.  If you would like, I can [scribe] all of your spells up to level 50.  After that, you will have to find any remaining spells on your own!"); }

if ($text=~/Hail/i && $ulevel >= 51) { quest::say("Hello, $name.  You are too high to have any spells scribed!"); }

if ($text=~/scribe/i && $ulevel <= 50) { quest::say("Very well, here you are $name!");
quest::scribespells(); }
}

the above actually breaks the script entirely, no one is able to trigger the hail event.

[AndMetal]

Originally Posted by Asphixiate

Is there a reason this doesn't work? (I want to exclude the pure melee classes from scribing discs).

sub EVENT_SAY
{
if ($text=~/Hail/i && $ulevel <= 50 && $class != 'Warrior' || $class != 'Rogue' || $class != 'Monk'){ 
quest::say("Hello, $name.  If you would like, I can [scribe] all of your spells up to level 50.  After that, you will have to find any remaining spells on your own!"); }

if ($text=~/Hail/i && $ulevel >= 51) { quest::say("Hello, $name.  You are too high to have any spells scribed!"); }

if ($text=~/scribe/i && $ulevel <= 50) { quest::say("Very well, here you are $name!");
quest::scribespells(); }
}

the above actually breaks the script entirely, no one is able to trigger the hail event.

Change != to ne and it should work fine.

Perl is a little ... different with string comparisons (especially compared to PHP). Check out this page for the specifics.

Also, you'll probably want to put all of the checks for classes in parentheses, otherwise your order of operations might cause some problems:

if ($text=~/Hail/i && $ulevel <= 50 && ($class != 'Warrior' || $class != 'Rogue' || $class != 'Monk')){

Hope this helps

[trevius]

Though, this is something you shouldn't really have to worry about. Pure melee classes learned from the spell scriber don't actually work ask a disc. They either need to turn the tomb into their class GM the same as live or you would have to enable the #traindisc command. The spell scriber won't train any real discs, but it will train spell versions of some discs for hybrids.

[Asphixiate]

Hm, still doesn't work. Not a big deal though since they don't actually learn anything from it like you said trevius.

Thanks

[kovouau]

can try using quotation marks instead of '.... "Warrior" instead of 'Warrior' for example