А я всегда делал так -
Code
Type Zone
Field point%,size#
End Type
Function CreateZone(x#,y#,z#,size#)
z.Zone = New Zone
z\point% = CreatePivot()
PositionEntity z\point%,x#,y#,z#
z\size# = size#
End Function
Function CheckZones(player_entity%)
For z.Zone = Each Zone
If EntityDistance(z\point%,player_entity%)<= z\size# Then chzo=1
Next
Return chzo
End Function