/1000yPascal

网络游戏千年开发手册

Primary LanguagePascal

千年游戏开发手册

基本介绍

古老的千年使用的是pascal语言，开发相关目录结构如下：

├─event
├─Help
├─Init
├─NpcSetting
├─QuestNotice
├─Script
└─Setting

如果在游戏中新增一个交易NPC，开发涉及如下目录：

名称：杂货商

文件 说明
Help\杂货商.txt 交易界面内容
Init\Npc.sdb 初始化NPC设置
NpcSetting\杂货商.sdb NPC自动说话内容（非必需）
NpcSetting\杂货商.txt 买卖物品列表
Script\Script.sdb 脚本索引
Script\杂货商.txt 交易脚本代码
Setting\CreateNpc88.sdb 在编号88的地图上生成NPC

本教程重点针对Script目录下的编程相关做说明，所有行为控制代码都在这里。

游戏中每一个互动单位（比如一个NPC）都是一个单元unit，对应Script目录下一个文件，在pascal语言中，unit的基本结构如下：

unit Unit1;  

interface

{ 过程或函数声明 }

implementation

{ 过程或函数实现 }

end.

在千年中，以游戏中的福袋为列:

unit 福袋;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnDblClick(aStr : String);

implementation

procedure OnDblClick(aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'logitemwindow';
      print (Str);
      exit; 
   end;
end;

end.

以上代码中，OnDblClick这个procedure（过程）为福袋功能，其它部分为所有单元都有的基本结构。

从以上代码可见，基础语法和pascal一至，而游戏特定功能可分为procedure过程和function函数，具体介绍见Script.md。

pascal游戏开发基础说明

  • pascal除字符串变量外，不区分大小写
  • pascal函数分function（有返回值）和procedure（无返回值）
  • pascal变量声明方法为：var Str:String;（好非主流的方法）
  • pascal赋值为“:=”，而“=”为逻辑运算符（又是一种非主流的用法）
  • 游戏主要要使用的数据类型：integer、string、boolean
  • 游戏中部分方法中字符串使用_代表空格,代表换行
  • System.txt中当前游戏单位为触发事件的玩家，其它脚本中当前游戏单位为绑定脚本的NPC、Monster、DynamicObject

更多Pascal内容请见help\Pascal.md