第一个作业——小试牛刀《意气风发来打牛》 - 三千论坛

//这部分先声明脚本的名字。如果脚本出错，tgs会做一个错误纪录，文件名就是我们声明的这个。

unit 屠夫;

//下面的是通用的调用程序内建的函数。每个脚本都有的。

inte**ce

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;

//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么

//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou

//第二句的意思是当左键单击的时候响应，

procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

//以上是脚本的头部，下面是脚本的主体部分

implementation

//当左键单击时

procedure OnLeftClick (aStr : String);

//声明变量的类型
var

//Str变量为字符串型
Str : String;

//Race变量为整型
Race : Integer;
begin

//获取点击者的种族
Str := callfunc ('getsenderrace');

//将获取的值由字符串型转换成整型
Race := StrToInt (Str);

//如果种族为1，这里种族为1代表是玩家
if Race = 1 then begin

//那么调出Help文件夹下的对话框注意，这里对话框的类型是1 也就是不带滚动条的那种
   Str := 'showwindow .\help\屠夫.txt 1';
   print (Str);

//小判断结束
   exit;
end;

//一个语句段结束
end;

//另一个语句段开始

//当从Help文件里反馈回命令参数时，做出响应

procedure OnGetResult (aStr : String);
var
Str, Name : String;
begin

//当反馈参数为close的时候就关闭对话框
if aStr = 'close' then begin
   exit;
end;

//当玩家选择niujiao 的命令时

if aStr = 'niujiao' then begin

//检测背包里是否有牛角
   Str := callfunc ('getsenderitemexistence 牛角:1');

//如果反馈信息为假，也就是没有
   if Str = 'false' then begin

//屠夫说话
      Str := 'say 快弄牛角再说';
      print (Str);

//检测结束
      exit;
   end;

//如果有的话就继续执行下面的

      if Str = 'true' then begin

//检测背包是否还有空位置
         Str := callfunc ('checkenoughspace');

//如果返回值为假，也就是没有
         if Str = 'false' then begin

//那么就提示物品兰已满
            print ('say 物品栏已满');

//检测结束
            exit;
         end;

//如果背包有空位置，那么继续

//没收牛角

         Str := 'getsenderitem 牛角:1';
         print (Str);

//给牛俊弓服
         Str := 'putsendermagicitem 牛俊弓服:1 @屠夫 4';
         print (Str);
         Str := 'say 收好了..俺最喜欢的衣服~';
         print (Str);
         exit;
      end;

//判断结束语句
   end;
   exit;

end;

end.

end;