Question about Type Extends Type

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Duckstab[o]

Type T_Ship
	Field Model$="Tship",Name$="Tship"
	Field Pos_Vect,Dir_Vect
	Field Engine
	Field Max_Speed#
	Field Top_Speed#
	Field Speed#
	
	Method T_Thruster()
	Print "Thruster_Bay Upgrades not Available"
	End Method

	Method T_Radar()
	Print "Radar_Bay Upgrades not Available"
	End Method

	Method T_Drone()
	Print "Drone_Bay Upgrades not Available"
	End Method
End Type

Type T_Scout_A Extends T_Ship
	Field Thruster[]
	
	Method T_Thruster()
	Print "Thruster Level1"
	End Method
End Type

Type T_Scout_B Extends T_Ship
	Field Radar[]
	
	Method T_Radar()
	Print "Radar Level1"
	End Method
End Type

Type T_Scout_C Extends T_Ship
	Field Drone[]
	
	Method T_Drone()
		Print "Drone Level1"
	End Method
End Type

Type T_Scout_D Extends T_Scout_A
	Field Radar[]
	
	Method T_Radar()
		Print "Radar Level1"
	End Method
End Type

Type T_Scout_E Extends T_Scout_A
	Field Drone[]
	
	Method T_Drone()
		Print "Drone Level1"
	End Method
End Type

Type T_Scout_F Extends T_Scout_B
	Field Drone[]
	
	Method T_Drone()
		Print "Drone Level1"
	End Method
End Type

Type T_Scout_G Extends T_Scout_D
	Field Drone[]
	
	Method T_Drone()
		Print "Drone Level1"
	End Method
End Type

in the code above i have a Tship which is extended by three main types
T_scout_a
T_scout_b
T_scout_c

Is there a way to Create a merged type ie i want T_scout_d to be a combination of T_scout_a + T_scout_b