当前位置：传奇游戏服务端下载站传奇站长论坛资源网站程序技术文章 → 文章资讯 → 游戏架设教程 → 千年技术

千年泡点装备兑换传送祝福总管脚本

减小字体

增大字体作者：佚名来源：本站整理发布时间：2014-10-04 10:30:00

Help里加入：

传送员.txt

我是别苑大总管.我可以帮你吗？

关闭
返回

『犀牛林』
『帝王陵』
『石棺洞』
『帝王石谷』
『狐狸洞』
『参善堂』
『极乐洞一馆』
『极乐洞二馆』
『石头山』
『关帝庙』
『双华店』
『太极剑门』

换东西.txt

可以用点数来换取物品

关闭

换取「物品」
换取「武功秘籍」
换取「武器」
换取「装备」

客服.txt

关闭
返回

本总管理管理泡点服务！！我来自哈哈！

申请泡点服务

领取『点数』

『点数』换取物品

武功.txt

可以用点数来换取武功秘籍

关闭

用10点点数换取「兰花拂穴手」
用30点点数换取「风满长空」
用30点点数换取「吸星大法」
用30点点数换取「吸魂夺魄」
用30点点数换取「乾坤大挪移」
用30点点数换取「会心一击」
用30点点数换取「混天气功」

武器.txt

可以用点数来换取武器

关闭

用50点点数换取「北海冰玉」
用30点点数换取「北海连环弓」
用25点点数换取「金丝斗甲」
用30点点数换取「无敌铁手」
用30点点数换取「百济玉女枪」
用30点点数换取「金鳞神剑」
用30点点数换取「花郎吟」
用30点点数换取「昆仑巨神斧」

物品.txt

可以用点数来换取物品

关闭

用10点点数换取「真气珠（100点）」
用5点点数换取「千年山参」
用20点点数换取「太极明珠三」
用60点点数换取「玉露丸1000 」
用50点点数换取「5个生死梦幻丹」

大总管.txt

关闭

『传送服务』

『兑换真气』

『祝福系统』

『泡点客服』

真气.txt

关闭

红色真珠兑换真气比例1:10;
绿色真珠兑换真气比例1:100;
蓝色真珠兑换真气比例1:1000;

红色真珠换真气

绿色真珠换真气

蓝色真珠换真气

祝福.txt

关闭

你想征婚伴侣格式如下：征婚
你想祝福别人格式如下：祝福你的内容
你想恭喜别人格式如下：恭喜你的内容
你想收购物品格式如下：收购物品名称
你想出售物品格式如下：出售物品名称
你想向人求婚格式如下：求婚人物名称
你想追杀别人格式如下：追杀人物名称
你想感谢别人格式如下：感谢人物名称
你想向人道歉格式如下：道歉人物名称

装备.txt

可以用点数来换取装备

关闭

用40点点数换取「女子花郎帽」
用40点点数换取「男子花郎帽」
用40点点数换取「女子花郎护腕」
用40点点数换取「男子花郎护腕」
用40点点数换取「女子花郎靴」
用40点点数换取「男子花郎靴」
用60点点数换取「女子花郎道袍」
用60点点数换取「男子花郎道袍」

Init里加入

Item.sdb：
证明书,证明书,36,申请泡点的证明书,,,,,,,,FALSE,213,,,,,,,,,,3000,3000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,800,,7,,,1,
泡点中,泡点中,36,泡点中,,,,,,,,FALSE,458,,,,,,,,,,3000,3000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,1440,6000,1,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,7,,,1,
点数,点数,5,泡点的点数,,,,,,,TRUE,FALSE,217,,,,,,,,1,,100,100,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,,,,,,,,
真珠10,真珠,4,交换真气的凭证!可以交换10点真气,,,,,,,TRUE,FALSE,88,,,,,,5,,,,300,300,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1000,
真珠100,真珠,4,交换真气的凭证!可以交换100点真气,,,,,,,TRUE,FALSE,88,,,,,,2,,,,3000,3000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,100,
真珠1000,真珠,4,交换真气的凭证!可以交换1000点真气,,,,,,,TRUE,FALSE,88,,,,,,30,,,,30000,30000,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,10

Npc.sdb：
无忧大总管,大总管,0,,,TRUE,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,4,,,,,,,,,,,,,,,TRUE,

Script里加入
Script.SDB：134,大总管.txt,,

大总管.txt
unit 大总管;

interface

function GetToken(aStr, aToken, aSep: string): string;
function CompareStr(aStr1, aStr2: string): Boolean;
function callfunc(aText: string): string;
procedure print(aText: string);
function Random(aScope: integer): integer;
function Length(aText: string): integer;
procedure Inc(aInt: integer);
procedure Dec(aInt: integer);
function StrToInt(astr: string): integer;
function IntToStr(aInt: integer): string;
procedure exit;

procedure OnLeftClick(aStr: string);
procedure OnGetResult(aStr: string);
procedure OnHear(aStr: string);

implementation

procedure OnLeftClick(aStr: string);
var
Str: string;
Race: Integer;
begin
Str := callfunc('getsenderrace');
Race := StrToInt(Str);
if Race = 1 then begin
print('showwindow .\help\大总管.txt 0');
exit;
end;
end;

procedure OnGetResult(aStr: string);
var
Str, Name: string;
begin
if aStr = 'close' then begin
exit;
end;

if aStr = 'chuansong' then begin
print('showwindow .\help\传送员.txt 0');
exit;
end;

Str := callfunc('getsenderitemexistence 钱币:10000');
if Str = 'false' then begin
print('say 钱币不足');
exit;
end;

if aStr = 'goroom1' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 1 744 585';
    print(Str);
    exit;
end;
if aStr = 'goroom2' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 3 38 62';
    print(Str);
    exit;
end;
if aStr = 'goroom3' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 31 33 33';
    print(Str);
    exit;
end;
if aStr = 'goroom4' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 46 30 48';
    print(Str);
    exit;
end;
if aStr = 'goroom5' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 19 49 127';
    print(Str);
    exit;
end;
if aStr = 'goroom6' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 26 18 27';
    print(Str);
    exit;
end;
if aStr = 'goroom7' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 27 54 54';
    print(Str);
    exit;
end;
if aStr = 'goroom8' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 28 54 54';
    print(Str);
    exit;
end;
if aStr = 'goroom9' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 1 745 201';
    print(Str);
    exit;
end;
if aStr = 'goroom10' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 1 595 885';
    print(Str);
    exit;
end;
if aStr = 'goroom11' then begin
    print('getsenderitem 钱币:10000');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 1 563 112';
    print(Str);
    exit;
end;
if aStr = 'goroom12' then begin
    print('getsenderitem 钱币:1');
    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 1 182 798';
    print(Str);
    exit;
end;

if aStr = 'zhenqi' then begin
print('showwindow .\help\真气.txt 0');
exit;
end;

if aStr = 'jh10' then begin
    Str := callfunc('getsenderitemexistence 真珠10:1');
    if Str = 'false' then begin
      print('say 没有红色真珠,不能增加真气!!');
      exit;
    end;
    if Str = 'true' then begin
      print('getsenderitem 真珠10:1');
      print('addaddablestatepoint 10');
      print('say 恭喜大侠！交换10点真气成功。');
      exit;
    end;
end;

if aStr = 'jh100' then begin
    Str := callfunc('getsenderitemexistence 真珠100:1');
    if Str = 'false' then begin
      print('say 没有绿色真珠,不能增加真气!!');
      exit;
    end;

    if Str = 'true' then begin
      print('getsenderitem 真珠100:1');
      print('addaddablestatepoint 100');
      print('say 恭喜大侠！交换100点真气成功。');
      exit;
    end;
end;

if aStr = 'jh1000' then begin
    Str := callfunc('getsenderitemexistence 真珠1000:1');
    if Str = 'false' then begin
      print('say 没有蓝色真珠,不能增加真气!!');
      exit;
    end;
    if Str = 'true' then begin
      print('getsenderitem 真珠1000:1');
      print('addaddablestatepoint 1000');
      print('say 恭喜大侠！交换1000点真气成功。');
      exit;
    end;
end;

if aStr = 'zhufu' then begin
print('showwindow .\help\祝福.txt 0');
exit;
end;

if aStr = 'paodian' then begin
print('showwindow .\help\客服.txt 0');
exit;
end;

if aStr = 'shenqing' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('say 你没有100个金元，不能申请');
      exit;
    end;
    Str := callfunc('getsenderitemexistence 泡点中:1');
    if Str = 'true' then begin
      print('say 你已经申请了.');
      exit;
    end;
    Str := callfunc('checkenoughspace 2');
    if Str = 'false' then begin
      print('say 你没袋子装咯~');
      exit;
    end;
    print('getsenderitem 金元:100');
    print('putsendermagicitem 泡点中:1 @客服 4');
    print('putsendermagicitem 证明书:1 @客服 4');
    exit;
end;

if aStr = 'ling' then begin
    Str := callfunc('getsenderitemexistence 证明书:1');
    if Str = 'false' then begin
      print('say 你还没申请呢！');
      exit;
    end;
    Str := callfunc('getsenderitemexistence 泡点中:1');
    if Str = 'true' then begin
      print('say 你的泡点时间还没到。不能领点数');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 你没格子装咯~');
      exit;
    end;
    print('getsenderitem 证明书:1');
    print('putsendermagicitem 点数:30 @客服 4');
    exit;
end;

if aStr = 'huandx' then begin
    print('showwindow .\help\换东西.txt 0');
    exit;
end;
if aStr = 'wupin' then begin
    print('showwindow .\help\物品.txt 0');
    exit;
end;
if aStr = 'wugong' then begin
    print('showwindow .\help\武功.txt 0');
    exit;
end;
if aStr = 'wuqi' then begin
    print('showwindow .\help\武器.txt 0');
    exit;
end;
if aStr = 'zhuangbei' then begin
    print('showwindow .\help\装备.txt 0');
    exit;
end;

if aStr = 'wupin1' then begin
    Str := callfunc('getsenderitemexistence 点数:10');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:10');
    print('putsendermagicitem 真珠100 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wupin2' then begin
    Str := callfunc('getsenderitemexistence 点数:5');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:5');
    print('putsendermagicitem 千年山参 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wupin3' then begin
    Str := callfunc('getsenderitemexistence 点数:20');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:20');
    print('putsendermagicitem 太极明珠三 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wupin4' then begin
    Str := callfunc('getsenderitemexistence 点数:60');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:60');
    print('putsendermagicitem 玉露丸:1000 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wupin5' then begin
    Str := callfunc('getsenderitemexistence 点数:50');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:50');
    print('putsendermagicitem 生死梦幻丹:5 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wugong1' then begin
    Str := callfunc('getsenderitemexistence 点数:10');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:10');
    print('putsendermagicitem 兰花拂穴手 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wugong2' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 风满长空 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wugong3' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 吸星大法 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wugong4' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 吸魂夺魄 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wugong5' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 乾坤大挪移 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wugong6' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 会心一击 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wugong7' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 混天气功 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wuqi1' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 北海连环弓 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wuqi2' then begin
    Str := callfunc('getsenderitemexistence 点数:25');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:25');
    print('putsendermagicitem 金丝斗甲 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wuqi3' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 无敌铁手 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wuqi4' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 百济玉女枪 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wuqi5' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 金鳞神剑 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wuqi6' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 花郎吟 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wuqi7' then begin
    Str := callfunc('getsenderitemexistence 点数:30');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:30');
    print('putsendermagicitem 昆仑巨神斧 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'wuqi8' then begin
    Str := callfunc('getsenderitemexistence 点数:50');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:50');
    print('putsendermagicitem 北海冰玉 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'zhuangbei1' then begin
    Str := callfunc('getsenderitemexistence 点数:40');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:40');
    print('putsendermagicitem 女子花郎帽 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'zhuangbei2' then begin
    Str := callfunc('getsenderitemexistence 点数:40');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:40');
    print('putsendermagicitem 男子花郎帽 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'zhuangbei3' then begin
    Str := callfunc('getsenderitemexistence 点数:40');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:40');
    print('putsendermagicitem 女子花郎护腕 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'zhuangbei4' then begin
    Str := callfunc('getsenderitemexistence 点数:40');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:40');
    print('putsendermagicitem 男子花郎护腕 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'zhuangbei5' then begin
    Str := callfunc('getsenderitemexistence 点数:40');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:40');
    print('putsendermagicitem 女子花郎靴 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'zhuangbei6' then begin
    Str := callfunc('getsenderitemexistence 点数:40');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:40');
    print('putsendermagicitem 男子花郎靴 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'zhuangbei7' then begin
    Str := callfunc('getsenderitemexistence 点数:60');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:60');
    print('putsendermagicitem 女子花郎道袍 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'zhuangbei8' then begin
    Str := callfunc('getsenderitemexistence 点数:60');
    if Str = 'false' then begin
      print('say 你的点数不够....');
      exit;
    end;
    Str := callfunc('checkenoughspace');
    if Str = 'false' then begin
      print('say 包包满哩~');
      exit;
    end;
    print('getsenderitem 点数:60');
    print('putsendermagicitem 男子花郎道袍 @客服 4');
    print('say 这个给你。。请保管好');
    exit;
end;

if aStr = 'fanhui' then begin
print('showwindow .\help\大总管.txt 0');
exit;
end;
end;

procedure OnHear(aStr: string);
var
Str, Name, StrA, StrB,StrC: string;
n: Integer;
begin
Str := GetToken(astr, StrA, '_');
Str := GetToken(Str, StrB, '_');
Name := callfunc('getsendername');
StrC := 'sendsendertopmsg ' + Name;
if StrA = '祝福' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');
      exit;
    end;
    print('getsenderitem 金元:100');
    Str := StrC + '　祝福【';
    Str := Str + StrB;
    Str := Str + '】';
    print(Str);
    exit;
end;
if StrA = '恭喜' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');
      exit;
    end;
    print('getsenderitem 金元:100');
    Str := StrC + '　恭喜【';
    Str := Str + StrB;
    Str := Str + '】';
    print(Str);
    exit;
end;
if StrA = '收购' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');
      exit;
    end;
    print('getsenderitem 金元:100');
    Str := StrC + '　正在收购【';
    Str := Str + StrB;
    Str := Str + '】,有的快@@@@@死他';
    print(Str);
    exit;
end;
if StrA = '出售' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');
      exit;
    end;
    print('getsenderitem 金元:100');
    Str := StrC + '　正在出售【';
    Str := Str + StrB;
    Str := Str + '】,有要快@@@@@死他';
    print(Str);
    exit;
end;
if StrA = '求婚' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');
      exit;
    end;
    print('getsenderitem 金元:100');
    Str := callfunc('getsenderedu');
    n := StrToInt(Str);
    if n = 1 then begin
      Str := StrC + '　大侠正式向【';
      Str := Str + StrB;
      Str := Str + '】,求婚，大家为他加油';
      print(Str);
      exit;
    end;
    if n = 2 then begin
      Str := StrC + '　侠女正式向【';
      Str := Str + StrB;
      Str := Str + '】,求婚，大家为她加油';
      print(Str);
      exit;
    end;
end;
if StrA = '征婚' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');
      exit;
    end;
    print('getsenderitem 金元:100');
    Str := callfunc('getsenderedu');
    n := StrToInt(Str);
    if n = 1 then begin
      Str := StrC + '　大侠征婚启示公告天下,有愿意下嫁与他的吗';
      print(Str);
      exit;
    end;
    if n = 2 then begin
      Str := strC + '　侠女征婚启示公告天下,有愿意娶她的吗';
      print(Str);
      exit;
    end;
end;
if StrA = '追杀' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');
      exit;
    end;
    print('getsenderitem 金元:100');
    Str := StrC + '　开始追杀【';
    Str := Str + StrB;
    Str := Str + '】,让他永无宁日';
    print(Str);
    exit;
end;
if StrA = '道歉' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');
      exit;
    end;
    print('getsenderitem 金元:100');
    Str := strC + '　很不好意思的向,【';
    Str := Str + StrB;
    Str := Str + '】表示道歉';
    print(Str);
    exit;
end;
if StrA = '感谢' then begin
    Str := callfunc('getsenderitemexistence 金元:100');
    if Str = 'false' then begin
      print('sendsenderchatmessage 没钱就不要喊吗，真是的。');

      exit;
    end;
    print('getsenderitem 金元:100');
    Str := strC + '　由衷的向【';
    Str := Str + StrB;
    Str := Str + '】,表示真诚的感谢';
    print(Str);
    exit;
end;
end;
end.

Setting里加入
CreateNpc1.sdb：1,大总管,517,460,1,1,134,,

四大功能集合于一体

商业版发布站程序下载：发布站程序下载：