Цитата:
|
Сообщение от Admin
Код:
namespace eval AI {
proc CanCast { npc victim } {
set entry [GetEntry $npc]
set creature_spells [split [join [GetScpValue "creatures.scp" "creature $entry" "spell"]] ]
if {[lindex $creature_spells 0] != ""} {
set spellid [lindex $creature_spells [expr {int(rand()*[llength $creature_spells])}]]
puts "Creature casting spell nr: $spellid"
return $spellid
}
}
}
|
я вообщет TCL не встречал в своей практике, но примерно так
Код:
Пространство имен "Искуственный Интелект"
функция ЧегоБыНамКастануть(Зверюга, ЧегоТоТам)
Берем Зверюгу
Из файла зверюг выбираем нужную, а в ней выбираем ЧегоЗверюгаУмеетКастовать
если ЧегоЗверюгаУмеетКастовать не пустое
РезультатИС::ЧегоБыНамКастануть = случайное значение из ЧегоЗверюгаУмеетКастовать (заодно месагу добавим чего это мы кастанули)