77M2引擎中如何实现一个带参数的输入框 91M2引擎添加输入框教程

7M2引擎中如何实现一个带参数的输入框

20191006161017.png (684.88 KB, 下载次数: 0)

下载附件

2019-10-8 10:26 上传

如何实现一个带参数的输入框

unit Q2;

inte**ce

  uses Classes, SysUtils;

procedure InputString1(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

implementation

procedure InputString1(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

var

  I: Integer;

begin

  for I := 0 to Args.Count - 1 do //循环取出参数

    Player.SendMessage(I.ToString + ':' + Args.Str
); //将内容发送到客户端供测试
end;

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
const
S =
[[
<点击/@@InputString1(请输入:,参数1,参数2)>
<离 开/@exit>
]];
//InputString1中使用了3个参数这个,第一个为"请输入:",这个固定为客户端显示的标题,第二三个则是在调用InputString1时可访问到的参数
//InputString和InputInteger一样,如果一旦使用了参数,则第一个参数就是标题,有效参数从第二个开始,玩家输入的内容则在返回的参数中的最后一个
//比如这里,将会得到的参数为:参数1,参数2,输入的内容
begin
    Npc.Say(Player, S);
end;

文章归发布者所有。发布者:爱到深处,转载请注明出处:https://www.anyitu.com

如该内容侵犯您的权利,请及时联系我们

微信公众号