if you want an fps creator style object selector, this has some bugs, but it genrally works but it uses bluegui which isn't free.
Function SelectFPSCEntity()
` Get the FPSC Install Directory...
FPSCPath$ = Get Registry$("SOFTWARE\Dark Basic\FPSCREATOR","INSTALL-PATH")
If FPSCPath$ = "" Then ErrorMessage "FPSCreator is not installed..." : ExitFunction ""
FPSCPath$ = FPSCPath$+"Files\entitybank\"
` Create Window
g1 = CreateWindow((Screen Width()/2)-320,(Screen Height()/2)-240,640,480,"Import FPSC Entity...",WINDOW_FIXED,WINDOW_TOOLWINDOW,1,DBWin)
g2 = CreateTreeView( 0,0,200,440,g1) : ` SetGadgetAlign g2,ALIGN_LEFT
g3 = CreateListView(201,0,420,440,g1) : ` SetGadgetAlign g3,ALIGN_RIGHT
g4 = CreateLabel(10,455,640,15,"Loading Thumbnails...",g1) : SetGadgetAlign g4,ALIGN_BOTTOM
g5 = CreateImageList(64,64)
AddTreeViewFolderList(FPSCPath$,g2,0)
PaintGadget g1
SelectFPSCEntity_NewPath: ` Called when New Dir Selected
If LoadedCount > 0
For i = 0 to LoadedCount
RemoveImageListItem g5,0
RemoveListViewItem g3,0
Next i : EndIf
LoadedCount = 0
` Load Thumbnails (64x64)
SetGadgetText g4,"Loading Thumbnails..."
Set Dir FPSCPath$+FPSCPath2$
Perform Checklist For Files
Count = Checklist Quantity()
For i = 1 to Count : Temp$ = "" : Img$ = ""
If Fast Upper$(Fast Right$(Checklist String$(i),4)) = ".FPE"
Temp$ = Fast Left$(Checklist String$(i),Len(Checklist String$(i))-3)
If File Exist(Temp$+"bmp") = 1 Then Img$ = Temp$+"bmp"
If File Exist(Temp$+"tga") = 1 Then Img$ = Temp$+"tga"
If File Exist(Temp$+"dds") = 1 Then Img$ = Temp$+"dds"
If File Exist(Temp$+"jpg") = 1 Then Img$ = Temp$+"jpg"
If File Exist(Temp$+"dib") = 1 Then Img$ = Temp$+"dib"
If File Exist(Temp$+"png") = 1 Then Img$ = Temp$+"png"
If Img$ <> "" Then Img = LoadAndScaleImage(Img$,64,64) : AddImageListItem g5,Img : Delete Image Img
EndIf : Next i
SetListViewImageList g3,g5
` Add Items.
SetGadgetText g4,"Loading Thumbnails..."
For i = 1 to Count
If Fast Upper$(Fast Right$(Checklist String$(i),4)) = ".FPE"
AddListViewItem g3,Fast Left$(Checklist String$(i),Fast Len(Checklist String$(i))-4),LoadedCount
Inc LoadedCount,1
EndIf : Next i
SetGadgetText g4,Str$(LoadedCount)+" Models Found, (Double Click Thumbnail to Load Object)"
` Update Window
Do : GetEvent
If EventSource() = g2 And EventType() = MOUSE_CLICK : FPSCPath2$ = FPSCEntitySelector_GetFullPath() : Goto SelectFPSCEntity_NewPath : EndIf
If EventSource() = g3 And EventType() = MOUSE_CLICK : If SelectedListViewItem(g3) > -1 : RV$ = GetListViewItemText(g3,SelectedListViewItem(g3),0) : Exit : EndIf : EndIf
If EventSource() = g1 And EventType() = WINDOW_CLOSE : RV$ = "" : Exit : EndIf
Loop
` Load Object
If RV$ <> ""
Fn = Find Free File()
Open To Read Fn,RV$+".fpe"
Repeat s$ = ReadString(Fn)
Until Fast Left$(Fast Upper$(s$),5) = "MODEL" Or File End(Fn) = 1
Close File Fn
Split String s$,"="
File$ = FPSCPath$+FPSCPath2$+Trim$(Get Split Word$(2)) : If File Exist(File$) = 1 : Obj = LoadObject(File$) : EndIf
EndIf
` Load Texture
If RV$ <> ""
Fn = Find Free File()
Open To Read Fn,RV$+".fpe"
Repeat s$ = ReadString(Fn)
Until Fast Left$(Fast Upper$(s$),5) = "TEXTURED" Or File End(Fn) = 1
Close File Fn
Split String s$,"="
TextureObject(Obj,FPSCPath$+FPSCPath2$+Trim$(Get Split Word$(2)))
EndIf
` CleanUp
g1 = DeleteGadget(g1)
EndFunction RV$
Function FPSCEntitySelector_GetFullPath()
GUM = GadgetUnderMouse()
n = SelectedTreeViewItem(GUM)
Path$ = GetTreeViewItemText(GUM,n)+"\"
While GetTreeViewParent(GUM,n) > 0
n = GetTreeViewParent(GUM,n)
Path$ = GetTreeViewItemText(GUM,n)+"\"+Path$
EndWhile
EndFunction Path$
Otherwise, there are free dlls out there to open a file dialog which would be easier to implement.
Everyone Be Cool, You, Be Cool.
