任务策划介绍

任务策划：
" A( _: M) {. F出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
9 F/ o& P  Y8 x2 n4 `5 y来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
收集这些材料交给屠夫，他会奖励你东西
/ I$ z# ^) I) h! L7 P' |" {* B0 K这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。
5 k2 l: ^5 X7 r* X' o8 B7 Z
目的：
8 [1 i" N5 z" C+ y4 b5 \体会最基本的活动都是怎么设计的

9 @' [% y, f: k1 C4 H  u知识点：
1、检测包裹里的物品
( M" {2 m3 r! w; \3 j8 ~4 U; V2、检测包裹空间
6 ^, g  R+ L' r! G$ W% H3、给与物品
4、没收物品

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

unit 屠夫;

  f1 N/ v1 g1 B  G" y- t+ I//下面的是通用的调用程序内建的函数。每个脚本都有的。
5 G! k( C( U5 i" R! Y
interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
/ \: u$ F4 [1 o' }% zfunction  callfunc (aText: string): string;
procedure print (aText: string);
+ C; m+ Q! [" @. B) Z7 }function  Random (aScope: integer): integer;
, N; A) W+ Z1 O" P+ ], bfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
  f/ ?. I3 W+ ~% |* vprocedure Dec (aInt: integer);
+ H) I$ C1 j- e7 w3 f: Y1 }function  StrToInt (astr: string): integer;
0 Y1 _- ^7 i# Mfunction  IntToStr (aInt: integer): string;
procedure exit;
6 M% _$ q# n4 |" D1 d4 I0 Q
//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么
9 |5 Q' N5 l" j/ q
//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
  j- U8 p$ i9 S  q8 W
9 @4 D5 ]% U7 p- S//第二句的意思是当左键单击的时候响应，
" S/ A1 N  _; b2 b* G8 @; b
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

5 p) @: W6 R; H( B& {& E" M//以上是脚本的头部，下面是脚本的主体部分
" R/ f. s6 c" M) @7 I- u/ {' x
implementation

//当左键单击时
( R% _3 X1 g6 \2 {
procedure OnLeftClick (aStr : String);

5 ]. j; r8 {% Q/ j//声明变量的类型
8 L7 \) [2 f* @# m' nvar

$ n% ]! ?! P: |9 C( `. U//Str变量为字符串型
   Str : String;
% F- u3 p4 q/ G# {
2 d$ F+ X4 \" E  p4 o! O//Race变量为整型
+ x* p6 T( ~& ?) y" H1 I( h( o   Race : Integer;
begin
/ n9 c$ Z! m& C1 }" n8 \6 J5 j
! e  W: j, v  R- q/ x//获取点击者的种族
3 h$ H: f$ o1 T" J9 }   Str := callfunc ('getsenderrace');
+ ^* i! X; p7 ^% A3 T# d7 C
//将获取的值由字符串型转换成整型
- f# ^6 e5 I* W/ ?1 O( [   Race := StrToInt (Str);

! c% L  u: r- @; E4 C0 y1 [$ ?//如果种族为1，这里种族为1代表是玩家
   if Race = 1 then begin
8 w8 s! B4 ?+ w0 j2 s
& ]4 U/ I% W/ g; `8 z% R% ^0 D//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
* a; s' j  J/ ?( w7 s; x+ T/ ^8 m      Str := 'showwindow .\help\屠夫.txt 1';
  a  W* P2 g6 l1 _      print (Str);

" d. H( C! g* {, e8 R//小判断结束
      exit;
   end;
! W% {' m* i7 M% e# O* F
# y8 U1 L" \7 H; Q2 k# P& E; f//一个语句段结束
$ K+ E, l4 i) W5 I, f& Mend;

7 @7 U' B$ O& ~) `9 a  h//另一个语句段开始
. D# Z8 X# k, `3 u