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

千年羽衣将军国庆简易任务

减小字体

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

Help里加入
羽衣将军.txt

希望大家过一个快乐的国庆节！

关闭
递上国庆快乐

init里加入
Item.sdb
勋章,勋章,38,王者风范,,,,,,,FALSE,FALSE,688,,,,,,1,,,,10000,,,,,,,,TRUE,5,50,,50,,100,100,100,100,100,100,100,100,100,100,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,1,

map.sdb
226,south.smp,south.map,southtil.til,southobj.obj,southrof.obj,12001,,国庆领地,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,,TRUE,TRUE,,,,,,,,,,,,,,TRUE,,,,,,,,,,,,,,,,,,,,,,,,,,,

Monster.sdb
第二梦1,第二梦,,20000,5555,9999,,60000,,,,0,8,100,,70,2700,3000,3000,3000,700,1000000,-20,0,-100,500,10,,TRUE,TRUE,,TRUE,TRUE,,,,,10,TRUE,TRUE,,3,,,必杀技,TRUE,9154,9316,9318,9319,9160,,,,,,,,,,,,22222,44444,55555,66666,,77777,77777,77777,77777,,1,FALSE,,女子英雄护腕,女子上衣:85,女子魔人战靴,女子短裤:85,女子太极道袍,女子长发:12,女子雨中客斗笠,天云宝刀,风云雄霸天下,0396,,,,

大王1,大王,,6360,6360,7500,,,,,,0,8,67,93,50,6500,,,,800,80000,-20,30,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,10,TRUE,,,,,,,TRUE,,9114,9115,,9136,,,,小丸丹一:1:2:玉露丸:1:1,1,国庆快乐:1:30,,,,,15,,,,,,,,,572,,,,,,,,,,,,,,,,,,
魔道士分身1,魔道士,,3852,,6300,,,,,,0,8,57,76,300,1200,,,,600,20000,0,10,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,12,TRUE,,,,,魔道士分身术:10000,,TRUE,,9141,9124,,9142,,,,,,国庆快乐:1:10,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,
蓝妖1,蓝妖,,3054,9999,6200,,,,,,0,8,33,52,70,6500,,,,800,80000,-10,60,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,10,TRUE,,,,,,吸血术,TRUE,,,8937,,,,,,小丸丹一:1:2:玉露丸:1:1,,国庆快乐:1:10:男子星河袍:1:800:女子星河袍:1:800,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,

npc.sdb
羽衣将军,羽衣将军,0,,,TRUE,,TRUE,TRUE,,,TRUE,8,24,144,54000,40000,,,,900000,0,0,0,0,,4,,,,,,,,,,,,,,,,

Script里加入
Script.sdb
153,羽衣将军.txt,,

羽衣将军.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 OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
implementation
procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iCount, iKind : Integer;
begin
   if aStr = 'close' then begin
      exit;
   end;

   if aStr = 'changeweapon' then begin
      Str := callfunc ('getsenderitemexistence 国庆快乐:1');
      if Str = 'false' then begin
         print ('say 你有国庆快乐吗?');
         exit;
      end;
      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
         print ('say 您的物品栏已满~');
         exit;
      end;
      print ('getsenderitem 国庆快乐:1');

      iKind:= Random (33);
      if iKind = 0 then begin
         Str := 'putsendermagicitem 霸王剑 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 1 then begin
         Str := 'putsendermagicitem 太极神枪 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 2 then begin
         Str := 'putsendermagicitem 太极斧 @羽衣将军 4';
         print (Str);

      end;
      if iKind = 3 then begin
         Str := 'putsendermagicitem 太极手套 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 4 then begin
         Str := 'putsendermagicitem 霸王剑 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 5 then begin
         Str := 'putsendermagicitem 勋章 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 6 then begin
         Str := 'putsendermagicitem 风灵珠 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 7 then begin
         Str := 'putsendermagicitem 女子妖华袍 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 8 then begin
         Str := 'putsendermagicitem 令牌 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 9 then begin
         Str := 'putsendermagicitem 男子妖华袍 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 10 then begin
         Str := 'putsendermagicitem 超级金元:10 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 11 then begin
         Str := 'putsendermagicitem 圣灵卷轴 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 12 then begin
         Str := 'putsendermagicitem 天王刀 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 13 then begin
         Str := 'putsendermagicitem 太极牌  @羽衣将军 4';
         print (Str);
      end;
      if iKind = 14 then begin
         Str := 'putsendermagicitem 鹰雕手 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 15 then begin
         Str := 'putsendermagicitem 龙光剑 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 16 then begin
         Str := 'putsendermagicitem 龙光剑 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 17 then begin
         Str := 'putsendermagicitem 男子血魔护腕 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 18 then begin
         Str := 'putsendermagicitem 女子血魔护腕 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 19 then begin
         Str := 'putsendermagicitem 金鳞神剑 @羽衣将军 4';
         print (Str);
      end;
      if iKind =20 then begin
         Str := 'putsendermagicitem 金鳞神剑 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 21 then begin
         Str := 'putsendermagicitem 望月刀 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 22 then begin
         Str := 'putsendermagicitem 望月刀 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 23 then begin
         Str := 'putsendermagicitem 男子婚袍 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 24 then begin
         Str := 'putsendermagicitem 女子婚袍 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 25 then begin
         Str := 'putsendermagicitem 望月刀 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 26 then begin
         Str := 'putsendermagicitem 轮回枪法 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 27 then begin
         Str := 'putsendermagicitem 女子黄泉道袍 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 28 then begin
         Str := 'putsendermagicitem 男子黄泉道袍 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 29 then begin
         Str := 'putsendermagicitem 女子血魔道袍 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 30 then begin
         Str := 'putsendermagicitem 女子百炼血魔头盔 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 31 then begin
         Str := 'putsendermagicitem 千年山参 @羽衣将军 4';
         print (Str);
      end;
      if iKind = 32 then begin
         Str := 'putsendermagicitem 女子血魔头盔  @羽衣将军 4';
         print (Str);
      end;
      print ('say 祝大家国庆快乐!');
   end;
end;
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 1';
      print (Str);
      exit;
   end;
end;
end.

Setting里加入
CreateGate.sdb
231,往国庆地图,国庆地,0,TRUE,69,44,81,500,500,500,500,112,226,1,,,,,,,,,,,,,,,,,,,,,,,,

这个112地图是我自己做的专门做跳点的地方~大家可以自己改！

CreateMonster226.sdb
1,魔道士分身1,500,520,100,50,,
2,第二梦1,793,726,200,100,,
3,大王1,851,353,200,150,,
4,蓝妖1,155,510,151,200,,

CreateNpc226.sdb
1,羽衣将军,506,500,1,3,22,,

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