Quest I made ( needs critiqueing)

[ryder911]

sub event_say {
if($text=~/Hail/i){
quest::say("Hello friend, my name is Jeweler Rashard. I will [craft]items for a small fee.");
}
if($text=~/craft/i){
quest::say("Yes, I will craft [jewelry], and imbue some [wepaons] with gems.");
}
if ($text=~/jewelry/i){
quest::say("I can craft [rings],[earrings] and [amulets].");
}
if ($text=~/earrings/i){
questsay::("I can craft, you a magical [Hoop of Dark Spirits], All I require is a mithril earing, and a jacnith. I will also require 500pp for my work.");
}
if ($text=~/rings/i){
questsay::("You would like a ring? Well I can craft you a ring of dreadful dreams. For this magical ring I require a dream stone, and a silver emerald ring. I will also require 1000 platinum peices for my work.");
}
if ($text=~/amulets/i){
questsay::("Oh, you want an amulet? Well I will need a saphire, and a mithril amulet. Also, I require 950 platinum peice for my work.);
}
if ($text=~/weapons/i){
questsay::("Oh, you would like a magically imbued weapon, Well I can craft a [bow], and a [sword]..");
}
if ($text=~/bow/i){
questsay::("Oh you would like a bow? Well I require a hunting bow, and a blue diamond. Also I will need 2,4000 platinum peices for my work.");
}
if ($text=~/sword/i){
questsay::("Oh, you would like a sword? Well in order for me to make a sword, I need a fine steel short sword, and a blue diamond. Also I require 2100 platinum pieces for my work.");
}

sub EVENT_ITEM
{
#rin
if ($platinum == 1000 &&  $itemcount{26909} == 1  &&  $itemcount{14464} == 1){
quest::text ("Here is your new ring, I hope you enjoy it.");
quest::summonitem (27950);
}
#earring
if ($platinum == 500 &&  $itemcount{10041} == 1  &&  $itemcount{10053} == 1){
quest::text ("Here is your new earring.");
quest::summonitem(4334);
}
#necklace
if ($platinum == 950 &&  $itemcount{10047} == 1  &&  $itemcount{10034} == 1){
quest::summonitem(30351);
}
#bow
if ($platinum == 2400 &&  $itemcount{8011} == 1  &&  $itemcount{22503} == 1){
quest::summonitem(45050);
}
#sword
if ($platinum == 2100 &&  $itemcount{5352} == 1  &&  $itemcount{22503} == 1){
quest::summonitem(70006);
}

I havent gotten to test it out yet, Im almost positive I did the sub even item things wrong, but did it the best I could. Any help / suggestions / fixes on quest would be appreciated.