I am a talented A++ Cobra Script And Perl Scripter. I can do html and create websites exc. I know almost everything about Eqemu there is to know and i will share some of my scripts with you... Just 1. but i have about 20 saved up. But if your wondering what a perl script is? It is a Script that you put in the game for quest and exc. There are some good legit ones i have and some non legit and some semi-legit. The only one i will show you for my skill is the buffer. Dont be a cheap skate and take it and say you made it without hireing me. If you have ever heard of NWG- NON LEGIT server i was jimms best Gm. I was legos. Many of you knew me and dispite the fact that jimm never did use any of my scripts it was still a good server. Made me sad because with my scripts it would be even better. I made these scripts for Nwg-Non legit server only. But as time passed on Jimm felt like playing Neverwinter Nights and was getting sick of playing eq emulator. So 1 day the server never came back up 8(. All the hard hours i worked and not a bit of use out of these awesome scripts. I still do make more as the time goes on. This perl scripting technique has become a hobby and a essential for me to go to sleep at night hehe. So if anyone wants to spread the fame of my scripts hire me and i will make it worth your while.                    
sub EVENT_SAY { 
if ($text~= /Hail/) { quest::say("Why Hello I Am The Buffer. I Have Mostly Anything You Need Just Say It.Need[help]"); } 
if ($text~= /help/) { quest::say("[Sow] [Health] [Regen] [Ac] [Atk] [Haste] [Clarity] [Ds] [Strength] [Dex] [Agil] [Cha] [Stam]"); }
if($text=~/Sow/i){
quest:say("Giving $name Spirit Of Wolf!");
quest::castspell($userid,278);} 
if($text=~/Health/i){ 
quest::say("Giving $name Skin Like Nature!"); 
quest::castspell($userid,423);}
if($text=~/Regen/i){ 
quest::say("Giving $name Chloroplast!"); 
quest::castspell($userid,145);} 
if($text=~/Ac/i){ 
quest::say("Giving $name guard!"); 
quest::castspell($userid,18);} 
if($text=~/Atk/i){ 
quest::say("Giving $name Skin Like Rock!"); 
quest::castspell($userid,263);} 
if($text=~/Haste/i){ 
quest::say("Giving $name Swift like wind!"); 
quest::castspell($userid,172);} 
if($text=~/Clarity/i){ 
quest::say("Giving $name Clarity!"); 
quest::castspell($userid,174);} 
if($text=~/Ds/i){ 
quest::say("Giving $name Shield Of Ro!"); 
quest::castspell($userid,3198);} 
if($text=~/Strength/i){ 
quest::say("Giving $name Strength Of Stone!"); 
quest::castspell($userid,429);} 
if($text=~/Dex/i){ 
quest::say("Giving $name Dexterity!"); 
quest::castspell($userid,157);} 
if($text=~/Agil/i){ 
quest::say("Giving $name Spirit Of Cat!"); 
quest::castspell($userid,148);}
if($text=~/Cha/i){ 
quest::say("Giving $name Glamour!"); 
quest::castspell($userid,155);}
if($text=~/Stam/i){ 
quest::say("Giving $name Spirit Of Bear"); 
quest::castspell($userid,279);} 
}
If it comes out the wrong way i will fix it with another post later. If you want to higher me my EMAIL is 
Thordendal4@hotmail.com Or You can probably reach me through eqemulator. My Character is usually named legos. But i would preffer email please. I want you to tell me your name... Character name and Server.