古老的千年使用的是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函数，具体介绍见Script.md。
- pascal除字符串变量外，不区分大小写
- pascal函数分
function（有返回值）和procedure（无返回值） - pascal变量声明方法为：
var Str:String; - pascal赋值为
:=，而=为逻辑运算符 - 在Pascal语言中，
+是用于字符串拼接的运算符，在千年中一条语句仅可使用一次拼接，且不可以拼接字符串和函数。 - 游戏主要要使用的数据类型：
integer、string、boolean - 游戏中部分方法中字符串使用
_代表空格,代表换行 - System.txt中当前游戏单位为触发事件的玩家，其它脚本中当前游戏单位为绑定脚本的NPC、Monster、DynamicObject
更多Pascal内容请见help\Pascal.md
- 千年游戏QQ群：2887111（可下载服务端）
- 云端千年网站：https://1000y.gameivy.com/