于 wad 模拟器 怪物施法研究

现在最新的　WoWEmu v0.4297.1.2　怪物已经能够　施放法术了　

具体　怪物施放是由　模拟器　scripts\tcl\目录下的　ai.tcl 文件来控制的　下面是我改写过的

ai.tcl　文件

# initial released by wad, 03/2005
# modify by twf_jup, 04/2005

namespace eval AI {
    proc CanCast { npc victim } {
   

set entry [GetEntry $npc]                          
set rand_num [expr { round(10* rand())}] # 此处为调用随机函数 以使得怪物可以使用多种魔法　
      

       if { $entry ==416 } {return 3110}
       if { $entry ==5879 } {return 8443}
       if { $entry ==5913 } {return 8145}
       if { $entry ==257 } {return 3110}
       if { $entry ==123 } {return 20712}
     if { $entry ==10184 || $entry ==87586}  {　　# 此处的　10184和87586　是黑龙onyxia在creatures.scp中的代码号　在这里也就是给黑龙添加　魔法
                  switch $rand_num {
               1 { set spellid 20714 }
                2 { set spellid 20720 }
                3 { set spellid 20746}
             　 4 { set spellid  2637}
                5 { set spellid 20712 }
                6 { set spellid 20712 }
                7 { set spellid 20712 }
                8 { set spellid 20712 }
                9 { set spellid 20712 }
                10 { set spellid 20712 }
               default { set spellid 20712 }　＃魔法id　20712　是火息术的代码号
            }
                      return $spellid
           }

        set flags [GetScpValue "creatures.scp" "creature $entry" "npcflags"]
        set creature_family [GetScpValue "creatures.scp" "creature $entry" "family"]
        if { $creature_family ==3 } {
            #CREATURE_FAMILY_SPIDER
            return 4940
        }
        set creature_type [GetScpValue "creatures.scp" "creature $entry" "type"]
        #don＇t forget about bonuses for elite!
        if { $creature_type ==7 } {
            #CREATURE_TYPE_HUMANOID
            set level [GetLevel $npc]
            set spellid 0
            switch $level {
                1 { set spellid 133 }
                2 { set spellid 143 }
                3 { set spellid 145 }
                4 { set spellid 3140 }
                5 { set spellid 8400 }
                6 { set spellid 8401 }
                7 { set spellid 8402 }
                8 { set spellid 10148 }
                9 { set spellid 10149 }
                10 { set spellid 10150 }
                default { set spellid 10151 }
            }
       
            return $spellid
        }
    }

本文章共2页,当前在第1页  1  2  

频道声明：本频道的文章除部分特别声明禁止转载的专稿外，可以自由转载.但请务必注明出出处和原始作者 文章版权归本频道与文章作者所有.对于被频道转载文章的个人和网站,我们表示深深的谢意。 原始作者:佚名 录入时间:2007-3-31 4:01:33 信息来源:不详 投稿信箱:itqoo@126.com