Сообщение от LLI.T.A.L.K.E.R.
Пробую написать подобную систему..
|
попробуй мою может натолкнет на мысль:
For monsters.monster=Each Monster
If EntityDistance (monsters\entity,player)<monsters\AggrRange Then
monsters\aggr=1
PointEntity monsters\entity,player
EndIf
If monsters\aggr=1 And EntityDistance (monsters\entity,player)>monsters\attackrange Then MoveEntity monsters\entity,0,0,monsters\MoveSpeed#
If monsters\state$="Atacking" And EntityDistance (monsters\entity,player)<monsters\attackrange Then monsters\atacktimer=monsters\atacktimer-1
If monsters\atacktimer<1 Then
If (Float#(PlayerArmor#/1)-monsters\dmg#)<0 Then
AllDamageToPlayer#=Float#(PlayerArmor#/1)-monsters\dmg#
Else
AllDamageToPlayer#=0
EndIf
зы если не понятно, могу объяснить что к чему.
полный исходник тут
игра
тут +
тут2 (на юкоз больше 15 мб не лезет пришлось разделить)