| 专 题 栏 目 |
| 最 新 热 门 |
| 最 新 推 荐 |
| 相 关 文 章 |
| 没有相关文章 |
 |
千年智能怪脚本设置及设计精髓 | 热 ★★★ |
| 千年智能怪脚本设置及设计精髓 | |
| 千年智能怪脚本设置及设计精髓 | |
| 作者：佚名 文章来源：网络搜集 点击数： 更新时间：2008-3-10 2:33:32 | |
|
我的第一个参评设计《冰雪论剑活动脚本及设置》已经发出去一周多的时间了。可能是因为我水平太臭，至今还没引来玉。今天再抛出来一块砖，看看能不能砸出一两块美玉来！哈哈，别砸着自己，扔完就跑，我闪。。。。。 【设计思路】 跟上次相比，这次不能算是什么活动，只能说是游戏中的一段情节。前几天在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, 【测试要点】 相对于上一个脚本，这个情节脚本设置就要简单的多了，只需要修改三个文件。最重要的就是注意脚本编号的正确性；其次是要准确理解掌握设置的方法，这样就可以灵活设置，变幻出多种效果来。在此范例中，智能怪是用的黑捕校外观，你也可以做出更多的智能怪来，也可以让它们做更多的事，就看你的想像力了，呵呵。
本站声明:本站文章资源均来自网上转载或机器人自动搜索采集,如果本站文章资源有版权问题请联系管理员，我们尽快予以更正。所有文章只限用于个人测试学习使用,不得用于非法商业用途,请勿非法复制传播。特此声明！--[5uwl.net]
五年游戏制作经验; 金牌服务品质保障 游戏开区一条龙 第一品牌无忧网络[5uwl.net]
|
|
| 文章录入：黑鹰 责任编辑：ceo | |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 | |
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 