* Script  0 Deactivate
scrp 4 0 0 0
	doif from eq pntr
		stm# writ targ 3
		injr -1 10
	else
		stm# writ targ 4
	endi
	doif aslp ne 0
		stop
	endi
	doif uncs ne 0
		stop
	endi
	doif gnus ne 2
		rndv var0 0 4
		doif var0 lt 3
			snde ow!1
		endi
		doif var0 eq 3
			snde ow!2
		endi
		doif var0 eq 4
			snde ow!3
		endi
	else
		snde glaf
	endi
endm

* Script  1 Activate(1)
scrp 4 0 0 1
	setv actv 0
	doif from eq pntr
		stm# writ targ 1
	else
		stm# writ targ 2
	endi
	doif aslp gt 0
		stop
	endi
	doif uncs ne 0
		stop
	endi
	doif chem 1 lt 16
		doif chem 12 lt 20
			doif gnus eq 1
				wait 3
				rndv var0 0 4
				doif var0 lt 3
					snde gig1
				endi
				doif var0 eq 3
					snde gig2
				endi
				doif var0 eq 4
					snde gig3
				endi
			else
				doif gnus eq 2
					wait 3
					snde glaf
				else
					wait 3
					snde elaf
				endi
			endi
		endi
	endi
endm

* Script  2 Activate(2)
scrp 4 0 0 2
	setv actv 0
	doif from eq pntr
		stm# writ targ 1
	else
		stm# writ targ 2
	endi
	doif aslp gt 0
		stop
	endi
	doif uncs ne 0
		stop
	endi
	doif chem 1 lt 16
		doif chem 12 lt 20
			doif gnus ne 2
				wait 3
				rndv var0 0 4
				doif var0 lt 3
					snde gig1
				endi
				doif var0 eq 3
					snde gig2
				endi
				doif var0 eq 4
					snde gig3
				endi
			else
				wait 3
				snde glaf
			endi
		endi
	endi
endm

* Script  3 Hit
scrp 4 0 0 3
	doif from eq pntr
		stm# writ targ 3
	else
		stm# writ targ 4
	endi
	doif aslp ne 0
		stop
	endi
	doif uncs ne 0
		stop
	endi
	doif gnus ne 2
		rndv var0 0 4
		doif var0 lt 3
			snde ow!1
		endi
		doif var0 eq 3
			snde ow!2
		endi
		doif var0 eq 4
			snde ow!3
		endi
	else
		snde glaf
	endi
endm

* Script  6 Colission
scrp 4 0 0 6
	lock
	setv var0 _p2_
	doif dead ne 0
		stop
	endi
	setv var1 velx
	anim [117118119120058]
	doif var0 gt 90
		injr -1 150
	else
		doif var0 gt 80
			injr 0 50
		else
			doif var0 gt 20
				rndv var9 0 9
				doif var9 eq 0
					injr -1 var0
				endi
			endi
		endi
	endi
	done
	unlk
endm

* Script 
scrp 4 0 0 10
	doif dead eq 1
		stop
	endi
	doif uncs eq 1
		stop
	endi
	doif aslp eq 1
		stop
	endi
	pose 60
	trig 6 10 255
	anim [061062063064R]
endm

* Script 
scrp 4 0 0 11
	doif dead eq 1
		stop
	endi
	doif uncs eq 1
		stop
	endi
	doif aslp eq 1
		stop
	endi
	pose 59
	trig 6 11 255
	anim [061062063064R]
endm

* Script 
scrp 4 0 0 12
	doif from eq pntr
		stm# writ targ 3
	else
		stm# writ targ 4
	endi
	doif aslp ne 0
		stop
	endi
	doif uncs ne 0
		stop
	endi
	doif gnus ne 2
		rndv var0 0 4
		doif var0 lt 3
			snde ow!1
		endi
		doif var0 eq 3
			snde ow!2
		endi
		doif var0 eq 4
			snde ow!3
		endi
	else
		snde glaf
	endi
endm

* Script 16 EXTRA Quiescent
scrp 4 0 0 16
	impt 0
	aim: 0
	pose 12
	loop
		wait 50
		stm# writ targ 12
	ever
endm

* Script 17 EXTRA Activate(1)
scrp 4 0 0 17
	impt 4
	aim: 0
	appr
	touc
	wait 4
	mesg writ _it_ 0
	stm# writ targ 13
	wait 4
	pose 12
	wait 20
	done
endm

* Script 18 EXTRA Activate(2)
scrp 4 0 0 18
	impt 3
	aim: 1
	appr
	touc
	wait 4
	mesg writ _it_ 1
	stm# writ targ 14
	wait 4
	pose 12
	wait 20
	done
endm

* Script 19 EXTRA Deactivate
scrp 4 0 0 19
	impt 3
	aim: 2
	appr
	touc
	wait 4
	mesg writ _it_ 2
	stm# writ targ 15
	wait 4
	pose 12
	wait 20
	done
endm

* Script 20 EXTRA Seek
scrp 4 0 0 20
	impt 2
	aim: 0
	loop
		appr
		impt 1
		pose 12
		wait 30
		stm# writ targ 16
	ever
endm

* Script 21 EXTRA Avoid
scrp 4 0 0 21
	doif driv 9 gt 40
		impt 4
		pose 39
		wait 7
		anim [053054055056R]
		wait 40
		pose 12
		stm# writ targ 17
		wait 20
		done
		stop
	endi
	doif driv 0 gt 40
		impt 4
		pose 39
		wait 7
		anim [020019018017R]
		wait 30
	endi
	pose 12
	stm# writ targ 17
	wait 20
	done
	stop
	impt 4
	aim: 0
	anim [049050051052R]
	stm# writ targ 17
	done
endm

* Script 22 EXTRA Pickup
scrp 4 0 0 22
	impt 3
	aim: 0
	appr
	touc
	wait 4
	mesg writ _it_ 4
	stm# writ targ 18
	wait 4
	pose 12
	wait 20
	done
endm

* Script 23 EXTRA Drop
scrp 4 0 0 23
	impt 3
	appr
	pose 0
	drop
	stm# writ targ 19
	wait 20
	pose 12
	wait 20
	done
endm

* Script 24 EXTRA Say need
scrp 4 0 0 24
	impt 2
	aim: 0
	setv var0 drv!
	doif driv var0 lt 64
		pose 33
	else
		pose 34
		doif var0 eq 0
			pose 35
		endi
		doif var0 eq 1
			pose 89
		endi
		doif var0 eq 2
			pose 47
		endi
		doif var0 eq 3
			pose 36
		endi
		doif var0 eq 4
			pose 37
		endi
		doif var0 eq 5
			pose 37
		endi
		doif var0 eq 6
			pose 12
		endi
		doif var0 eq 7
			pose 38
		endi
		doif var0 eq 8
			pose 42
		endi
		doif var0 eq 9
			pose 51
		endi
		doif var0 eq 10
			anim [040040041041R]
		endi
		doif var0 eq 11
			pose 121
		endi
		doif var0 eq 12
			anim [042043R]
		endi
	endi
	sayn
	stm# writ targ 20
	wait 50
	done
endm

* Script 26 EXTRA Go West
scrp 4 0 0 26
	impt 5
	pose 60
	anim [061062063064R]
	wait 30
	impt 1
	loop
		wait 20
		stm# writ targ 23
	ever
endm

* Script 27 EXTRA Go East
scrp 4 0 0 27
	impt 5
	pose 59
	anim [061062063064R]
	wait 30
	impt 1
	loop
		wait 20
		stm# writ targ 23
	ever
endm

* Script 28 EXTRA undefined 1
scrp 4 0 0 28
	impt 9
	dbgm [SCRIPTEXTRAEAT]
	aim: 0
	dbgm [EAT - aim]
	appr
	drop
	dbgm [EAT - appr]
	touc
	dbgm [EAT - touc]
	wait 1
	mesg writ _it_ 4
	dbgm [IT's been told to be picked up]
	wait 1
	pose 73
	wait 1
	mesg writ _it_ 12
	dbgm [EAT - told it to run]
	dbgm [EAT - and IT is..]
	dbgv _it_
	stm# writ targ 26
	pose 74
	dbgm [EAT - stim myself]
	wait 1
	pose 12
	wait 1
	mesg writ _it_ 5
	impt 0
	wait 20
	done
endm

* Script 29 EXTRA undefined 2
scrp 4 0 0 29
	impt 3
	aim: 2
	appr
	touc
	wait 4
	anim [111112113114111]
	mesg writ _it_ 3
	stm# writ targ 15
	wait 4
	pose 12
	wait 20
	done
endm

* Script 32 INTRO Quiescent
scrp 4 0 0 32
	impt 0
	loop
		rndv var0 0 1
		doif var0 eq 0
			pose 57
			rndv var0 20 40
			wait var0
		else
			pose 59
			rndv var0 1 10
			wait var0
			pose 60
			rndv var0 1 10
			wait var0
		endi
		stm# writ targ 12
	ever
endm

* Script 39 INTRO Drop
scrp 4 0 0 39
	drop
	stm# writ targ 19
	wait 20
	done
endm

* Script 40 INTRO Say need
scrp 4 0 0 40
	impt 2
	setv var0 drv!
	doif driv var0 lt 64
		pose 33
	else
		pose 34
		doif var0 eq 0
			pose 35
		endi
		doif var0 eq 1
			pose 89
		endi
		doif var0 eq 2
			pose 106
		endi
		doif var0 eq 3
			pose 36
		endi
		doif var0 eq 4
			pose 37
		endi
		doif var0 eq 5
			pose 37
		endi
		doif var0 eq 6
			pose 12
		endi
		doif var0 eq 7
			pose 38
		endi
		doif var0 eq 8
			pose 42
		endi
		doif var0 eq 9
			pose 51
		endi
		doif var0 eq 10
			anim [040040041041R]
		endi
		doif var0 eq 11
			pose 121
		endi
		doif var0 eq 12
			anim [042043R]
		endi
	endi
	sayn
	stm# writ targ 20
	wait 50
	done
endm

* Script 41 INTRO Rest
scrp 4 0 0 41
	doif driv 5 gt 48
		dbgm [SLEEP - tiredness gt 48]
		loop
			dbgm [SLEEP - inside theloop-forever]
			doif driv 5 gt 48
				dbgm [SLEEP - tiredness gt 48]
				doif driv 6 gt 96
					dbgm [SLEEP - sleepyness gt 96]
					loop
						dbgm [SLEEP - inside theloop-until not sleepy]
						impt 15
						pose 58
						aslp 1
						wait 15
						stm# writ targ 22
						dbgm [SLEEP - stim with sleep]
						impt 5
						wait 40
						impt 15
						stm# writ targ 22
						dbgm [SLEEP - stim with sleep]
					untl driv 6 eq 0
					dbgm [SLEEP - outside of sleeploop - must be eq to 0]
					wait 25
					impt 20
					dbgm [SLEEP - high importance]
					drea 4
					dbgm [SLEEP - dreaming]
					wait 30
					dbgm [SLEEP - after wait]
				else
					dbgm [SLEEP - otherwise you're not very sleepy
					 just tired]
					loop
						dbgm [SLEEP - inside theloop-until tiredness lt 128]
						impt 5
						pose 58
						wait 20
						stm# writ targ 21
						dbgm [SLEEP - stim with rest]
					untl driv 5 lt 128
				endi
			endi
			dbgm [SLEEP - outside do-if inside theloop-forever]
			impt 1
			wait 20
			dbgm [SLEEP - theloop-forever sleepiness check]
		untl driv 6 lt 10
		dbgm [SLEEP - outside theloop-forever]
		aslp 0
	else
		dbgm [SLEEP - not tired - disappoint]
		stm# writ targ 0
	endi
endm

* Script 42 INTRO Go West
scrp 4 0 0 42
	impt 5
	pose 60
	walk
	wait 30
	impt 1
	loop
		wait 20
		stm# writ targ 23
	ever
endm

* Script 43 INTRO Go East
scrp 4 0 0 43
	impt 5
	pose 59
	walk
	wait 30
	impt 1
	loop
		wait 20
		stm# writ targ 23
	ever
endm

* Script 50 POINTER Activate(1)
scrp 4 0 0 50
	inst
	base 0
	anim [232323230]
	snde Tckl
	over
	slow
endm

* Script 52 POINTER Deactivate
scrp 4 0 0 52
	inst
	base 0
	anim [4540]
	snde Spnk
	over
	slow
endm

* Script 
scrp 4 0 0 55
	inst
	base 0
	anim [89980]
	over
	slow
endm

* Script 
scrp 4 0 0 56
	inst
	base 10
	anim [01221]
	over
	base 0
	pose 0
	slow
endm

* Script 64 Involuntary Action 0
scrp 4 0 0 64
	ltcy 0 4 8
	pose 75
	snde ow!1
	wait 10
	stm# writ ownr 28
	done
endm

* Script 65 Involuntary Action 1
scrp 4 0 0 65
	ltcy 1 255 255
	doif carr ne 0
		stop
	endi
	doif baby gt 0
		pose 108
		wait 40
		pose 109
		setv var0 baby
		setv baby 0
		setv var1 posl
		addv var1 16
		setv var2 posb
		rndv var3 0 10
		mulv var3 8
		inst
		new: simp eggs 8 var3 2000 0
		pose 0
		setv cls2 2 5 2
		setv attr 195
		setv obv0 var0
		setv obv1 0
		subv var2 hght
		mvto var1 var2
		slow
		slim
		evnt targ
		tick 900
		dde: negg
		targ ownr
		pose 110
		stm# writ ownr 29
		wait 60
	endi
	done
endm

* Script 66 Involuntary Action 2
scrp 4 0 0 66
	ltcy 2 3 20
	anim [071071072072072]
	over
	snde snee
	anim [106]
	stm# writ ownr 30
	over
	snez
	wait 5
	done
endm

* Script 67 Involuntary Action 3
scrp 4 0 0 67
	ltcy 3 3 20
	anim [098099100]
	over
	snde coug
	anim [101100101]
	snez
	stm# writ ownr 30
	wait 5
	done
endm

* Script 68 Involuntary Action 4
scrp 4 0 0 68
	ltcy 4 20 80
	anim [046047046047046047047046R]
	snde shiv
	stm# writ ownr 32
	rndv var0 50 150
	wait var0
	pose 46
	done
endm

* Script 69 Involuntary Action 5
scrp 4 0 0 69
	ltcy 5 80 180
	pose 57
	wait 25
	stm# writ targ 21
	aslp 1
	drea 5
	pose 58
	wait 200
	stm# writ targ 22
	pose 58
	wait 200
	stm# writ targ 22
	aslp 0
	pose 58
	wait 25
	stm# writ targ 22
	done
endm

* Script 70 Involuntary Action 6
scrp 4 0 0 70
	ltcy 6 60 200
	pose 58
	rndv var0 1 3
	reps var0
		rndv var1 40 140
		wait var1
		stm# writ targ 22
		snde dead
	repe
	done
endm

* Script 72 Death Script
scrp 4 0 0 72
	lock
	dde: died
	pose 77
	addv ontr 50
	snde dead
	evnt ownr
	wait 300
	doif movs ne 1
		setv movs 0
		setv size 0
		setv attr 64
		setv vely -2
		loop
			wait 1
		untl posb le 0
		kill ownr
	else
		mesg writ pntr 5
		kill ownr
	endi
	unlk
endm
