千年服务端任务设计制作例子

内容介绍

任务策划：
出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
收集这些材料交给屠夫，他会奖励你东西
这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。

目的：
体会最基本的活动都是怎么设计的

知识点：
1、检测包裹里的物品
2、检测包裹空间
3、给与物品
4、没收物品

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

1. unit 屠夫;

复制代码

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

1. interface
   
2. 
   
3. function  GetToken (aStr, aToken, aSep : String) : String;
   
4. function  CompareStr (aStr1, aStr2 : String) : Boolean;
   
5. function  callfunc (aText: string): string;
   
6. procedure print (aText: string);
   
7. function  Random (aScope: integer): integer;
   
8. function  Length (aText: string): integer;
   
9. procedure Inc (aInt: integer);
   
10. procedure Dec (aInt: integer);
    
11. function  StrToInt (astr: string): integer;
    
12. function  IntToStr (aInt: integer): string;
    
13. procedure exit;

复制代码

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

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

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

1. procedure OnGetResult (aStr : String);
   
2. procedure OnLeftClick (aStr : String);

复制代码

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

1. implementation

复制代码

//当左键单击时

1. procedure OnLeftClick (aStr : String);

复制代码

//声明变量的类型

1. var

复制代码

//Str变量为字符串型

1. Str : String;

复制代码

//Race变量为整型

1. Race : Integer;
   
2. begin

复制代码

//获取点击者的种族

1.    Str := callfunc ('getsenderrace');

复制代码

//将获取的值由字符串型转换成整型

1.    Race := StrToInt (Str);

复制代码

//如果种族为1，这里种族为1代表是玩家

1.    if Race = 1 then begin

复制代码

//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种

1. Str := 'showwindow .\help\屠夫.txt 1';
   
2.       print (Str);

复制代码

//小判断结束

1. exit;
   
2.    end;

复制代码

//一个语句段结束

1. end;

复制代码

//另一个语句段开始

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

1. procedure OnGetResult (aStr : String);
   
2. var
   
3.    Str, Name : String;
   
4. begin

复制代码

//当反馈参数为close的时候就关闭对话框

1. if aStr = 'close' then begin
   
2.       exit;
   
3.    end;

复制代码

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

1.    if aStr = 'niujiao' then begin

复制代码

//检测背包里是否有牛角

1.       Str := callfunc ('getsenderitemexistence 牛角:1');

复制代码

//如果反馈信息为假，也就是没有

1.       if Str = 'false' then begin

复制代码

//屠夫说话

1. Str := 'say 快弄牛角再说';
   
2.          print (Str);

复制代码

//检测结束

1. exit;
   
2.       end;

复制代码

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

1.          if Str = 'true' then begin

复制代码

//检测背包是否还有空位置

1. Str := callfunc ('checkenoughspace');

复制代码

//如果返回值为假，也就是没有

1. if Str = 'false' then begin

复制代码

//那么就提示物品兰已满

1. print ('say 物品栏已满');

复制代码

//检测结束

1. exit;
   
2.             end;

复制代码

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

//没收牛角

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

复制代码

//给牛俊弓服

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

复制代码

//判断结束语句

1. end;
   
2.       exit;
   
3. end;
   
4. end.
   
5. end;

复制代码