千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
$ I1 h; W0 C0 }% V
5 [! f5 i+ _0 G0 Z千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
; t+ K8 G. ]) ~( _. W, v* R* O
一个函数的基本结构是这样的：

2 \, D8 @( W+ q- R5 W  sprocedure OnCreate (aStr : String);
- Q, m$ ~- a$ }: c" j5 Yvar
/ f) n" i& f. T0 Z  w$ ]9 k9 X2 [   定义变量
begin
   语句
end;

在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
, b, P, Q1 x% R' c
' M/ h2 H. g' X. }4 T& E千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

: J9 e* I/ [$ e  V/***********事件触发的函数**********/
& j" G# \( R7 }& L2 ?
+ A2 U( |2 h+ \  S% z% ~8 C' ]//当有人*近时
procedure OnApproach (aStr : String);
/ I; }. F& h+ v. E% ]# a
//当有人离开时
& ^$ M; @1 L5 z, Hprocedure OnAway (aStr : String);
' r6 D( h* k3 j$ G' {
3 |1 h) C1 k. ]/ R2 P7 G: K//当受到掌风攻击时
1 |: }8 |* e) B9 A" r6 Wprocedure OnBow (aStr : String);
/ C' l' a3 E/ E
//当状态改变时
5 w3 s) |2 A+ A1 aprocedure OnChangeState (aStr : String);

: c$ R& J& B, x% T9 E//当初始创建时
. i1 J. W2 H7 l( ~procedure OnCreate (aStr : String);
: S: X0 F! P8 _6 U5 `& r
3 P2 y) F$ e5 j1 Q//当被双击时
procedure OnDblClick(aStr : String);

//当死亡前
procedure OnDieBefore (aStr : String);

//当死亡后
procedure OnDie (aStr : String);
$ I4 r( J( S' x
//当被拖放物品时
procedure OnDropItem (aStr : String);
+ ^, T$ `1 I) V2 l% s
, _% L0 |/ s; b( E//当得到命令消息时
procedure OnGetResult (aStr : String);
5 m; \/ n7 Y9 k$ Z- o# P
//当得到改变步长时
0 l' u  R5 e1 d; I! w; P* @6 iprocedure OnGetChangeStep (aStr : String);
$ R( o& j& N& u4 x$ P$ R% m, h
//当受到攻击时
8 }4 O- f! z3 n' {$ C( n3 M0 q" Nprocedure OnHit (aStr : String);

//当被左鼠标键单击时
3 N" e; `2 V  K$ G4 n6 ?; R* y' aprocedure OnLeftClick (aStr : String);

" {. s$ a) g5 m# K& _5 s//
procedure OnRegen (aStr : String);

//
& t8 A9 o3 U$ g+ N$ q9 ?procedure OnTimer (aStr : String);

5 W  Q5 X! U/ d; D$ `8 @0 V$ |//当物件发生翻转打开时，一般是用于门
4 K, O' P1 D; v1 c7 d% I& Oprocedure OnTurnOn (aStr : String);
# ?" g8 |" u  y. z% M( ?
//当物件发生翻转关闭时，一般是用于门
& c8 y4 N4 V7 Gprocedure OnTurnOff (aStr : String);

//当用户开始游戏时
6 ]* L! h5 ?* e. }; R: z) U5 {procedure OnUserStart (aStr : String);

//当用户结束游戏时
7 x' J9 G& B5 jprocedure OnUserEnd (aStr : String);
- k% i3 S* A" ^
. A; z0 _- o( ?//当移动时
( m- N2 E' C2 w4 vfunction OnMove (aStr : String) : String;

; H5 b* v& Y! F' J//
function OnDanger (aStr : String) : String;

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

//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
( y. a8 r5 S6 U" n/ m
: h8 l/ s0 C* t8 p! f//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
+ ]9 c' w9 e1 j7 a  R! p/ q3 y7 `procedure print (aText: string);
4 P: V' y9 m- t  D0 ~
: p. \0 ~: @- P! R具体参数（略），整理中...........

- r0 y4 y5 G/ i' N+ h8 c+ ^2 R//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;
6 [5 \  e2 R4 j
4 f& g, H' n& }" H& C9 j//转换整数为字符串（系统函数）
8 a' [- j- W/ }  ufunction  IntToStr (aInt: integer): string;
# K' d. f+ @) v! U& S7 C" }
2 X$ ~( l8 d( L+ A8 V0 Z+ |  ]6 s/***********事件触发的函数**********/




/ F* M- s2 ~, K7 D6 O) M! `. h' p
/ ?: v* L* f9 m  {, m
8 D4 |( f# S; V' X4 g4 e
0 \3 i% }8 D. o, Z
# V) W4 ^* \9 M+ [8 S
; d! }6 P  X) Cfunction  callfunc (aText: string): string;   //以下为 aText参数的值
; O) ?. G  ^. M# {! b0 d  T
getsysteminfo                    获得系统信息
getname                          获得名字
. c- G) L  B* _2 K' y& K. H. Lgetsendername                    获得消息发送者名字
getage                           获得年龄
getsenderage                     获得消息发送者年龄
# B+ y+ ^7 f$ P. Lget***                           获得性别
4 J* C- u6 K3 {+ Wgetsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
  Z7 |! B& z+ Y: p* q: l: t  K" xgetsenderserverid                获得消息发送者服务器ID
+ H$ s; W) S* ^: Rfindobjectbyname                 用名字查找物件
getposition                      获得位置
3 s: W) m) c! p( z$ h8 E. [getsenderposition                获得消息发送者位置
9 ^( c( L! ]" ]% X  N  W# ]$ I7 sgetnearxy                        获得亲近的XY
getmapname                       获得地图名字
# c1 Q3 C. K/ `( R, Pgetsendermapname                 获得消息发送者地图名字
5 z7 |# E" \% \  e$ R5 z  A0 Qgetmoveablexy                    获得移动能的XY
0 q, t) ^$ T' B) j1 s) ^getrace                          获得种族
8 y3 ?# E: u. Y4 r1 ~- U8 ygetsenderrace                    获得消息发送者种族
* O, J. @" g9 [7 B8 \
getmaxlife                       获得最大的生命值
. `& m6 M; x4 ]; Jgetsendermaxlife                 获得消息发送者最大的生命值
7 s' a& ]9 R7 u5 [6 v. sgetmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
, J; _5 N& m& {1 ygetmaxoutpower                   获得最大的外功值
; A4 T5 C7 p6 L0 ]getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
9 s: o5 a# l+ T2 w$ }getlife                          获得生命值
. [: a- F" h; Dgetsenderlife                    获得消息发送者生命值

6 x! L' f8 X  b3 Hgetinpower                       获得内功值
getsenderinpower