千年脚本编写帮助

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

0 i+ Q* @, [0 N5 u9 a( T2 n千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
6 x0 c* i  d0 G, S  m
7 @7 s# p, B- E一个函数的基本结构是这样的：
& G/ t3 E5 L( L. e; O2 V- t
procedure OnCreate (aStr : String);
var
   定义变量
begin
! C' c. c0 O. }7 [/ F0 e   语句
6 ~8 H9 Z& S% Kend;

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

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

/***********事件触发的函数**********/
8 D7 F: n6 K9 |: D- f
//当有人*近时
3 g) h3 U. l+ Y4 k' ~" r- e# `  bprocedure OnApproach (aStr : String);
  i0 |9 L4 v3 \0 H. H( i  \; d
/ s9 B2 H( R5 w2 Q5 ]* y& f//当有人离开时
5 r3 O% T3 g2 z( ~: r7 v" gprocedure OnAway (aStr : String);
/ k  v  _( _. e9 J( p
/ U+ j, q5 N4 {$ p9 i) @//当受到掌风攻击时
; y/ Z. {  T! d2 bprocedure OnBow (aStr : String);
& |) o1 g; q# G1 s- H8 j+ Y# f
//当状态改变时
procedure OnChangeState (aStr : String);

/ |( x) v7 j9 j, V7 X//当初始创建时
$ D. n) s" E9 n) c! W4 @procedure OnCreate (aStr : String);
6 f6 H" K" C% d% R
//当被双击时
, d( [2 T9 b2 L7 M7 ]4 M( iprocedure OnDblClick(aStr : String);
/ |) F# B2 D) S( }7 u8 E. D
//当死亡前
procedure OnDieBefore (aStr : String);
- i  h: t6 e) S* s# y" ?! ]3 Z
//当死亡后
procedure OnDie (aStr : String);

//当被拖放物品时
procedure OnDropItem (aStr : String);

. m5 I. J2 ]5 l# ~) f//当得到命令消息时
procedure OnGetResult (aStr : String);
$ A" ^7 B. I" ~0 u% v# m: b! o
//当得到改变步长时
8 e! M! _+ K1 }: \2 W* G) Kprocedure OnGetChangeStep (aStr : String);
5 i3 F8 A5 x6 K- u/ r2 c
//当受到攻击时
procedure OnHit (aStr : String);
! \5 Q5 C6 o) A# t5 d) D  O! \
9 a* X1 S1 X& M( q2 D3 x( C( D4 C, u//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

//
6 W( d8 Y' a7 }- _! _procedure OnRegen (aStr : String);
4 J( A2 ]) U4 o3 H7 @/ o6 H
, I  A( _' n% C- m//
5 O& ~( M' W% a' B- a$ A! Dprocedure OnTimer (aStr : String);
' i: i0 `3 d8 C9 D: ?# H
//当物件发生翻转打开时，一般是用于门
1 h3 D' R7 S) r' T& k* fprocedure OnTurnOn (aStr : String);
( v4 E) o0 i5 X5 a
3 ]6 {: B2 Q/ P5 D7 M, s//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);
( u( [: G2 u9 C
//当用户开始游戏时
procedure OnUserStart (aStr : String);

' F9 X/ e- Y$ ]' h//当用户结束游戏时
procedure OnUserEnd (aStr : String);

//当移动时
function OnMove (aStr : String) : String;
( `# Q$ z! r" i, d5 S2 L& R
6 }6 a: T' R' @! a+ T. G; n* _//
  b$ x8 i9 O, _2 @7 Y2 W- dfunction OnDanger (aStr : String) : String;
  r0 j2 X' x3 l6 b* i) \, {6 e
# b6 E5 L# x* M. t& R6 U//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
2 L0 y: w, g9 l7 @! S3 Y  X5 @7 S
  {$ R7 e: L& F0 L//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
, o; m& Q6 ^1 L
3 \% ^+ ]8 C% A4 i- c/ h//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
& X5 _+ \$ I: }/ Q9 P* Oprocedure print (aText: string);
3 q3 j3 N/ [& @% d" }$ W% k2 Q8 r
具体参数（略），整理中...........
$ _7 X9 ~( V: A1 l
//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;

//转换整数为字符串（系统函数）
& A" j- ?$ M5 |$ V$ ~+ T6 g( c, afunction  IntToStr (aInt: integer): string;
: u; |# U$ t$ {: e
& B; Y! G) c8 N& Y/***********事件触发的函数**********/

( k2 y) v/ }6 D$ X
8 c2 T7 d5 _: g$ ^4 f/ j
/ G: |/ X; r( D  ?7 w
( ^4 A2 R5 s3 v! ~" A5 |
9 k0 ~4 }+ B5 j# N) f$ g
# [2 f7 E8 U4 g  y2 T9 q

1 I+ V5 y2 A3 T/ F& r* l
! B. J" O, X+ @function  callfunc (aText: string): string;   //以下为 aText参数的值

getsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
getsenderage                     获得消息发送者年龄
get***                           获得性别
  T5 O- [' n' Z) H+ x' a$ ?% V8 tgetsender***                     获得消息发送者性别
getid                            获得ID
8 _6 ^( s4 u0 \2 |3 ngetsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
& W8 I/ Q% k" ^3 X+ a1 D6 x$ y; Ifindobjectbyname                 用名字查找物件
4 h7 F& l- l$ X6 Agetposition                      获得位置
7 Q/ t- D$ h/ r& Xgetsenderposition                获得消息发送者位置
1 j2 D; j; J+ e1 c: j$ o2 ugetnearxy                        获得亲近的XY
getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
0 ]1 R% a2 g  m3 o# tgetmoveablexy                    获得移动能的XY
; W0 _9 M# p8 K5 V4 Y, tgetrace                          获得种族
getsenderrace                    获得消息发送者种族
! W1 Y7 ?: r* d; b7 E0 r
5 f2 }* @4 a* d# h1 \8 |: a0 ]getmaxlife                       获得最大的生命值
: [$ k8 {' b- ~1 a, g" igetsendermaxlife                 获得消息发送者最大的生命值
8 o, G7 U* U: E- @# @getmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
- R2 P' r6 k- @getsendermaxoutpower             获得消息发送者最大的外功值
3 a: L# w" }# }+ H. xgetmaxmagic                      获得最大的武功值
9 V2 N/ |8 ^0 Y3 F7 Q+ L: g% r6 z$ V1 Vgetsendermaxmagic                获得消息发送者最大的武功值
7 K  O1 }7 l4 z& v, ~getlife                          获得生命值
getsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
getsenderinpower

2 b7 z* e1 @* E7 q  G2 S- o- Z