如何添加真气兑换员 - 三千论坛

</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,,,,,,,,,,,,,,,,,