千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
7 C4 l) o5 j: H* ~% Y$ J) |' k1 K
9 \# K1 z+ G) G2 c" `" y千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
0 q& i$ a- b+ `
一个函数的基本结构是这样的：
4 Z# x2 U0 |& Z: M+ L
" z1 E; r3 b7 N! Tprocedure OnCreate (aStr : String);
" f# w% \9 r' N+ [* q$ q! j5 ivar
# Q+ r4 k0 ]8 L; e$ ^4 @9 l   定义变量
5 p, ^( x$ j4 Q5 pbegin
* H+ j8 Y9 b9 T5 B6 G& o   语句
end;
6 v! D- [& G# |$ f8 v
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
8 e, J+ e1 f1 B' y# R3 H8 Q
& ^5 U7 s  @  M. J+ q2 H# H& _" M千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

' `, w3 [6 W9 V5 G% e. n) y. v; `/***********事件触发的函数**********/

//当有人*近时
procedure OnApproach (aStr : String);

//当有人离开时
1 x4 Q3 O- h4 n6 P* ?6 Fprocedure OnAway (aStr : String);

# \# [2 b0 i% q4 Y6 p: u9 l//当受到掌风攻击时
procedure OnBow (aStr : String);
: j. [5 E. ^) X# G5 ^
- U) B* x* E! r/ D/ O  d2 C. o//当状态改变时
% L8 z4 W8 V9 nprocedure OnChangeState (aStr : String);

//当初始创建时
3 X; [4 f, E+ F, k7 a' \1 tprocedure OnCreate (aStr : String);

, w3 ^4 _- ~4 P! V//当被双击时
9 c- U+ n; s0 C4 Nprocedure OnDblClick(aStr : String);

//当死亡前
/ M$ j& i* ~1 w! I; Rprocedure OnDieBefore (aStr : String);
( t: `9 F/ a4 X0 u
4 `% P2 L  X) S/ x//当死亡后
* L0 f/ i0 O5 H1 Z1 vprocedure OnDie (aStr : String);

" B8 j, F+ ?- W$ `( Q+ b. G//当被拖放物品时
procedure OnDropItem (aStr : String);

//当得到命令消息时
procedure OnGetResult (aStr : String);
2 m9 A0 L( O( H; f. L- I
$ H* ~$ q  k* E* U4 ^//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

//当受到攻击时
5 \- p, Y$ J/ M. J+ Vprocedure OnHit (aStr : String);

5 P: [& U" k' m4 P2 J% J- j6 d//当被左鼠标键单击时
5 _6 N% t" c* s/ I- R9 o8 {' B, m$ Fprocedure OnLeftClick (aStr : String);
/ ^7 {- Y- G/ X; x  R' \- M/ N7 I4 [
//
4 N/ m/ L, [: n0 wprocedure OnRegen (aStr : String);
: |  i5 v3 j7 g) M6 {
; c3 e% W' Z+ L. \' P% W//
procedure OnTimer (aStr : String);

  o9 N3 A$ X1 l& i$ \, j! {/ r//当物件发生翻转打开时，一般是用于门
' `. S) |1 C! R; Yprocedure OnTurnOn (aStr : String);
# w  W: L+ O! M6 K2 P
/ x: r/ {7 ^0 c//当物件发生翻转关闭时，一般是用于门
" _1 @) g. E7 f( P3 Mprocedure OnTurnOff (aStr : String);
3 v& W1 Q+ s- H' P: ^( b8 C
- d5 _0 l( {/ x8 D: b//当用户开始游戏时
; m' y4 [. p3 s' G! t/ }6 Pprocedure OnUserStart (aStr : String);
8 Y. z" D/ P+ D2 R1 \! i
5 S( Y- j7 @4 X) V3 M; z9 Z2 y; R//当用户结束游戏时
procedure OnUserEnd (aStr : String);

- X; }, B. c9 z# D/ Y+ I//当移动时
4 g/ M/ g. _# J3 q3 H5 qfunction OnMove (aStr : String) : String;
! n& Z# R" g* Y6 p; F
& K$ U  T  F( J8 |6 _3 ]+ ?//
* w1 S6 n6 X" s( I' [$ Ifunction OnDanger (aStr : String) : String;
( q- f# F8 W: C3 Q7 }: a8 x( [
//产生一个随机数（系统函数）
" a0 j& |2 v" _! h7 K1 bfunction  Random (aScope: integer): integer;
8 I; u1 g7 [# U+ Y
//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
: V. a6 g" E( ]2 y( h( D+ q1 l9 g
" q; Z3 `( k  N, o0 k# q//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);
3 Z. [1 J) c2 z
% J0 X( }6 C( t/ f4 w# ]- h具体参数（略），整理中...........
+ I( w6 [2 M0 |% m- ^! A
//转换字符串为整数（系统函数）
6 [2 a) |  T( Y9 \) @6 I7 Q# tfunction  StrToInt (astr: string): integer;
$ T2 y2 G* L$ m4 j& G( Q: r3 [
4 P* R  e0 w& }) W//转换整数为字符串（系统函数）
) f; W, c) ?: r* J  d9 Tfunction  IntToStr (aInt: integer): string;

/***********事件触发的函数**********/

' `9 T- z, P8 F/ a. ?! _/ ]
0 }- q7 h# ~  d; k


5 U1 W9 C! s! w" B, Q) L' v& n
5 l2 |: m$ `+ ?- A/ s% j( R; d
9 G, E( e9 ^& I5 e8 m0 U

function  callfunc (aText: string): string;   //以下为 aText参数的值

getsysteminfo                    获得系统信息
/ H' M$ |, M" {- I: s3 Zgetname                          获得名字
getsendername                    获得消息发送者名字
6 q) c8 ~: L. V+ W0 [$ o1 U2 E6 hgetage                           获得年龄
getsenderage                     获得消息发送者年龄
4 z; p! {0 F1 d* ~) P$ L( Aget***                           获得性别
getsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
getposition                      获得位置
getsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
getmapname                       获得地图名字
! ]; Z8 _! _- ~. T4 b' c$ Y8 Hgetsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
getrace                          获得种族
getsenderrace                    获得消息发送者种族
: K  A4 H; `- {3 A0 e
getmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
& Z% Q2 k9 ^( o1 E1 t( Ggetsendermaxinpower              获得消息发送者最大的内功值
6 F0 {  t! Q9 H1 Cgetmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
; ~4 p! U4 |, v2 T7 \getmaxmagic                      获得最大的武功值
! |1 }3 z' t+ g. ~% e9 E- qgetsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
getsenderlife                    获得消息发送者生命值
" e* D4 U: w7 R& _3 f0 g4 m
getinpower                       获得内功值
getsenderinpower