Возврат значений от функций

[TEHb08]

Народ а реально от функции вернуть несколько значений ?
как вернуть
builddom = 1
menushop=0
из функции

Function buildvibor$(curpoint,obj,objvidel,x,y)

DrawImage obj,GraphicsWidth()/4+x,GraphicsHeight()/4+y
 If ImagesCollide (curpoint,MouseX(),MouseY(),0,obj,GraphicsWidth()/4+x,GraphicsHeight()/4+y,0) = 1

  If MouseHit(1)
  builddom = 1 
  menushop=0
  
  Else
  DrawImage objvidel,GraphicsWidth()/4+x,GraphicsHeight()/4+y
 
  EndIf
 Else

 EndIf

return builddom
return menushop

End Function

[mr.DIMAS]

неа, return сразу разрушает стек и возвращает указанное значение, и передает управление другим операциям. мона возвращать сумму значений

[TEHb08]

Сообщение от mr.DIMAS

неа, return сразу разрушает стек и возвращает указанное значение, и передает управление другим операциям. мона возвращать сумму значений

ну это понятно
мне просто нужно два значения вывести в разные переменные

[impersonalis]

Возвращай тип данных

Type Inf
	Field a
	Field b
End Type

Function CoolFunc.Inf(a%,b%)
	I.Inf=New Inf
	I\a=a
	I\b=b
	Return I
End Function

Причём контейнер-интерфейс не обязательно создавать внутри функции при каждом вызове - т.к. все эелменты типа создаются глобально, то достаточно передать этот элемент или его дескриптор (ближайшая аналогия - передача по ссылке и передача через указатель (ФП)).

[TEHb08]

Спасибки

[ABTOMAT]

Я обычно глобаными переменными делаю.
Возвращать значение - это сяшное.
Помню, когда читал исходники шейдеров - долго не мог врубиться WTF они там делают эти структуры

[SBJoker]

В современных языках без проблем можно возвращать значение через параметры.

[impersonalis]

Сообщение от SBJoker

В современных языках без проблем можно возвращать значение через параметры.

.ну:

достаточно передать этот элемент или его дескриптор (ближайшая аналогия - передача по ссылке и передача через указатель (ФП)).

[TEHb08]

спасибки я уже по другому зделал не множко изменил функцию что теперь не нужно возыращать много значений +)

[TEHb08]

у кого какие мысли есть по созданию космоса(звезды каметы пыль)
например создаем звезды

но лаги жеть играть не возможно +(

Dim star(500000)
For i=1 To 500000
star(i)=LoadSprite("Data/space/star.png")
PositionEntity star(i),Rnd(-100000,100000),Rnd(-100000,100000),Rnd(-100000,100000)
Next

[impersonalis]

1)жесть
2)не лоадь а копь (copy)

[HolyDel]

1) мегажесть
2) не копи, и уж тем более не load, а AddVertex, AddTriangle, PositionVertex. Хотя лучше всего конечно просто сферу затекстурить звездным небом.

[TEHb08]

Сообщение от HolyDel

1) мегажесть
2) не копи, и уж тем более не load, а AddVertex, AddTriangle, PositionVertex. Хотя лучше всего конечно просто сферу затекстурить звездным небом.

Не сферу затекстурить будет не красиво так как корабль летит по космосу и мыль должна мимо пролетать и звезды должни приблежаться

[NitE]

ну 500к полюбому жирно будет... те надо сделать чтобы звезды появлялись и исчезали когда игрок летит... короче смотри проекты на б3д - новогодний шутер, там и исходник (у меня там снег таким образом сделан)

[TEHb08]

Сообщение от NitE

ну 500к полюбому жирно будет... те надо сделать чтобы звезды появлялись и исчезали когда игрок летит... короче смотри проекты на б3д - новогодний шутер, там и исходник (у меня там снег таким образом сделан)

щя глянем я уже тонну инфы перебрал пока не чего дельного нету +(