智能怪脚本

只看楼主收藏回复

• 枫之精英
  

  我的第一个参评设计《冰雪论剑活动脚本及设置》已经发出去一周多的时间了。可能是因为我水平太臭，至今还没引来玉。今天再抛出来一块砖，看看能不能砸出一两块美玉来！哈哈^_^，别砸着自己，扔完就跑，我闪。。。。。

  
  

  【设计思路】

  　　跟上次相比，这次不能算是什么活动，只能说是游戏中的一段情节。前几天在QQ群里与飘渺GM聊天，他急着要找人做一个会说话的怪，要求这个怪在有人时说话、挨打时说话、打死别人说话、被别人打死也说话，晕，总之这是一口水怪，哈哈^_^！当时我说能通过脚本实现这一功能，并一口答应飘渺GM，给他做出来。在编写这个脚本的过程中才发现，除了让它说话还可以实现其它功能，比如招怪。于是，用了两天时间反复修改测试并实现了预期的功能。感谢飘渺GM提供脑细胞和点子N个。

  　　在中央市场有一口水超级多的人形怪－－小泉（名人啊，咱们邻国的领导），每当有人靠近它，它会随机说一句话。比如：“干嘛来了?想杀我啊?”、“别靠近我!死了别怪我!”等等的狂话。当你离它而去，它又会追着你的PP叫嚣：“别走啊!怕我了?!哈哈^_^...”。甚是讨厌！怎么办？打死它！于是，你开始痛击。。。。当然了，它也打你，呵呵^_^，就看谁的武功高了。当你砍了它几刀后，它会边说着废话边把它家的家犬－－“纯一狼”叫来一起打你。你把它打死，或者不幸被它打死，它都会继续说着废话并把家犬收回去。

  【情节脚本】

  　　看似简单的一段情节，要实现起来还真没那么容易。这个脚本费了我很大的劲，不过，通过编写这个脚本也使自己的水平有了新的提高，这就是收获，呵呵^_^。
  　　在这个脚本里，判断人来了、人走了、怪死、人死都好办，有现成的例子可以参考。关键是如何解决怪招怪的地点和数量问题。还是结合着脚本说吧：

  智能怪.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 OnDie (aStr : String);
  procedure OnChangeState (aStr : String);
  procedure OnApproach (aStr : String);
  procedure OnAway (aStr : String);
  procedure OnHit (aStr : String);
  procedure OnRegen (aStr : String);

  var
  zhuangtai : Integer = 0;
  //这一段定义招来的怪名字和数量的全局变量,可以根据自己的需要设置 
  monstername : String = '狂犬1';
  monstercount : Integer = 4;
  ////////////////////////////////////////////////////////////////
  implementation

  procedure OnRegen (aStr : String);
  begin
  zhuangtai := 0;
  exit;
  end;

  //当有人靠近时，怪随机从10句话里说一句，这些话可以发挥你的想像力修改
  procedure OnApproach (aStr : String);
  var
  Str : String;
  iRandom : Integer;
  begin
  Str := callfunc ('getsenderrace');
  if Str <> '1' then exit;

  iRandom := Random (10);
  if iRandom = 0 then begin
  print ('say 干嘛来了?想杀我啊?');
  exit;
  end;
  if iRandom = 1 then begin
  print ('say 瞧你那点武功,干嘛来了?');
  exit;
  end;
  if iRandom = 2 then begin
  print ('say 想找死啊?');
  exit;
  end;
  if iRandom = 3 then begin
  print ('say 干死你舒服啊?');
  exit;
  end;
  if iRandom = 4 then begin
  print ('say 找我比武可不是容易的事啊!');
  exit;
  end;
  if iRandom = 5 then begin
  print ('say 你可想好了!让我打死不许哭啊!');
  exit;
  end;
  if iRandom = 6 then begin
  print ('say 别靠近我!死了别怪我!');
  exit;
  end;
  if iRandom = 7 then begin
  print ('say 来来来让我杀了你先?');
  exit;
  end;
  if iRandom = 8 then begin
  print ('say 本怪就是狂!不服来试试?');
  exit;
  end;
  if iRandom = 9 then begin
  print ('say 比划啥啊?过来!!');
  exit;
  end;
  end;

  //与上一段相反，这是人离开怪时怪说的话，也可以参照上段，让怪随机说
  procedure OnAway (aStr : String);
  var
  Str : String;
  begin
  Str := callfunc ('getsenderrace');
  if Str <> '1' then exit;
  print ('say 别走啊!怕我了?!哈哈^_^...');
  exit;
  end;

  //当怪被攻击时所做的反应。此段是脚本的关键点。
  procedure OnHit (aStr : String);
  var
  Str, rdStr, xStr, yStr : String;
  x, y, i : Integer;
  ComStr : String = 'mapaddobjbyname monster ';
  begin
  Str := callfunc ('getsenderrace');
  if Str <> '1' then exit;

  Inc(zhuangtai);
  //当怪被攻击3次时说的话
  if zhuangtai = 3 then begin
  print ('say 这就开打啊?也不先通知一声!');
  exit;
  end;

  
  //当怪被攻击5次时说的话，并且招来其它怪一起打你
  if zhuangtai = 5 then begin
  print ('say 欺负我一个人啊?看我放家犬来咬你!');

  
  

  
  

  //判断人所在的位置，并取得附近的坐标
  Str := callfunc ('getsenderposition');
  Str := GetToken (Str, xStr, '_');
  x := StrToInt (xStr);
  Str := GetToken (Str, yStr, '_');
  y := StrToInt (yStr);
  Inc(x);
  Inc(y);
  xStr := IntToStr(x);
  yStr := IntToStr(y);

  //用一个For To循环来放相应数量的怪，如果我没记错，千年脚本里此循环的使用是没有先例的
  for i:=1 to monstercount do
  begin
  Str := ComStr + monstername;
  Str := Str + ' ';
  Str := Str + xStr;
  Str := Str + ' ';
  Str := Str + yStr;
  Str := Str + ' 3 0 true';
  print (Str);
  end;
  exit;
  end;
  //当怪被攻击20下和40下时，如果还没死，它要BS你一下了，呵呵^_^。努力哟！
  if zhuangtai = 20 then begin
  print ('say 武功也不行啊!还跟我斗?');
  exit;
  end;
  if zhuangtai = 40 then begin
  print ('say 哈哈^_^!你太弱了!这么长时间都杀不死我!!');
  exit;
  end;
  end;

  //如果怪死了，调整状态并收回放出来的怪
  procedure OnDie (aStr : String);
  var
  Str : String;
  begin
  Str := callfunc ('getsenderrace');
  if Str <> '1' then exit;
  zhuangtai := 0;
  print ('say 把我打死你会后悔的!我还要回来找你!');
  Str := 'mapdelobjbyname monster ' + monstername;
  print (Str);
  exit;
  end;

  //如果人死了，调整状态并收回放出来的怪，同时刺激人一句！
  procedure OnChangeState (aStr : String);
  var
  Str, Name : String;
  begin
  if aStr <> 'die' then exit;

  Str := callfunc ('getsenderrace');
  if Str <> '1' then exit;

  print ('say 瞧你这点出息!自不量力啊!!');
  zhuangtai := 0;
  Str := 'mapdelobjbyname monster ' + monstername;
  print (Str);
  exit;
  end;
  end.

  【其它设置】

  　　为了配合此情节，需要修改以下几个相关文件的内容：
  　　1、虽然这个口水怪和它招来的怪可以利用已有的任何一种怪来做，但最好还是新添加怪物，这样不会与原服务端发生冲突。尤其是那狗，如果你直接用狂犬，而且在长城以南这个地图里用，你会发现，当怪死或者人死收回放出来的狗时，整个长城以南的狂犬都被收了。所以，我是按照狂犬的数据重新添加了新怪物，它的ViewName是“纯一狼”，呵呵^_^。打开Init/Monster.sdb，在其后添加两条新数据：
  Name,ViewName,Shape,Animate,Kind,HaveItem,virtue,VirtueLevel,RegenInterval,boSeller,SpellResistRate,ActionWidth,WalkSpeed,Damage,DamageHead,DamageArm,DamageLeg,Armor,Life,AttackSpeed,Avoid,Recovery,Accuracy,SpendLife,HitArmor,boViewHuman,boAutoAttack,boGoodHeart,boHit,boNotBowHit,boIce,boControl,boRightRemove,EscapeLife,ViewWidth,boAttack,boBoss,boVassal,VassalCount,AttackType,AttackMagic,HaveMagic,boChangeTarget,SoundStart,SoundAttack,SoundDie,SoundNormal,SoundStructed,EffectStart,EffectStructed,EffectEnd,FallItem,FallItemRandomCount,XControl,YControl,boRandom,boPK,EventType,ArmorWHPercent,ShortExp,LongExp,RiseShortExp,RiseLongExp,HandExp,LimitSkill,MonType,sex,arr_body,arr_gloves,arr_upunderwear,arr_shoes,arr_downunderwear,arr_upoverwear,arr_hair,arr_cap,arr_weapon,Guild,GroupKey,FirstDir,ExtraExp,boOnlyOnce,Calllnterval,Hidelnteral,BestShortExp,BestShortExp2,BestShortExp3,3HitExp,QuestNum,QuestHaveItem,
  小泉,小泉,22,7,,金元:3:1,6360,7500,300,,0,8,50,4000,,,,1000,65000,-20,30,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,10,TRUE,,,,,,,TRUE,,9114,9115,,9136,,,,,,,,,,,15,,,,,,,,,,,,,,,,,,,,,12720,,,,,,,572,,,
  狂犬1,纯一狼,8,3,,肉:5:1:皮:5:1:风云戒指:1:30,105,2900,,,0,8,180,1000,,,,1000,8000,-20,-20,0,,10,,TRUE,TRUE,,TRUE,,,,,0,7,TRUE,,,,,,,,,2400,2401,2402,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,10,,,,,,,,,,

  　　2、注册脚本，打开Script/Script.sdb，在最后一行添加新数据，并记住新数据的编号（注意，那个编号136是我的服务端此文件里顺着编下来的号，你的不一定就是此数）：
  Name,FileName,Desc,
  136,智能怪.txt,,

  　　3、打算把这个口水怪放到哪个地图里，就把相应的Setting/CreateMonsterXXX.sdb打开，添加一条新数据（注意，Script字段一定要与上步注册时的编号一至）：
  Name,MonsterName,X,Y,Count,Width,Member,Script,
  175,小泉,500,500,1,6,,136,

  【测试要点】

  　　相对于上一个脚本，这个情节脚本设置就要简单的多了，只需要修改三个文件。最重要的就是注意脚本编号的正确性；其次是要准确理解掌握设置的方法，这样就可以灵活设置，变幻出多种效果来。在此范例中，智能怪是用的黑捕校外观，你也可以做出更多的智能怪来，也可以让它们做更多的事，就看你的想像力了，呵呵^_^

  
  

  
  

  1楼  2023/2/1 20:52:47  回复