千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
- ~9 P5 L" I1 A. Q
5 r1 Q4 ]3 y' v6 b& U千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
+ i1 O* u6 Y/ g5 J1 N$ |0 _7 z
# k& q% W9 n( b- H一个函数的基本结构是这样的：

/ _& N( J; f# w% v/ gprocedure OnCreate (aStr : String);
var
   定义变量
9 R4 ^6 O7 @8 z! `% A; g6 m# ibegin
   语句
) B. g) @. ~7 e8 s/ V- ]end;
3 g, W6 u( g" r5 y* m
2 Y- Z' ?( H) y: _! ^' l" o在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

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

) C9 B5 L8 N  U6 g( E4 C: N/***********事件触发的函数**********/
. X" n8 N' A' D( `
//当有人*近时
7 S- L8 S% {1 D) Dprocedure OnApproach (aStr : String);

% G; O, U$ U9 N- j3 X  S//当有人离开时
procedure OnAway (aStr : String);
% F/ f( y! b% J7 p
//当受到掌风攻击时
) b, n  t& W2 K, i5 q5 h2 `6 Fprocedure OnBow (aStr : String);

! }9 e/ l, r* w% C% ^* `//当状态改变时
procedure OnChangeState (aStr : String);
* o0 j% A5 V8 ~" ~9 \
//当初始创建时
procedure OnCreate (aStr : String);

2 g" P+ j$ o% ?9 T+ V1 m) a//当被双击时
, z7 \& _1 @& |, f: A) c7 q- @) pprocedure OnDblClick(aStr : String);

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

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

//当被拖放物品时
0 S* m) b! W/ ?6 F; ~' [: ?5 cprocedure OnDropItem (aStr : String);
/ A7 M% U' u. B6 ?
//当得到命令消息时
" c, q) S0 z7 N' ~+ Hprocedure OnGetResult (aStr : String);
# t! F+ O" q/ ^/ q9 C
//当得到改变步长时
& V% C2 e  P# ?5 C. ^, d6 e0 [procedure OnGetChangeStep (aStr : String);
$ S) {* B6 r; Q+ h) [& Z7 }
; J: @! A; t! W# {# i% {//当受到攻击时
procedure OnHit (aStr : String);

//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

+ s/ n# S# T6 t0 n2 D3 f3 W; _  w( n//
+ ?0 ?0 K7 W$ J; \procedure OnRegen (aStr : String);

//
procedure OnTimer (aStr : String);
: a' \+ b" ~& Y- t1 c4 r8 [
; }- V' \1 @- a" o! h- t% p' x6 _//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
- m! I7 q- x; J; p0 x
5 P, b$ F+ Q2 K& i6 Y2 L//当物件发生翻转关闭时，一般是用于门
. ?1 H; n& b5 i" zprocedure OnTurnOff (aStr : String);

//当用户开始游戏时
; j9 j" {+ j8 X. T" E3 hprocedure OnUserStart (aStr : String);

/ c* {' G$ Q' E0 T7 U9 U//当用户结束游戏时
procedure OnUserEnd (aStr : String);
) v' n2 X9 ^% t  T3 S! p
/ X# v$ n# K) l//当移动时
function OnMove (aStr : String) : String;

0 k' ]9 y# K9 g( B8 w( C//
function OnDanger (aStr : String) : String;

, A7 U3 M4 W; Z1 M//产生一个随机数（系统函数）
9 {1 m) {( F; C4 Mfunction  Random (aScope: integer): integer;

//返回指定参数的消息（系统函数）
9 h/ z& M: M) E- @% Gfunction  callfunc (aText: string): string;
+ B3 o# G1 v; X. R( {9 ?: @
3 M, T. y7 ]1 L. O6 S3 W) f//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);
6 D( b1 ]8 o9 r3 ~. g
具体参数（略），整理中...........

: L% I/ ]2 x. a5 l% u2 H' S; x, U9 `//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;
: ~  h2 e% e, Q! o6 v8 z
7 f) k! R8 C: T# Z- [//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;

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


9 d; k2 b& @! M/ V

- q8 R9 {: ?1 l, U' \2 D; T8 X
1 ~$ u! ~. P8 z# h& c  d& l
0 R6 C2 p6 t( ~6 n


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

$ m" r% {6 x* D% n( G# U# fgetsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
2 M( A. r2 v8 v! m. V7 dgetage                           获得年龄
3 c8 L6 O4 T8 U0 i% g/ H7 \( jgetsenderage                     获得消息发送者年龄
! n% B2 \2 S# ]9 {- ^' `) Sget***                           获得性别
getsender***                     获得消息发送者性别
9 Z& [( U- V9 K9 [7 ^* f9 }% \3 ggetid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
5 p: ~" J+ ^# ?; M; C3 rfindobjectbyname                 用名字查找物件
$ z" X5 C+ c) G: E4 h  I1 ygetposition                      获得位置
, F: ^6 q# r6 ygetsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
getmapname                       获得地图名字
6 ]! _$ M( u5 o$ Q2 }. |getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
9 C( F1 b9 {4 s6 Zgetrace                          获得种族
getsenderrace                    获得消息发送者种族

: |* L' m$ U8 n$ ?2 W& qgetmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
" j3 u9 M$ S7 `% U& U) Z; a8 p4 v1 T4 Bgetmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
( F7 Z4 |7 Y8 w! g" V1 @  Agetmaxmagic                      获得最大的武功值
0 a. s% L* E0 _. r+ Vgetsendermaxmagic                获得消息发送者最大的武功值
$ e/ P; R2 F" B+ Rgetlife                          获得生命值
getsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
2 w; Q5 Q6 O1 ~5 E6 w6 m" Xgetsenderinpower

2 i9 D( u  q# r3 M( }/ f- r9 h