千年脚本编写帮助

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

! e0 l3 v& |* \/ ]$ m. L8 O. J千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：

procedure OnCreate (aStr : String);
9 ]0 u: i# N; F9 C- g- D' S; Zvar
   定义变量
begin
' L5 |2 o3 _! _& [9 C# u- i   语句
end;
" }& q% K5 \2 E" y2 ]' c( o) `* D1 ~
6 ^7 k- g; ]2 Y3 G' s* d" r: j1 Y2 O在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
7 Q3 V3 ^2 U2 o
千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

% z; g, O. F3 W- U1 ]$ D/***********事件触发的函数**********/
; v% _: }' b& D; Z0 Z
//当有人*近时
8 o8 a% h' i0 D6 t; v: K& B6 lprocedure OnApproach (aStr : String);
4 N' U+ f& Q. Q( p! F+ K, o
//当有人离开时
' p, B' {! k$ Q7 }procedure OnAway (aStr : String);
4 P1 p% b' W# f; I8 r% b
//当受到掌风攻击时
procedure OnBow (aStr : String);

//当状态改变时
4 @% z1 ^( b) ^5 ^$ ]+ o- Rprocedure OnChangeState (aStr : String);
. X$ A9 c2 t" q' F
8 j4 Q& U$ O$ l2 D; S//当初始创建时
procedure OnCreate (aStr : String);
5 T* k# o0 ^: o4 e9 Y0 j' }
# }$ q3 ?5 }) i6 t0 Q' A( c8 D& H//当被双击时
1 V6 }) `7 J0 w3 zprocedure OnDblClick(aStr : String);
* J0 }. M1 @, G% i" R2 y
* R: R2 {2 E6 q" V2 Q//当死亡前
procedure OnDieBefore (aStr : String);

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

& I! j' V1 r" P6 |//当被拖放物品时
procedure OnDropItem (aStr : String);

//当得到命令消息时
procedure OnGetResult (aStr : String);
$ @6 c' Y; Z: H- `
+ O/ @8 X0 i+ R& y* f) x: c8 u//当得到改变步长时
procedure OnGetChangeStep (aStr : String);
2 K" e2 m1 T) c9 _# q8 D0 g/ Z5 Q# I
//当受到攻击时
procedure OnHit (aStr : String);

& O/ J( B5 T$ u" B6 _: P, |: x//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);
7 m8 X( D# g& ?$ }/ i1 j
//
$ J9 u) C, r8 V& L+ V  ?procedure OnRegen (aStr : String);
; ^$ m" y6 m8 [6 G# @# v
5 A; I6 f& A1 m* u( Q6 |//
6 x: m, [7 S% [# [/ cprocedure OnTimer (aStr : String);
- l& g+ T2 d# ]/ z  ~4 u3 X" W
//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);

//当物件发生翻转关闭时，一般是用于门
/ _3 t4 b% M; l" I, a3 Iprocedure OnTurnOff (aStr : String);

//当用户开始游戏时
procedure OnUserStart (aStr : String);
/ ]7 ]! v0 w! A4 Z
//当用户结束游戏时
# p  m2 K" |, jprocedure OnUserEnd (aStr : String);
/ H3 N5 N4 n1 ~( J
6 o' G: Q4 g# d0 B2 k+ x//当移动时
" v3 T( Q4 H9 T# r" i* G9 e  |6 U& `function OnMove (aStr : String) : String;

//
' t- C  _) K% H! v7 B+ zfunction OnDanger (aStr : String) : String;
4 {7 M8 e/ ~% ]; H
//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
% ~: o$ @" B5 Z; ]
//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
; W& A8 y$ l- Y# e# n
( l! U5 l/ i, {& g3 C2 T. L//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);
) q0 o* t9 f* t  D6 G
具体参数（略），整理中...........

//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;
5 p; K' \* g. Y6 K# Q- v0 D3 B1 n
4 |$ c* w' ?. B8 G( I3 J0 }//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;
, t/ o& b+ j+ I) u
/***********事件触发的函数**********/

4 N) `; b2 h7 F  [# N4 o' Y/ X

, m& e4 g8 `9 I( S0 @% |/ s
8 ]+ X  L" S4 }$ x9 P6 a! ]
$ c# k- W! A, z% Q( [' z  e# ]


% ^; L# O. u  c* k
function  callfunc (aText: string): string;   //以下为 aText参数的值
/ A  B1 z- Y! w- R
getsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
- f) l9 L5 H! M5 E: H2 lgetage                           获得年龄
getsenderage                     获得消息发送者年龄
7 ]# p9 R7 z8 Kget***                           获得性别
( ^5 S" Q2 R; V$ D  U  j) _getsender***                     获得消息发送者性别
getid                            获得ID
8 c9 V- o& u& d' o' K0 @  [getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
' K5 J' H2 x/ `. m* }getposition                      获得位置
getsenderposition                获得消息发送者位置
! J0 j  E% z( u( pgetnearxy                        获得亲近的XY
7 b6 B0 I5 [0 L2 Ggetmapname                       获得地图名字
0 Y  i* Q. x3 U4 Ygetsendermapname                 获得消息发送者地图名字
! Z5 y# I/ f' j2 o- E' R  M3 t/ _getmoveablexy                    获得移动能的XY
getrace                          获得种族
getsenderrace                    获得消息发送者种族
  g  N( u. y9 q2 O# a5 D
getmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
6 W, O% z' a- m1 ^getsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
3 u* a) g9 A  J4 T% d, g4 tgetsendermaxoutpower             获得消息发送者最大的外功值
: C1 C( I2 Q* t( }! Cgetmaxmagic                      获得最大的武功值
( o/ U6 _/ ?( sgetsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
2 n: T% J& W; h! ]getsenderlife                    获得消息发送者生命值
2 }! H7 \7 g3 G$ D2 }$ {7 H2 a
4 v; k, ^' R& r" H7 O8 r/ ~' K' ~getinpower                       获得内功值
# ~; s' Q$ C. o6 m! ngetsenderinpower