Показать сообщение отдельно
Старый 21.03.2010, 15:47   #1
K1rusH
AnyKey`щик
 
Регистрация: 21.03.2010
Сообщений: 3
Написано 0 полезных сообщений
(для 0 пользователей)
Почему ругается ?

Вот так работает:
вызываю ф-ию
AddBang(n1#,y,n2#)

описание
Function AddBang(n1#,y,n2#)
b.bang=New bang
b\obj=CopyEntity(bangsprite)
PositionEntity b\obj,n1#,y,n2#
RotateSprite b\obj,Rnd(-20,20)
End Function

Function UpdateBangs()
For b.bang=Each bang
If b\frame#>38.5
FreeEntity b\obj
Delete b
Else
EntityTexture b\obj,boomtex,b\frame#
b\frame#=b\frame#+1
EndIf
Next
End Function

Но мне нужно вот так:
вызываю ф-ию
AddBang(bomb\entity)

описание
Function AddBang(bomb)
b.bang=New bang
b\obj=CopyEntity(bangsprite, bomb)
;PositionEntity b\obj,n1#,y,n2#
RotateSprite b\obj,Rnd(-20,20)
End Function

Function UpdateBangs()
For b.bang=Each bang
If b\frame#>38.5
FreeEntity b\obj
Delete b
Else
EntityTexture b\obj,boomtex,b\frame#
b\frame#=b\frame#+1
EndIf
Next
End Function

Выдаёт ошибку Entity does not exist на строку EntityTexture b\obj,boomtex,b\frame#
(Offline)