*$Id: power\040to\040the\040shee\040starship.cos,v 1.3 2001/02/20 14:17:05 aharman Exp $
*+------------------------------+
*|                              |
*| Power to the Shee Starship!  |
*|                              |
*+------------------------------+
** If the world is docked then this COS file will power up all the C3 machines and keep the Bioenergy level at peak! ;o)
** Kill all powerups!
	enum 2 24 4
			kill targ
	next
** Now to actually power-up the machines!
	enum 1 1 91
		doif ov00 <= 4
			setv ov02 75
			mesg writ targ 1000
		endi
	next
** Wesen koennen hochgehoben werden:
	setv game "engine_creature_pickup_status" 3
** Ettins und Grendels koennen angewaehlt werden:
	setv game "Grettin" 1
** And how about we create an agent that occaisionally bumps up the bioenergy? :) OK!
	new: simp 1 1 195 "blnk" 0 0 0
	attr 16
	mvto 0 0
	tick 300

** Timer Script
scrp 1 1 195 9
	inst
** If it is 
	doif game "Bioenergy" < 1000
		setv game "Bioenergy" 1000
		rgam
	endi
endm

rscr
enum 1 1 195
	kill targ
next