如何添加真气兑换员

异仟年 · 发表于 2022-9-5 17:29:14

本帖最后由异仟年于 2022-9-5 17:33 编辑

此设置是用特定物品找相应的NPC换取相应的真气.解决真气不涨,怪物给的真气不稳定和真气上限问题.具体设置如下:分三种物品,每种物品加的真气不同

1,tgs1000\Init\Npc.sdb

真气,真气兑换员,0,,,TRUE,,TRUE,TRUE,,,TRUE,8,24,144,1400,400,,,,10000,0,0,0,0,,4,,,,,,,,,,,,,,,,

建立一个NPC用来交换真气用,名字自己取,前边的真气不要动,如果改了不能用千万别找我,后边有颜色的部分改了就行,我用的老侠客的外观

2,tgs1000\Help\真气.txt

<trade>
<title>真气交</title>
<image name=z24 value=144>
<text>
红色真珠兑换真气比例1:10;绿色真珠兑换真气比例1:100;蓝色真珠兑换真气比例1:1000;

</text>
<command send='close'>关闭</command>
<command send="jh10">红色真珠换真气</command>
<command send="jh100">绿色真珠换真气</command>
<command send="jh1000">蓝色真珠换真气</command>
</trade>

3,tgs1000\Script\Script.sdb

142,真气.txt,,

4,tgs1000\Script\真气.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 OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

implementation

procedure OnLeftClick (aStr : String);
var
Str : String;
Race : Integer;
begin
Str := callfunc ('getsenderrace');
Race := StrToInt (Str);
if Race = 1 then begin
   Str := 'showwindow .\help\真气.txt 1';
   print (Str);
   exit;
end;
end;

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

end.

5,tgs1000\Setting\CreateNpc1.sdb
102,真气,500,500,1,5,142,,

到中央市场500,500找NPC"真气"用真珠交换,地图坐标自己定.

6,tgs1000\Init\Item.sdb
真珠10,真珠,4,交换真气的凭证、可以交换10点真气,,,,,,,TRUE,FALSE,88,,,,,,12,,,,300,300,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1000,
真珠100,真珠,4,交换真气的凭证、可以交换100点真气,,,,,,,TRUE,FALSE,88,,,,,,13,,,,3000,3000,,,,,,,,,,,,,,,,,,,,,,,,,,真珠10:8:金元:10,,,,,,,,,,,,,,,,,,,,,,100,
真珠1000,真珠,4,交换真气的凭证、可以交换1000点真气,,,,,,,TRUE,FALSE,88,,,,,,14,,,,30000,30000,,,,,4429,4828,,,,,,,,,,,,,,,,,

已有账号？

注册后更精彩

客服微信

电子邮件

《星之海洋：神圣力量》评测：归来时仍以游

2009年的六一！英雄妖刀独树一帜！

千年手游：关于副本的秘密你了解吗？

20年的千年，20年的梦，玩千年20年的日记

说一说那些年私服的故事吧

如何添加真气兑换员