千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。

千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
: _7 Q0 }: W; x2 a
8 G& [, A. h% G0 ~, [( k! f! w一个函数的基本结构是这样的：

procedure OnCreate (aStr : String);
5 M/ y; f+ N/ Q* t+ N; q4 Fvar
   定义变量
6 R5 L8 h; `7 Rbegin
, l! K% i$ r! J! d   语句
end;

在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
6 Z% b  f/ ]0 e: o) N
千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

  f: @( |/ {! ?6 ]) f/***********事件触发的函数**********/

5 @1 f" A0 B% U6 {//当有人*近时
+ k2 k3 z" `# x# s$ Nprocedure OnApproach (aStr : String);
' x  ^$ S+ p" b" P( L
//当有人离开时
: ?; e& ^4 C9 o/ k" t1 iprocedure OnAway (aStr : String);

//当受到掌风攻击时
6 \4 v1 j# c9 s" f+ r" P3 x4 tprocedure OnBow (aStr : String);

2 v& M2 O  j; L# r//当状态改变时
' e  j1 H( b" aprocedure OnChangeState (aStr : String);
  d' X$ j7 i' F1 b
//当初始创建时
procedure OnCreate (aStr : String);
* m9 G5 `( c4 ~
//当被双击时
procedure OnDblClick(aStr : String);
5 Z) N. z9 Q9 g* J5 m0 b# z; K
//当死亡前
procedure OnDieBefore (aStr : String);

% [# w% Y/ E. K( L0 V. G& |//当死亡后
/ `3 ?% U9 c+ b$ |, b, ~procedure OnDie (aStr : String);
: w- g! J5 g% g( j; R8 G0 E
- D# h: s- ]' D, h+ ^& D9 \//当被拖放物品时
procedure OnDropItem (aStr : String);
- ]! i; l$ K9 S$ o# a4 K5 m
$ K2 S# J, G% @5 M//当得到命令消息时
procedure OnGetResult (aStr : String);

//当得到改变步长时
" ?! `* F0 a! w7 |8 }procedure OnGetChangeStep (aStr : String);
: @: [! }: L. M% z1 ~
5 V4 s3 [) j, L; o: l$ Q//当受到攻击时
* Z& `+ `9 ?- z6 Jprocedure OnHit (aStr : String);

//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);
9 \* X0 l( P% {0 B& g
  I) n4 O- Z. S- J2 q; |: z//
procedure OnRegen (aStr : String);
! Y8 |6 ~  z$ U* h" c* z
' U  ]7 Y; x1 `# l! E0 S9 C//
procedure OnTimer (aStr : String);
. v' Y! y& b- g+ r
9 b7 F9 c0 b& g7 a( B//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
2 Q1 R- C; y2 V1 w
/ q7 x0 @0 N" G3 Q//当物件发生翻转关闭时，一般是用于门
9 |) r4 j+ r2 ]/ j3 }procedure OnTurnOff (aStr : String);

1 p! K6 }. x3 y" A" J//当用户开始游戏时
procedure OnUserStart (aStr : String);

//当用户结束游戏时
% h5 \- M' n; w1 H  qprocedure OnUserEnd (aStr : String);

) n, z9 l( S) _( R, s0 F. M/ O) `' U//当移动时
* X6 R  ?" W4 C3 h2 Afunction OnMove (aStr : String) : String;

//
  x% Q& \+ ?/ V" Y- N, Wfunction OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
' T# c2 |1 u, {( x: R- o2 p) C& g1 Dfunction  Random (aScope: integer): integer;
3 b1 ?8 g, B; W' Y& X! ~* q; M
//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;

, r4 R3 i4 D3 v2 M& R: w  }7 x//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);
, m8 w% s5 S/ |  I" C
具体参数（略），整理中...........

//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;

; M% N' J& @: t8 |//转换整数为字符串（系统函数）
6 C$ j5 @  i# O. z2 N. s9 Nfunction  IntToStr (aInt: integer): string;

/***********事件触发的函数**********/

$ i( f* C6 S; A




+ C+ Y4 D  c' c6 Z, p/ W

6 M: y2 {4 E) C/ l: z6 K0 Y, ]
function  callfunc (aText: string): string;   //以下为 aText参数的值
5 f; H3 r4 D2 w
7 R8 ?/ f, O- o0 r4 j" l& s% Cgetsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
  U* W0 p# c  ^getage                           获得年龄
  {7 N5 Q* P1 B* p2 z5 V! ^getsenderage                     获得消息发送者年龄
( Q6 y( x. H4 u9 I+ sget***                           获得性别
getsender***                     获得消息发送者性别
% U# X2 Q" w/ q" w, W* W; ~getid                            获得ID
2 n7 J3 L% {0 V& O2 c3 ]/ tgetsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
6 q  S9 F+ o- H% Z% bgetposition                      获得位置
) ^' K+ B3 F( F8 egetsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
9 |9 h" g$ ?- f- B, s1 Hgetmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
. w" b. f2 `: M# mgetmoveablexy                    获得移动能的XY
1 C  E/ r* p6 ?  kgetrace                          获得种族
/ A% t/ V  o+ }getsenderrace                    获得消息发送者种族
2 `. M& L$ K' v. I" Z2 u
. V& M2 ~0 z8 W8 u& f+ U% sgetmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
8 o' h' N+ e# N7 o4 |. xgetmaxinpower                    获得最大的内功值
1 {7 B, J; V; _/ m% X; Y4 Zgetsendermaxinpower              获得消息发送者最大的内功值
& n% p/ M$ n: y5 B0 a) g8 _1 zgetmaxoutpower                   获得最大的外功值
! h' H" P* g; K% @; d% X* D" Ugetsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
' I+ p0 w( }% N9 Sgetsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
) p% \" D8 Z) b- B& D+ J/ h4 ggetsenderlife                    获得消息发送者生命值
. n: w( u4 j" r* w
getinpower                       获得内功值
* M5 V/ I: e4 b7 p! ?getsenderinpower