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

wad 模拟器怪物施法研究

减小字体

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

于 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
        }
    }
}