sprite in a type?

Oh heck, I'll just make their legs slightly brighter than black. Thanks for the help though, I've got those functions saved.

Um, how can I camerapick a sprite now? It's not returning anything when I try to.

	If MouseDown(1)
	bset.buttonSet = Last buttonSet
		If MouseDown(2) Or RectsOverlap(MouseX(),MouseY(),1,1,bset\x,bset\y,bset\w,bset\h) Then Goto skipselection
		if show_bigwindow = true
			if RectsOverlap(MouseX(),MouseY(),1,1,200,60,400,340) Then Goto skipselection
		endif			
		
		CameraPick cam,MouseX(),MouseY()
		
		If Not PickedEntity() <> 0 Then Goto skipselection
		
		e.entity = Object.entity(EntityName(PickedEntity()))
		
		select order_give
		
			case move
			
				action = move_settler
				
		end select	
				
		
		selected_Type = e\entityForm
		selected_ID = e\parent_ID
		
		Select selected_Type
		
			Case TradePost
			
				fortPicked = selected_id
				
				boundingbox = pickedentity()
				
				fort.fort = Object.fort(selected_ID)
				
				insert fort.fort after last fort
				
				action = open_fortWindow
				
			case settler
			
				boundingbox = pickedentity()
			
				s.settler = object.settler(selected_id)
				
				insert s.settler after last settler
				
				action = open_settlerwindow
				
		End Select