千年脚本编写帮助

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

千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
  O# @5 v1 p7 {: V/ T* P& E/ A
* C) }8 F" `( v% y! Z1 L一个函数的基本结构是这样的：

procedure OnCreate (aStr : String);
var
   定义变量
begin
; q: ~8 @2 R  y) Y* e  r' F/ l   语句
( `  c: G) j- Dend;
7 P8 }) G  S7 d6 D! V/ z6 U- o
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

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

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

! g6 ^* u. p/ {//当有人*近时
% ^6 _/ W6 |* E; A5 Fprocedure OnApproach (aStr : String);
+ ?7 r" H4 k% n
1 R$ `" q* K' V//当有人离开时
! T* U- l+ r/ Q- \" t( S$ aprocedure OnAway (aStr : String);

//当受到掌风攻击时
. D1 H+ `- a. X( w  aprocedure OnBow (aStr : String);
( f$ Z8 x, @3 u
' C0 }; V# s! [2 O, d1 S8 K+ D6 ~//当状态改变时
, n- o! W$ U  u- t/ C0 E9 G" jprocedure OnChangeState (aStr : String);

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

8 L2 ]: f' E7 M4 ?" j% Y+ ^5 S//当被双击时
procedure OnDblClick(aStr : String);

//当死亡前
; f' |" w5 q$ i2 R4 ~' z  @/ Yprocedure OnDieBefore (aStr : String);
" q* ~1 j( J9 Z
- y7 g5 ^$ ?0 U9 M& U9 W//当死亡后
procedure OnDie (aStr : String);
$ a) x4 C7 u7 H* C
7 f0 k8 p7 r) p$ M//当被拖放物品时
procedure OnDropItem (aStr : String);

6 `; p. N' M- h0 X! I//当得到命令消息时
) G' x. M( s& `9 {procedure OnGetResult (aStr : String);

) D, G& K5 j& p+ N: @$ c0 v! ?, [//当得到改变步长时
0 R# K. }+ [0 w0 |: O& @procedure OnGetChangeStep (aStr : String);

//当受到攻击时
procedure OnHit (aStr : String);
2 {& }/ u; @" I6 V3 \1 n) p
//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

//
procedure OnRegen (aStr : String);
# Z+ m, s+ x, @5 [7 A) ~: r
9 X" v; W8 O- k) a! q. [) f//
* i5 H7 c  T% T& \: rprocedure OnTimer (aStr : String);
7 ?" w' _# S4 J5 E# t. x4 Z
//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);

* i2 ]& @5 M/ }2 |! {! P//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);

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

2 p$ @  I, i9 B5 w- F//当用户结束游戏时
6 p' ^/ b7 X: j$ c1 dprocedure OnUserEnd (aStr : String);

//当移动时
function OnMove (aStr : String) : String;

//
* f; }, J2 p4 S+ L$ i4 [% U6 Rfunction OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
) f2 L2 `0 y4 S$ V4 g9 b. T# r/ D. ]) Afunction  Random (aScope: integer): integer;

% i, o. A4 Q* \1 w//返回指定参数的消息（系统函数）
, g1 V, {/ S" i/ Kfunction  callfunc (aText: string): string;

//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
  Y# Z: ]4 D1 f2 n, r) Rprocedure print (aText: string);

" ?; E: i" g# c+ U具体参数（略），整理中...........
9 q/ y7 H4 Z3 s5 W
+ R5 d6 @2 Y( S9 T# i% \7 H/ P//转换字符串为整数（系统函数）
; a' y8 U! D+ ~! Y7 ~function  StrToInt (astr: string): integer;

6 p' ]. w' C* K: N5 M3 U7 A  {//转换整数为字符串（系统函数）
1 G& q9 [9 i# ifunction  IntToStr (aInt: integer): string;
& }2 @0 u! y4 I  U' s7 L
/***********事件触发的函数**********/
; ^8 M6 p3 b: S  ~1 l7 d


" J$ r) y9 A$ o' ?+ Y7 _
. `' S& G5 X3 w0 j
/ `- k3 n1 e7 g# I5 W; f
3 K* g; ]' q' q
6 V7 y: y# ?0 a8 M
. |' b. O0 B8 @! H1 v/ S
) e4 H& @! m* x4 P$ \* u, K2 qfunction  callfunc (aText: string): string;   //以下为 aText参数的值
% T' t7 W8 X& D* R
2 f" d0 k3 G8 w- ugetsysteminfo                    获得系统信息
getname                          获得名字
' ^! v6 x7 m5 j7 r& |! B4 Ngetsendername                    获得消息发送者名字
2 E4 L) j5 S( n# H  Pgetage                           获得年龄
getsenderage                     获得消息发送者年龄
get***                           获得性别
getsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
3 C6 N7 `% H; ~: N8 W$ ~findobjectbyname                 用名字查找物件
0 `) m0 e/ C& A7 E# Sgetposition                      获得位置
$ [& s0 w% j& }- Sgetsenderposition                获得消息发送者位置
7 J- L2 J8 B( M* w5 w5 Igetnearxy                        获得亲近的XY
getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
# R% C+ e9 |. Y& F4 [9 |* f$ xgetmoveablexy                    获得移动能的XY
) k; ~) y# N- ]7 Y) n1 Mgetrace                          获得种族
getsenderrace                    获得消息发送者种族
4 Y/ ^' U2 G- F% p: W
: }* y. f% t7 |% s8 fgetmaxlife                       获得最大的生命值
1 g9 I+ d0 z8 y- `: F, \& ogetsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
7 K) W0 g0 W  Z* ~9 Y* w5 T% Vgetsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
getsenderlife                    获得消息发送者生命值
6 j- o+ ?" Q- ^8 A
getinpower                       获得内功值
2 W7 \8 u- D, @5 M8 I! Fgetsenderinpower