#side Teledont
This is teledont updated for the last rule changes.  It has shorter range weapons(30).
An larger energy gathering hardware (eater, solar-cell).  Children also gravitate to
different areas of the world and it waits until it has high energy before it opens fire.
10/1  Eater and constructor increased again.
#author Matt Burkholder	
#date 5 May 2002
#color 55f
#type Teledont
#color a0a 
#hardware 
		processor 15 
		engine 0.175
		constructor 2.2
		energy 1000 20
		solar-cells .5
		eater 5
		robot-sensor 28.5
		food-sensor 12
		armor 502
		repair-rate .5
		blaster 40 29.5 10
		

 	
#code 

#var destx 0
#var desty 0
#var targetx 50
#var targety 50
#var targetDirection 0
#var robot-sensor-now 0
#var food-sensor-now 0
#var take-a-shot 0

   id 1 = nif
					id 2 / is-integer if
							30 targetx! else 70 targetx! then
     id 1 - 2 / is-integer if
       30 targety! else 70 targety! then
   then
			food-sensor-range 0.6 * food-sensor-focus-distance!
			do
						energy 900 > energy constructor-remaining 2 * > or 
      constructor-max-rate 0 ifev constructor-rate!
						1 constructor-type!
						armor max-armor < energy 20 > and max-repair-rate 0 ifev repair-rate!
						time robot-sensor-now < blaster-cooldown or energy 21 < or nif
								fire-robot-sensor sync
								robot-found take-a-shot energy 900 > robot-distance 15 < or or and if
											robot-position position v- 
											robot-velocity 0.85 vs* velocity v- 
											robot-distance blaster-speed / vs* v+ 
											rect-to-polar fire-blaster drop
           robot-direction robot-distance 20 < pi 0 ifev + targetDirection!
											robot-direction take-a-shot - abs 0.5 > take-a-shot and
           0 robot-direction ifev take-a-shot!
									else
											targetx targety position v- angle targetDirection!
											time 50 + robot-sensor-now!
		         0 take-a-shot!
						then then
						time food-sensor-now > if
        targetDirection food-sensor-focus-direction!
								fire-food-sensor sync
								food-found if
										18000 food-sensor-now!
										 food-position 2dup seek-location sync sync sync sync
								else 
											time 50 + food-sensor-now!  0 0 then
								desty! destx!
						then 
						destx if 
								destx desty seek-location 
					 else
        targetx targety seek-location
					then
	    speed eaten or nif
       time food-sensor-now! then
					;speed energy 499 > or nif
						;energy sync energy - constructor-rate - -1 > if
					;			time 50 + food-sensor-now min food-sensor-now! 
					;then then
			forever
	
#end