cofruben
05-01-2004, 09:35 AM
Added perl enabled zone with ldon system points support,thanks to Destavator for hosting the rar.You will need to add a column called ldon1 in character_ table,smallint or greater.You need to have PERL installed.You can add points by a quest function,syntax is: quest::addgroupldon(4);,where 4 is the number of points that you want to add,it will give points to your group and you.Before download the zone,you MUST know that I won't support it.Here is an example of default.pl file,used to add points.
-----------------------------------------------------------------------
sub EVENT_DEATH
{
quest::me("A corpse begins to fall...blood encovers you");
$leveldiff=($ulevel - $mlevel);
if($leveldiff <= 3 && $mlevel <= 50 && $mlevel >= 35){quest::addgroupldon(4);}
if($leveldiff <= 3 && $mlevel <= 35 && $mlevel >= 25){quest::addgroupldon(3);}
if($leveldiff <= 2 && $mlevel <= 25 && $mlevel >= 13){quest::addgroupldon(2);}
if($leveldiff<=2 && $mlevel<=13 && $mlevel>=1){quest::addgroupldon(1);}
}
-----------------------------------------------------------------------
the link is ftp://EqEmu:EQEmu@ftp.computer-tuning.org/LDoNZoneByCofruben.rar
Have fun! :wink:
-----------------------------------------------------------------------
sub EVENT_DEATH
{
quest::me("A corpse begins to fall...blood encovers you");
$leveldiff=($ulevel - $mlevel);
if($leveldiff <= 3 && $mlevel <= 50 && $mlevel >= 35){quest::addgroupldon(4);}
if($leveldiff <= 3 && $mlevel <= 35 && $mlevel >= 25){quest::addgroupldon(3);}
if($leveldiff <= 2 && $mlevel <= 25 && $mlevel >= 13){quest::addgroupldon(2);}
if($leveldiff<=2 && $mlevel<=13 && $mlevel>=1){quest::addgroupldon(1);}
}
-----------------------------------------------------------------------
the link is ftp://EqEmu:EQEmu@ftp.computer-tuning.org/LDoNZoneByCofruben.rar
Have fun! :wink: