PLEASE HELP! Drag drop STILL screwed up ><

Blitz3D Forums/Blitz3D Beginners Area/PLEASE HELP! Drag drop STILL screwed up ><

Guy Fawkes

(Posted 2010) [#1]

I finally got it working with types.

Now why can't I click the same model again and it deselects it?

Type mesh
Field model
Field picked
End Type

Global info1$="Pick demo"
Global info2$="Hit A/Z To change camera zoom"

Include "../start.bb"

Global GfxW=GraphicsWidth(); get whatever has been set
Global GfxH=GraphicsHeight()

Global highlight

Global highlighted

;Global light
;Global camera

light=CreateLight()
TurnEntity light,45,45,0

camera=CreateCamera()
CameraRange camera,.1,1000

makescene ()

Global zoom#=1
Global x, y
Global e, oe

While Not KeyHit(1)

b.mesh = New mesh
;b\picked = 0 ; set this to 1 if the sphere gets picked 

If b\picked
If e <> 0
MoveEntity e,0,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*1
TurnEntity e,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*1,0
EndIf
EndIf

e=0
	adjustzoom (camera)
	movecamera (camera)
	selectobj (camera,x,y)
	
	UpdateWorld
	RenderWorld
	
	cursor (x,y)

Text 10,10,"b\picked:"+b\picked
	
	Flip
Wend

Function makescene ()
	sphere=CreateSphere()
	EntityPickMode sphere,1
	
highlight=CreateCube()
EntityColor highlight,255,0,0
EntityAlpha highlight,.5
ScaleEntity highlight,MeshWidth(sphere)*2,MeshHeight(sphere)*2,MeshDepth(sphere)*2
HideEntity highlight
	
	For k=1 To 100
	b.mesh = New mesh
	b\model = CopyEntity(sphere)
		EntityColor b\model,Rnd(255),Rnd(255),Rnd(255)
		EntityShininess b\model,Rnd(1)
		
		rad#=Rnd(1,2)
		EntityRadius b\model,rad
		ScaleEntity b\model,rad,rad,rad
		TurnEntity b\model,Rnd(360),Rnd(360),0
		MoveEntity b\model,0,0,Rnd(20)+20
	Next
	
	FreeEntity b\model
End Function

Function adjustzoom (camera)
	If KeyDown(30) Then zoom=zoom*1.1
	If KeyDown(44) Then zoom=zoom/1.1
	CameraZoom camera,zoom
End Function

Function movecamera (camera, speed=2)
	x=MouseX()
	y=MouseY()
	xedge=GfxW/10	
	yedge=GfxH/10	
	If y<yedge Then TurnEntity camera,-speed,0,0
	If y>GfxH-yedge Then TurnEntity camera,speed,0,0
			
	If x<xedge Then TurnEntity camera,0,speed,0
	If x>GfxW-xedge Then TurnEntity camera,0,-speed,0
End Function

Function selectobj(camera,x,y)
	e=CameraPick(camera,x,y )
	If e
		If e=oe
			EntityAlpha e,.8
		Else
			If oe EntityAlpha oe,1
		EndIf
	Else		; pointing at 'space'
		If oe EntityAlpha oe,1
	EndIf
	oe=e
	
b.mesh = New mesh
	
If MouseHit(1)
b\picked = 1
Else
b\picked = 0
EndIf
If e
If b\picked Then EntityAlpha e,Sin( MilliSecs() )*.3+.4
Else
If e EntityAlpha e,1
EndIf
	
	If b\picked
	If e
	disablecam = 1
	ShowEntity highlight
	PositionEntity highlight,EntityX(e),EntityY(e),EntityZ(e)
	RotateEntity highlight,EntityPitch(e),EntityYaw(e),EntityRoll(e)
	EndIf
	EndIf
End Function

Function cursor (x,y)
	Rect x,y-3,1,7
	Rect x-3,y,7,1	
;	Text x+1, y+1,e	for debug
End Function

Ross C

(Posted 2010) [#2]

please don't double post. you were being helped with this problem in the other thread.

Oiduts Studios

(Posted 2010) [#3]