``` unit Q2; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.S[1] := '3'; //临时的字符串变量,序号从1-300 Player.P[1] := 100; //临时的整型变量,序号从1-300 Player.P[2] := 100; Player.N[1] := 1234; //整型变量,序号从1-300,会保存到角色数据库中 //与Player.VarString这类变量的区别在于: S、P、N变量更高效,访问时只能通过序号来访问,对于N变量 //的存储是存与角色数据表中;而Player.VarString这类的变量可任意选择是否存储,存储的位置为Envir下 //的任意目录。效率上Player.VarString略低是理论值,实际的运行效率基本可以忽略不计,只有百万次上 //上的访问才有毫秒级的差别 end; end. ```