千年脚本编写帮助

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

千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

& {3 u0 k' U7 f4 O一个函数的基本结构是这样的：

procedure OnCreate (aStr : String);
var
; A! _5 u/ W% s' S1 o   定义变量
8 W$ p9 r8 E+ Y& \- Zbegin
' `+ A$ \7 l" V. z, o   语句
end;

在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
# ?0 r6 D  E  j( G3 _, G% ?
千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

. F6 {) e# ~) S% z/ a3 E! @0 I% ^/***********事件触发的函数**********/
/ E, o# u. W. Z9 H7 p* x
; X- G0 O& Q% w4 o2 Y7 F//当有人*近时
5 f/ Z# @9 L) X7 z9 I. n+ Fprocedure OnApproach (aStr : String);
0 h* P5 g  w  }+ f, d
0 V1 j  D5 E0 \$ U//当有人离开时
procedure OnAway (aStr : String);
5 h' _" l0 c0 j' a* p  i
5 J0 L# ^& ]6 R3 H; x//当受到掌风攻击时
& I7 u& {% H0 \# g( E* J8 D1 I" Cprocedure OnBow (aStr : String);

0 M; }( `5 [& }5 h//当状态改变时
/ F5 o" R# L3 K) V( [' jprocedure OnChangeState (aStr : String);

/ r& Z" V9 q0 d3 Q0 s//当初始创建时
procedure OnCreate (aStr : String);
4 {, e9 U  E* d- _" j& [) F
1 \% R8 Y& J$ Z5 S* ]//当被双击时
procedure OnDblClick(aStr : String);
: f" K% N6 |) Z& N/ w
//当死亡前
procedure OnDieBefore (aStr : String);

; |9 j2 \$ }" N9 O" _. h, A//当死亡后
procedure OnDie (aStr : String);

- @: `3 ?; w& c! S: f//当被拖放物品时
9 J. B- v2 k5 l8 ?) \2 _procedure OnDropItem (aStr : String);
  i0 h8 u0 ]; t
//当得到命令消息时
procedure OnGetResult (aStr : String);
$ r' k( `( ]' v% `$ ]
//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

//当受到攻击时
procedure OnHit (aStr : String);

; y- ?, c- s* m, I$ K3 o0 n3 Y//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

5 J: O! i4 q. i1 a//
. g! @! T6 x- w5 d& [! i  S; K- ?; K2 Rprocedure OnRegen (aStr : String);

//
procedure OnTimer (aStr : String);

//当物件发生翻转打开时，一般是用于门
+ ~4 A  R( f  s+ Sprocedure OnTurnOn (aStr : String);
$ \- D7 F  A7 P/ @1 W( [" H; D
% W* u: Q: I" G: C( C1 B//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);

9 w$ f& O" G; V# K8 X//当用户开始游戏时
+ }1 l$ W0 o2 ~) Bprocedure OnUserStart (aStr : String);
9 q) y5 A5 x, @! |& `  Q) e
//当用户结束游戏时
procedure OnUserEnd (aStr : String);

//当移动时
. @, `3 n# \8 Lfunction OnMove (aStr : String) : String;
0 ^4 S. e1 h. c) O+ h+ |
' y. I3 O- f6 `( F6 H- `$ T2 J//
function OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
' ?9 i7 k* J7 K3 @. F% O7 Z
1 e5 A5 O" S) C9 @3 O  _6 R, d* h//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
9 I! n) c4 H7 Y4 z
6 ^" X* C1 N  o0 Q, J6 ]  H' K//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
& T/ T$ e+ ?6 T% Dprocedure print (aText: string);

9 R: Q8 a9 Z5 B1 G具体参数（略），整理中...........

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

; ^+ k7 \, `% R  @/ s//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;

/***********事件触发的函数**********/
; k. l6 ?# [( T8 I9 i
: O5 k9 h) @% M1 Z) x3 L8 Z
( k! h+ f+ |; u2 M/ l! `$ s* }6 v
* A% b' P( G* y2 G3 M





' f/ U& l4 i) L3 dfunction  callfunc (aText: string): string;   //以下为 aText参数的值
; W  ]5 H" w, K! q/ J% u4 P1 d
' i6 ]4 W/ w8 q$ ~6 Ygetsysteminfo                    获得系统信息
getname                          获得名字
+ I9 e6 @, }4 i2 Y! J4 Ugetsendername                    获得消息发送者名字
" ^% i, A" e% I% t5 T2 F% Cgetage                           获得年龄
1 K- v3 ]+ K. [) a& y  @getsenderage                     获得消息发送者年龄
get***                           获得性别
( u/ y) V. O0 q% }. S8 dgetsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
) h* g; ]  T4 h, Hgetserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
getposition                      获得位置
5 p- `4 i8 G! C( ggetsenderposition                获得消息发送者位置
# E/ w+ r4 f3 ^; W8 c# P  I6 F4 agetnearxy                        获得亲近的XY
getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
getrace                          获得种族
getsenderrace                    获得消息发送者种族
  o1 J! r8 i( q; w
3 ?2 I7 v1 G# x4 B9 agetmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
9 P" b& a4 X' q& E. i+ u# Tgetsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
+ q! _6 s2 m5 m* B& m% P3 dgetsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
8 t* ]9 g6 D/ Ngetsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
getsenderlife                    获得消息发送者生命值
' S) s; m  {( o# H
1 i' M! c6 l: B- r, k3 m- A0 |getinpower                       获得内功值
' V, G% Z' n1 K; Y% Agetsenderinpower