what am i doing wrong... (restart)

Blitz3D Forums/Blitz3D Beginners Area/what am i doing wrong... (restart)

Braden

(Posted 2009) [#1]

this is the last part to this project and I can't figure out what i'm doing wrong! When I try to make the program restart, It doesn't work, it says that the entity could not be found, but the debugger highlights my entitycollide code... I'm still relativley new to blitz but i didn't think creating a simple restart would be this hard... can anyone check to see what i'm doing wrong? I think the main prolem is in my restart function but i can't figure it out...

Function restart()
FreeEntity camera
FreeEntity light
FreeEntity month
FreeEntity plane
FreeTexture winter
FreeTexture spring
FreeTexture summer
FreeTexture fall
FreeTexture mon_tex
ClearWorld()
EndGraphics 


End Function




 


SeedRnd MilliSecs()
Graphics3D 640,480
SetBuffer BackBuffer()

Type_camera=1
type_month=2
type_room=3


camera=CreateCamera()
PositionEntity camera,0,10,-133
EntityType camera,type_camera
CameraClsColor camera,0,255,255
light=CreateLight()

Dim door(100)
For p=0 To 100
door(p)=LoadMesh("door.3ds")

ScaleEntity door(p),.1,.1,.1
PositionEntity door(p),Rnd(-150,150),6,Rnd(-100,100)

EntityColor door(p),Rnd(0,255),Rnd(0,255),Rnd(0,255)

EntityType door(p), type_month
Next

;plane=CreatePlane()
;PositionEntity plane,0,999,0



;EntityTexture plane,fall ;Rand(spring,winter,fall,summer)
;sky=CreatePlane()
;PositionEntity sky,0,1020,0
;EntityTexture sky,skyt



plane=CreatePlane()
PositionEntity plane,0,999,0
spring=LoadTexture("spring.jpg")
winter=LoadTexture("snow.jpg")
fall=LoadTexture("fall.jpg")
summer=LoadTexture("summer.jpg")
;skyt=LoadTexture("sky.jpg")
ScaleTexture winter,15,15

;ScaleTexture fall,15,15
;ScaleTexture spring,15,15
Select Rand(0,3)
	Case 0 EntityTexture plane, spring
	Case 1 EntityTexture plane, winter
	Case 2 EntityTexture plane, fall
	Case 3 EntityTexture plane, summer
End Select



;rooms
month=CreateCube()
FitMesh month,-250,0,-250,500,500,500
FlipMesh month
mon_tex=LoadTexture("wood//wood01.jpg")
ScaleTexture mon_tex,.5,.5
EntityTexture month,mon_tex
EntityFX month,1
EntityType month,type_room


;array of dates/etc etc
Dim day$(7)
Dim date$(31)
Dim Month1$(12)
Dim year$(11)

day$(1)="Monday"
day$(2)="Tuesday"
day$(3)="Wednesday"
day$(4)="Thursday"
day$(5)="Friday"
day$(6)="Saturday"
day$(7)="Sunday"

Month1$(1)="January"
Month1$(2)="February"
Month1$(3)="March"
Month1$(4)="April"
Month1$(5)="May"
Month1$(6)="June"
Month1$(7)="July"
Month1$(8)="August"
Month1$(9)="September"
Month1$(10)="October"
Month1$(11)="November"
Month1$(12)="December"

year$(1)="2000"
year$(2)="2001"
year$(3)="2002"
year$(4)="2003"
year$(5)="2004"
year$(6)="2005"
year$(7)="2006"
year$(8)="2007"
year$(9)="2008"
year$(10)="2009"
year$(11)="2010"



For d=1 To 31
date(d)=d
Next

new_day$=day(Rand(1,7))
new_date=date(Rand(1,31))
new_month1$=month1(Rand(1,12))
New_year$=year(Rand(1,11))
show_date$=new_day$+" "+New_date+" "+New_month1$+" "+new_year$




fntarial=LoadFont("Arial",54)
small=LoadFont("Arial",1)





SetFont small

;Collisions type_camera,type_room,2,2
Collisions type_camera,type_month,2,2
While Not KeyDown(1)





;If KeyHit(50) Then PositionEntity camera,5,500,5
If KeyDown(208) Then MoveEntity camera,0,0,-1
If KeyDown(200) Then MoveEntity camera,0,0,1
If KeyDown(203) Then MoveEntity camera,-1,0,0
If KeyDown(205) Then MoveEntity camera,1,0,0







;camera code
TurnEntity camera, 0, -MouseXSpeed()/5.0,0,1	;rotate player Pivot according to mouse X movement
;TurnEntity camera, MouseYSpeed()/5.0, 0,0,0

If EntityPitch(camera) < -45					;don't allow camera to look below -45 degrees
 RotateEntity camera, -45, EntityYaw(camera), EntityRoll(camera)
EndIf 
If EntityPitch(camera) > 45					;don't allow camera to look above 45 degrees
 RotateEntity camera, 45, EntityYaw(camera), EntityRoll(camera)
EndIf
MoveMouse GraphicsWidth()/2, GraphicsHeight()/2	;reset mouse position to middle of screen
;------------------------------------------
  
If KeyHit(19) restart

If EntityCollided(camera,type_month)
PositionEntity camera,0,1000,0

SetFont fntarial


EndIf 

RenderWorld


UpdateWorld
;SetFont small
Text 315,100, show_date$,True
;text code
;Text 200,0,EntityX(camera,True)
 ;Text 200,15,EntityY(camera,True)
; Text 200,30,EntityZ(camera,True)



;---------------
Flip
Wend
End

Matty

(Posted 2009) [#2]

In your restart function all the variable names used to store the entity handles are local variables. You either need to store your entity handle variables in global variables, or a type, or pass the 'camera' and other entity handles into the function as a parameter(s).

Oh and if you use clearworld then there is no need to free the entities as it all gets freed by the clearworld. (Note sounds, images, banks are not freed by a clearworld)

Braden

(Posted 2009) [#3]

ok, how would I do that? I experimented with what you said except I still got the same errror code....

Matty

(Posted 2009) [#4]

Just had a closer look at your code:

If KeyHit(19) restart <-- when you get to here you free all the entities - and do not reload them back in again

If EntityCollided(camera,type_month) <-- after restarting it gets to here and the camera no longer exists because you've just freed it
PositionEntity camera,0,1000,0

You really should have the restart called outside your main loop.
A simple way of doing this is as follows (really basic) though NOT the best:

declare all entity, texture etc variables as global.
Call an initialise function to create everything.
Call a main function to do your main game loop.
Call an deinitialise function when out of the main loop such that
you can then go back to the initialise function and start over again.

Braden

(Posted 2009) [#5]

Ok thanks it worked