千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
) y# h' ]* R5 z. y  z% a
: ]4 w, e: X' W& A: U8 U8 Z千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

( r6 ], H& C, r$ J0 c6 E$ k一个函数的基本结构是这样的：
* }- f2 J" _' W5 O, g+ p
6 W% @  j0 w! T5 V- E! bprocedure OnCreate (aStr : String);
var
: t: b8 R9 y" f3 S2 D& @- t   定义变量
5 |" Y: f) e7 [' G; M  Zbegin
   语句
end;
8 M% e# q7 h1 a6 O0 _
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
, g0 G4 D9 ]6 F; i5 j- \2 [
千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

/***********事件触发的函数**********/
) ~* M; G# y% P' \/ y1 I
//当有人*近时
procedure OnApproach (aStr : String);

//当有人离开时
: P. w1 K( ~9 H. F7 b3 Sprocedure OnAway (aStr : String);
. x" u6 W  b5 U( a- N3 Z
) R; m  d8 H! [//当受到掌风攻击时
" ~  E( |% B0 i7 b* ?8 x; `procedure OnBow (aStr : String);
5 N+ w. t- l0 X- e
//当状态改变时
procedure OnChangeState (aStr : String);
% d% n9 U6 Y& ~6 I# |
0 G$ h4 V2 X% }5 v; k- k//当初始创建时
3 p% B8 e0 P& Y& Uprocedure OnCreate (aStr : String);
) c' w0 {) ~8 {  {4 K( ~. b
+ e+ W# U+ i# r//当被双击时
" \3 k# a7 j  V  _" x/ m& Gprocedure OnDblClick(aStr : String);
7 P2 c" i  {4 |! e7 S% [& o
//当死亡前
procedure OnDieBefore (aStr : String);
5 C# c  j: f6 D! `- y1 W
8 \( P2 Z: o8 C7 ^. {//当死亡后
* k6 M+ i* W3 z2 |- A9 a6 l- jprocedure OnDie (aStr : String);

//当被拖放物品时
procedure OnDropItem (aStr : String);
5 _' U3 M2 b4 v$ y8 y3 R
//当得到命令消息时
# |  I# B/ c# Y8 p2 Bprocedure OnGetResult (aStr : String);

//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

//当受到攻击时
' a0 y& ~! ?; r; ^procedure OnHit (aStr : String);

//当被左鼠标键单击时
3 n& f% Z7 o( [5 q- \procedure OnLeftClick (aStr : String);
$ }$ Y8 B8 ^) ^7 c8 _
3 ?* p+ a, I0 ]7 i& w//
procedure OnRegen (aStr : String);

//
procedure OnTimer (aStr : String);

  u( N" V2 M) [  E# E//当物件发生翻转打开时，一般是用于门
% U1 B+ B% }$ q# P2 Y( rprocedure OnTurnOn (aStr : String);
7 o7 N$ h) q8 N9 m9 `( R
//当物件发生翻转关闭时，一般是用于门
: s7 i* g9 d! w; @/ Fprocedure OnTurnOff (aStr : String);

4 @0 b/ N4 w6 n$ {/ M//当用户开始游戏时
procedure OnUserStart (aStr : String);
! \4 f6 Z6 Q0 t7 |/ ~% F
//当用户结束游戏时
$ U! u  b. L3 }; d7 R7 Z: h1 P  Bprocedure OnUserEnd (aStr : String);
1 V% P# Y/ @5 D) `# T: O6 j: e
//当移动时
- @! S9 @0 S# A$ [% t9 ?3 [function OnMove (aStr : String) : String;

//
4 |6 m! b( X  C; Z' pfunction OnDanger (aStr : String) : String;
' ^: x+ C+ u$ T
8 Y9 n( F& ]5 Y  P# {//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
+ C/ Q" l6 U! P% v$ u" w  ^, d
//返回指定参数的消息（系统函数）
6 ]: e. F, {/ y- Bfunction  callfunc (aText: string): string;

: A& t* f0 Y( b+ }//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
3 N( E% w: ~- h' e; U9 kprocedure print (aText: string);
- p) @7 `! O& G9 W3 O# h$ _* @
( N% [9 F( n  K  I, }( g$ t具体参数（略），整理中...........

# x( N/ y# b$ `- K: Q5 K//转换字符串为整数（系统函数）
; r9 m) ~: I" _  `+ L  y) Nfunction  StrToInt (astr: string): integer;

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

2 q% @3 c4 T. }4 r1 m9 Y/***********事件触发的函数**********/




6 T6 _% c/ ]: O

3 {( R8 d) v8 t. ]9 i
& E" `3 M' s! g+ @% d1 U
1 e$ J# f6 p8 b( ?4 z
function  callfunc (aText: string): string;   //以下为 aText参数的值
( ]3 I2 @1 H+ G) f0 L, j1 i; v* |) n+ b
7 v" O7 O8 }3 Q7 g+ e* K  E1 v$ Qgetsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
% ~' c8 w2 C7 Ugetsenderage                     获得消息发送者年龄
get***                           获得性别
getsender***                     获得消息发送者性别
getid                            获得ID
+ @) q: L" R4 Pgetsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
0 I/ o! s' n8 m3 S# v# rfindobjectbyname                 用名字查找物件
getposition                      获得位置
getsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
" J  ?6 ~. T; V& z! _0 s% h& \getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
7 f( ]' S* X; `2 e+ N. Qgetmoveablexy                    获得移动能的XY
) A% r; T0 o# G) B. ?. X& jgetrace                          获得种族
getsenderrace                    获得消息发送者种族

getmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
  o( t5 Z2 {0 E" i: fgetsendermaxinpower              获得消息发送者最大的内功值
+ l+ ~" y- e9 i9 B7 O% X. Pgetmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
, a$ Z" w2 S9 U0 |$ i- I( X' _# tgetsendermaxmagic                获得消息发送者最大的武功值
# G5 h3 Y; I8 \9 A9 [6 S9 Kgetlife                          获得生命值
getsenderlife                    获得消息发送者生命值

# I4 d6 G6 P' E: C! ^: Xgetinpower                       获得内功值
getsenderinpower