当前位置：传奇游戏服务端下载站传奇站长论坛资源网站程序技术文章 → 文章资讯 → 游戏架设教程 → 千年技术

千年无错的怪物攻城脚本

减小字体

增大字体作者：佚名来源：本站整理发布时间：2014-10-04 10:29:45

tgs\init\npc.sdb

怪物攻城,怪物攻城,0,,,TRUE,,,,,,,28,47,136,1200,500,,,,8000,-20,0,0,0,,0,,,,,,,,,,,,,,,,,

tgs\help\怪物攻城.txt

<trade>
<title>怪物攻城</title>
<image name=z81 value=235>
<text>
每个星期六日晚上8点由GM开启
</text>
<command send='close'>关闭</command>
<body>
<a send="dongfang">启动[东方怪物攻城]
<a send="nanfang">启动[南方怪物攻城]
<a send="beifang">启动[北方怪物攻城]
<a send="xifang">启动[西方怪物攻城]
</body>
</trade>

tgs\Script\怪物攻城.txt
unit 怪物攻城;
interface
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 经验值:100');
      if Str = 'false' then begin
         print ('say GM才可以开启');
         exit;
      end;
   print ('mapaddobjbyname monster 叶二娘 495 498 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子 496 499 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子 498 495 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子 501 492 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子 503 494 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子 500 497 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子1 497 500 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子1 500 503 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子1 503 500 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子1 507 496 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子1 501 493 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子1 502 493 2 0 false');
      Str := 'getsenderitem 经验值:100';
            print (Str);
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + Name;
            Str := Str + '告诉大家.叶二娘带着她的弟子从东门杀进来了!!';
            print (Str);
      exit;
   end;

   if aStr = 'dongfang' then begin
Str := callfunc ('getsenderitemexistence 经验值:100');
      if Str = 'false' then begin
         print ('say GM才可以开启');
         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 南海鳄神弟子1 546 496 2 0 false');
   print ('mapaddobjbyname monster 南海鳄神弟子1 549 499 2 0 false');
   print ('mapaddobjbyname monster 南海鳄神弟子1 546 496 2 0 false');
   print ('mapaddobjbyname monster 南海鳄神弟子1 543 493 2 0 false');
   print ('mapaddobjbyname monster 南海鳄神弟子1 543 492 2 0 false');
   print ('mapaddobjbyname monster 南海鳄神弟子1 542 498 2 0 false');
   print ('mapaddobjbyname monster 南海鳄神弟子1 542 497 2 0 false');
      Str := 'getsenderitem 经验值:100';
            print (Str);
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + Name;
            Str := Str + '告诉大家.南海鳄神带着他的弟子从南门杀进来了!!';
            print (Str);
      exit;
   end;

   if aStr = 'beifang' then begin
Str := callfunc ('getsenderitemexistence 经验值:100');
      if Str = 'false' then begin
         print ('say GM才可以开启');
         exit;
      end;
   print ('mapaddobjbyname monster 云中鹤 546 448 2 0 false');
   print ('mapaddobjbyname monster 云中鹤弟子 544 449 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 云中鹤弟子1 544 460 2 0 false');
   print ('mapaddobjbyname monster 云中鹤弟子1 551 448 2 0 false');
   print ('mapaddobjbyname monster 云中鹤弟子1 548 451 2 0 false');
   print ('mapaddobjbyname monster 云中鹤弟子1 545 454 2 0 false');
   print ('mapaddobjbyname monster 云中鹤弟子1 546 453 2 0 false');
   print ('mapaddobjbyname monster 云中鹤弟子1 543 455 2 0 false');
      Str := 'getsenderitem 经验值:100';
            print (Str);
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + Name;
            Str := Str + '告诉大家.云中鹤带着他的弟子从西门杀进来啦!!';
            print (Str);
      exit;
   end;

   if aStr = 'xifang' then begin
Str := callfunc ('getsenderitemexistence 经验值:100');
      if Str = 'false' then begin
         print ('say GM才可以开启');
         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');
   print ('mapaddobjbyname monster 段延庆弟子1 496 446 2 0 false');
   print ('mapaddobjbyname monster 段延庆弟子1 499 449 2 0 false');
   print ('mapaddobjbyname monster 段延庆弟子1 502 452 2 0 false');

   print ('mapaddobjbyname monster 攻段延庆弟子1 501 451 2 0 false');
   print ('mapaddobjbyname monster 段延庆弟子1 497 442 2 0 false');
   print ('mapaddobjbyname monster 段延庆弟子1王 497 445 2 0 false');
      Str := 'getsenderitem 经验值:100';
            print (Str);
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + Name;
            Str := Str + '告诉大家.段延庆带着他的弟子从西门杀进来啦!!';
            print (Str);
      exit;
   end;

   if aStr = 'zhongyang' then begin
Str := callfunc ('getsenderitemexistence 经验值:100');
      if Str = 'false' then begin
         print ('say GM才可以开启');
         exit;
      end;
   print ('mapaddobjbyname monster 段延庆 515 464 2 0 false');
   print ('mapaddobjbyname monster 叶二娘 519 468 2 0 false');
   print ('mapaddobjbyname monster 南海鳄神 524 473 2 0 false');
   print ('mapaddobjbyname monster 云中鹤 529 478 2 0 false');
   print ('mapaddobjbyname monster 段延庆弟子 533 482 2 0 false');
   print ('mapaddobjbyname monster 段延庆弟子1 521 477 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子 513 484 2 0 false');
   print ('mapaddobjbyname monster 叶二娘弟子1 529 469 2 0 false');
   print ('mapaddobjbyname monster 南海鳄神弟子 533 465 2 0 false');

   print ('mapaddobjbyname monster 南海鳄神弟子1 534 466 2 0 false');
   print ('mapaddobjbyname monster 云中鹤弟子 533 483 2 0 false');
   print ('mapaddobjbyname monster 云中鹤弟子1 534 483 2 0 false');
      Str := 'getsenderitem 经验值:100';
            print (Str);
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + Name;
            Str := Str + '告诉大家.四大恶人已经打到中央啦!!';
            print (Str);
      exit;
   end;
   if aStr = 'huli' then begin
Str := callfunc ('getsenderitemexistence 经验值:100');
      if Str = 'false' then begin
         print ('say 活动需要GM开启，你不是GM');
         exit;
      end;
   print ('mapaddobjbyname monster 九尾狐狸变身 515 464 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 519 468 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 524 473 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 529 478 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 533 482 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 521 477 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 513 484 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 529 469 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 533 465 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 534 466 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 533 483 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 534 483 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 488 448 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 481 451 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 484 460 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 473 461 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 463 471 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 473 476 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 480 484 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 480 475 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 488 466 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 488 477 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 490 484 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 496 488 2 0 false');

   print ('mapaddobjbyname monster 九尾狐狸变身 488 448 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 494 499 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 500 502 2 0 false');
   print ('mapaddobjbyname monster 九尾狐狸变身 504 509 2 0 false');
      Str := 'getsenderitem 经验值:100';
            print (Str);
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + Name;
            Str := Str + '提醒您，迎元宵节日活动开始啦!!';
            print (Str);
      exit;
   end;
   end;
end.

tgs\Script\Script.SDB

XX,怪物攻城.txt,,

Tgs\Setting\CreateNpc1.sdb

XX,怪物攻城,506,478,1,1,XX("注意"对应Script.SDB),,,

TGS\Init\monster.sdb
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
叶二娘,叶二娘,,9218,18436,9000,,,,,,0,8,84,109,140,3000,,,,600,100000,-30,60,-70,,10,,TRUE,,,TRUE,TRUE,,,,0,4,TRUE,,,,,,,TRUE,,9346,9348,9349,9347,,,,,,暗杀宝录:1:5:金元:1:1,,,,,100,,,,,,,,,,,,,,,,,,,,,,,,,,,,
叶二娘弟子,叶二娘弟子,,1635,,5000,,,,,,0,8,45,65,140,1600,,,,600,30000,0,-10,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,12,TRUE,,,,,,,TRUE,,9128,9129,,9130,,,,,,仙豆:1:1:白酒:1:1:九法手套:1:50:三飞剑:1:50:半月刀:1:50:罗汉竹枪:1:50:军神槌:1:50,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,,
叶二娘弟子1,叶二娘弟子1,,12,,47,,,,,,0,8,44,63,120,1600,,,,500,30000,0,10,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,12,TRUE,,,,,,必杀技,TRUE,,9125,9126,,9127,,,,,,仙豆:1:1:白酒:1:1:九法手套:1:50:三飞剑:1:50:半月刀:1:50:罗汉竹枪:1:50:军神槌:1:50,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
南海鳄神,南海鳄神,,6997,13994,7800,,,,,,100,8,69,95,200,3000,,,,600,100000,-10,30,-70,,10,,TRUE,TRUE,,TRUE,TRUE,,,,0,4,TRUE,,,,,,吸血术,TRUE,,9316,9318,9319,9317,,,,,,暗杀宝录:1:5:金元:1:1,,,TRUE,,15,,,,,,,,,629,,,,,,,,,,,,,,,,,,,
南海鳄神弟子,南海鳄神弟子,,3852,385,6300,,,,,,100,0,70,96,200,1600,,,,600,30000,-10,-20,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,12,TRUE,,,,,野神术:10000,,TRUE,,9359,9361,,9360,,,,,,仙豆:1:1:白酒:1:1:九法手套:1:50:三飞剑:1:50:半月刀:1:50:罗汉竹枪:1:50:军神槌:1:50,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,,
南海鳄神弟子1,南海鳄神弟子,,1502,150,4900,,,,,,100,8,72,97,120,1600,,,,600,30000,-10,-20,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,8,TRUE,,,,,,,TRUE,,9355,9357,9358,9356,,,,,,仙豆:1:1:白酒:1:1:九法手套:1:50:三飞剑:1:50:半月刀:1:50:罗汉竹枪:1:50:军神槌:1:50,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
云中鹤,云中鹤,,6997,13994,7800,,,,,,100,8,74,99,200,3000,,,,600,100000,-10,30,-70,,10,,TRUE,TRUE,,TRUE,TRUE,,,,0,4,TRUE,,,,,,吸血术,TRUE,,9330,9332,9333,9331,,,,,,暗杀宝录:1:5:金元:1:1,,,TRUE,,15,,,,,,,,,629,,,,,,,,,,,,,,,,,,,
云中鹤弟子,云中鹤弟子,,3852,385,6300,,,,,,0,8,76,101,130,1600,,,,600,30000,-10,-20,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,8,TRUE,,,,,,,TRUE,,9351,9353,9354,9352,,,,,,仙豆:1:1:白酒:1:1:九法手套:1:50:三飞剑:1:50:半月刀:1:50:罗汉竹枪:1:50:军神槌:1:50,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,,
云中鹤弟子1,云中鹤弟子,,202,20,3000,,,,,,0,8,78,103,180,1600,,,,600,30000,-20,-20,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,7,TRUE,,,,,,,TRUE,,9302,9304,9305,9303,,,,,,仙豆:1:1:白酒:1:1:九法手套:1:50:三飞剑:1:50:半月刀:1:50:罗汉竹枪:1:50:军神槌:1:50,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,,

TGS\init\Item.sdb
经验值,经验值,5,,,,,,,,TRUE,FALSE,90,0,0,,0,0,1,,0,,5000,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,,

商业版发布站程序下载：发布站程序下载：