你有EQ的单机端吗？

有，没事的时候就进去看看，探索一下地形和怪物方便eeq

测试一下能否贴上：
sub EVENT_SAY
{
my $NPCName = $npc->GetCleanName();
my $buffme = quest::saylink("blessings", 1);
my $currentmoney = $client->GetCarriedMoney();
my @buffs1 = (219, 279, 269, 266, 40, 39, 697, 2524, 46, 129, 13);
my @buffs2 = (89, 283, 148, 2512, 147, 170, 174, 2524, 46, 432, 13);
my @buffs3 = (244, 149, 148, 349, 151, 10, 1694, 4055, 356, 13); #1694, Your spell is too powerful for your intended target.
my @buffs4 = (312, 161, 160, 152, 153, 171, 1694, 169, 1727, 13);
my @buffs5 = (4053, 158, 154, 157, 159, 172, 1695, 2517, 1560, 13);
my @buffs6 = (1447, 1580, 1579, 1596, 1581, 1729, 2570, 2517, 1561, 13);
my @buffs7 = (3467, 3397, 4883, 3234, 1710, 3350, 2519, 2517, 3448, 13);
my @buffs8 = (27030, 14282, 3472, 3479, 5415, 5355, 5352, 3178, 5513, 3444, 3185, 25228, 26315, 25441, 25468, 13, 432);
$client->Message(7, " ");
$client->Message(315, " ");
if ($text=~/hail/i) {
$client->Message(315, "$NPCName whispers to you, 'Greetings $name. I am the Arcangel of Nurroth and can give you $buffme! All I need in exchange are some platinum.");
plugin::DoAnim("wave");
}
if ($text=~/blessings/i) {
if (($ulevel >= 1)&&($ulevel <= 10)) {
foreach my $buffsid (@buffs1) {
quest::selfcast($buffsid);
}
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Since you are level 10 or lower you get free blessings, $name! Good luck to you.'");
}
elsif (($ulevel >= 11) && ($ulevel <= 20)) {
if ($currentmoney >= 20000) {
foreach my $buffsid (@buffs2) {
quest::selfcast($buffsid);
}
$client->TakeMoneyFromPP(20000, update_client);
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Good luck to you $name!'");
}
else {
plugin::DoAnim("yawn");
$client->Message(315, "$NPCName whispers to you, 'Hello $name, I will give you blessings for 20 platinum.'");
}
}
elsif (($ulevel >= 21)&&($ulevel <= 30)) {
if ($currentmoney >= 30000) {
foreach my $buffsid (@buffs3) {
quest::selfcast($buffsid);
}
$client->TakeMoneyFromPP(30000, update_client);
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Good luck to you $name!'");
}
else {
plugin::DoAnim("yawn");
$client->Message(315, "$NPCName whispers to you, 'Hello $name, I will give you blessings for 30 platinum.'");
}
}
elsif (($ulevel >= 31)&&($ulevel <= 40)) {
if ($currentmoney >= 40000) {
foreach my $buffsid (@buffs4) {
quest::selfcast($buffsid);
}
$client->TakeMoneyFromPP(40000, update_client);
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Good luck to you $name!'");
}
else {
plugin::DoAnim("yawn");
$client->Message(315, "$NPCName whispers to you, 'Hello $name, I will give you blessings for 40 platinum.'");
}
}
elsif (($ulevel >= 41)&&($ulevel <= 50)) {
if ($currentmoney >= 50000) {
foreach my $buffsid (@buffs5) {
quest::selfcast($buffsid);
}
$client->TakeMoneyFromPP(50000, update_client);
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Good luck to you $name!'");
}
else {
plugin::DoAnim("yawn");
$client->Message(315, "$NPCName whispers to you, 'Hello $name, I will give you blessings for 50 platinum.'");
}
}
elsif (($ulevel >= 51)&&($ulevel <= 60)) {
if ($currentmoney >= 60000) {
foreach my $buffsid (@buffs6) {
quest::selfcast($buffsid);
}
$client->TakeMoneyFromPP(60000, update_client);
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Good luck to you $name!'");
}
else {
plugin::DoAnim("yawn");
$client->Message(315, "$NPCName whispers to you, 'Hello $name, I will give you blessings for 60 platinum.'");
}
}
elsif (($ulevel >= 61)&&($ulevel <= 65)) {
if ($currentmoney >= 80000) {
foreach my $buffsid (@buffs7) {
quest::selfcast($buffsid);
}
$client->TakeMoneyFromPP(80000, update_client);
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Good luck to you $name!'");
}
else {
plugin::DoAnim("yawn");
$client->Message(315, "$NPCName whispers to you, 'Hello $name, I will give you blessings for 80 platinum.'");
}
}
elsif (($ulevel >= 66)&&($ulevel <= 100)) {
if ($currentmoney >= 100000) {
foreach my $buffsid (@buffs8) {
quest::selfcast($buffsid);
}
$client->TakeMoneyFromPP(100000, update_client);
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Good luck to you $name!'");
}
else {
plugin::DoAnim("yawn");
$client->Message(315, "$NPCName whispers to you, 'Hello $name, I will give you blessings for 100 platinum.'");
}
}
}
}

没看到sql呢，能贴一下不

之前没贴是因为sql太长,item从50005一直到50246：
------------------------------------------
insert into npc_types (id,name,lastname,level,race,class,bodytype,gender,texture,helmtexture,d_melee_texture1,hp,merchant_id) values(202602,"Arcangel_Jake","Armors",65,5,41,2,0,13,16,10766,36300,1011112);
insert into spawn2 (spawngroupID,zone,x,y,z,heading) values(202602,"poknowledge",-68.201431,125.783119,-157.247894,221.500000);
insert into spawngroup (id,name) values(202602,"poknowledge202602");
insert into spawnentry (spawngroupID,npcID,chance) values(202602,202602,100);
insert into merchantlist (merchantid,slot,item,faction_required,level_required,alt_currency_cost,classes_required,probability) values(1011112,1,50005,-1100,0,0,65535,100);
insert into merchantlist (merchantid,slot,item,faction_required,level_required,alt_currency_cost,classes_required,probability) values(1011112,2,50006,-1100,0,0,65535,100);
.
.
.
.
insert into merchantlist (merchantid,slot,item,faction_required,level_required,alt_currency_cost,classes_required,probability) values(1011112,242,50246,-1100,70,0,65535,100);

帖子只能贴5k字符，这npc的item从50310一直到50452，首饰：
insert into npc_types (id,name,lastname,level,race,class,bodytype,gender,texture,d_melee_texture1,hp,merchant_id) values(202601,"Arcangel_Babu","Jewellery",65,4,41,2,1,3,10749,36300,1011111);
insert into spawn2 (spawngroupID,zone,x,y,z,heading) values(202601,"poknowledge",-57.390133,129.659653,-157.247894,212.750000);
insert into spawngroup (id,name) values(202601,"poknowledge202601");
insert into spawnentry (spawngroupID,npcID,chance) values(202601,202601,100);
insert into merchantlist (merchantid,slot,item,faction_required,level_required,alt_currency_cost,classes_required,probability) values(1011111,1,50310,-1100,0,0,65535,100);
。
。
。
insert into merchantlist (merchantid,slot,item,faction_required,level_required,alt_currency_cost,classes_required,probability) values(1011111,1,50452,-1100,0,0,65535,100);

这npc的item从50500一直到50452，武器：
-----------------------------
insert into npc_types (id,name,lastname,level,race,class,bodytype,gender,texture,d_melee_texture1,d_melee_texture2,hp,merchant_id) values(202603,"Arcangel_Lee","Weapons",65,5,41,2,1,3,10744,10754,36300,1011113);
insert into spawn2 (spawngroupID,zone,x,y,z,heading) values(202603,"poknowledge",-80.641060,132.039581,-157.247910,339.250000);
insert into spawngroup (id,name) values(202603,"poknowledge202603");
insert into spawnentry (spawngroupID,npcID,chance) values(202603,202603,100);
insert into merchantlist (merchantid,slot,item,faction_required,level_required,alt_currency_cost,classes_required,probability) values(1011113,1,50500,-1100,0,0,65535,100);
.
。
。
insert into merchantlist (merchantid,slot,item,faction_required,level_required,alt_currency_cost,classes_required,probability) values(1011113,1,50631,-1100,0,0,65535,100);
或者留个网盘，直接把文件放上去。

上次改脚本还是玩UO的时候，不过说实话当上帝的感觉其实很没意思

EQ有时候被叫做无尽的AA，下面是个单机下加AA脚本，5000pp换50AAs。
----------------------------------------------------------------------------------------------------
sub EVENT_SAY
{
my $NPCName = $npc->GetCleanName();
my $aapoints = $client->GetAAPoints();
my $currentmoney = $client->GetCarriedMoney();
my $getpoints = quest::saylink("opportunity", 1);
$client->Message(7, " ");
$client->Message(315, " ");
if ($text=~/hail/i) {
$client->Message(315, "$NPCName whispers to you, 'Greetings $name. What a lucky guy you are because of meeting me, one of the Arcangels of Nurroth. And the point is I am the only one who could offer you extra 50 AA points for just 5000 platinum! Don't miss such a big $getpoints!");
plugin::DoAnim("smile");
}
if ($text=~/opportunity/i) {
if ($currentmoney >= 5000000) {
$client->SetAAPoints($aapoints+50);
$client->TakeMoneyFromPP(5000000, update_client);
plugin::DoAnim("chuckle");
$client->Message(315, "$NPCName whispers to you, 'Listen $name, It's time to spend the AAs that you have been grantedand and get more powerful.'");
}
else {
plugin::DoAnim("point");
$client->Message(315, "$NPCName whispers to you, '5000 platinum! Never try to make a fool of an Arcangel! You are just a slug $name.'");
quest::selfcast(13501);
}
}
}

5000pp不够的话会对玩家开个玩笑。

挺好的主意，顶下楼主

服务器端安装失败！！！。。怎么办？

这个也搞定了。。。目前一行行的添加数据中。。。。

厉害