* Script 17 EXTRA Activate(1)
scrp 0 0 0 17
	targ _it_
	setv var0 spcs
	targ ownr
	setv var1 spcs
	doif var0 eq var1
		impt 4
		aim: 0
		appr
		touc
		pose 8
		targ _it_
		mesg writ _it_ 0
		doif driv 9 gt 128
			stim writ _it_ 0 0 0 0 29 30 9 10 0 0 0 0
		else
			snde tckl
			stim writ _it_ 0 0 0 0 36 30 42 30 9 10 0 0
		endi
		stop
	endi
	setv var2 0
	targ _it_
	doif chem 13 gt 64
		addv var2 1
	endi
	doif cage ge 2
		addv var2 1
	endi
	setv var0 gnus
	targ ownr
	doif chem 13 gt 64
		addv var2 1
	endi
	doif cage ge 2
		addv var2 1
	endi
	setv var1 gnus
	doif var0 ne var1
		subv var2 1
	endi
	doif var2 eq 4
		impt 4
		aim: 0
		appr
		pose 37
		wait 5
		snde kis2
		mesg writ _it_ 0
		targ _it_
		doif dead eq 1
			stop
		endi
		targ ownr
		doif totl 4 1 0 lt eggl
			doif var1 eq 1
				mate
			else
				anim [036037036037]
				mesg wrt+ _it_ 200 0 0 0
			endi
		endi
		stm# writ targ 45
		stm# writ _it_ 45
		wait 15
		pose 12
		wait 20
		done
	else
		impt 3
		aim: 0
		appr
		pose 37
		wait 5
		snde kis1
		mesg writ _it_ 0
		stm# writ targ 13
		wait 15
		pose 12
		wait 20
		done
	endi
endm

* Script 18 EXTRA Activate(2)
scrp 0 0 0 18
	targ _it_
	setv var0 spcs
	targ ownr
	setv var1 spcs
	doif var0 eq var1
		impt 4
		aim: 0
		appr
		touc
		pose 8
		targ _it_
		mesg writ _it_ 1
		doif driv 9 gt 128
			stim writ _it_ 0 0 0 0 29 30 9 10 0 0 0 0
		else
			snde tckl
			stim writ _it_ 0 0 0 0 36 30 42 30 9 10 0 0
		endi
		stop
	endi
	setv var2 0
	targ _it_
	doif chem 13 gt 64
		addv var2 1
	endi
	doif cage ge 2
		addv var2 1
	endi
	setv var0 gnus
	targ ownr
	doif chem 13 gt 64
		addv var2 1
	endi
	doif cage ge 2
		addv var2 1
	endi
	setv var1 gnus
	doif var0 ne var1
		subv var2 1
	endi
	doif var2 eq 4
		impt 4
		aim: 0
		appr
		pose 37
		wait 5
		snde kis2
		mesg writ _it_ 1
		doif totl 4 1 0 lt eggl
			doif var1 eq 1
				mate
			else
				anim [036037036037]
				mesg wrt+ _it_ 200 0 0 0
			endi
		endi
		stm# writ targ 45
		stm# writ _it_ 45
		wait 15
		pose 12
		wait 20
		done
	else
		impt 3
		aim: 0
		appr
		pose 37
		wait 5
		snde kis1
		mesg writ _it_ 1
		stm# writ targ 14
		wait 15
		pose 12
		wait 20
		done
	endi
endm

* Script 19 EXTRA Deactivate
scrp 0 0 0 19
	targ _it_
	doif dead ne 0
		stop
	endi
	targ ownr
	impt 6
	appr
	touc
	anim [067068067]
	setv var0 posx
	targ _it_
	setv var1 posx
	doif var0 gt var1
		stm# writ _it_ 10
		setv vely -20
		wait 1
		setv vely -20
		wait 1
		setv velx -50
	else
		stm# writ _it_ 11
		setv vely -20
		wait 1
		setv vely -20
		wait 1
		setv velx 50
	endi
	doif gnus ne 2
		snde spnk
	else
		snde punc
		stim writ ownr 0 0 0 0 36 55 45 30 23 30 0 0
	endi
	stim writ _it_ 0 0 0 0 18 30 27 30 172 20 0 0
	targ ownr
	pose 12
	done
endm

* Script 29 EXTRA Hit
scrp 0 0 0 29
	targ _it_
	doif dead ne 0
		stop
	endi
	targ ownr
	impt 6
	appr
	touc
	anim [111112113114111]
	doif gnus ne 2
		snde spnk
	else
		snde punc
	endi
	stm# writ ownr 44
	mesg writ _it_ 12
	stim writ _it_ 0 0 0 0 18 30 27 30 172 20 0 0
endm

