游戏脚本管理 (一)

游戏脚本管理 (一)

前言：

在自己制作了单机泡泡堂的游戏之后,感觉应该加入游戏脚本的支持,通过一段时间学习,我将学的一些步骤和经验包括代码写了下来.
　

一、实现以指令为基础的游戏脚本语言

　　现在说的是理论方法，你马上可以实现一种以指令为基础的语言。首先设计一组简单的指令，用于显示文本,并加入简单的循环。最终用MessageBox对话框显示出来。

设计语言第一个步骤，建立自己的指令，为了更直观我建立一个指令表,列表如下：

文本控制指令表

命令

参数

描述

PrintString

string

输出字符串

PrintStringLoop

string,count

根据count指定输出次数

NewLine

None

增加一个空行

WaitForKeyPress

None

等待按键

二、编写一个脚本

首先确认你认为所需要的功能，目前它就是上表列的４条指令。它最好为一个标准的文本文件。

PrintString "这是一种以指令为基础的语言"
PrintString "也是一个简单的脚本代码"
Newline
PrintString "但它相当的简单"
Newline
PrintStringLoop "将被输出４次" 4
Newline
PrintString "等下将执行等待按键操作"
WaitForKeyPress
　

三、编写TScript类

这段代码相当简单，主要体现于分解字符串的操作，根据不同的指令来执行不同的代码。

unit uScripting;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;

const

 //四个指令的常量定义
  COMMAND_PRINTSTRING = ''''PrintString'''';
  COMMAND_NEWLINE   = ''''Newline'''';
  COMMAND_PRINTSTRINGLOOP = ''''PrintStringLoop'''';
  COMMAND_WAITFORKEYPRESS = ''''WaitForKeyPress'''';

type
  TScript = class
  private
    FCommandList: TStrings;  //保存脚本
    procedure GetCommand(Index: integer; var strCommand: string);  //获取一个命令
    procedure GetStrParam(Index: integer; var strParam: string);  //获取一个字符串参数
    procedure GetIntParam(Index: integer; var intParam: integer);  //获取一个整形参数
  public
    constructor Create;
    destructor Destroy; override;
    procedure LoadScript(AFile: string);  //装入脚本
    procedure UnLoadScript;  //清空脚本
    procedure RunScript();  //运行脚本
  end;

implementation

{ TScript }

constructor TScript.Create;
begin
  FCommandList := TStringList.Create;
end;

destructor TScript.Destroy;
begin
  FCommandList.Clear;
  FCommandList.Free;
  inherited Destroy;
end;

procedure TScript.GetCommand(Index: integer; var strCommand: string);
begin
  if Pos(#32, Trim(FCommandList.Strings[Index])) <> 0 then
    strCommand := Trim(Copy(Trim(FCommandList.Strings[Index]), 1, Pos(#32,
      Trim(FCommandList.Strings[Index]))))
  else
    strCommand := Trim(FCommandList.Strings[Index]);
end;

procedure TScript.GetIntParam(Index: integer;
  var intParam: integer);
var
  cCurrChar         : string;
  g_iCurrScriptLineChar: Integer;
begin

  g_iCurrScriptLineChar := Pos(''''"'''', FCommandList.Strings[Index]) + 1;
  g_iCurrScriptLineChar := Pos(''''"'''', Copy(FCommandList.Strings[Index],
    g_iCurrScriptLineChar + 1, length(FCommandList.Strings[Index]))) +
    g_iCurrScriptLineChar + 1;
  intParam := 0;

  while (g_iCurrScriptLineChar <= Length(FCommandList.Strings[Index])) do
  begin
    cCurrChar := copy(FCommandList.Strings[Index], g_iCurrScriptLineChar, 1);
    if (cCurrChar = ''''#'''') or (cCurrChar = #13) or (cCurrChar = #10) then
      break;
    if (cCurrChar[1] in [''''0''''..''''9'''']) then
      intParam := StrToInt(IntToStr(intParam) + cCurrChar);
    inc(g_iCurrScriptLineChar, 1);
  end;

end;

procedure TScript.GetStrParam(Index: integer;
  var strParam: string);
var
  cCurrChar         : string;
  g_iCurrScriptLineChar: Integer;
begin

  g_iCurrScriptLineChar := Pos(''''"'''', FCommandList.Strings[Index]) + 1;
  strParam := '''''''';

  while (g_iCurrScriptLineChar < Length(FCommandList.Strings[Index])) do
  begin
    cCurrChar := copy(FCommandList.Strings[Index], g_iCurrScriptLineChar, 1);
    if (cCurrChar = ''''"'''') or (cCurrChar = #13) or (cCurrChar = #10) then
      break;
    strParam := strParam + cCurrChar;
    inc(g_iCurrScriptLineChar, 1);
  end;

end;

procedure TScript.LoadScript(AFile: string);
begin
  if FileExists(AFile) then
    FCommandList.LoadFromFile(AFile)
  else
    raise Exception.Create(''''无效的脚本文件'''');
end;

procedure TScript.RunScript;
var
  strCommand        : string;
  strParam          : string;
  intParam          : integer;
  i                 : Integer;
  iCurr             : integer;
  sResult           : string;
begin
  if FCommandList.Count < 0 then
    Exit;
  sResult := '''''''';

  for i := 0 to FCommandList.Count - 1 do
  begin
    GetCommand(i, strCommand);
    if Uppercase(strCommand) = Uppercase(COMMAND_PRINTSTRING) then  //检查指令是否匹配
    begin
      GetStrParam(i, strParam);  //获取字符串参数
      sResult := sResult + strParam + #13#10;  //保存结果
    end
    else if UpperCase(strCommand) = UpperCase(COMMAND_PRINTSTRINGLOOP) then
    begin
      GetStrParam(i, strParam);
      GetIntParam(i, intParam);  //获取整形参数

      for iCurr := 0 to intParam - 1 do
      begin
        sResult := sResult + strParam + #13#10;  //循环输出次数
      end;
    end
    else if UpperCase(strCommand) = UpperCase(COMMAND_NEWLINE) then
    begin
      sResult := sResult + #13#10;
    end
    else if UpperCase(strCommand) = UpperCase(COMMAND_WAITFORKEYPRESS) then
    begin
      Application.Title := ''''等待按键'''';
      while true do
      begin
        Application.ProcessMessages;
        if GetInputState() then
          break;
      end;
      Application.Title := ''''按键完成''''; 
    end
    else
    begin
      sResult := sResult + ''''无效指令！'''' + #13#10;
    end;

  end;

  Application.MessageBox(PAnsiChar(sResult), ''''运行结果'''', 0

[1] [2]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18