千年gm必学攻略之交易币购买装备脚本讲解
很多打算开复古版本千年游戏的gm都会面临一个问题，那就是如何将目前市面上的元宝版本货币修改为使用简单的交易币。并且使用交易币购买游戏中的装备道具武器等等等，今天小编就针对这个问题给大家讲解一下简单的交易币购买装备脚本，希望大家能够在这个脚本中看到一些您想看到的问题。
在TGS\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 0';
print (Str);
exit;
end;
end;
procedure OnGetResult (aStr : String);
var
Str, Name : String;
装备, 货币, 数量, 价格 : String;
begin
if aStr = 'close' then begin
exit;
end;
if aStr <> '' then begin
价格 := GetToken(aStr, 装备, '_');
数量 := GetToken(价格, 货币, '/');
Str := 'getsenderitemexistence ' + 货币;
Str := Str + ':';
Str := Str + 数量;
Str := callfunc(Str);
if Str = 'false' then begin
Str := 'say 缺少' + 货币;
Str := Str + ':';
Str := Str + 数量;
print(Str);
exit;
end;
Str := 'getsenderitem ' + 货币;
Str := Str + ':';
Str := Str + 数量;
print(Str);
Str := 'putsendermagicitem ' + 装备;
Str := Str + ':1 @装备专卖 4';
print(Str); dedecms.com
这里还可以加一句公告XXX花多少交易币买了什么装备
留着大家自己添加吧 dedecms.com
exit;
end;
end;
end.
在TGS\Help下添加装备专卖.txt
<trade>
<title>装备购买</title>
<text>
可以交易币跟我购买装备
</text>
<command send="close">关闭</command>
<body>
<a send="男子血魔道袍_交易币/40">用「40交易币」换取男子血魔道袍
<a send="女子血魔道袍_交易币/40">用「40交易币」换取女子血魔道袍
<a send="男子血魔头盔_交易币/40">用「40交易币」换取男子血魔头盔
<a send="女子血魔头盔_交易币/40">用「40交易币」换取女子血魔头盔
<a send="男子血魔护腕_交易币/40">用「40交易币」换取男子血魔护腕
<a send="女子血魔护腕_交易币/40">用「40交易币」换取男子血魔护腕
<a send="男子血魔战靴_交易币/40">用「40交易币」换取男子血魔战靴
<a send="女子血魔战靴_交易币/40">用「40交易币」换取男子血魔战靴
</body>
</trade>
对于很多新手千年gm来说这些数据看起来可能比较困难，但是小编告诉您这些还是我们技术员尽可能简化之后的结果，并且尽可能的将所有信息编辑得简单易懂之后在发布给玩家。最后小编想要提醒各位新手玩家一下，我们能够聚在这个网站上获取有很多原因，但是有一点是不变的那就是学会更多的东西。小编不反对伸手党但是小编建议大家能够在做伸手党之前简单的看一下脚本，哪怕是看不懂也仔细看一下。以上就是小编为大家分享的千年gm必学攻略之交易币购买装备脚本攻略全部内容，不足之处希望各位能够指出小编必有重谢，如果您看完之后有什么疑问也可以联系我我们。
- 上一篇文章：暗黑修仙修改—修改工具条显示一半和不显示问题
- 下一篇文章：千年新手gm必学攻略之武功修炼经验修改方法