Function D2D_SetAnimPointer(D2D_AnimPointPatch$,SlideX%,SlideY%,StartFirst%,CountSlide%,Speed%)
D2D_AnimPoint=LoadAnimImage(D2D_AnimPointPatch$,SlideX%,SlideY%,StartFirst%,CountSlide%)
CountSlides% = CountSlide%
If D2D_AnimPoint=False Then
RuntimeError("Ошибка в функции 'D2D_SetAnimPointer'.")
Else
SetAnimPointer=1
EndIf
End Function
Теперь должно вернуть.
Параметры функции локальны. Поэтому тебе надо записать их в функции.