千年脚本编写帮助

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

  X: r. Q5 U* _6 d" |  y. a千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
7 Y& m0 m. o  S
" U& y' S, l/ Z# ^& K8 u一个函数的基本结构是这样的：

. `5 j; ~( h  n1 M( s0 Pprocedure OnCreate (aStr : String);
! p  I7 I' n" t" E3 |var
   定义变量
begin
% A. d( H& e) s" B  M8 k, l8 c% H   语句
end;
) ]8 r0 g" t" q0 o- o: r
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
4 ]9 t- f' s- w
千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

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

//当有人*近时
procedure OnApproach (aStr : String);
* Q6 J* x+ [' [( s5 p! k
//当有人离开时
& H2 k" m8 _/ A( u' i6 y! mprocedure OnAway (aStr : String);
0 N/ C0 u5 g- K4 X" g
; O- y% C# O4 }: U. q7 M9 R6 b% ]! f//当受到掌风攻击时
; C- I' ^0 O; Y5 V4 V" Z2 [) zprocedure OnBow (aStr : String);
( O3 n- V+ Q- N: i
//当状态改变时
procedure OnChangeState (aStr : String);

//当初始创建时
procedure OnCreate (aStr : String);

  _2 Z5 C4 R" m8 H+ W//当被双击时
8 D" z8 |! p5 n9 C8 H" |; Iprocedure OnDblClick(aStr : String);
3 ^, y( |7 `/ ?2 M- E! v
//当死亡前
# b! k' r9 P. Qprocedure OnDieBefore (aStr : String);

//当死亡后
procedure OnDie (aStr : String);
- s' H- R4 @- t2 P' t0 j0 F  O- R1 `7 l
//当被拖放物品时
* S& z% k: K( V" Rprocedure OnDropItem (aStr : String);
( s9 N' y9 m# K1 A
//当得到命令消息时
procedure OnGetResult (aStr : String);
2 f; ]! H/ u! y, _
# T. V8 l* A9 M9 N: c' j' f//当得到改变步长时
+ c! [7 M- S7 A+ l& mprocedure OnGetChangeStep (aStr : String);
0 |4 I( h6 y- Y) T
//当受到攻击时
8 n, J1 e7 n5 g( Y- K5 Sprocedure OnHit (aStr : String);
" s1 p( Q3 @. I) d3 a/ G
//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);
& X& N+ \8 |: b6 y
7 f9 v- A3 n7 p: A& u2 ?6 {//
2 z  O4 r7 @- \! e4 o( Jprocedure OnRegen (aStr : String);

# H: e. D1 E0 P( i% M//
procedure OnTimer (aStr : String);

/ @9 i3 t- V4 [6 P//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);

//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);
9 c5 k7 I, }  F: F; C& s5 t6 f. H
//当用户开始游戏时
) f" S! ~$ E, H$ N5 bprocedure OnUserStart (aStr : String);
1 v4 A, [7 {6 r/ S4 S$ u6 {# t! D3 [
& X; M9 [8 }' c//当用户结束游戏时
procedure OnUserEnd (aStr : String);

//当移动时
6 N. o# K2 M9 x3 N: h' |function OnMove (aStr : String) : String;
3 C% G9 O3 r7 [+ Y( e' I$ S
//
# h/ v+ m1 j0 ~7 H# i7 tfunction OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
, n& O" X, p9 w  G
//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
4 Y2 ]  G  z9 @
7 U- R# Q' a5 o$ N! O//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);

9 z* i9 q( t# Y4 ~具体参数（略），整理中...........
$ [$ b$ c5 B& K  r8 V( _2 a
//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;

, p1 H9 w; t& `) Z; Q//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;

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


: L" p0 ]+ L- `- I8 T/ G/ |# C0 C! m8 T


9 R1 `8 z$ b9 {) v# E5 c3 G


' _' p# P5 {5 m# r% ^
function  callfunc (aText: string): string;   //以下为 aText参数的值

getsysteminfo                    获得系统信息
getname                          获得名字
5 P) N5 y3 M0 ?# l# \+ u) ^* qgetsendername                    获得消息发送者名字
getage                           获得年龄
getsenderage                     获得消息发送者年龄
. X4 ^. P3 e' i5 @4 Gget***                           获得性别
getsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
4 Z; J  P8 A* {" x" {% t* Q7 Agetsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
; h, C5 l* ]# u- B: S( I( J+ hgetposition                      获得位置
# d6 Y* `5 o1 ggetsenderposition                获得消息发送者位置
  `8 ~8 J+ O, a, u! s; k. E5 o3 Y: G* H9 Igetnearxy                        获得亲近的XY
5 Q% [# x% Z: L3 kgetmapname                       获得地图名字
1 O- C$ e: z% j4 j/ \0 ^" Y6 X' _getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
1 m& f( B; w3 F+ n7 rgetrace                          获得种族
; U, }: r. j- Q) `getsenderrace                    获得消息发送者种族
/ E9 _7 V% F6 W: }( L$ A( P
getmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
  q8 P( Y- r0 o# J7 cgetmaxmagic                      获得最大的武功值
) X0 k# d5 S& r$ E) w# D% T6 [getsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
# Y! [! `' Y7 e! Y. B% cgetsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
$ s4 |3 a& x; V4 G! x; lgetsenderinpower

* P; B. M+ f& @3 x' R$ a% {+ n