Code

EVENT_SAY {
if ($1-=~ "Hail") { say("Hello $name . Would you like a few buffs? wW got [Sow] a [Regen] and a [Hp] [Haste] [DS] [Mana] [Str] [STA] [AGI] [DEX] [CHA] [LEV] buff ATM. Oh would you like a [Bind]Do yea need a [Heal]?."); }
if ($1-=~ "Sow") { say("Sow it is.");
castspell($userid,278); }
if ($1-=~ "Regen") { say("A regen it is.");
castspell($userid,145); }
if ($1-=~ "Hp") { say("So you want Hp ok here we go.");
castspell($userid,423); }
if ($1-=~ "Haste") { say("So you want to hit fast do yea?.");
castspell($userid,172); }
if ($1-=~ "Mana") { say("Some mental help is on the way.");
castspell($userid,174); }
if ($1-=~ "Str") { say("Ok now go bodybuild man.");
castspell($userid,429); }
if ($1-=~ "Bind") { say("Welcome staying for awile?.");
castspell($userid,2049); }
if ($1-=~ "Heal") { say("Heres some healing power.");
castspell($userid,13); }
if ($1-=~ "DS") { say("OWW don't want to touch you?.");
castspell($userid,432); }
if ($1-=~ "STA") { say("Now go for a Run!?.");
castspell($userid,279); }
if ($1-=~ "CHA") { say("Now dosen't everyone like you??.");
castspell($userid,155); }
if ($1-=~ "DEX") { say("Now you could hit an apple off my head?.");
castspell($userid,157); }
if ($1-=~ "AGI") { say("Hit hit hit?.");
castspell($userid,148); }
if ($1-=~ "LEV") { say("Fly.");
castspell($userid,457); }
}


If there is anything wrong with this can you fix it? so i can learn from my mistakes

[Cyril Gray]

I'm not much of a Perl quest script coder yet, but I would look at this thread:

http://www.eqemulator.net/forums/viewtopic.php?t=12020

Specificallly, the section on Lurker_005's "work in progress" default.pl.

Well thank you that was SOOOO much help i read that i am just double checking

[Lurker_005]

The above example is NOT in perl quest format. Which is fine if your not running perl :o

Anyhow, it looks pretty good for a qst format file.

ALright thanks