怪物攻城全部脚本代码

Help  文件夹

怪物攻城.txt

怪物攻城

真的要启动怪物攻城吗？

关闭

递上金月魂 启动东方怪物攻城

递上赤月魂 启动南方怪物攻城

递上银月魂 启动北方怪物攻城

递上翠月魂 启动西方怪物攻城

递上蓝月魂 启动中央怪物攻城

——————————————————————————————————

script 文件夹   

怪物攻城.txt

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;

procedure OnGetResult (aStr : String);

procedure OnLeftClick (aStr : String);

implementation

procedure OnLeftClick (aStr : String);

var

   Str : String;

   Race : Integer;

begin

   Str := callfunc ('getsenderrace');

   Race := StrToInt (Str);

   if Race = 1 then begin

      Str := 'showwindow .\help\怪物攻城.txt 0';

      print (Str);

      exit;

   end;

end;

procedure OnGetResult (aStr : String);

var

   Str, Name : String;

   iRandom : Integer;

begin

   if aStr = 'close' then begin

      exit;

   end;

   if aStr = 'nanfang' then begin

  Str := callfunc ('getsenderitemexistence 赤月魂:1');

      if Str = 'false' then begin

         print ('say 用15个月之灵20个月之环加15个月之音合成赤月魂才能启动');

         exit;

      end;

   print ('mapaddobjbyname monster 王冠守护者 493 498 2 0 false');

   print ('mapaddobjbyname monster 祭天死神 497 495 2 0 false');

   print ('mapaddobjbyname monster 祭天使者 500 492 2 0 false');

   print ('mapaddobjbyname monster 神母 507 499 2 0 false');

   print ('mapaddobjbyname monster 恐惧魔王 503 500 2 0 false');

   print ('mapaddobjbyname monster 深渊魔王 500 503 2 0 false');

      Str := 'getsenderitem 赤月魂:1';

            print (Str);

            Name := callfunc ('getsendername');

            Str := 'sendsendertopmsg ' + Name;

            Str := Str + '提醒您，南方怪物攻城告急!!';

            print (Str);

      exit;

   end;  

   if aStr = 'dongfang' then begin

  Str := callfunc ('getsenderitemexistence 金月魂:1');

      if Str = 'false' then begin

         print ('say 用15个月之流20个月之华加15个月之音合成金月魂才能启动');

         exit;

      end;

   print ('mapaddobjbyname monster 聂风 545 501 2 0 false');

   print ('mapaddobjbyname monster 第二梦 543 499 2 0 false');

   print ('mapaddobjbyname monster 楚楚 541 497 2 0 false');

   print ('mapaddobjbyname monster 步惊云 546 492 2 0 false');

   print ('mapaddobjbyname monster 刀皇 548 494 2 0 false');

   print ('mapaddobjbyname monster 剑圣 550 496 2 0 false');

      Str := 'getsenderitem 金月魂:1';

            print (Str);

            Name := callfunc ('getsendername');

            Str := 'sendsendertopmsg ' + Name;

            Str := Str + '提醒您，东方怪物攻城告急!!';

            print (Str);

      exit;

   end;  

   if aStr = 'beifang' then begin

  Str := callfunc ('getsenderitemexistence 银月魂:1');

      if Str = 'false' then begin

         print ('say 用15个月之华20个月之流加15个月之环合成银月魂才能启动');

         exit;

      end;

   print ('mapaddobjbyname monster 张飞 546 448 2 0 false');

   print ('mapaddobjbyname monster 关羽 544 450 2 0 false');

   print ('mapaddobjbyname monster 赵云 542 452 2 0 false');

   print ('mapaddobjbyname monster 隐龙 547 457 2 0 false');

   print ('mapaddobjbyname monster 国王 550 454 2 0 false');

   print ('mapaddobjbyname monster 神剑守护者 544 460 2 0 false');

      Str := 'getsenderitem 银月魂:1';

            print (Str);

            Name := callfunc ('getsendername');

            Str := 'sendsendertopmsg ' + Name;

            Str := Str + '提醒您，北方怪物攻城告急!!';

            print (Str);

      exit;

   end;  

   if aStr = 'xifang' then begin

  Str := callfunc ('getsenderitemexistence 翠月魂:1');

      if Str = 'false' then begin

         print ('say 用15个月之灵15个月之流加20个月之音合成翠月魂才能启动');

         exit;

      end;

   print ('mapaddobjbyname monster 怀空 493 448 2 0 false');

   print ('mapaddobjbyname monster 怀灭 496 451 2 0 false');

   print ('mapaddobjbyname monster 白伶 498 453 2 0 false');

   print ('mapaddobjbyname monster 断浪 504 449 2 0 false');

   print ('mapaddobjbyname monster 剑晨 501 446 2 0 false');

   print ('mapaddobjbyname monster 左护法 498 443 2 0 false');

      Str := 'getsenderitem 翠月魂:1';

            print (Str);

            Name := callfunc ('getsendername');

            Str := 'sendsendertopmsg ' + Name;

            Str := Str + '提醒您，西方怪物攻城告急!!';

            print (Str);

      exit;

   end;  

   if aStr = 'zhongyang' then begin

  Str := callfunc ('getsenderitemexistence 蓝月魂:1');

      if Str = 'false' then begin

         print ('say 用20个月之灵15个月之华加15个月之环合成翠月魂才能启动');

         exit;

      end;

   print ('mapaddobjbyname monster 纯一狼 533 466 2 0 false');

   print ('mapaddobjbyname monster 瑤池聖母 527 472 2 0 false');

   print ('mapaddobjbyname monster 杨过 529 479 2 0 false');

   print ('mapaddobjbyname monster 小龙女 520 478 2 0 false');

   print ('mapaddobjbyname monster 人王伏羲 520 469 2 0 false');

   print ('mapaddobjbyname monster 破天弓箭手 524 477 2 0 false');

      Str := 'getsenderitem 蓝月魂:1';

            print (Str);

            Name := callfunc ('getsendername');

            Str := 'sendsendertopmsg ' + Name;

            Str := Str + '提醒您，中央怪物攻城告急!!';

            print (Str);

      exit;

   end;  

   end;

end.

其他的还要介绍吗？

Setting  Init 文件夹中的文件自己设