千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
% {, A7 _" O" S5 _. P* W2 @4 w  K
$ ~7 X! M. p/ I. y6 |4 g" a: |千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
  i; s* K; y8 ?: k( V
一个函数的基本结构是这样的：

$ b) p6 X8 y( ^4 s  U0 w# [' bprocedure OnCreate (aStr : String);
var
9 L% |+ P' |+ B5 F( f- |   定义变量
begin
- R) p( ~( ]; l! Z   语句
. ?4 p! ?" S0 E: ~% k4 ?+ P% W" Bend;

5 O; E3 Q) W0 O; w) ?在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
$ z  n; r+ F5 |. C
千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

- f8 ]$ o, a! k- w/***********事件触发的函数**********/

# c+ A0 d7 F: U3 R! ?$ J6 H//当有人*近时
procedure OnApproach (aStr : String);
0 {7 r  N1 ]; W' Y8 w3 g9 i( w
//当有人离开时
" \4 \/ H0 C1 s, A* f1 z9 Cprocedure OnAway (aStr : String);
* e2 b& `7 m" ?; y9 H# f8 E) ^
//当受到掌风攻击时
procedure OnBow (aStr : String);

. |$ I- [, G5 Z& I* m7 W* L//当状态改变时
0 P( b4 |' X$ S% l/ K  Lprocedure OnChangeState (aStr : String);

//当初始创建时
: K" ^5 ?; Q% ?  l. iprocedure OnCreate (aStr : String);

' M2 W* g( L' E2 T5 O; u/ u7 H//当被双击时
5 h$ S; V" A; c$ N, zprocedure OnDblClick(aStr : String);

//当死亡前
! k% A7 N8 R. X: `0 c) L2 R4 Sprocedure OnDieBefore (aStr : String);

/ ]/ H+ H. c7 O4 B1 B4 g" r3 T//当死亡后
; }! T) {6 B) K8 Uprocedure OnDie (aStr : String);

( P8 u! ]8 C6 Q//当被拖放物品时
procedure OnDropItem (aStr : String);

2 t6 D* g) D" C( v4 C//当得到命令消息时
3 X3 Q/ e; v5 M6 `procedure OnGetResult (aStr : String);
+ ^& v, C* z2 a& m' A
7 ~. s: }4 Y% P) K/ C, ]3 P" s//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

+ q/ [# |) r: O( a. r& D8 d0 H. m//当受到攻击时
procedure OnHit (aStr : String);

//当被左鼠标键单击时
- x- L* o4 M8 Cprocedure OnLeftClick (aStr : String);
+ H/ W. n; }8 Y: ^: u& @
- d) S' {; {. a4 s2 T$ f4 H//
procedure OnRegen (aStr : String);
! T, p7 J# w  h+ Y: A
//
procedure OnTimer (aStr : String);
! z3 W& `3 o* A8 L1 V
//当物件发生翻转打开时，一般是用于门
  P2 @! o3 v2 P/ v% ?9 d1 Y* Kprocedure OnTurnOn (aStr : String);
/ F5 }: o% _% G- X7 R# p: e+ i
  j( ~3 B, O* c2 ]//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);
( }# Z) c% C( G* B
//当用户开始游戏时
( y$ t, b' M/ pprocedure OnUserStart (aStr : String);
( g+ D, n5 f7 \# A
% q- ?5 Q! o4 b9 V//当用户结束游戏时
procedure OnUserEnd (aStr : String);

//当移动时
+ u7 h( [  u0 A2 Tfunction OnMove (aStr : String) : String;
+ J! r: o8 V- |4 E, |+ E. {  T
5 v5 S$ \# V& r( p//
function OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;

//返回指定参数的消息（系统函数）
5 [7 a' m1 ]  [8 u5 Ifunction  callfunc (aText: string): string;
/ t9 z2 u$ P7 z. A
2 q1 O! d4 q/ D" ~//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
' t2 @1 }8 d' ~  bprocedure print (aText: string);

8 i/ H( i; n* w3 N1 b+ T- P) R: i; M具体参数（略），整理中...........
. m  N1 J% V& l3 ~
//转换字符串为整数（系统函数）
" K, i$ F9 ]  z. Pfunction  StrToInt (astr: string): integer;

  W8 B" P( m) R! r- h4 b2 }4 S//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;
+ l: s4 v! Z& E" S
/***********事件触发的函数**********/
) e4 J. h+ V7 Y: \  H1 d- [

( v9 ?) a) ^7 v* f5 c+ q$ ?" W( _
! X/ f6 p3 u4 w( \9 s  K


! @: k5 s& z& F% G: D

0 j: ~7 |- C# J0 {* N1 f
3 K' Z( s9 v) j, r. Y; \4 ~) ofunction  callfunc (aText: string): string;   //以下为 aText参数的值
, W6 o2 w9 T5 t; F' U- _% U
, V+ S9 q9 ?! V5 {8 `2 L4 k/ Agetsysteminfo                    获得系统信息
2 M% R+ o7 c3 {( j9 g1 G& F8 B6 xgetname                          获得名字
getsendername                    获得消息发送者名字
# J! o% A6 K) a! w- C- N2 \9 ggetage                           获得年龄
! }* f" s5 ?. B, M8 A: Kgetsenderage                     获得消息发送者年龄
0 k) w5 I. a7 d  sget***                           获得性别
& I' _$ ~' U! f* x. M0 I9 Ugetsender***                     获得消息发送者性别
) z3 ?9 _5 v3 [9 M; d. wgetid                            获得ID
getsenderid                      获得消息发送者ID
$ }& W8 ^2 _; ^% J2 T1 k) dgetserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
' d8 I  `0 l8 o$ s& A# B6 Xgetposition                      获得位置
6 V% O! C! q/ n7 U( Ggetsenderposition                获得消息发送者位置
+ T. m/ G* L5 E- q7 C1 k& Wgetnearxy                        获得亲近的XY
$ W( S2 V8 N8 l# g/ Mgetmapname                       获得地图名字
0 S$ K! S% b2 O) r* S, wgetsendermapname                 获得消息发送者地图名字
2 z7 v4 o7 z. ?getmoveablexy                    获得移动能的XY
, V3 u4 h6 R. o  g$ Pgetrace                          获得种族
" H" t+ Z0 f, c: ]: F5 {% g6 y9 d% R0 ngetsenderrace                    获得消息发送者种族
) _1 }- T) m  a4 D! n* i) x
getmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
; X3 n& t$ F2 [  `; D; {* Vgetmaxinpower                    获得最大的内功值
. ~0 s  d* j4 [  fgetsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
+ a! G# k7 Y5 }+ Y. C$ xgetmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
5 }8 U+ f  e  j- W7 i4 Bgetlife                          获得生命值
getsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
getsenderinpower

! o1 a) }# S1 i5 W, c0 K% I) S