Problem with Entity Pick

Blitz3D Forums/Blitz3D Programming/Problem with Entity Pick

Guy Fawkes

(Posted 2011) [#1]

Hi all, can someone please take a look through my code and tell me how to fix this glitch that sometimes happens when my player is close enough to talk to a character?

This video is a download from my website.

It is a video of the glitch.

http://imageposeidon.com/EntityPickGlitch.mpg
Here is the ENTIRE main loop, which should be MORE than enough to figure out whats going on here.

Code:

While Not xit = 1

;yrotate# = yrotate# + 1
;RotateEntity cube,0,yrotate#,0
;RotateEntity cube2,0,yrotate#,0

;If yrotate# < -360 Then yrotate# = 0
;If yrotate# > 360 Then yrotate# = 0

pointing = 0

For e.entity = Each entity

;lp = LinePick(0, 0, EntityZ(p\entity), 0, 0, EntityZ(e\mesh))

lp = EntityPick(p\entity, maxtalkdist#)

;Stops glitch
If lp<>0 And lp = 0 Then lp = 0

If EntityDistance(p\entity, e\mesh) <= maxtalkdist#

If lp

pointing = 1

Else

If EntityDistance(p\entity, e\mesh) > maxrotationdist#

pointing = 0

EndIf

EndIf

If pointing = 1 Then PointEntity e\mesh, p\entity
If pointing = 0 Then RotateEntity e\mesh, 0, 0, 0

EndIf

Next

If lp=0 And pointing Then pointing = 0

	Repeat
		elapsed=MilliSecs()-time
	Until elapsed

	;how many 'frames' have elapsed	
	ticks=elapsed/period
	
	;fractional remainder
	tween#=Float(elapsed Mod period)/Float(period)
	
	For k=1 To ticks
		time=time+period
		If k=ticks Then CaptureWorld


	; only allow moving if the status is 0, no window open.
	If rc_para\status = 0 Then
	If KeyDown(200) Then  
	MoveEntity p\entity,0,0,.2 
    End If
	If KeyDown(208) Then  
	MoveEntity p\entity,0,0,-.2 
    End If
 
If KeyDown(203) TurnEntity p\entity,0,1,0 
If KeyDown(205) TurnEntity p\entity,0,-1,0 


		If KeyHit(1) And rc_para\status = 0 Then pause()
	End If

	SuperCam(camera,p\entity,.025,8,3,0,0) 
	
	update_paragraph()

	UpdateWorld

	RenderWorld tween
	
	For e.entity = Each entity
	
	If EntityDistance(p\entity, e\mesh) <= maxtalkdist# Then
	Color 255, 255, 255
	
	Text GraphicsWidth()/2, GraphicsHeight()/2+20, "EntityYaw(e\mesh):"+EntityYaw(e\mesh), 1, 1
	
	EndIf
	
	Next
		
	Next
	
	Text GraphicsWidth()/2, GraphicsHeight()/2+40, "pointing:"+pointing, 1, 1
	Text GraphicsWidth()/2, GraphicsHeight()/2+60, "lp"+lp, 1, 1
		
	Flip
	
Wend

Thanks ALOT! :)

Ross C

(Posted 2011) [#2]

I have no idea with this. There's no code to run. Looks like there is a problem with a flag variable you have, switching between modes maybe. It could be to do with your tweening code. I never use tweening code, so I don't know much about that.

Guy Fawkes

(Posted 2011) [#3]

I see. Well I sent you the code in your email :)

Ross C

(Posted 2011) [#4]

Hmmm, ok. Well i don't have that problem when running your code at all. Everything seems smooth and there's no jerking like in your movie.

I don't understand this line:

;Stops glitch
If lp<>0 And lp = 0 Then lp = 0

if lp is NOT EQUAL to 0 then lp cannot every = 0, so that line will never run.

Guy Fawkes

(Posted 2011) [#5]

thats because i had to get it in the exact right position to show the glitch

Ross C

(Posted 2011) [#6]

I can't see the glitch happening...

Guy Fawkes

(Posted 2011) [#7]

its REALLY hard to do

Ross C

(Posted 2011) [#8]

I'll try again later then. I'm coding my textbox adventure. So, i'll have a fiddle about and see if I can trigger it.

Guy Fawkes

(Posted 2011) [#9]

thanks ross! :)

Also, check in your general post ^^