千年脚本编写帮助

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

千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
/ x4 y( e/ Q$ F0 U* {
一个函数的基本结构是这样的：

procedure OnCreate (aStr : String);
4 \4 ~' `$ C; A( ivar
8 V: a/ |, A/ o2 @. {   定义变量
2 @1 v" w- R! t. A! [begin
! z( S9 h! g, m" I7 {7 T/ U   语句
end;
& `6 z# H( |/ u, j5 B2 @$ D
, X" v6 J. M' k% P4 S/ o+ z在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

0 v0 g# ^+ |4 n% _4 D7 E千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

0 Z' z7 l) v* H* E2 e8 ^/***********事件触发的函数**********/
& T0 D( {& |, y( b  J, F
% k1 A$ J: R; H  g//当有人*近时
) C0 W6 R; H+ `2 r1 S9 l$ A, Qprocedure OnApproach (aStr : String);
9 i8 a) V$ ?0 A" N
//当有人离开时
procedure OnAway (aStr : String);

//当受到掌风攻击时
procedure OnBow (aStr : String);
3 C) \8 |# _2 ^- n9 S4 d& O8 B
5 Z5 e" R7 [" E9 H/ W# N- s//当状态改变时
procedure OnChangeState (aStr : String);
! D5 p3 o2 y/ e7 p$ z% F
//当初始创建时
: I9 j+ W! v; D, Z( Kprocedure OnCreate (aStr : String);

- Z3 E* y2 z2 p//当被双击时
procedure OnDblClick(aStr : String);

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

; l6 V. @! l2 S; e# ]//当死亡后
& L8 B9 r# K+ Qprocedure OnDie (aStr : String);
. v) u% S( O* E2 F  w
//当被拖放物品时
: t3 Z. |+ }- P) Q6 @/ j/ Hprocedure OnDropItem (aStr : String);

//当得到命令消息时
procedure OnGetResult (aStr : String);

. |4 }  x- s$ `//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

//当受到攻击时
; f$ U, w- S' r# g) c6 h4 aprocedure OnHit (aStr : String);
" U% L2 `$ n2 }. H( i
//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

//
procedure OnRegen (aStr : String);

& g& {) N5 o6 F# ]3 b$ [/ d//
procedure OnTimer (aStr : String);
3 x/ p+ o+ k- ~" J
//当物件发生翻转打开时，一般是用于门
% e$ V) l7 j# G  \6 w) iprocedure OnTurnOn (aStr : String);

//当物件发生翻转关闭时，一般是用于门
8 B3 h- n- K5 R& g4 ?procedure OnTurnOff (aStr : String);
. o& r$ u/ v4 I& @
//当用户开始游戏时
+ ~! x- q: e% L0 s  a7 {+ v4 \+ Wprocedure OnUserStart (aStr : String);

9 q6 ~! n6 k- j1 V( G//当用户结束游戏时
procedure OnUserEnd (aStr : String);

//当移动时
4 X! d) M4 t7 [# kfunction OnMove (aStr : String) : String;

5 S, _& L9 I8 [2 k1 z$ s+ Z0 _//
( ~2 [6 w; J2 Xfunction OnDanger (aStr : String) : String;
* t4 `1 {0 G, i3 H$ h
/ z0 s  q2 {+ s/ i* [- I0 |* d  S//产生一个随机数（系统函数）
. E( N& i9 Y. G2 e' h7 Qfunction  Random (aScope: integer): integer;
! k. D0 r: r% Y& c
+ j2 W, z1 P( X% ^//返回指定参数的消息（系统函数）
8 j2 @( r; t$ r, Dfunction  callfunc (aText: string): string;
0 K& _" e( h& }; _8 |& F- z
//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
5 M  {: g* I" oprocedure print (aText: string);

3 n- G) C; y5 t4 `; S  G  J1 L& I具体参数（略），整理中...........

7 \; F. g0 y& v0 _# Q2 b//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;
4 r; i. D$ |: `, n  G( V
//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;

$ E0 |0 Y; c2 q4 z7 g/***********事件触发的函数**********/


1 w8 j( h. }9 E! u2 P$ H, u


, {: K8 r" y8 a# l( C4 U
" J- s3 Y( y  D# J3 A! t" H. m% c
  u5 W) @8 ^9 [+ \* ^5 o

function  callfunc (aText: string): string;   //以下为 aText参数的值
2 X6 d) T6 x' w) O5 V$ h
getsysteminfo                    获得系统信息
0 m% I& m+ a  v; _4 Z; Ggetname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
0 J8 {7 ^* Y# c# Kgetsenderage                     获得消息发送者年龄
get***                           获得性别
getsender***                     获得消息发送者性别
; ]( F& Y' `+ Pgetid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
  D' K* {, @* D4 b% F4 ?- M, egetsenderserverid                获得消息发送者服务器ID
( |' x, Z8 n8 h9 ~+ Nfindobjectbyname                 用名字查找物件
getposition                      获得位置
getsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
getmapname                       获得地图名字
9 Q: ~5 y3 o+ m1 ?+ t+ rgetsendermapname                 获得消息发送者地图名字
. i! v$ [( w0 P# D% z0 R# Xgetmoveablexy                    获得移动能的XY
getrace                          获得种族
! |# J1 W2 P  [) Agetsenderrace                    获得消息发送者种族

! q+ T( {7 |" L+ `* Ygetmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
! `! o$ K8 M' e0 B! B7 O+ @getmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
. d0 P4 K3 p7 {, Sgetmaxoutpower                   获得最大的外功值
, Z" x" y7 _/ D( Xgetsendermaxoutpower             获得消息发送者最大的外功值
  C2 Q6 z4 z: R% o( ~- g2 pgetmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
getsenderlife                    获得消息发送者生命值
2 D% v2 i) P7 Q: |. ]. E+ d
2 O, e1 q" x  }2 s# Hgetinpower                       获得内功值
getsenderinpower