TArgs(参数)
TArgs 函数名称 功能 描述 函数 procedure Delete(Index: Integer ); Index:参数序号 删除指定序号的参数
属性名称 功能 描述 属性 property Str[Index: Integer ]: String Index:参数序号 将指定序号的参数按字符串取出 property Int[Index: Integer ]: Integer 将指定序号的参数按整形值取出(默认值为0) property Bool[Index: Integer ]: Boolean 将指定序号的参数按布尔值取出(默认False) property Date[Index: Integer ]: TDateTime 将指定序号的参数按日期值取出(默认0) property Float[Index: Integer ]: Double 将指定序号的参数按浮点数取出(默认0) property Count: Integer 包含参数的个数 property DataString : String 原始参数字符串
范例:
Unit Q28;
Interface
Uses Classes, SysUtils;
Procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
Implementation
Procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs);
{
传送到地图 3,X:333,Y:333
}
Const
S=[[
欢迎测试\
<我要去盟重/@Citymove(3,333,333)>
]];
Begin
Npc.Say(Player,S);
End;
Procedure Citymove(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
Begin
If Player.Gold < 10000 Then
Npc.Messagebox(Player, Format('对不起,你的金币不足%d,无法执行城市传送.',[10000]))
Else
Begin
Npc.Take(Player, '金币', 10000);
Player.Mapmove(Args.Str[0], Args.Int[1], Args.Int[2]);
//在这里Args.Str[0]表示地图ID,Args.Int[1]及Args.Int[2]表示传送的X、Y坐标
End;
End;
End.
引擎官网:www.91M2.com 交流群:5555999 此引擎仅供测试,切勿用于商业用途。如有侵权请立即联系我们,我们将在第一时间删除。