Type My
Field entity
Field scalex#, scaley#, scalez#
End Type
Type Enemy
Field entity
Field scalex#, scaley#, scalez#
End Type
Type Other
Field entity
Field scalex#, scaley#, scalez#
End Type
Type Flow
Field entity
Field scalex#, scaley#, scalez#
End Type
///////Цикл//////////////////////////////////////////
selecting = выделенный объект
seltype$ = название типа(именно название - текстовая переменная)
num = номер объкта в типе
if seltype="My"
for i.my=each my
if selecting=i\entity then i\scalex=i\scalex+1 : scaleentity selecting, i\scalex, i\scaley, i\scalez
next
elseif seltype="Enemy"
for i.enemy=each enemy
if selecting=i\entity then i\scalex=i\scalex+1 : scaleentity selecting, i\scalex, i\scaley, i\scalez
next
elseif seltype="Other"
for i.other=each other
if selecting=i\entity then i\scalex=i\scalex+1 : scaleentity selecting, i\scalex, i\scaley, i\scalez
next
elseif seltype="Flow"
for i.flow=each flow
if selecting=i\entity then i\scalex=i\scalex+1 : scaleentity selecting, i\scalex, i\scaley, i\scalez
next
endif
///////Цикл//////////////////////////////////////////
Ну вот примерно такой код у меня сейчас... И если с четырмя типами это ещё терпимо, то с например если будет 50 типов, это никуда не годится!!!... Как то надо приспособить по сути ОДИНАКОВЫЙ код ко всем типам, к тому же как видно и типы тоже однотипны
клмбр...
Как мне быть??? Заранее спасибо!
Уверен вариантов решения проблемы или не одного или несколько...во втором случае хотелось бы узнать хотябы вкратце про каждый
. лучше кодом конечно, но и на словах если будет, тоже хорошо!