三千论坛

标题: 千年脚本编写帮助 [打印本页]

---

作者: 异仟年    时间: 2022-9-5 17:44
标题: 千年脚本编写帮助

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

千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：
) {' d7 r- w$ Y3 k. t( y# ^
( ?  r9 v  o4 e5 Nprocedure OnCreate (aStr : String);
var
4 a9 X, K+ l4 N( B. L! y2 [   定义变量
begin
4 J9 ^' J5 o( {8 C& |   语句
; H; \* c* m- h, o: }! }end;

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

. B3 Q1 t6 ?) S7 n; @3 j千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
( e0 I1 B% V8 l( v
9 F, {* s! q% z, `; n/***********事件触发的函数**********/

//当有人*近时
: L. A( N, @+ |& T/ g$ |# tprocedure OnApproach (aStr : String);

! s8 v3 x& c8 I5 C' |//当有人离开时
+ Q3 B! g: y/ Eprocedure OnAway (aStr : String);

//当受到掌风攻击时
procedure OnBow (aStr : String);

//当状态改变时
procedure OnChangeState (aStr : String);
4 h( {4 _8 m3 W/ x1 L
8 N' F  h1 Y5 ~; D$ G//当初始创建时
9 d) ?: Q$ Q& d6 c, c$ ~& Xprocedure OnCreate (aStr : String);

  J. e* T/ f( S' v& j+ j# W//当被双击时
$ }% h9 \9 h) yprocedure OnDblClick(aStr : String);
& h% g! I4 j$ |% W' M2 u. T! a( U
9 }$ p" d; r  C//当死亡前
procedure OnDieBefore (aStr : String);

! u+ [) G% @0 {//当死亡后
3 p( Q6 k) m5 d% X3 ~; dprocedure OnDie (aStr : String);

4 U5 q; O. ?6 \2 F: W. s# k//当被拖放物品时
procedure OnDropItem (aStr : String);
% m- M7 t3 d3 k& X: c
//当得到命令消息时
& k. c3 N) F- d5 s1 f2 T6 Jprocedure OnGetResult (aStr : String);
9 z+ }: b: T+ U6 m# u5 s
//当得到改变步长时
# v5 d5 {: s: g1 P; G7 W$ c) \7 ?& Aprocedure OnGetChangeStep (aStr : String);
" k2 V( \  b2 N
9 t& M7 J) B9 B$ U& A) A+ J//当受到攻击时
9 u  _: u" G* S2 ~& Gprocedure OnHit (aStr : String);
. W9 J5 [; V) u* a- K9 @3 X
//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

' a* ?5 q$ t1 v: Y//
) ]5 N2 P7 U+ eprocedure OnRegen (aStr : String);
' f. {5 _( H$ y6 N) k5 O8 o8 v
//
- P+ C& J  Y1 l5 O# f+ Mprocedure OnTimer (aStr : String);
& n. M# v: ?, L0 Y
0 d4 Q5 O1 o1 f//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
: l% \7 ]; z6 a  E
//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);

//当用户开始游戏时
procedure OnUserStart (aStr : String);
1 o& S& n3 A# ?, Y% M2 r# U. ^& r
//当用户结束游戏时
3 }3 h8 M$ h; l% m4 M4 E/ Q9 jprocedure OnUserEnd (aStr : String);
  o; D2 M& J3 C4 G& x3 n+ b
5 k5 W& i$ u  o  f$ Z( Z& T* [6 a' P//当移动时
  U9 K5 }% a+ ~1 Y# t8 J# efunction OnMove (aStr : String) : String;

! i' [9 S# @) D//
function OnDanger (aStr : String) : String;
  a1 Y# B9 A, }' c' ^1 {- u
//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;

& O. [0 V) I% T. o( F/ L# K. E6 f& O//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
; g8 _, S7 t; E2 `$ N# b4 Q: c) p! Y
" v1 l5 ]) W  H//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
+ h4 P- r' \3 w8 jprocedure print (aText: string);
/ A2 u8 X7 M9 |, X  o* L! S
具体参数（略），整理中...........

# _  |9 {9 z( t! h# A0 _8 ^- z9 q7 Q; }//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;
2 O/ r4 j- l6 J' \1 ]
//转换整数为字符串（系统函数）
2 s4 `. d6 B4 }7 a: c8 [7 N1 ~function  IntToStr (aInt: integer): string;
" y1 T7 ?( A. l5 I$ j+ R' _5 x9 ~. X
' s! e5 u" ]2 l* @/***********事件触发的函数**********/



' s. p0 h) y; ]+ r" E) n
7 D9 v& b2 J3 D8 N
; F, [& o1 f" v& i


2 ~0 c2 [2 H# F- Q& `
function  callfunc (aText: string): string;   //以下为 aText参数的值

getsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
% t& A  r- @7 Agetage                           获得年龄
$ M, P9 R" B5 x2 a" W- V5 s0 Kgetsenderage                     获得消息发送者年龄
& v2 Q9 U+ V6 A5 F0 Nget***                           获得性别
getsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
0 j# T: j0 W: j  I2 Agetsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
# N4 x* l/ g& {- Zgetposition                      获得位置
& }- D, |( ?0 w4 }! j7 Vgetsenderposition                获得消息发送者位置
" g2 q3 b7 q* l) S$ V7 dgetnearxy                        获得亲近的XY
getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
( Y/ I5 i2 E, H8 n7 z+ N; [getmoveablexy                    获得移动能的XY
" Y. N$ I: [. m4 K) F: Fgetrace                          获得种族
getsenderrace                    获得消息发送者种族
4 q) E2 [+ ~3 B! }! n
getmaxlife                       获得最大的生命值
5 d9 h* O0 {9 S) [getsendermaxlife                 获得消息发送者最大的生命值
" q, ]" v3 L9 h8 ^/ o' R1 }2 sgetmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
' V( z7 N( t$ J: j0 qgetsendermaxmagic                获得消息发送者最大的武功值
& I1 g+ Q+ f& G$ _, x3 Rgetlife                          获得生命值
getsenderlife                    获得消息发送者生命值
1 N' e2 [$ Z+ X& |
# w6 [0 P4 U# t- }3 Egetinpower                       获得内功值
' g  I$ T! m- S% L7 ]. Z* ngetsenderinpower

: m+ \0 _5 e2 s- Z' z, u! @2 M. N$ I

---

欢迎光临 三千论坛 (http://3000y.com.cn/)

Powered by Discuz! X3.4