任务策划介绍

任务策划：
出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
. i6 F. Z; a/ |0 F4 y来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
收集这些材料交给屠夫，他会奖励你东西
这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。
* e5 F% A; C2 A: T
目的：
$ o6 j7 h0 E4 _4 q$ O/ ~体会最基本的活动都是怎么设计的

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

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

unit 屠夫;
! ]$ Y* [& E$ l/ t3 g- k
//下面的是通用的调用程序内建的函数。每个脚本都有的。

interface

$ \5 B; Y7 m4 W* Yfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
5 S& Z. e" G+ h/ }* ?1 l3 W  mprocedure print (aText: string);
# E) C" n" L4 t9 ?. C$ Gfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
( L' H3 M1 O) N& T3 ~procedure Inc (aInt: integer);
- w3 |/ `7 d+ j! r4 P- }3 nprocedure Dec (aInt: integer);
4 h5 ]# x9 z& k) m* ]: Sfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

2 l; T% o( K! E//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么

  B: p) W+ H0 Q& R' S//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou

8 Z2 @' k$ J1 C//第二句的意思是当左键单击的时候响应，
) V. p9 B- l9 R9 I& d9 ?- K
procedure OnGetResult (aStr : String);
+ z0 C0 ~6 t8 x- X$ Xprocedure OnLeftClick (aStr : String);
5 j. a; z, }3 e3 ^; u
//以上是脚本的头部，下面是脚本的主体部分

% h3 O, U4 ]" {! Y9 v- Z2 n# Z5 F: _implementation

//当左键单击时

procedure OnLeftClick (aStr : String);
* [3 J( ?# H( l7 }. I4 o9 e3 N
//声明变量的类型
( t0 ^1 G  b' y+ S* L& Y2 h) ovar

& o4 F) h! Z& K, |$ R0 ]5 n& H//Str变量为字符串型
   Str : String;
4 }7 e& w9 X: |" b2 L8 F# F, ^) v
//Race变量为整型
7 [# U9 d+ O8 a& [- m1 Y   Race : Integer;
6 ~; [) q' C+ L/ [6 W. cbegin
+ w3 b2 Z" z: Q( o+ |) U, }
//获取点击者的种族
3 I. S  U5 y: G/ u1 Y; x7 ]! @3 }   Str := callfunc ('getsenderrace');

//将获取的值由字符串型转换成整型
2 x6 Q; B+ q3 s6 p2 v, O/ v9 Y   Race := StrToInt (Str);
1 E1 m. K9 V8 U# e/ ?9 u6 T6 u
' Y7 o4 L3 ?2 R, U4 O//如果种族为1，这里种族为1代表是玩家
   if Race = 1 then begin
% r5 R% a% A" ]
  f$ v# M2 ]. n4 z$ L//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
6 T0 f( T& r% q2 y      Str := 'showwindow .\help\屠夫.txt 1';
      print (Str);

//小判断结束
      exit;
   end;

' T9 j1 B/ G% v4 M/ `. Z//一个语句段结束
end;

5 |7 r( ], i8 C+ }//另一个语句段开始
( {- O6 b& z5 O! T3 O# q- b; z