* The Pill V1.0
* (c) Alexander Laemmle 1997

* General Headers
name The Pill V1.0
quantity 24
used 0
month 6
day 1
jear 1997

* Insatllation

inst
	new: simp syst 1 7 9000 0
	setv clas 34457600
	setv attr 255
	bhvr 0 1
	edit
endm

* Set Timer

scrp 2 13 200 7
	tick 10
endm

* The Pill

scrp 2 13 200 9

tick 0

* Run for every norn in the world
enum 4 1 0



* Glycogen test
doif chem 59 ge 231
	say$ [I'm a sweet!]

*check if female
doif spcs eq 2
*progesteron test
doif chem 66 lt 100
* weak up sweet norn
	aslp 0
* pump up progesteron
	stim writ norn 10 255 0 0 66 255 0 0 0 0 0 0
endi
endi
endi

setv var0 posl
setv var1 post
subv var1 50
targ ownr
mvto var0 var1

wait 30

next

tick 30

endm