Function не дает имена

[Reizel]

Ну до этого юзал ClearWorld() , Global'ы приходилось переписывать
Щас сделал по другому, работает без багов, только очистку уровня сделать надо
А вообще глобал это хорошая вещь И GOTO тоже, не знаю почему его так не любят

[FireOwl]

Я тут игру пытаюсь зделать, и думаю у меня гдето столько же глобалов будет.
Ето что плохо? почему?

Действительно, почему? Жрет больше памяти?
У меня в программе 6 global image. Чем это может быть плохо?

[EvilChaotic]

Почти любая глобальная ссылка на объект - говнокод.

[FireOwl]

Почему говнокод? В BlitzBasic - почти единственный способ обратиться к объекту из любой точки кода...

В таком случае вот такой код на Си, тоже говнокод:

int global=0;
int main(){
    return 0;
} 


[EvilChaotic]

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

Почему говнокод? В BlitzBasic - почти единственный способ обратиться к объекту из любой точки кода...

Потому, что в нормальном проекте таких объектов быть не должно ) Ресурсы хранят в рес менеджерах, игровые обьекты в обычных типах и так далее.

[ABTOMAT]

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

[FireOwl]

Я почему-то всегда считал что типы - удобное средство для создания и обработки неопределённого количества объектов. Остальное всегда храню в массивах и переменных.

[impersonalis]

храните всё в глобалах - BlitzHack уже идёт за вами!

[Reizel]

resHack нам в помощь Не увидите наших глобалов

[SBJoker]

Сообщение от Павел

resHack нам в помощь Не увидите наших глобалов

КЭП ты где?

[Mr_F_]

Global Mode=-1
Global group,window,statusbar,boxbutton,snaptoggle,viewwindow,toggleSolid,toggleWire,toggleEdged,modelbutton,mviewer,mviewcancel
Global mviewimport,propertieswindow,propXedit,propYedit,propZedit,propRXedit,propRYedit,propRZedit,modeMove,modeRotate,groupModels
Global timetouseimport,mviewplank,previewCam,mviewInsert,objwindow,groupObjects,mviewWithChildren,matedbutton,mateditor,matedclose

Global matNotSimple,matUseLighting,matUseAmb,matUseDiff,matUseLM,matUseRLM,matUseBump,matNoMips,matBright,matContrast,matHue,MatSaturation
Global matCR,matCG,matCB,matUseSpec,matSpec,matSpecPow,matUseEnv,matEnvInt,matAR,matAG,matAB,matUseRim,matRim,matRimPow,matPreDiff
Global matPreNS,matApply,matListWindow,groupMaterials,matListAdd,modeScale,propSXedit,propSYedit,propSZedit,DelayedPent,matMasked
Global matAlpha,mat2Sided,matExport,matImport,matListRename,matListDel,mviewarea,matListArea,objWindowArea,objWindowAreaM,objWindowAreaS
Global mviewRemove,mapbutton,mapwindow,mapclose,mapselectface,mapU,mapV,mapchangetimeout,mapUV,objdelete,matLambert,matHLambert
Global matOrenNayar,matAS,matPhong,matBlinn,matWI,matCT,groupMatDiff,groupMatSpec,anglesnap,renamewindow,rentextbox,renok,rencancel
Global matListRenaming,WorkedIn6Mode,mapPlanarMap,movingplane,mapUM,mapVM,matDepthmap,matParallax,matAlphaSlider,matRefract
Global FinalizingButton,FinalizingWindow,FinRender,FinCancel,Bhdrmap,Bhdrfile,Bhdrint,Bhdrblur,BGI,B1GI,B2GI,BFGRays,Bptpaths,Bptsize
Global BGI1_pm,BGI1_dpm,BGI1_pt,BGI1_fg,BGI1_mc,BGI2_pm,BGI2_dpm,BGI2_pt,BGI2_fg,BGI2_mc,lightbutton,lightwindow,lightcancel,lightlist
Global lightinsert,lightlistadd,lightlistremove,lightint,groupLights,lightR,lightG,lightB,lightShadRad,FinPreview,FinLoadLmaps,Bres
Global ProgressWin,ProgressBar,modeAlign,BGI1_None,BGI2_None,BGI1_Int,BGI2_Int,Bmcrays,Bphotons,BphotonRad,B_ar,B_ag,B_ab,BGIdiffint
Global B_aa,matOverdiff,FinAO,FinUW,Entitybutton,entwindow,entinsert,entcancel,entlist,groupEntities,ppbutton,ppwindow,ppclose,ppssao
Global matPaint,WorkedIn11Mode,PrtButton,PrtWindow,PrtCancel,PrtInsert,groupShapes,prtWall1,ActivePSys.PSystem,ActivePE.PEmitter
Global prtshiftx,prtshifty,prtshiftz,groupEmitters,PrtEArea,PrtSArea,PrtShapeSphere,PrtShapeCube,PrtSphereHotSpot,PrtSphereFalloff
Global PrtCubeBounds,PrtShapeAreaSphere,PrtShapeAreaCube,PrtCycle,PrtCDelay,PrtCDRnd,PrtMass,PrtLife,PrtLifeRnd,PrtRate,PrtTrails
Global PrtSoft,PrtDirX,GraphWindow,GraphBG,GraphClose,PrtDirY,PrtDirZ,PrtSize,PrtRotate,PrtAlpha,PrtRangeX,PrtRangeY,PrtRangeZ,groupPSystems
Global PrtSAdd,PrtModel,PrtMat,mviewHiddenOk,mviewHiddenSP,matListHiddenOk,PrtSRemove,PrtEAdd,PrtERemove,GraphExport,GraphImport
Global PrtImport,PrtExport,PrtAdditive,PrtMax,GraphXEdit,GraphYEdit,onMouse3,SelectedGraphPoint,ppssaopower,ppssaoscale,phywindow
Global phyclose,phygencol,phybutton,phythrow,phyhull,phytrimesh,phynone,DynWindow,DynClose,dyndyn,dynphys,dynmass,dynbutton
Global dynenable,dyngetback,matphysbutton,matphyswindow,matphysenable,matphysfriction,matphyshardtouch,matphyssofttouch,matphysbreakable
Global matphyshardsound,matphyssoftsound,matphysscrapesound,matphysbreaksound,matphysclose,matphysbullsound,matphysscrape,toolsbutton
Global toolswindow,toolsclose,toolsconvmtos,scriptbutton,scriptwindow,scriptnew,scriptsave,scriptcombobox,scriptdelete,scriptcreate
Global scriptcedit,scriptcok,scriptccancel,scriptarea,dynscript,dynchoosescript,dyncsarea,dyncsok,groupScripts,scriptglobal,bspwindow
Global bspbutton,bspclose,bspbuild,bspdebug,bspleafsarea,groupLeafs,bspshowallleafs,bspleafrename,primwindow,primcancel,primbox,primcyl
Global primsegs,propGlobal,propGWindow,propGClose,propGSkybox,propGSkyOn,propGOceanOn,phyboat,dboatWindow,dboatClose,dboatOn,phykeps
Global phymodel,pkeparea,pkepadd,pkepremove,pkepX,pkepY,pkepZ,pkepBuo,pkepLinDamp,groupKeps,pkeprenset,groupKepSets,pkepsetimport
Global phymcx,phymcy,phymcz,pkwindow,pkclose,pkepsetarea,pkepaddset,pkepdelset,pkepsetexport,dboatmaxdrag,dboatpower,groupBoats,dboatadd
Global dboatdel,dboatarea,dboatname,dboatdrivesound,dboatidlesound,dynai,aibutton,aiwindow,ainew,aicreate,aicedit,aicok,aiccancel,aicombobox
Global aisensing,aisensetypeslist,aisenseuse,aisensetypes,aisenseltypes,aisenselprops,aisenseaddtype,aisenseremovetype,aicondif,aicond1
Global aicondop,aicond2,aicondadd,aicondremove,aishedule,aitaskadd,aitaskremove,aitaskfunc,aitasktarget,aitaskparam,aisave,aidelete,aiimport
Global aiexport,dynchooseai,dyncaarea,dyncaok,groupAI,propGTeamsArea,propGTeamsAdd,propGTeamsRemove,teamcreate,teamcok,teamccancel,teamcedit
Global groupTeams,dynteam,dynchooseteam,dynctarea,dynctok,groupTeams2,propGTeamsAI,objrename,objrenamewin,objrenameedit,objrenameok,objrenamecancel
Global dboathealth,weapWindow,weapClose,weapdamage,weaprate,groupWeapons,weapadd,weapdel,weaparea,weapname,weapshootsound,weapreloadsound
Global weapammo,propGWeapButton,weapmodel,pmchoosePSystem,pmcparea,pmcpok,matphysparticles,groupPS,PrtBGColor,PrtBGR,PrtBGG,PrtBGB,filewindow
Global filecombobox,fileinsidelist,filereflist,fileleft,fileright,propGFile,ppssaofar,filemerge,toolscenterpivot,lightdirectional,lightpoint
Global lightspot,lightskylight,FinFastRender,toolsslice,toolsextrude,matanimbutton,matanimwindow,matanimclose,matanimwidth,matanimheight
Global matanimframes,matanimenable,matsphereframe,prtScaleX,prtScaleY,scriptclose,objwindowareae,entgroup,aiclose,matanimdelay,matspheretimeto
Global prtshiftxRND,prtshiftyRND,prtshiftzRND,GraphRNDEdit,prtBright,prtEmit,prtReset,prtTrail,prtUp,prtDown,prtPointalong,prtRed,prtGreen,prtBlue
Global prtNFR,FinImp,FinFRArea,FinFRBlur1,FinFRBlur2,FinPickAmb,LightPickColor,FinFRContrast,matphysdecals,matdecalbutton,matdecalclose
Global matdecalsize,matdecalwindow,matdecalenable,matblendbutton,matblendwindow,matblendclose,matblendalpha,matblendm2x,matblendm4x
Global phyheli,dheliname,dheliclose,groupHelis,dhelimaxdrag,dhelihealth,dheliarea,dheliadd,dhelidel,dheliwindow,matCPick,matAPick,PrtSDupl
Global PrtSRename

Global ShapeOffsetX#, ShapeOffsetY#, ShapeOffsetZ#, ShapeCenterX#, ShapeCenterY#, ShapeCenterZ#

Global CamNX#,CamNY#,CamNZ#

Global matsphere

поэтому я и забил на блиц
без оопа жизни нет

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

[Nex]

О боже.
Кстати может кто нибудь напишет статью, как делать менеджер ресурсов? И как лучше "строить код"..

[H@NON]

Вот вам мой менеджер, пользуюсь регулярно.

;====================================================================
; Project: Resource Manager 
; Version: 2.0
; Author: H@non
; Email: [email protected]
; Description:    менеджер ресурсов, следит за хранением их в системе,
;                   дает доступ по управлению, удобен при использовании
;                   локаций в игре.
;====================================================================


;-- тип для ресурсов
Type TResource
    Field path$
    Field ent
    Field tip
End Type
Const RES_MESH=1, RES_AMESH=2, RES_SND=3, RES_TEX=4, RES_SPR=5, RES_SND3D=6

;-- временный тип для удаления лишних ресурсов
;-- (удобен при переходе между локациями с одинаковыми ресурсами)
Type TResDel
    Field r.TResource
End Type


;-- Функция загружает указанный ресурс, либо если ресурс
;-- уже был загружен возвращает ссылку на него.
;Параметры: путь, тип, родитель, текстурные флаги
Function ResLoad(path$, tip, parent=0, texFlag=1)
    Local rf.TResource = Object.TResource(ResFind(path$))
    If rf <> Null Then Return rf\ent

    Local r.TResource = New TResource
    r\tip = tip
    r\path$ = Lower(path)
    Select r\tip
        Case RES_MESH
            r\ent = LoadMesh(path,parent)
            HideEntity r\ent
        Case RES_AMESH
            r\ent = LoadAnimMesh(path,parent)
            HideEntity r\ent
        Case RES_SPR
            r\ent = LoadSprite(path,texFlag,parent)
            HideEntity r\ent
        Case RES_SND
            r\ent = LoadSound(path)
        Case RES_TEX
            r\ent = LoadTexture(path,texFlag)
    End Select
    
    Return r\ent
End Function


;-- Дополнительная функция, работает также как ResLoad
;-- если ресурс повторяется, то заносим его в тип хранения
;Параметры: путь, тип, родитель, текстурные флаги
Function ResLoadPlus(path$, tip, parent=0, texFlag=1)
    Local rf.TResource = Object.TResource(ResFind(path$))
    If rf <> Null Then
        Local rd.TResDel = New TResDel
        rd\r.TResource = rf.TResource
        Return rf\ent
    EndIf
    
    Local r.TResource = New TResource
    r\tip = tip
    r\path$ = Lower(path)
    Select r\tip
        Case RES_MESH
            r\ent = LoadMesh(path,parent)
            HideEntity r\ent
        Case RES_AMESH
            r\ent = LoadAnimMesh(path,parent)
            HideEntity r\ent
        Case RES_SPR
            r\ent = LoadSprite(path,texFlag,parent)
            HideEntity r\ent
        Case RES_SND
            r\ent = LoadSound(path)
        Case RES_TEX
            r\ent = LoadTexture(path,texFlag)
    End Select
    
    Return r\ent
End Function

;-- Функция удаляет лишние ресурсы, которые
;-- не были помещены в тип хранения.
Function ResDeletePlus()
    Local r.TResource, rd.TResDel
    Local result%
    For r.TResource = Each TResource
        For rd.TResDel = Each TResDel
            If r = rd Then
                result = True
                Exit
            EndIf
        Next
        If result = False Then
            Select r\tip
                Case RES_MESH, RES_AMESH, RES_SPR
                    FreeEntity r\ent
                Case RES_SND, RES_SND3D
                    FreeSound r\ent
                Case RES_TEX
                    FreeTexture r\ent
            End Select
            Delete r
        EndIf
    Next
    
    Delete Each TResDel
End Function

;-- Функция ищет ресурс в списке и возвращает хендл на тип
;Параметры: путь_до_ресурса
Function ResFind(path$)
    Local r.TResource
    For r.TResource = Each TResource
        If r\path = path Then
            Return Handle(r)
        EndIf
    Next
    Return 0
End Function

;-- Функция удаляет указанный ресурс из системы
;Параметры: путь_до_ресурса
Function ResDelete(path$)
    Local r.TResource
    For r.TResource = Each TResource
        If path = r\path Then
            Select r\tip
                Case RES_MESH, RES_AMESH, RES_SPR
                    FreeEntity r\ent
                Case RES_SND, RES_SND3D
                    FreeSound r\ent
                Case RES_TEX
                    FreeTexture r\ent
            End Select
            Delete r
            Return True
        EndIf
    Next
    Return False
End Function

;-- Функция удаляет все ресурсы из системы
Function ResDeleteAll()
    Local r.TResource
    For r.TResource = Each TResource
        Select r\tip
            Case RES_MESH, RES_AMESH, RES_SPR
                FreeEntity r\ent
            Case RES_SND, RES_SND3D
                FreeSound r\ent
            Case RES_TEX
                FreeTexture r\ent
        End Select
        Delete r
    Next
    
    Delete Each TResDel
End Function

Использовать так :

Type Object
    Field ent
End Type

Function AddObject()
    local o.object = New Object
    o\ent = CopyEntity(ResLoad("mesh.b3d", RES_MESH))
End Function

[SBJoker]

ЕМНИП блитз и так негрузит один файл дважды, а просто возвращает хэндл.
Но могу ошибатьсо давно дело было

[H@NON]

Все он грузит) ты ошибаешься)