My leveleditor thread

Blitz3D Forums/Blitz3D Beginners Area/My leveleditor thread

Guy Fawkes

(Posted 2012) [#1]

Hi all. I've decided to make a level editor thread for ALL my questions.

Ok, so I'm having a problem with my Import_File() function now... ><

When I try to import an object, it does NOT save the import object to the level.dat. it only saves the 20 created objects...

Also, when I try to import, after importing, for SOME reason, i CANNOT move my camera without first holding ctrl and pressing s, which saves level.dat...

Controls:

Hold Ctrl + S to save (u wont get any confirmation, it will just not crash, which means it works)

Hold Ctrl + I to Import an object (B3D ONLY for now)

Hold Ctrl + O to Open the level .dat file

Hold W\A\S\D OR the arrowkeys to move / turn around

Here's the code:

Functions.bb:

Function ReqFile$(Mode,Title$,Dir$,Filter$,Flag=$1000)
Win=SystemProperty("AppHWND")
HInst=SystemProperty("AppHInstance")
;Fix blank strings!
If Filter$="" Then Filter$="All Files (*.*)"+Chr(0)+"*.*"+Chr(0)
If Dir$="" Then Dir$=""
If Title$="" Then Title$=""
;Null End the Stings
Dir$=Dir$+Chr(0)
Title$=Title$+Chr(0)
Filter$=Filter$+Chr(0)
FltBnk=Str2Bank(Filter$)
FlBnk=Str2Bank(String(" ",254)+Chr(0))
TlBnk=Str2Bank(String(" ",254)+Chr(0))
TBnk=Str2Bank(Title$)
DirBnk=Str2Bank(Dir$)
Tmp=Str2Bank(Chr(0))
;Fill In Bank
B=CreateBank(76)
PokeInt B,0,76							;Bank Size
PokeInt B,4,Win							;Window
PokeInt B,8,HInst						;HInstance (Not Needed)
PokeInt B,12,CoreAddress(FltBnk)	;Core Add. to Filter StringBank
PokeInt B,16,0							;Custome Filter (Use 0)
PokeInt B,20,0							;Custome Custome Filter (Use 0)
PokeInt B,24,0							;Filter Index (Use 0)
PokeInt B,28,CoreAddress(FlBnk)		;Core Address of the File Bank String
PokeInt B,32,255						;Max Files String Size?
PokeInt B,36,CoreAddress(TlBnk)		;File Title
PokeInt B,40,255						;Max File Title Size?
PokeInt B,44,CoreAddress(DirBnk)	;Core Address of Dir String Bank
PokeInt B,48,CoreAddress(TBnk)		;Title Bank String for the window
PokeInt B,52,Flag						;Flags Needed!
PokeShort B,56,0						;File Offset
PokeShort B,58,0						;File Extenstion
PokeInt B,60,0							;DefExt?
PokeInt B,64,0							;CustDat?
PokeInt B,68,0							;Hook?
PokeInt B,72,CoreAddress(Tmp)		;Template Data
;Execute
Select Mode
	Case 1:T=api_GetSaveFileName(B)
	Case 2:T=api_GetOpenFileName(B)
End Select
;Determine, Free, and Return
If T=1
	Re$=Bank2Str$(FlBnk)
	Re$=Replace(Re$,Chr(0)," ")
EndIf
FreeBank(FltBnk)
FreeBank(FlBnk)
FreeBank(TlBnk)
FreeBank(DirBnk)
FreeBank(TBnk)
FreeBank(Tmp)
If T=0 Then Return ""
Return Re$
End Function

Function CoreAddress(Bnk)
B=CreateBank(4)
api_RtlMoveMemory(B,Bnk+4,4)
Re=PeekInt(B,0)
FreeBank(B)
Return Re
End Function

Function Str2Bank(St$)
Sz=Len(St$)+1
Re=CreateBank(Sz)
For A=1 To Sz
C=Asc(Mid(St$,A,1))
PokeByte(Re,A-1,C)
Next
Return Re
End Function

Function Bank2Str$(B)
Sz=BankSize(B)-1
For A=1 To Sz
C$=Chr(PeekByte(B,A-1))
Re$=Re$+C$
Next
Return Re$
End Function

;Flags
OFN_ALLOWMULTISELECT=$200
OFN_CREATEPROMPT=$2000
OFN_DONTADDTORECENT=$2000000
OFN_ENABLEINCLUDENOTIFY=$400000
OFN_ENABLESIZING=$800000
OFN_ENABLETEMPLATE=$40
OFN_ENABLETEMPLATEHANDLE=80
OFN_EXPLORER=$80000
OFN_EXTENSIONDIFFERENT=$400
OFN_FILEMUSTEXIST=$1000
OFN_FORCESHOWHIDDEN=$10000000
OFN_HIDEREADONLY=$4
OFN_LONGNAMES=$200000
OFN_NOCHANGEDIR=$8
OFN_NODEREFERENCELINKS=$100000
OFN_NOLONGNAMES=$40000
OFN_NONETWORKBUTTON=$20000
OFN_NOREADONLYRETURN=$8000
OFN_NOTESTFILECREATE=$10000
OFN_NOVALIDDATE=$100
OFN_OVERWRITEPROMPT=$2
OFN_READONLY=$1
OFN_SHAREAWARE=$4000
OFN_SHOWHELP=$10

Editor.bb:

Graphics3D 800,600,0,2

Type Obj

Field objcount
Field mesh
Field FName$

Field XPosition#
Field YPosition#
Field ZPosition#

Field XRotation#
Field YRotation#
Field ZRotation#

Field XScale#
Field YScale#
Field ZScale#

Field R%
Field G%
Field B%
Field A%

Field Shine#
Field FX%

End Type


Include "Functions.bb"


Global cam% = CreateCamera()
PositionEntity cam%,0,1,0
CameraRange cam%,.1,50000

AmbientLight 255,255,255

Global sky=CreateCube()
EntityColor sky,102,102,255
ScaleEntity sky,10000,10000,10000
FlipMesh sky

Global land=CreatePlane()
EntityColor land,0,64,0

Global totalobjcount

For x = 1 To 20

c.obj = New obj

c\objcount=c\objcount+x

totalobjcount = c\objcount

c\mesh = CreateCube()
PositionEntity c\mesh,Rnd(5,50),1,Rnd(20,75)
ScaleEntity c\mesh,Rnd(0.5,1.0),Rnd(0.5,1.0),Rnd(0.5,1.0)
EntityColor c\mesh, Rnd(0,255),Rnd(0,255),Rnd(0,255)
EntityAlpha c\mesh,Rnd(0.5,1.0)
RotateEntity c\mesh,0,Rnd(0,180),0
EntityShininess c\mesh,Rnd(0.5,1.0)

Next

While Not KeyHit(1)

PositionEntity sky,EntityX#(cam,True),EntityY#(cam,True),EntityZ#(cam,True)

If KeyDown(29) Or KeyDown(157)

	If KeyHit(31)<>0
	
		For c.obj = Each obj
			
			Save_File("meshes\level.dat",Handle(c))
			
		Next
		
	EndIf
	
	If KeyHit(23)<>0
		
			Import_File()
			
	EndIf
	
	If KeyHit(24)<>0
	
			Load_File("meshes\level.dat")
			
	EndIf
	
Else

	MoveEntity cam%,0,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*0.1
	TurnEntity cam%,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*1.0,0
	
EndIf


UpdateWorld()
RenderWorld()

Text GraphicsWidth()/2,GraphicsHeight()/2,"objcount:"+totalobjcount,1,1

Flip

Wend

End

Function Load_File(Fl$)

For c.obj = Each obj

	FI=ReadFile(Fl$)
	
	c\XPosition# = ReadLine(FI)
	c\YPosition# = ReadLine(FI)
	c\ZPosition# = ReadLine(FI)
	
	c\XRotation# = ReadLine(FI)
	c\YRotation# = ReadLine(FI)
	c\ZRotation# = ReadLine(FI)

	c\XScale# = ReadLine(FI)
	c\YScale# = ReadLine(FI)
	c\ZScale# = ReadLine(FI)
	
	c\R% = ReadLine(FI)
	c\G% = ReadLine(FI)
	c\B% = ReadLine(FI)
	c\A# = ReadLine(FI)
	
	c\Shine# = ReadLine(FI)
	c\FX% = ReadLine(FI)
	
	If c\mesh<>0 Then
	
		PositionEntity c\mesh,c\XPosition#,c\YPosition#,c\ZPosition#
		RotateEntity c\mesh,c\XRotation,c\YRotation#,c\ZRotation#
		ScaleEntity c\mesh,c\XScale#,c\YScale#,c\ZScale#
		EntityColor c\mesh,c\R%,c\G%,c\B%
		EntityShininess c\mesh,c\Shine#
		RotateEntity c\mesh,0,Rnd(0,180),0
		EntityFX c\mesh,c\FX%
		
	EndIf

Next

	CloseFile FI

	Return Handle(C)

End Function

Function Save_File(f$,ID)

	C.Obj=Object.Obj(ID)
	savefile = WriteFile(f$)

	;Load info here	
	WriteLine(savefile, c\objcount)

	For c.obj = Each obj
	
		If c\mesh<>0
	 				
			c\XPosition# = EntityX#(c\mesh,True)
			c\YPosition# = EntityY#(c\mesh,True)
			c\ZPosition# = EntityZ#(c\mesh,True)
			
			c\XRotation# = EntityPitch#(c\mesh,True)
			c\YRotation# = EntityYaw#(c\mesh,True)
			c\ZRotation# = EntityRoll#(c\mesh,True)
		
			c\XScale# = BP_GetEntityScaleX#(c\mesh)
			c\YScale# = BP_GetEntityScaleY#(c\mesh)
			c\ZScale# = BP_GetEntityScaleZ#(c\mesh)
			
			c\R% = BP_GetEntityColorR%(c\mesh)
			c\G% = BP_GetEntityColorG%(c\mesh)
			c\B% = BP_GetEntityColorB%(c\mesh)
		
			c\A# = BP_GetEntityAlpha#(c\mesh)
			c\Shine# = BP_GetEntityShine#(c\mesh)
			c\FX% = BP_GetEntityFX%(c\mesh)
					
			WriteLine(savefile, c\XPosition#)
			WriteLine(savefile, c\YPosition#)
			WriteLine(savefile, c\ZPosition#)
		
			WriteLine(savefile, c\XRotation#)
			WriteLine(savefile, c\YRotation#)
			WriteLine(savefile, c\ZRotation#)
			
			WriteLine(savefile, c\XScale#)
			WriteLine(savefile, c\YScale#)
			WriteLine(savefile, c\ZScale#)
			
			WriteLine(savefile, c\R%)
			WriteLine(savefile, c\G%)
			WriteLine(savefile, c\B%)
		
			WriteLine(savefile, c\A#)
			WriteLine(savefile, c\Shine#)
			WriteLine(savefile, c\FX%)
		
		EndIf
	
	Next
		
	CloseFile savefile

End Function

Function Import_File()
	
	c.obj = New obj	;Create a new 'Obj' type, call it c

	filter$ = "All Files *.*"+Chr$(0)+"*.*"+Chr$(0)+".b3d"+Chr$(0)+"*.b3d"+Chr$(0) ;get the correct file extensions for the open dialog

	importfile$ = ReqFile$(2,"Import File...","models\",filter$,$1000) ;call the open file dialog
	
		If importfile$<>"" Then c\objcount=c\objcount+1 ;IF the file name of the "imported" file is NOT equal to 0 then allow mesh import
		
	totalobjcount=totalobjcount+c\objcount ;Add the total # of CURRENT objects onto the total NUMBER of objects
	
	fdir$  = getdirectory$(importfile$) ;Get the file directory of the imported file
	
	c\fname$ = getfilename$(importfile$) ;Get the file name of the imported file
	
	fext$  = getextension$(importfile$) ;Get the file extension of the imported file

	c\mesh = LoadAnimMesh(importfile$) ;load an object from the meshes\ folder, and call it mesh
	
		If c\mesh<>0 ;Keep the below line(s) from crashing
		
			ScaleMesh c\mesh,.5,.5,.5 ;Set the mesh's size to half of what the original size is
			
		EndIf ;End If

End Function

Function getfilename$(filename$) ; Returns the filename and extension
	lastdir = 1
	For i=1 To Len(filename$)
		If Mid$(filename$,i,1) = "\" Then Lastdir = i
	Next
	If Lastdir > 1 Then Lastdir = Lastdir + 1
	For i=Lastdir To Len(filename$)
		a$ = a$ + Mid(filename$,i,1)
	Next
	Return a$
End Function



Function getextension$(filename$) ; Returns the extension plus the .
	lastdir = 1
	For i=1 To Len(filename$)
		If Mid$(filename$,i,1) = "." Then Lastdir = i
	Next
	If Lastdir > 1 Then Lastdir = Lastdir + 1
	For i=Lastdir To Len(filename$)
		a$ = a$ + Mid(filename$,i,1)
	Next
	Return "."+a$
End Function



Function getdirectory$(filename$) ; Returns the complete directory including drive
	lastdir = 1
	For i=1 To Len(filename$)
		If Mid$(filename$,i,1) = "\" Then Lastdir = i
	Next
	For i=1 To Lastdir
		a$ = a$ + Mid(filename$,i,1)
	Next
	Return a$
End Function

Any help is greatly appreciated! :)

Thanks! :)

Last edited 2012

Rob the Great

(Posted 2012) [#2]

When I try to import an object, it does NOT save the import object to the level.dat. it only saves the 20 created objects...

I'm going to look over the code now, but I'm sure the reason why is that you are not creating a new object when you import a .b3d file. Remember, you have to call "c.Obj = New Obj" every time you create any new object. If you fail to do so, the new entity will not be added to the list of things to save.

EDIT:
From what I can see, it should be working, but it's hard to debug because I don't have all of the include files and I can't get the program to run. First, are you able to load the .b3d file successfully?

Last edited 2012

Guy Fawkes

(Posted 2012) [#3]

O CRAP! MY BAD! I was supposed to take that out... >< Let me fix that

EDIT: Edited. Try it now :)

Last edited 2012

Rob the Great

(Posted 2012) [#4]

Still the same problem, but don't worry about it. I've just been manually providing the file name for the animated .b3d file, so I can actually get the program to run.

Umm....I can get the model to import and save properly. At least, I can get the imported model to save according to what you have typed in, but in order to load the saved file, you're ultimately going to have to save a lot more information. You're either going to have to save the file location in the save file and then tell Blitz to load the animated mesh upon opening the file, or you're going to have to come up with your own routine to save each vertex, surface, entity, mesh, ect.

Guy Fawkes

(Posted 2012) [#5]

its the same problem, because u forgot to create the includes file "Functions.bb". read the post again plz. i already have a b3d mesh export function that works fine... the problem is its not saving the imported file data to the level.dat like it is for the created objects.

Last edited 2012

Guy Fawkes

(Posted 2012) [#6]

Nevermind the above. I got that fixed... Ok... Now... The PROBLEM is, when I go to save more than once, then try to open the level file a second or third time, NOT the 1st time, it deletes all objects on the screen like it should, but does NOT replace them with their saved mesh objects... That is because for SOME REASON, it does not RESAVE the mesh .b3d files... it deletes them. it should ONLY delete the FILES when u SAVE ur level, and the OBJECTS in-game, everytime u LOAD ur level. instead, it only saves each object file once. after u save once, the objects are no more until u reset the program... when u try to open more than once, i THINK there are copies of copies being loaded here, because the program seems to slow down when i try to load a level file more than once...

::CONTROLS::
Hold Ctrl+S to Save Level
Hold Ctrl+O to Open Level
Hold Ctrl+I to Import mesh (CAN be animated)
=============================================
W/A/S/D OR Arrowkeys - Move/Turn camera
::::::::::::::::

Here's the code:

SO.bb:

Function ReqFile$(Mode,Title$,Dir$,Filter$,Flag=$1000)
Win=SystemProperty("AppHWND")
HInst=SystemProperty("AppHInstance")
;Fix blank strings!
If Filter$="" Then Filter$="All Files (*.*)"+Chr(0)+"*.*"+Chr(0)
If Dir$="" Then Dir$=""
If Title$="" Then Title$=""
;Null End the Stings
Dir$=Dir$+Chr(0)
Title$=Title$+Chr(0)
Filter$=Filter$+Chr(0)
FltBnk=Str2Bank(Filter$)
FlBnk=Str2Bank(String(" ",254)+Chr(0))
TlBnk=Str2Bank(String(" ",254)+Chr(0))
TBnk=Str2Bank(Title$)
DirBnk=Str2Bank(Dir$)
Tmp=Str2Bank(Chr(0))
;Fill In Bank
B=CreateBank(76)
PokeInt B,0,76							;Bank Size
PokeInt B,4,Win							;Window
PokeInt B,8,HInst						;HInstance (Not Needed)
PokeInt B,12,CoreAddress(FltBnk)	;Core Add. to Filter StringBank
PokeInt B,16,0							;Custome Filter (Use 0)
PokeInt B,20,0							;Custome Custome Filter (Use 0)
PokeInt B,24,0							;Filter Index (Use 0)
PokeInt B,28,CoreAddress(FlBnk)		;Core Address of the File Bank String
PokeInt B,32,255						;Max Files String Size?
PokeInt B,36,CoreAddress(TlBnk)		;File Title
PokeInt B,40,255						;Max File Title Size?
PokeInt B,44,CoreAddress(DirBnk)	;Core Address of Dir String Bank
PokeInt B,48,CoreAddress(TBnk)		;Title Bank String for the window
PokeInt B,52,Flag						;Flags Needed!
PokeShort B,56,0						;File Offset
PokeShort B,58,0						;File Extenstion
PokeInt B,60,0							;DefExt?
PokeInt B,64,0							;CustDat?
PokeInt B,68,0							;Hook?
PokeInt B,72,CoreAddress(Tmp)		;Template Data
;Execute
Select Mode
	Case 1:T=api_GetSaveFileName(B)
	Case 2:T=api_GetOpenFileName(B)
End Select
;Determine, Free, and Return
If T=1
	Re$=Bank2Str$(FlBnk)
	Re$=Replace(Re$,Chr(0)," ")
EndIf
FreeBank(FltBnk)
FreeBank(FlBnk)
FreeBank(TlBnk)
FreeBank(DirBnk)
FreeBank(TBnk)
FreeBank(Tmp)
If T=0 Then Return ""
Return Re$
End Function

Function CoreAddress(Bnk)
B=CreateBank(4)
api_RtlMoveMemory(B,Bnk+4,4)
Re=PeekInt(B,0)
FreeBank(B)
Return Re
End Function

Function Str2Bank(St$)
Sz=Len(St$)+1
Re=CreateBank(Sz)
For A=1 To Sz
C=Asc(Mid(St$,A,1))
PokeByte(Re,A-1,C)
Next
Return Re
End Function

Function Bank2Str$(B)
Sz=BankSize(B)-1
For A=1 To Sz
C$=Chr(PeekByte(B,A-1))
Re$=Re$+C$
Next
Return Re$
End Function

;Flags
OFN_ALLOWMULTISELECT=$200
OFN_CREATEPROMPT=$2000
OFN_DONTADDTORECENT=$2000000
OFN_ENABLEINCLUDENOTIFY=$400000
OFN_ENABLESIZING=$800000
OFN_ENABLETEMPLATE=$40
OFN_ENABLETEMPLATEHANDLE=80
OFN_EXPLORER=$80000
OFN_EXTENSIONDIFFERENT=$400
OFN_FILEMUSTEXIST=$1000
OFN_FORCESHOWHIDDEN=$10000000
OFN_HIDEREADONLY=$4
OFN_LONGNAMES=$200000
OFN_NOCHANGEDIR=$8
OFN_NODEREFERENCELINKS=$100000
OFN_NOLONGNAMES=$40000
OFN_NONETWORKBUTTON=$20000
OFN_NOREADONLYRETURN=$8000
OFN_NOTESTFILECREATE=$10000
OFN_NOVALIDDATE=$100
OFN_OVERWRITEPROMPT=$2
OFN_READONLY=$1
OFN_SHAREAWARE=$4000
OFN_SHOWHELP=$10

b3dfile.bb:

;
;b3d file utils to be included
;

Dim b3d_stack(100)
Global b3d_file,b3d_tos
Global br$ = Chr$(13)+Chr$(10)

Function b3dSetFile( file )
	b3d_tos=0
	b3d_file=file
End Function

;***** functions for reading from B3D files *****

Function b3dReadByte()
	Return ReadByte( b3d_file )
End Function

Function b3dReadInt()
	Return ReadInt( b3d_file )
End Function

Function b3dReadFloat#()
	Return ReadFloat( b3d_file )
End Function

Function b3dReadString$()
	Repeat
		ch=b3dReadByte()
		If ch=0 Return t$
		t$=t$+Chr$(ch)
	Forever
End Function

Function b3dReadChunk$()
	For k=1 To 4
		tag$=tag$+Chr$(b3dReadByte())
	Next
	sz=ReadInt( b3d_file )
	b3d_tos=b3d_tos+1
	b3d_stack(b3d_tos)=FilePos( b3d_file )+sz
	Return tag$
End Function

Function b3dExitChunk()
	SeekFile b3d_file,b3d_stack(b3d_tos)
	b3d_tos=b3d_tos-1
End Function

Function b3dChunkSize()
	Return b3d_stack(b3d_tos)-FilePos( b3d_file )
End Function

;***** Functions for writing to B3D files *****

Function b3dWriteByte( n )
	WriteByte( b3d_file,n )
End Function

Function b3dWriteInt( n )
	WriteInt( b3d_file,n )
End Function

Function b3dWriteFloat( n# )
	WriteFloat( b3d_file,n )
End Function

Function b3dWriteString( t$ )
	For k=1 To Len( t$ )
		ch=Asc(Mid$(t$,k,1))
		b3dWriteByte(ch)
		If ch=0 Return
	Next
	b3dWriteByte( 0 )
End Function

Function b3dBeginChunk( tag$ )
	b3d_tos=b3d_tos+1
	For k=1 To 4
		b3dWriteByte(Asc(Mid$( tag$,k,1 )))
	Next
	b3dWriteInt( 0 )
	b3d_stack(b3d_tos)=FilePos( b3d_file )
End Function

Function b3dEndChunk()
	n=FilePos( b3d_file )
	SeekFile b3d_file,b3d_stack(b3d_tos)-4
	b3dWriteInt( n-b3d_stack(b3d_tos) )
	SeekFile b3d_file,n
	b3d_tos=b3d_tos-1
End Function

LevelEditor.bb:

Graphics3D 800,600,0,2
SetBuffer BackBuffer()

SeedRnd(MilliSecs())

Type Obj

Field objcount
Field mesh
Field FName$

Field XPosition#
Field YPosition#
Field ZPosition#

Field XRotation#
Field YRotation#
Field ZRotation#

Field XScale#
Field YScale#
Field ZScale#

Field R%
Field G%
Field B%
Field A%

Field collision_type
Field Shine#
Field FX%

End Type

Include "SO.bb"
Include "b3dfile.bb"

Global cam% = CreateCamera()
PositionEntity cam%,0,1,0
CameraRange cam%,.1,50000

AmbientLight 255,255,255

Global sky=CreateCube()
EntityColor sky,102,102,255
ScaleEntity sky,10000,10000,10000
FlipMesh sky

Global land=CreatePlane()
EntityColor land,0,64,0

Global totalobjcount

Global c_surfs

For x = 1 To 20

c.obj = New obj

c\objcount=c\objcount+x

totalobjcount = c\objcount

c\mesh = CreateCube()
PositionEntity c\mesh,Rnd(5,50),1,Rnd(20,75)
ScaleEntity c\mesh,Rnd(0.5,1.0),Rnd(0.5,1.0),Rnd(0.5,1.0)
EntityColor c\mesh, Rnd(0,255),Rnd(0,255),Rnd(0,255)
EntityAlpha c\mesh,Rnd(0.5,1.0)
RotateEntity c\mesh,0,Rnd(0,180),0
EntityShininess c\mesh,Rnd(0.5,1.0)

c_surfs = CountSurfaces(c\mesh)

Next

Dim c_surf(c_surfs)
Dim c_brush(c_surfs)
Dim c_tex(c_surfs)
Dim c_tex_name$(c_surfs)

While Not KeyHit(1)

PositionEntity sky,EntityX#(cam,True),EntityY#(cam,True),EntityZ#(cam,True)

If KeyDown(29) Or KeyDown(157)

	If KeyHit(31)<>0
			
			Save_File("meshes\level.dat")
		
	EndIf
	
	If KeyHit(23)<>0
		
			Import_File()
			
	EndIf
	
	If KeyHit(24)<>0
	
			Load_File("meshes\level.dat")
					
	EndIf

FlushKeys()
	
Else
	
	FlushKeys()
	
	MoveEntity cam%,0,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*0.1
	TurnEntity cam%,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*1.0,0
	
EndIf

FlushKeys()

UpdateWorld()
RenderWorld()

Text GraphicsWidth()/2,GraphicsHeight()/2,"objcount:"+CountObjs(),1,1

Text GraphicsWidth()/2,GraphicsHeight()/2+25,CurrentDir(),1,1

Flip

Wend

End

Function Load_File(Fl$)

For c.obj = Each obj

	FreeEntity(c\mesh)
	
Next

	Delete Each Obj

	FI=ReadFile(Fl$)
	
	No=ReadLine(FI)
	
	For A=1 To No
	
	File$ = ReadLine(FI)
	
	c.obj = New obj
	
	c\mesh = LoadAnimMesh(File$)
	
	c\XPosition# = ReadLine(FI)
	c\YPosition# = ReadLine(FI)
	c\ZPosition# = ReadLine(FI)
	
	c\XRotation# = ReadLine(FI)
	c\YRotation# = ReadLine(FI)
	c\ZRotation# = ReadLine(FI)

	c\XScale# = ReadLine(FI)
	c\YScale# = ReadLine(FI)
	c\ZScale# = ReadLine(FI)
	
	c\R% = ReadLine(FI)
	c\G% = ReadLine(FI)
	c\B% = ReadLine(FI)

	c\A# = ReadLine(FI)

	c\Shine# = ReadLine(FI)
	c\FX% = ReadLine(FI)
	
	If c\mesh<>0
		PositionEntity c\mesh,c\XPosition#,c\YPosition#,c\ZPosition#
		RotateEntity c\mesh,c\XRotation,c\YRotation#,c\ZRotation#
		ScaleEntity c\mesh,c\XScale#,c\YScale#,c\ZScale#
		EntityColor c\mesh,c\R%,c\G%,c\B%
		EntityShininess c\mesh,c\Shine#
		EntityAlpha c\mesh,c\A#
		RotateEntity c\mesh,c\XRotation#,c\YRotation#,c\ZRotation#
		EntityFX c\mesh,c\FX%
	EndIf
	
	If c\mesh=0
			api_MessageBox(0,"Level file not loaded. Please resave your level...","WARNING!",0)
			Exit
	EndIf
	
	Next

	CloseFile FI
	
End Function

Function Save_File(f$)

 savefile = WriteFile(f$)

;Fix
;Creates the save directory
	BombDir(f$+"d")
   CreateDir(f$+"d")
;End Fix

 ;Load info here 

   WriteLine(savefile, CountObjs())
 
 For c.obj = Each obj
        
   c\XPosition# = EntityX#(c\mesh,True)
   c\YPosition# = EntityY#(c\mesh,True)
   c\ZPosition# = EntityZ#(c\mesh,True)
   
   c\XRotation# = EntityPitch#(c\mesh,True)
   c\YRotation# = EntityYaw#(c\mesh,True)
   c\ZRotation# = EntityRoll#(c\mesh,True)
  
   c\XScale# = BP_GetEntityScaleX#(c\mesh)
   c\YScale# = BP_GetEntityScaleY#(c\mesh)
   c\ZScale# = BP_GetEntityScaleZ#(c\mesh)
   
   c\R% = BP_GetEntityColorR%(c\mesh)
   c\G% = BP_GetEntityColorG%(c\mesh)
   c\B% = BP_GetEntityColorB%(c\mesh)
  
   c\A# = BP_GetEntityAlpha#(c\mesh)
   c\Shine# = BP_GetEntityShine#(c\mesh)
   c\FX% = BP_GetEntityFX%(c\mesh)

;;;Fix
;What this does is checks to see if the object already has
;a file name, and if it doesn't it then creates a B3D file of
;the entity. It also copies the file to the new save dir.
   If c\fname$<>""
    CopyFile(c\fname$,F$+"d\"+getfilename$(c\fname$))
	c\fname$=F$+"d\"+getfilename$(c\fname$)
   EndIf
   If c\fname$=""
    c\fname$=F$+"d\"+c\mesh+".b3d"
    WriteBB3D(c\fname$,c\mesh)
   EndIf
	DebugLog(c\fname$)
   WriteLine(savefile, c\fname$)
;;;End Fix   

   WriteLine(savefile, c\XPosition#)
   WriteLine(savefile, c\YPosition#)
   WriteLine(savefile, c\ZPosition#)
  
   WriteLine(savefile, c\XRotation#)
   WriteLine(savefile, c\YRotation#)
   WriteLine(savefile, c\ZRotation#)
   
   WriteLine(savefile, c\XScale#)
   WriteLine(savefile, c\YScale#)
   WriteLine(savefile, c\ZScale#)
   
   WriteLine(savefile, c\R%)
   WriteLine(savefile, c\G%)
   WriteLine(savefile, c\B%)
  
   WriteLine(savefile, c\A#)
   WriteLine(savefile, c\Shine#)
   WriteLine(savefile, c\FX%)
  
 Next

 CloseFile savefile
 
 Text GraphicsWidth()/2,GraphicsHeight()/2+60,"SAVED!",1,1
 Flip


End Function

Function Import_File()
	
	filter$ = "All Files *.*"+Chr$(0)+"*.*"+Chr$(0)+".b3d"+Chr$(0)+"*.b3d"+Chr$(0) ;get the correct file extensions for the open dialog
	
	Drr$=CurrentDir()
	
	importfile$ = ReqFile$(2,"Import File...","models\",filter$,$1000) ;call the open file dialog
	
	ChangeDir(Drr$)
	
	If importfile$="" Then Return
	
	c.obj = New obj	;Create a new 'Obj' type, call it c
	
		;If importfile$<>"" Then c\objcount=c\objcount+1 ;IF the file name of the "imported" file is NOT equal to 0 then allow mesh import
		
		;totalobjcount=totalobjcount+c\objcount ;Add the total # of CURRENT objects onto the total NUMBER of objects
	
	fdir$  = getdirectory$(importfile$) ;Get the file directory of the imported file
	
	c\fname$ = importfile$ ;Get the file name of the imported file
	
	fext$  = getextension$(importfile$) ;Get the file extension of the imported file

	c\mesh = LoadAnimMesh(importfile$) ;load an object from the meshes\ folder, and call it mesh
	
		If c\mesh<>0 ;Keep the below line(s) from crashing
		
			ScaleMesh c\mesh,.5,.5,.5 ;Set the mesh's size to half of what the original size is
			
		EndIf ;End If

End Function

Function getfilename$(filename$) ; Returns the filename and extension
	lastdir = 1
	For i=1 To Len(filename$)
		If Mid$(filename$,i,1) = "\" Then Lastdir = i
	Next
	If Lastdir > 1 Then Lastdir = Lastdir + 1
	For i=Lastdir To Len(filename$)
		a$ = a$ + Mid(filename$,i,1)
	Next
	Return a$
End Function



Function getextension$(filename$) ; Returns the extension plus the .
	lastdir = 1
	For i=1 To Len(filename$)
		If Mid$(filename$,i,1) = "." Then Lastdir = i
	Next
	If Lastdir > 1 Then Lastdir = Lastdir + 1
	For i=Lastdir To Len(filename$)
		a$ = a$ + Mid(filename$,i,1)
	Next
	Return "."+a$
End Function



Function getdirectory$(filename$) ; Returns the complete directory including drive
	lastdir = 1
	For i=1 To Len(filename$)
		If Mid$(filename$,i,1) = "\" Then Lastdir = i
	Next
	For i=1 To Lastdir
		a$ = a$ + Mid(filename$,i,1)
	Next
	Return a$
End Function

Function CountObjs()
For A.Obj = Each Obj
Re=Re+1
Next
Return Re
End Function

Function WriteBB3D( f_name$,mesh )

	file=WriteFile( f_name$ )

	b3dSetFile( file )
	
	b3dBeginChunk( "BB3D" )
		b3dWriteInt( 1 )	;version

		b3dBeginChunk( "TEXS" ) ; list all textures used by the mesh
		For i=1 To c_surfs
			b3dWriteString( c_tex_name$(i) ) 	;texture file
			b3dWriteInt( 1 )					;flags
			b3dWriteInt( 2 )					;blend
			b3dWriteFloat( 0 )					;x in tex 0 (hu?)
			b3dWriteFloat( 0 )					;y in tex 0
			b3dWriteFloat( 1 )					;x scale 1
			b3dWriteFloat( 1 )					;y scale 1
			b3dWriteFloat( 0 )					;rotation 0
			
		Next
		b3dEndChunk()	;end of TEXS chunk

		
		For i=1 To c_surfs
			b3dBeginChunk( "BRUS" ) ; describe all brushes used by the mesh
		
			b3dWriteInt( 1 )					;number of textures per brush ; (eg 2 with lightmap)
			b3dWriteString( "brush"+(i-1) )		;brushname
			b3dWriteFloat( 1 )					;red
			b3dWriteFloat( 1 )					;green
			b3dWriteFloat( 1 )					;blue
			b3dWriteFloat( 1 )					;alpha
			b3dWriteFloat( 0 )					;shininess
			b3dWriteInt( 1 )					;blendmode
			b3dWriteInt( 0 )					;FX
			b3dWriteInt( i-1 )					;used texture index 
;			b3dWriteInt( ? )					;additional texture index (eg lightmap), but here we only use 1 (see above)

			b3dEndChunk()	;end of BRUS chunk
		Next
		
		b3dBeginChunk( "NODE" )
			b3dWriteString( "entity_name_here!" )
			b3dWriteFloat( 0 )	;x_pos
			b3dWriteFloat( 0 )	;y_pos
			b3dWriteFloat( 0 )	;z_pos
			b3dWriteFloat( 1 )	;x_scale
			b3dWriteFloat( 1 )	;y_scale
			b3dWriteFloat( 1 )	;z_scale
			b3dWriteFloat( 1 )	;rot_w
			b3dWriteFloat( 0 )	;rot_x
			b3dWriteFloat( 0 )	;rot_y
			b3dWriteFloat( 0 )	;rot_z
			WriteMESH( mesh )
		b3dEndChunk()	;end of NODE chunk
		
	b3dEndChunk()	;end of BB3D chunk
	
	CloseFile file
End Function

Function WriteMESH( mesh )

	n_surfs=CountSurfaces( mesh )
	
	b3dBeginChunk( "MESH" )
		b3dWriteInt( -1 )				;no 'entity' brush -1
		
		b3dBeginChunk( "VRTS" )
			b3dWriteInt( 0 )			;flags - 0=no normal/color
			b3dWriteInt( 1 )			;number of tex_coord sets (eg: 2 with lightmap)
			b3dWriteInt( 2 )			;coords per set (u,v,w?) 2 with uv, 3 with uvw
			
			For k=1 To n_surfs
				surf=GetSurface( mesh,k )
				n_verts=CountVertices( surf )-1
				
				For j=0 To n_verts
					b3dWriteFloat( VertexX( surf,j ) )
					b3dWriteFloat( VertexY( surf,j ) )
					b3dWriteFloat( VertexZ( surf,j ) )
					b3dWriteFloat( VertexU#( surf,j,0 ) )
					b3dWriteFloat( VertexV#( surf,j,0 ) )
;					b3dWriteFloat( VertexW#( surf,j,0 ) )
;;					b3dWriteFloat( VertexU#( surf,j,1 ) ) ; lightmap uv
;;					b3dWriteFloat( VertexV#( surf,j,1 ) ) ; lightmap uv
;					b3dWriteFloat( VertexW#( surf,j,1 ) )
				Next
			Next
		b3dEndChunk()	;end of VRTS chunk
		
		first_vert=0
		For k=1 To n_surfs
			surf=GetSurface( mesh,k )
			n_tris=CountTriangles( surf )-1
			
			b3dBeginChunk( "TRIS" )
				b3dWriteInt( k-1 )		;brush for these triangles (surf -1 !!!)
				
				For j=0 To n_tris
					b3dWriteInt( first_vert+TriangleVertex( surf,j,0 ) )
					b3dWriteInt( first_vert+TriangleVertex( surf,j,1 ) )
					b3dWriteInt( first_vert+TriangleVertex( surf,j,2 ) )
				Next
				
			b3dEndChunk()	;end of TRIS chunk
			
			first_vert=first_vert+CountVertices( surf )
			
		Next
		
	b3dEndChunk()	;end of MESH chunk
	
End Function



Function Bombdir(Dir$)
D=ReadDir(Dir$)
If D=0 Then Return 0
.NF
NF$=NextFile(D)
If Nf$="." Or NF$=".." Then Goto NF
If NF$="" Then Goto Done
FP$=Dir$+"\"+NF$
DeleteFile(FP$)
Goto NF
.Done
Return
End Function

Any help is GREATLY appreciated! :)

Thanks! :)

Last edited 2012

Guy Fawkes

(Posted 2012) [#7]

.

Last edited 2012