cameron13
03-13-2004, 08:03 AM
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.
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.