千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
3 t9 k$ z4 c' W
/ d8 r& D" T, O. p) ^千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：
, k, X. Z1 @1 Z! Y/ }
procedure OnCreate (aStr : String);
var
* f! v, L) F2 B   定义变量
begin
0 C, p1 v, {$ c( p) N# ~   语句
* ]& C+ d. [4 l' X( }end;
: m: |+ j) |  I
4 t, N8 }" _2 D& L& n在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
! b* W0 Q3 \7 [1 p
: I- i+ f2 N; s& ~4 Q6 M: ^千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
' ]2 d' p* H+ `- Z# _
/***********事件触发的函数**********/
+ M4 s! D+ o3 N) j
2 ]0 f( k) l- P//当有人*近时
" G% H( Q( ^0 C# A  @procedure OnApproach (aStr : String);

//当有人离开时
- T) s7 c" e( i" Sprocedure OnAway (aStr : String);

//当受到掌风攻击时
4 a+ H7 b6 }' ?' G/ o$ Dprocedure OnBow (aStr : String);

1 L* {, [' a. E//当状态改变时
; }0 K$ E+ x* |$ Kprocedure OnChangeState (aStr : String);
0 @& H# h2 T7 i, o' j. H
//当初始创建时
procedure OnCreate (aStr : String);

//当被双击时
; F7 T  \3 ^2 y. \0 m% [$ I# K* bprocedure OnDblClick(aStr : String);

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

//当死亡后
procedure OnDie (aStr : String);

//当被拖放物品时
' L* j) r+ ]! x& Dprocedure OnDropItem (aStr : String);
+ h! W1 u" H* y0 Q8 R5 d, T
//当得到命令消息时
procedure OnGetResult (aStr : String);
3 ~& Q5 d' o& I- }: v6 u/ \
//当得到改变步长时
( w# u# p& r! v2 `. X4 G: Q2 Xprocedure OnGetChangeStep (aStr : String);

5 A/ ]9 x; g' f8 R1 w' {9 ^//当受到攻击时
procedure OnHit (aStr : String);
; s+ k* A$ J( F: _: s2 ~: G
//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);
! V- X$ m3 U% `! }9 r
2 X% u$ N* d, i- B; q, \//
7 `, ]' d8 n7 x3 d( j8 [7 h6 uprocedure OnRegen (aStr : String);
' j6 c$ f2 l0 k2 n
4 B: O) k1 O# C; V) K) h//
procedure OnTimer (aStr : String);
: y" ~* ]" k0 C$ y8 j: \0 I' o: F% }+ W
//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
. C' [/ k' q: x9 Q
# T* D. m( a' }//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);
3 N' u; a$ N4 c2 G9 H
3 U" a" O+ p( o( |6 |//当用户开始游戏时
$ D1 U" ^8 z; G. ^procedure OnUserStart (aStr : String);

//当用户结束游戏时
procedure OnUserEnd (aStr : String);
" O9 c) a: l; E, P( w6 E
  X2 X. s3 b* R! }  T1 N//当移动时
5 L1 \" R/ J5 u  d  T8 B) G4 T. kfunction OnMove (aStr : String) : String;

$ _0 ]7 s# Y( O//
, m2 d% b; q( _/ Nfunction OnDanger (aStr : String) : String;

1 R1 B4 Z  k; ?//产生一个随机数（系统函数）
. Y( d  g& h; _& a2 i2 b0 Ofunction  Random (aScope: integer): integer;

7 N# g4 p1 }% R//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
  m! k; `+ l6 |: D
//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
; C  j) x! w/ Kprocedure print (aText: string);

具体参数（略），整理中...........
$ M2 \3 M; k: C. D, I
//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;

//转换整数为字符串（系统函数）
. s' ~: T, O+ W0 Afunction  IntToStr (aInt: integer): string;
' }' ?  v7 V+ a( t; d9 K6 U
/***********事件触发的函数**********/
! V/ A) m+ H+ E& @$ |" P
3 `7 c9 N% z' M% N" X

( D) `8 \2 F/ U6 C, _" a% ^

0 _8 `# k3 A1 b* t9 f  T



0 j- G- U( u' U- ?function  callfunc (aText: string): string;   //以下为 aText参数的值
( Y+ `1 r( H% S* h
4 X5 \& y; n% U+ \6 l3 Ugetsysteminfo                    获得系统信息
getname                          获得名字
! j! a/ h$ I3 U3 S7 V' hgetsendername                    获得消息发送者名字
, m3 U- i) S* J) wgetage                           获得年龄
getsenderage                     获得消息发送者年龄
4 q! P1 r0 V  p6 Rget***                           获得性别
getsender***                     获得消息发送者性别
& [: I  J; H6 @  U2 a- l3 Agetid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
) P0 S: k7 j4 Z& C6 Cfindobjectbyname                 用名字查找物件
getposition                      获得位置
getsenderposition                获得消息发送者位置
! N$ F: o+ r# w$ _9 w+ p. w; E' Bgetnearxy                        获得亲近的XY
getmapname                       获得地图名字
$ i; A8 v2 k) H' H; B5 @getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
getrace                          获得种族
9 j5 L' C* @; e3 Lgetsenderrace                    获得消息发送者种族
. v( q6 p3 L: \0 P5 E6 J
- C, O" A: ?$ Q* |, g9 u6 u, I: S. ygetmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
8 \& }; P5 W/ k9 w' k( f7 A  U# Ugetmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
) f! G% V5 I! U( b& d/ J0 xgetmaxmagic                      获得最大的武功值
0 Q" y* r- O$ O; Fgetsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
getsenderlife                    获得消息发送者生命值

  O  h: F. Y! t: Z" q$ Ogetinpower                       获得内功值
* N# [" ?5 K1 n1 ]' Rgetsenderinpower

. M, j* R3 [. ^$ m( ?) A