千年脚本编写帮助

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

! m! f; [3 g/ \; m千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

' a" b% B* T: X6 m; w: D一个函数的基本结构是这样的：
! w2 A0 \/ l# C! ^: j' x( }; t
% Q3 [, {& u7 S8 F) ]0 Kprocedure OnCreate (aStr : String);
; L& b% g+ b- z5 qvar
   定义变量
begin
; d  V: p% u  J9 x. W% f9 C   语句
# s+ n4 r( b% Z: j- l, xend;
8 ?7 |, d9 u! \6 {
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

# D! w, j) v9 D# E( P8 k! Y, ^  F千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
: n  x& u% x, H/ i- w
7 g- h. q- w# z& x. i0 y  x% v/***********事件触发的函数**********/
+ d6 j+ F/ n$ n
' n6 k( e3 @/ B: I7 g: l* k//当有人*近时
procedure OnApproach (aStr : String);
7 S2 E- {5 S8 M6 Z7 ^" h& Y% _
//当有人离开时
, b; g! ^7 [0 ?5 G2 M# j9 S1 ?& r, Vprocedure OnAway (aStr : String);
/ N" ^2 u- ]# X" q/ Q1 t8 Y
//当受到掌风攻击时
procedure OnBow (aStr : String);
* f+ T0 q  {& f" ]3 P$ S6 e. F
//当状态改变时
procedure OnChangeState (aStr : String);
; I* {, M1 z- ?0 K6 O/ s7 G% j
//当初始创建时
" Z" H1 a/ K* q# Z/ q5 G3 Cprocedure OnCreate (aStr : String);
# `3 c* e  j& Y5 G- r& H  G
$ o+ d9 J4 b& ?9 ^//当被双击时
4 {, Y# O7 K. ?- Z7 x) p* ]0 sprocedure OnDblClick(aStr : String);

//当死亡前
# K/ {. T8 k' kprocedure OnDieBefore (aStr : String);

//当死亡后
! d. d4 D" [8 l/ kprocedure OnDie (aStr : String);
8 z, f  X/ z: n! |3 z' Q& t2 P
$ {' g. u7 `7 i3 Z( Z3 d//当被拖放物品时
procedure OnDropItem (aStr : String);
0 O9 `/ v' d. ~+ ]0 I
//当得到命令消息时
5 h* v3 U/ q3 k3 P, u1 wprocedure OnGetResult (aStr : String);

; p4 T$ P& {$ Q# j& Q! v//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

1 v# I6 B1 D! y  j//当受到攻击时
procedure OnHit (aStr : String);

//当被左鼠标键单击时
6 ^) z* N" S" i* i8 V/ B/ tprocedure OnLeftClick (aStr : String);

//
/ x0 ^! z0 w: T; T3 Q! R% eprocedure OnRegen (aStr : String);

//
# j; v# B. V3 |# Fprocedure OnTimer (aStr : String);
' Y' c! o7 ]: c% m9 ]5 }
6 ^+ X/ Z$ `, g//当物件发生翻转打开时，一般是用于门
6 `7 q$ A$ w1 r: G. Y- J9 Lprocedure OnTurnOn (aStr : String);
! X8 f) f( Y4 L3 o- l) Q' {
//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);
) o- Z& f& ?* a. Z0 k! R
$ U" V2 w1 Q. u% }* h//当用户开始游戏时
procedure OnUserStart (aStr : String);

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

//当移动时
- t& Z* k) h& b9 {: X2 t' Z  Efunction OnMove (aStr : String) : String;

//
function OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
# p/ C, u0 w5 y+ K+ L) ~function  Random (aScope: integer): integer;
! Q* i; R- d& [  m- {+ x
//返回指定参数的消息（系统函数）
) A5 a# w6 \4 j3 g7 D2 r) H, ?function  callfunc (aText: string): string;
) D! c* n; [# z2 a# c
2 a$ V) b% w$ F" d//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);
3 [+ w. i- k5 r
% v' S8 e# v- ~( ~0 ?. b6 N具体参数（略），整理中...........

- x0 p/ ^7 V8 N: Z0 t9 a//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;

. Y& B. m* l/ T1 v6 s. d2 x) o8 Y//转换整数为字符串（系统函数）
% r/ F5 Q; q- B& {function  IntToStr (aInt: integer): string;

2 Z8 K: U( t! x+ O# e) ]/***********事件触发的函数**********/


- v5 C- _' }+ q7 @' ^

2 x$ G: N( M0 {0 ]2 ~0 H


: S! u9 y) _( U9 z5 a9 Y) z3 Y, ^
! Q+ V$ ?' v" x2 _2 T% \+ E% b
function  callfunc (aText: string): string;   //以下为 aText参数的值
! q  @6 r+ k3 b
: v1 ~, {8 H$ @# mgetsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
getsenderage                     获得消息发送者年龄
get***                           获得性别
getsender***                     获得消息发送者性别
4 D" K" d/ L3 {6 w6 D3 N$ u" ygetid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
" q7 w6 _+ E4 U1 Q. rgetsenderserverid                获得消息发送者服务器ID
3 s( o1 n# O: h" B& _findobjectbyname                 用名字查找物件
( r) L# c5 r( L% @  P6 n9 \& w  Z$ pgetposition                      获得位置
% T/ V0 k0 J2 W: Cgetsenderposition                获得消息发送者位置
  I" O: ^% J+ ?; P- }5 q* Lgetnearxy                        获得亲近的XY
getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
' o% J2 D9 Z3 d7 R6 lgetmoveablexy                    获得移动能的XY
getrace                          获得种族
getsenderrace                    获得消息发送者种族

+ M* h) v  j: @+ U% Q: a! cgetmaxlife                       获得最大的生命值
3 V% W/ \* n: Mgetsendermaxlife                 获得消息发送者最大的生命值
& s% h; |: X8 a0 Jgetmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
5 q2 Y* i2 w, C  S$ A0 D3 xgetsendermaxmagic                获得消息发送者最大的武功值
4 p8 |$ X2 `; s: I+ Zgetlife                          获得生命值
; R6 w, j1 L  u/ e' x9 g1 ggetsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
0 L; X( b$ ?4 cgetsenderinpower