千年脚本编写帮助

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

  ~# v6 j! i, Q$ @8 K0 X千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

3 O/ G1 s( l& T/ y0 D1 I一个函数的基本结构是这样的：
& w! A( \* f9 D8 L$ y. ^
procedure OnCreate (aStr : String);
) U+ [: ~. k; p8 z7 b$ p2 Xvar
& c+ I. F' |, P2 y. C   定义变量
. }9 W/ w3 r5 ?begin
+ c( S* F& @# `0 H   语句
+ J  M/ w: i0 u' p6 p! [end;
" ?) W, \' i. D) ~. [8 {
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
. B5 ^  s4 D4 S' X, k/ y7 z: e* z
0 X  M  \5 S* f千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
, l/ U, f2 b1 k6 ^/ K7 u2 X* b+ ]; x& f
$ a, K+ q8 ]% J( y9 G/***********事件触发的函数**********/
7 x: _4 w. j* s7 v2 |# U
+ T' U4 e, G; ]//当有人*近时
procedure OnApproach (aStr : String);
. k- z/ z. i% F4 S0 [
//当有人离开时
& [$ C: Q$ |5 E% b7 Zprocedure OnAway (aStr : String);
& r0 k; Q0 B' R: }( k; _6 b
7 B! m0 X! G) U0 K) @+ ^//当受到掌风攻击时
procedure OnBow (aStr : String);
: @% x8 E8 o9 m4 u, g* b. m2 e
//当状态改变时
! x' U3 [# w4 B+ mprocedure OnChangeState (aStr : String);
8 a7 c8 J" d3 |) f9 b) j6 f
1 F& B8 U, z* y# J7 m- c. h//当初始创建时
2 o! w3 u/ U5 l8 v) sprocedure OnCreate (aStr : String);

//当被双击时
; o1 ^  \: H# O; J# l! M: Iprocedure OnDblClick(aStr : String);

9 a+ s4 A# ~7 ]1 d6 s- `% N5 N( C//当死亡前
8 Q; V3 t' K; g/ P! aprocedure OnDieBefore (aStr : String);
/ y0 {, [6 S4 e& v. s* O1 P& M
//当死亡后
8 p; `% N# [0 o* O" yprocedure OnDie (aStr : String);
$ a" Q6 M3 L4 G/ ]+ r, ?% t
' O3 q; m9 ?0 e7 E& q$ a8 I//当被拖放物品时
procedure OnDropItem (aStr : String);

, ~; o3 G: Q, N. n+ o& f//当得到命令消息时
procedure OnGetResult (aStr : String);
1 j' S5 N5 g5 ~: C7 c- ~
6 m. ~! i- _# ?3 j: R2 `% Y//当得到改变步长时
procedure OnGetChangeStep (aStr : String);
; B5 m" J& @  ]# o& E0 Y1 G* p3 E1 ?
5 C% p, \0 p; W/ u; O7 C: B+ R//当受到攻击时
procedure OnHit (aStr : String);
0 Y) A/ U% ~/ G9 s3 y
//当被左鼠标键单击时
* m% k* k2 ?3 K9 {; ?; D$ yprocedure OnLeftClick (aStr : String);
5 o; [1 R7 L5 t' z2 r
6 {+ E% p9 j: O% J! D1 U" W//
0 ^4 g7 S) a3 X# e8 K" Y0 i  `procedure OnRegen (aStr : String);

//
procedure OnTimer (aStr : String);
4 `9 O/ v( l- `! G$ Z$ z& x& y
//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
; b5 w# V' g/ t. T) u. r# Y. a
//当物件发生翻转关闭时，一般是用于门
) ?% O/ q7 m+ N7 @3 j( hprocedure OnTurnOff (aStr : String);
7 z2 o6 v. e) f! k0 R
//当用户开始游戏时
procedure OnUserStart (aStr : String);
# j+ Q0 o- F. X' S7 r2 K) l
//当用户结束游戏时
procedure OnUserEnd (aStr : String);
9 R! a% ]) S' v2 z6 b6 z; f; t
//当移动时
function OnMove (aStr : String) : String;

//
4 B" f' {4 S8 `( ffunction OnDanger (aStr : String) : String;
' N3 Y  B# P( j. c/ g7 D
//产生一个随机数（系统函数）
* ?& }- R! I" M! m7 s! l5 e) f9 u; vfunction  Random (aScope: integer): integer;
8 B- \! O2 q2 x( k
7 k# d, T0 g  v' d% S3 \//返回指定参数的消息（系统函数）
" D9 Q3 F/ X- ~function  callfunc (aText: string): string;

//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);

2 M- u4 ~9 E2 X0 W$ C) n% _8 E" Y具体参数（略），整理中...........

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

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

/ m- l: ?/ t3 E% c9 N; V1 B/***********事件触发的函数**********/

8 W" [1 G3 d  O2 w4 m3 e


, E9 ^: f, o  [  d$ W# X  k! r
+ U* f! @3 z/ f& D

; a: j3 r# X% z7 e8 m- ]

' |; h9 d% I. d- U. pfunction  callfunc (aText: string): string;   //以下为 aText参数的值
& c( q3 i; M3 {# ~; K2 F$ }0 f
# _% U" P0 ?# r' b' i4 bgetsysteminfo                    获得系统信息
getname                          获得名字
) x% k6 w9 b' A$ \getsendername                    获得消息发送者名字
getage                           获得年龄
% @- \( R. |+ c5 _, D! y9 P2 mgetsenderage                     获得消息发送者年龄
; \5 Q& L" s/ N- @, d5 L% rget***                           获得性别
getsender***                     获得消息发送者性别
9 y- a- q0 S6 M' jgetid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
getposition                      获得位置
getsenderposition                获得消息发送者位置
& L- @. v; X6 ^# W( ~getnearxy                        获得亲近的XY
getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
. A; @" @$ P1 s; I) \$ |, L% cgetmoveablexy                    获得移动能的XY
getrace                          获得种族
& K* G! D) J, n3 T3 Mgetsenderrace                    获得消息发送者种族
- z' m  x8 A0 F" B1 H2 `
getmaxlife                       获得最大的生命值
9 x2 W  e* ]+ ]6 B% egetsendermaxlife                 获得消息发送者最大的生命值
! z3 I& y" `/ Z/ D; B) Lgetmaxinpower                    获得最大的内功值
- j$ N; l( o) k' l2 `$ F. ]getsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
7 u7 C3 V2 p# O/ Ugetmaxmagic                      获得最大的武功值
1 K6 z. i( E4 t7 A& Kgetsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
# {0 g2 d5 q8 E: P. Vgetsenderlife                    获得消息发送者生命值
4 N8 e+ O* f* a; F" q9 {
- P' z+ l' V& j. ogetinpower                       获得内功值
& Y0 D$ Z3 W/ r! L; wgetsenderinpower

3 b6 r* @! A5 K7 e" a