古老的千年使用的是pascal语言，开发相关目录结构如下：
├─event
├─Help
├─Init
├─NpcSetting
├─QuestNotice
├─Script
└─Setting
如果在游戏中新增一个交易NPC，开发涉及如下目录：
名称：杂货商
Help\杂货商.txt #交易界面内容
Init\Npc.sdb #初始化NPC设置
NpcSetting\杂货商.sdb #NPC自动说话内容（非必需）
NpcSetting\杂货商.txt #买卖物品列表
Script\Script.sdb #脚本索引
Script\杂货商.txt #交易脚本代码
Setting\CreateNpc88.sdb #在编号88的地图上生成NPC
本教程重点针对Script目录下的编程相关做说明，所有行为控制代码都在这里。
游戏中每一个互动单位（比如一个NPC）都是一个单元unit，对应Script目录下一个文件,在pascal语言中，unit的基本结构如下：
unit Unit1;
interface
implementation
end.在千年中，以游戏中的福袋为列:
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 OnDblClick(aStr : String);
implementation
procedure OnDblClick(aStr : String);
var
Str : String;
Race : Integer;
begin
Str := callfunc ('getsenderrace');
Race := StrToInt (Str);
if Race = 1 then begin
Str := 'logitemwindow';
print (Str);
exit;
end;
end;
end.以上代码中，OnDblClick这个procedure（过程）为福袋功能，其它部分为所有单元都有的基本结构。从以上代码可见，基础语法和pascal一至，而游戏特定功能的语法可分为procedure过程、function、callfunc方法和print方法几类。
- function OnDanger (aStr : String) : String;
- function OnMove (aStr : String) : String;
- procedure OnApproach (aStr : String);
- procedure OnArrival (aStr : String);
- procedure OnAway (aStr : String);
- procedure OnBow (aStr : String);
- procedure OnChangeState (aStr : String);
- procedure OnCreate (aStr : String);
- procedure OnDblClick (aStr : String);
- procedure OnDie (aStr : String);
- procedure OnDieBefore (aStr : String);
- procedure OnDropItem (aStr : String);
- procedure OnGetChangeStep (aStr : String);
- procedure OnGetResult (aStr : String);
- procedure OnHear (aStr : String);
- procedure OnHit (aStr : String);
- procedure OnLeftClick (aStr : String);
- procedure OnMove (aStr : String);
- procedure OnRegen (aStr : String);
- procedure OnTimer (aStr : String);
- procedure OnTurnOff (aStr : String);
- procedure OnTurnOn (aStr : String);
- procedure OnUserEnd (aStr : String);
- procedure OnUserStart (aStr : String);
- pascal除字符串变量外，不区分大小写
- pascal函数分function（有返回值）和procedure（无返回值）
- pascal变量声明方法为：var Str:String;（好非主流的方法）
- pascal赋值为“:=”，而“=”为逻辑运算符（又是一种非主流的用法）
- 游戏主要要使用的数据类型：integer、string、boolean
- 游戏中部分方法中字符串使用
_代表空格,代表换行 - System.txt中当前游戏单位为触发事件的玩家，其它脚本中当前游戏单位为绑定脚本的NPC、Monster、DynamicObject
更多Pascal内容请见help\Pascal.md
千年游戏QQ群：2887111