千年脚本编写帮助

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

千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：
+ P% C# d" ?( w3 K0 D
: t' E5 E$ k4 T5 ^5 Oprocedure OnCreate (aStr : String);
3 Y0 U& y& c# g9 C6 }var
4 {' \9 B$ w. E& R4 W   定义变量
6 W! I* M- R- b. h/ Hbegin
   语句
end;

在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

( `3 y3 O( @, q# @千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
! v( H8 B( Y% N; k1 Y3 `
/***********事件触发的函数**********/
/ [5 ]* R. e) q8 U( m! a2 |
//当有人*近时
procedure OnApproach (aStr : String);
( q6 d8 N; }7 }! H
//当有人离开时
, K2 g' P7 [* ^: \- uprocedure OnAway (aStr : String);
+ V* E9 S3 O- m: j& E' ?0 ]
//当受到掌风攻击时
6 S% U5 e3 I' K9 v, J3 [procedure OnBow (aStr : String);
' X9 O" p" k: g8 C. |& e
% z( J/ _2 W% T1 a# K//当状态改变时
1 H6 Q8 W% Y1 q; ~procedure OnChangeState (aStr : String);
3 I- q4 k3 l1 @1 k* n% k# O
$ R3 v! m! Y: k* r0 D2 M& I//当初始创建时
procedure OnCreate (aStr : String);
0 s4 L% I& d& }
//当被双击时
procedure OnDblClick(aStr : String);

% Y) f9 X5 x9 U3 M0 m$ T" h: |//当死亡前
procedure OnDieBefore (aStr : String);
! k+ J, \* ]3 ?* D. u1 n$ g
" C5 _' O" U! o3 _2 G8 q! i" z//当死亡后
& m* _, l, ^0 [/ E% nprocedure OnDie (aStr : String);

//当被拖放物品时
0 F: U+ [- s* Z$ K: f) C0 G3 Oprocedure OnDropItem (aStr : String);

, I* V  f5 N" n0 T2 ~: I//当得到命令消息时
) _( F  W1 S0 rprocedure OnGetResult (aStr : String);
6 Y, g* |$ G6 s, D: ?/ |) F, W
5 ~3 y. A, W' e2 p. s* G% W//当得到改变步长时
procedure OnGetChangeStep (aStr : String);
" @+ Y9 I' L( @( h+ C" W/ `) C" Y7 f
//当受到攻击时
procedure OnHit (aStr : String);
% x1 p% u. x8 ~: g/ T1 [
0 N8 `" ?$ [! q( P( Z/ V//当被左鼠标键单击时
/ f" x* w% c0 eprocedure OnLeftClick (aStr : String);

//
procedure OnRegen (aStr : String);
4 t$ z6 Z  n& N6 G8 A. G
9 s2 T7 Z' F& F; M* w: o//
1 ~$ p+ M, p* O, m) ?procedure OnTimer (aStr : String);

//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
" D( b+ E6 ?  }  @, n+ u
1 B. F* I  F6 h//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);
% `  \1 @2 K, ?8 W! v
//当用户开始游戏时
procedure OnUserStart (aStr : String);
6 X- q1 w. i& Y( ?
, S+ h$ e9 W! ~% M//当用户结束游戏时
procedure OnUserEnd (aStr : String);

//当移动时
function OnMove (aStr : String) : String;

//
function OnDanger (aStr : String) : String;
1 F  C: {! S0 h: G" I- T( T1 g% W. J
//产生一个随机数（系统函数）
2 F  m% n9 Q1 ?2 m, t% Afunction  Random (aScope: integer): integer;
8 V& u( g' Q; Y8 E" h$ q
9 a( [1 r: [8 G% K  a0 z+ W3 r//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
% ~+ u( _9 t$ t$ \! Q
, h5 c* n1 ~1 Y& j1 o; G4 h//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);

* u; v( p0 H4 }9 z具体参数（略），整理中...........

//转换字符串为整数（系统函数）
+ c9 I" S) N2 }function  StrToInt (astr: string): integer;

//转换整数为字符串（系统函数）
5 @7 Z% }- K1 lfunction  IntToStr (aInt: integer): string;
! y! y: {8 w) J. T$ T3 U
/***********事件触发的函数**********/
+ j% Q  w# V9 M6 U0 S% T
4 L. M; X9 W. Z
: G3 _1 w! e4 c
9 o: D) l: L; `

: E9 U7 e. \7 T

  Q: z3 {9 Y0 L5 S! h7 L

- t; `9 Y5 {8 g+ ofunction  callfunc (aText: string): string;   //以下为 aText参数的值
( u3 p+ A3 a0 y5 g4 i- d
getsysteminfo                    获得系统信息
getname                          获得名字
5 p2 Y( N3 O$ M0 h7 ]8 `* T' x% Pgetsendername                    获得消息发送者名字
. K6 s1 K, Y2 B- Z) ^; e8 N+ U) u7 D; m& rgetage                           获得年龄
  [; r# X% Y* ?getsenderage                     获得消息发送者年龄
, Z8 T& \/ _* ~  Q7 b6 ~2 e; uget***                           获得性别
getsender***                     获得消息发送者性别
getid                            获得ID
0 j: F# K2 ~' K5 c: Vgetsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
/ C% H, b5 o% M' \  k- N2 k( w, bgetsenderserverid                获得消息发送者服务器ID
, F: w6 @& h- X/ ffindobjectbyname                 用名字查找物件
0 v6 m7 V2 E% r! xgetposition                      获得位置
getsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
+ X4 I0 i; Q8 @! S" Rgetmapname                       获得地图名字
; A; j* r, D1 Y1 }& u9 @getsendermapname                 获得消息发送者地图名字
, g. Z9 v8 Y& U# M# ^" S- igetmoveablexy                    获得移动能的XY
getrace                          获得种族
( U/ L5 C3 v5 C- w1 Q  @" ^) jgetsenderrace                    获得消息发送者种族

getmaxlife                       获得最大的生命值
$ Q- ~9 [/ o6 }. i% w. K2 Lgetsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
* r3 p- ]! y8 n' ^2 B# Bgetmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
( l" n3 Z, l- e4 D$ n0 x# tgetmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
5 p: x/ `8 {) ?getsenderlife                    获得消息发送者生命值
& j( \; Z' i3 k. q/ o- A
) @8 {; y# T# K% Bgetinpower                       获得内功值
+ A* G3 H. Y, U; Qgetsenderinpower