千年脚本编写帮助

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

- r& W2 a/ X( |. u# u) o千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
# q+ j- j& |# a8 K7 S& n2 S9 I2 c4 F# `7 V
& `! [( s, E; W& R+ a一个函数的基本结构是这样的：
+ \; T! F/ }; i
' d, Y6 f, s8 w5 [( \procedure OnCreate (aStr : String);
2 ^: z8 c$ g. K  B) c9 ~& Gvar
   定义变量
! I, N5 F3 H$ q" Lbegin
   语句
end;

在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

/***********事件触发的函数**********/
2 O2 k* b% q5 E+ }1 r1 \0 i
//当有人*近时
$ s! M+ Z# {6 c1 _4 pprocedure OnApproach (aStr : String);

//当有人离开时
procedure OnAway (aStr : String);

- x/ w* k) k7 k5 M- _: P* w//当受到掌风攻击时
procedure OnBow (aStr : String);

//当状态改变时
procedure OnChangeState (aStr : String);

//当初始创建时
, \  P. [, |+ [( T& Tprocedure OnCreate (aStr : String);
& j" c6 |5 y/ I6 S0 I) K- A
//当被双击时
procedure OnDblClick(aStr : String);

//当死亡前
# U% V6 h/ U/ aprocedure OnDieBefore (aStr : String);

9 p& P; Z% a: Y0 H//当死亡后
+ f9 T9 m  E  jprocedure OnDie (aStr : String);
1 Y5 {7 O) i! W. e! r3 Z2 L4 B
& c# a  u9 e: n8 K: B8 c3 r//当被拖放物品时
procedure OnDropItem (aStr : String);

//当得到命令消息时
procedure OnGetResult (aStr : String);
' [; A8 \! j$ E, \/ [& j  }( l
' f+ D, N/ R# [9 c' C//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

//当受到攻击时
/ }( l5 `, q' i  c: iprocedure OnHit (aStr : String);
8 M& ?2 \' }8 p$ F
: F( @0 F: Z7 k( z; ^//当被左鼠标键单击时
0 G* ^4 Q; I. dprocedure OnLeftClick (aStr : String);

//
' b& E. U+ ~2 b+ \procedure OnRegen (aStr : String);

//
0 k; }# y: |, E0 |% l+ ~$ yprocedure OnTimer (aStr : String);

//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);

, v3 v3 Y8 j7 Q' u4 q//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);

//当用户开始游戏时
procedure OnUserStart (aStr : String);

//当用户结束游戏时
procedure OnUserEnd (aStr : String);

+ O+ `/ S  ?4 g* _3 F/ }//当移动时
function OnMove (aStr : String) : String;
( g4 ^$ _. F4 O2 G; _% r9 y6 i
- I$ S# g5 @. b//
( r8 |; F) R% l: }, A) Pfunction OnDanger (aStr : String) : String;
+ x3 Y; V: s+ F( C# V$ t' f( Z
//产生一个随机数（系统函数）
: y. s# [. f: ]6 i* n% {4 zfunction  Random (aScope: integer): integer;

$ G* Y$ u( n$ p+ K( w/ I//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
2 B+ L$ L8 S* `4 C
2 Z8 u, I) T2 P# i: J' ~//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
7 Q" X6 U' v! M2 w  c. e# {procedure print (aText: string);

9 n8 G# Q4 P* C7 p& U具体参数（略），整理中...........

//转换字符串为整数（系统函数）
- c' v2 S; w! ~, ~+ h$ Bfunction  StrToInt (astr: string): integer;
, M# A5 J! q) i7 _0 N/ V
) n+ a/ G; d& O: y//转换整数为字符串（系统函数）
8 T2 M. F; n$ }: B7 @function  IntToStr (aInt: integer): string;
; ]: y. g* j; K
% P. n* A! D3 ~5 s0 K" o& n/***********事件触发的函数**********/



5 J' N& V* Q/ j! j  P




# N& ~  ?) n( {
) a4 k7 \/ ~- _# i- F$ Zfunction  callfunc (aText: string): string;   //以下为 aText参数的值

' d9 W$ K  J# k% ]! e1 Pgetsysteminfo                    获得系统信息
1 B. ]2 |- r4 Xgetname                          获得名字
# X! Q, A- v; }0 ^getsendername                    获得消息发送者名字
3 \9 X% k3 A# Q+ ^) r8 Mgetage                           获得年龄
getsenderage                     获得消息发送者年龄
get***                           获得性别
" N4 z5 o2 \2 J# jgetsender***                     获得消息发送者性别
6 I4 m7 G! ?) w9 D2 ]3 j( q  jgetid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
4 ]) n2 x; _, d$ L0 [getsenderserverid                获得消息发送者服务器ID
0 y: H/ y( n& W  j6 Xfindobjectbyname                 用名字查找物件
getposition                      获得位置
, h4 I* u+ @! }/ `% ]9 r1 ~8 ugetsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
' |9 M/ t1 ^; q0 |getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
getrace                          获得种族
getsenderrace                    获得消息发送者种族

/ X$ F3 R5 ?6 _  F: Q) C- Kgetmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
" Q& t/ j  B- b" N6 `% R. V# Y# E' n/ Wgetmaxinpower                    获得最大的内功值
) K, O" ~" J  H1 z8 k4 }getsendermaxinpower              获得消息发送者最大的内功值
0 A( _) D1 L* O: o) X4 Qgetmaxoutpower                   获得最大的外功值
" V/ F9 p' P6 b. K' F5 t) hgetsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
; R) E5 o% }1 Q9 |getsendermaxmagic                获得消息发送者最大的武功值
  L7 H. M; V. T  z& rgetlife                          获得生命值
getsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
getsenderinpower

! r. x0 V3 z% M9 G# t& i9 W