# 1000yPascal

**Repository Path**: oiuv/1000yPascal

## Basic Information

- **Project Name**: 1000yPascal
- **Description**: 网络游戏千年开发资料
- **Primary Language**: Pascal
- **License**: Not specified
- **Default Branch**: master
- **Homepage**: None
- **GVP Project**: No

## Statistics

- **Stars**: 0
- **Forks**: 0
- **Created**: 2023-10-15
- **Last Updated**: 2024-04-07

## Categories & Tags

**Categories**: Uncategorized

**Tags**: None

## README

# 千年游戏开发手册

## 基本介绍

古老的千年使用的是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的基本结构如下：

```pascal
unit Unit1;  

interface

{ 过程或函数声明 }

implementation

{ 过程或函数实现 }

end.
```

在千年中，以游戏中的福袋为列:
```pascal
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](Script.md)。

## pascal游戏开发基础说明

* pascal除字符串变量外，**不区分大小写**
* pascal函数分`function`（有返回值）和`procedure`（无返回值）
* pascal变量声明方法为：`var Str:String;`
* pascal赋值为`:=`，而`=`为逻辑运算符
* 在Pascal语言中，`+` 是用于字符串拼接的运算符，**在千年中一条语句仅可使用一次拼接，且不可以拼接字符串和函数**。 
* 游戏主要要使用的数据类型：`integer`、`string`、`boolean`
* 游戏中部分方法中字符串使用`_`代表空格`,`代表换行
* System.txt中当前游戏单位为触发事件的玩家，其它脚本中当前游戏单位为绑定脚本的NPC、Monster、DynamicObject

更多Pascal内容请见[help\Pascal.md](help/Pascal.md)

* 千年游戏QQ群：2887111（可下载服务端）
* 云端千年网站：https://1000y.gameivy.com/