Function planterborning()


For p.planter = Each planter     ; Papa
	If Not p\pbornstart  				; schon ein junges ?
		If Rand (1,80) < hardnes Then    ; ewas zufall
			p\pbornstart =1      	      ; junges da
			an.android = New android  ; das neue junge 
			an\x# = p\x#				; pos x übernehmen
			an\y# = p\y#				; pos y übernehmen 
			PlaySound (pbornw)         ; hurra es ist ein android 
			p\dirx=0                          ;  stop x dir 
			p\diry#=.1                       ;  runter zur erde 
		End If
	End If
Next
End Function 

Type planter
	;dein ganzes zeug
	sohn.android ;verknüpfung zum sohn
End Type

Type android
	;dein ganzes zeug
	papa.planter ;verknüpfung zum papa
End Type

Type Dad
  Field deadtime%
  Field Trauerfaktor#
  ...
End Type

Type Android
  Field Owner.dad
  Field Trauerfaktor#
  Field Deadtime
  ...
End Type

For a.android = Each android
  If a\Owner\Deadtime +Trauertime > MilliSecs() Then a\Trauerfaktor = 50.0
  If a\Deadtime +Trauertime > MilliSecs() Then a\owner\Trauerfaktor = 50.0
Next