inst
reps 8
	new: simp 2 16 5813 "parok" 42 18 rand 100 2000
	attr 195
	bhvr 48
	perm 26
	accg 0.05
	aero 3
	elas 10
	fric 0
	setv ov00 0
	setv ov01 0
	setv ov02 200
	setv ov05 2
	setv ov06 rand 0 1
	setv ov10 0
	setv ov11 0
	setv ov14 4
	setv ov15 6
	seta ov16 null
	seta ov17 null
	seta ov18 null
	seta ov19 null
	seta ov96 null
	setv ov20 0
	setv ov21 rand 100 150
	setv ov22 0
	setv ov23 0
	setv ov14 4
	setv ov15 6
	setv ov30 28
	setv ov31 31
	setv ov32 34
	setv ov33 35
	setv ov34 38
	setv ov35 41
	setv ov70 0
	setv ov72 200
	setv ov73 300
	setv ov74 1500
	setv ov76 0
	setv ov99 60
	setv va00 rand 1500 2000
	setv va01 2030
	doif tmvt va00 va01 eq 1
		mvto va00 va01
		tick 4
	else
		kill targ
	endi
repe
reps 20
	new: simp 2 10 5816 "Parok" 6 6 rand 100 2000
	attr 195
	bhvr 48
	accg 2
	elas 0
	fric 50
	aero 2
	perm rand 45 80
	setv ov72 rand 5 20
	setv va00 rand 1000 2200
	setv va01 2030
	doif tmvt va00 va01 eq 1
		mvto va00 va01
		tick rand 100 300
	else
		kill targ
	endi
repe
reps 20
	new: simp 2 10 5816 "Parok" 6 6 rand 100 2000
	attr 195
	bhvr 48
	accg 2
	elas 0
	fric 50
	aero 2
	perm rand 45 80
	setv ov72 rand 5 20
	setv va00 rand 1000 2200
	setv va01 1700
	doif tmvt va00 va01 eq 1
		mvto va00 va01
		tick rand 100 300
	else
		kill targ
	endi
repe
scrp 2 16 5813 9
	addv ov01 1
	subv ov02 1
	subv ov22 1
	doif rtyp room targ eq 8 or rtyp room targ eq 9
		subv ov99 1
		setv ov11 -1
		gsub direct
	endi
	doif rtyp room targ ne 8 and rtyp room targ ne 9
		setv ov99 100
	endi
	doif prop room targ 2 le 0.05
		subv ov02 4
	endi
	doif ov02 le 0 or ov99 le 0 or ov01 ge 40000
		setv ov00 99
	endi
	doif ov00 eq 99
		gsub dead
	endi
	doif time gt 3 and ov23 lt 200
		addv ov23 1
	endi
	doif ov01 ge 2000
		doif ov05 eq 0
			seta ov96 null
			setv ov14 3
			setv ov15 5
			setv ov21 rand 150 200
			setv ov30 14
			setv ov31 17
			setv ov32 20
			setv ov33 21
			setv ov34 24
			setv ov35 27
			setv ov72 300
			setv ov05 1
			setv ov01 0
		elif ov05 eq 1
			setv ov14 4
			setv ov15 6
			setv ov30 28
			setv ov31 31
			setv ov32 34
			setv ov33 35
			setv ov34 38
			setv ov35 41
			setv ov72 200
			setv ov21 rand 100 150
			setv ov05 2
			setv ov01 0
		endi
	endi
	doif ov05 ge 2
		addv ov20 1
	endi
	doif ov22 le 0
		gsub poop
	endi
	setv va18 rand 0 49
	doif va18 eq 18
		reps 2
			wait 8
			snde "prok"
		repe
	endi
	doif ov02 gt ov74
		setv ov00 0
	endi
	doif ov20 ge 250
		setv ov00 3
	endi
	doif ov23 ge 150
		setv ov00 2
	endi
	doif ov19 ne null
		setv ov00 5
	endi
	doif ov05 ge 1 and ov96 eq null
		setv ov00 2
	endi
	doif ov02 lt ov73
		setv ov00 1
	endi
	doif ov70 eq 1
		doif ov06 eq 1
			setv ov00 4
		elif ov06 eq 0
			setv ov70 0
		endi
	endi

	doif ov00 eq 0
		gsub wander
	endi
	doif ov00 eq 1
		gsub hunt
	endi
	doif ov00 eq 2
		gsub nest
	endi
	doif ov00 eq 3
		gsub mate
	endi
	doif ov00 eq 4
		gsub layegg
	endi
	doif ov00 eq 5
		gsub parent
	endi
	doif ov00 eq 6
		gsub rest
	endi
	doif ov00 eq 7
		gsub sleep
	endi

	subr direct
		inst
		gsub move
		gsub anim
		slow
	retn
	subr anim
		doif ov11 eq 0
			doif ov10 lt 0
				setv va31 ov33
			elif ov10 ge 0
				setv va31 ov30
			endi
		elif ov11 ne 0
			doif ov10 le 0
				setv va31 ov34
			elif ov10 gt 0
				setv va31 ov31
			endi
		endi
		base va31
		anim [0 1 2 1 0 1 2 1 0 1 2 1 0]
		over
	retn
	subr move
		doif ov10 lt 0
			subv velx ov14
		elif ov10 gt 0
			addv velx ov14
		endi
		doif ov11 lt 0
			subv vely ov15
		elif ov10 gt 0
			addv vely ov15
		endi
	retn
	subr wander
		subv va12 1
		doif va12 le 0
			setv va10 rand 1 2
			setv va11 rand 1 5
			setv va12 10
		endi
		doif va10 eq 1
			setv ov10 -1
		elif va10 eq 2
			setv ov10 1
		endi
		doif va11 eq 1
			setv ov11 -1
		elif va11 eq 5
			setv ov11 1
		else
			setv ov11 0
		endi
		gsub direct
	retn
	subr seek
		inst
		targ va46
		doif targ ne null
			setv va50 posx
			setv va51 posy
			targ ownr
			doif posx lt va50
				setv ov10 1
			endi
			doif posx gt va50
				setv ov10 -1
			endi
			doif posy lt va51
				setv ov11 1
			endi
			doif posy gt va51
				setv ov11 -1
			endi
			gsub direct
		else
			targ ownr
			gsub seekfail
		endi
		slow
	retn
	subr seekfail
		doif ov76 eq 1
			seta ov16 null
		elif ov76 eq 2
			seta ov17 null
		elif ov76 eq 3
			seta ov18 null
		elif ov76 eq 4
			seta ov19 null
		elif ov76 eq 5
			seta ov96 null
		endi
	retn


	subr hunt
		inst
		rnge 1500
		setv ov76 1
		seta ov16 null
		setv va47 2
		setv va48 11
		setv va49 5816
		doif ov16 eq null
			gsub find
		endi
		doif ov16 eq null
			setv va47 2
			setv va48 16
			setv va49 3
			gsub find
		endi
		slow
		doif ov16 ne null
			loop
				seta va46 ov16
				gsub seek
			untl touc ownr ov16 eq 1 or ov16 eq null or seee ownr ov16 eq 0
			inst
			doif ov16 ne null and carr eq null and seee ownr ov16 ne 0
				targ ownr
				mesg writ ov16 12
				addv ov02 ov72
			else
				setv ov00 0
				gsub wander
			endi
			slow
		else
			setv ov00 0
			gsub wander
		endi
	retn
	subr find
		setv va99 99999999
		seta va58 null
		inst
		esee va47 va48 va49
			doif targ ne null
				setv va88 0
				setv va50 relx ownr targ
				setv va51 rely ownr targ
				doif va50 lt 0
					negv va50
				endi
				doif va51 lt 0
					negv va51
				endi
				setv va52 va50
				mulv va52 va52
				setv va53 va51
				mulv va53 va53
				setv va54 va52
				addv va54 va53
				doif va54 lt va99
					seta va58 targ
					setv va99 va54
				endi
			endi
		next
		targ ownr
		doif va58 ne null
			doif ov76 eq 1
				seta ov16 va58
			elif ov76 eq 2
				seta ov17 va58
			elif ov76 eq 3
				seta ov18 va58

			elif ov76 eq 4
				seta ov19 va58
			endi
		elif va58 eq null
			doif ov76 eq 1
				seta ov16 null
			elif ov76 eq 2
				seta ov17 null
			elif ov76 eq 3
				seta ov18 null
			elif ov76 eq 4
				seta ov19 null
			endi
		endi
		slow
	retn
	subr nest
		doif ov96 eq null
			inst
			rnge 1500
			setv ov76 2
			setv va47 1
			setv va48 1
			setv va49 5813
			doif ov17 eq null
				gsub find
			endi
			slow
			doif ov17 ne null
				targ ov17
				setv va70 ov00
				targ ownr
				seta va46 ov17
				loop
					gsub seek
				untl touc ownr ov17 eq 1 or ov17 eq null or seee ownr ov17 eq 0 or va70 eq 1
				inst
				doif ov17 ne null and carr eq null and seee ownr ov17 ne 0 and va70 ne 1
					targ ov17
					setv va50 posx
					setv va51 posy
					setv ov00 1
					targ ownr
					new: simp 2 17 5813 "parok" 1 1 2050
					attr 192
					bhvr 0
					accg 0
					perm 45
					aero 0
					fric 100
					elas 0
					setv ov00 0
					setv ov01 0
					seta ov16 ownr
					seta mv96 targ
					seta ov17 null
					seta ov18 null
					seta ov19 null
					setv ov72 50
					tick rand 200 300
					doif tmvt va50 va51 eq 1
						mvto va50 va51
						targ ownr
						setv ov00 6
					elif tmvt va50 va51 ne 1
						kill targ
						targ ownr
						setv ov00 0
					endi

					targ ownr
					setv ov00 6
				else
					setv ov00 0
					gsub wander
				endi
				slow
			endi
		elif ov96 ne null
			setv ov00 6
			gsub rest
		endi
	retn
	subr rest
		doif ov96 ne null
			setv ov76 5
			seta va46 ov96
			loop
				gsub seek
			untl touc ownr ov96 eq 1 or ov96 eq null or seee ownr ov96 eq 0
			inst
			doif ov96 ne null and seee ownr ov96 ne 0 and carr eq null
				targ ov96
				setv va00 posl
				setv va01 post
				targ ownr
				doif tmvt va00 va01 eq 1
					mvto va00 va01
				else
					mvsf va00 va01
				endi
				setv ov00 7
			else
				setv ov00 0
				gsub wander
			endi
			slow
		endi
	retn
	subr sleep

		doif ov10 le 0
			base ov35
		elif ov10 gt 0
			base ov32
		endi
		accg 0
		velo 0 0
		loop
			wait 30
			subv ov23 1
		untl ov23 le 0 or time le 1
		accg 0.05
		setv ov00 0
	retn
	subr mate
		inst
		rnge 1500
		setv ov76 3
		setv va47 2
		setv va48 16
		setv va49 5813
		doif ov18 eq null
			gsub find
		endi
		slow
		doif ov18 ne null and ov18 ne ownr
			targ ov18
			setv va06 ov06
			setv va70 ov70
			setv va08 ov00
			targ ownr
			seta va46 ov18
			loop
				gsub seek
			untl touc ownr ov18 eq 1 or ov18 eq null or seee ownr ov18 eq 0 or va06 eq ov06 or va70 eq 1 or va08 ne 3
			inst
			doif ov18 ne null and seee ownr ov18 ne 0 and carr eq null and va06 ne ov06 and va70 ne 1 and va08 eq 3
				targ ov18
				seta ov18 ownr
				setv ov70 1
				setv ov20 0
				targ ownr
				setv ov70 1
				setv ov20 0
			elif va06 eq ov06
				seta ov18 null
				setv ov00 0
				gsub wander
			else
				setv ov00 0
				gsub wander
			endi
		endi
	retn

	subr layegg
		doif ov96 ne null
			setv ov76 5
			seta va46 ov96
			loop
				gsub seek
			untl touc ownr ov96 eq 1 or ov96 eq null or seee ownr ov96 eq 0
			inst
			doif ov96 ne null and carr eq null and seee ownr ov96 ne 0
				targ ov96
				setv va50 posx
				setv va51 posy
				targ ownr
				velo 0 0
				new: simp 2 18 5813 "parok" 1 0 1
				attr 195
				bhvr 48
				accg 0
				perm 15
				aero 0
				elas 0
				fric 100
				setv ov00 0
				setv ov01 0
				setv ov02 125
				setv ov07 0
				seta ov19 ownr
				setv ov72 50
				setv ov73 100
				setv ov74 200
				seta mv19 targ
				addv va50 rand -10 10
				subv va51 4
				doif tmvt va50 va51 eq 1
					mvto va50 va51
					tick rand 60 80
				else
					kill targ
					targ ownr
					setv ov70 0
				endi
				targ ownr
				doif tmvt va50 va51 eq 1
					mvto va50 va51
				endi
				setv ov70 0
				doif ov19 ne null and ov18 ne null and ov96 ne null
					seta va18 ov18
					seta va96 ov96
					seta va19 ov19
					targ ov19
					seta ov18 va18
					seta ov96 va96
					targ va96
					seta ov19 va19
					targ va18
					seta ov19 va19
					targ ownr
				elif ov18 eq null
					seta va96 ov96
					seta va19 ov19
					targ ov19
					seta ov96 va96
					targ va96
					seta ov19 va19
					targ ownr
				endi
			endi
			slow
		elif ov96 eq null
			setv ov70 0
			setv ov00 2
		endi
	retn
	subr parent
		inst
		doif ov19 ne null
			targ ov19
			doif ov00 ne 99
				doif gnus eq 18
					doif ov00 eq 0
						setv va07 1
					elif ov00 eq 1
						setv va07 2
					endi
				elif gnus eq 15
					doif ov00 eq 0
						setv va07 1
					elif ov00 eq 1
						setv va07 3
					endi
					targ ownr
					doif va07 eq 1
						setv ov00 0
						gsub wander
					endi
					doif va07 eq 2
						gsub warmegg
					endi
					doif va07 eq 3
						gsub feedyoung
					endi
				endi
			endi
			targ ownr
		else
			setv ov00 0
			gsub wander
		endi
		slow
	retn
	subr poop
		setv va00 posx
		setv va01 posb
		new: simp 2 10 5816 "Parok" 6 6 rand 100 2000
		attr 192
		bhvr 16
		accg 2
		elas 0
		fric 100
		aero 2
		perm rand 45 80
		setv ov72 rand 5 20
		doif tmvt va00 va01 eq 1
			mvto va00 va01
			velo rand -5 5 0
			tick rand 100 300
		else
			kill targ
			targ ownr
			setv ov22 ov21
		endi
		targ ownr
		setv ov22 ov21
	retn
	subr warmegg
		doif ov19 ne null
			seta va46 ov19
			loop
				gsub seek
			untl touc ownr ov19 eq 1 or ov19 eq null or seee ownr ov19 eq 0
			inst
			doif ov19 ne null and carr eq null and seee ownr ov19 ne 0
				targ ov19
				setv va00 posl
				setv va01 post
				addv ov02 ov72
				targ ownr
				mvto va00 va01
				gsub sleep
			else
				setv ov00 0
				gsub wander
			endi
			slow
		endi
	retn
	subr feedyoung
		doif ov19 ne null
			doif ov08 eq 0
				gsub feedyoung1
			elif ov08 eq 1
				gsub feedyoung2
			endi
		else
			setv ov00 0
		endi
	retn
	subr feedyoung1
		inst
		seta ov16 null
		rnge 1500
		setv ov76 1
		setv va47 2
		setv va48 11
		setv va49 5816
		doif ov16 eq null
			gsub find
		endi
		doif ov16 eq null
			setv va47 2
			setv va48 16
			setv va49 3
			gsub find
		endi

		slow
		doif ov16 ne null
			seta va46 ov16
			loop
				gsub seek
			untl touc ownr ov16 eq 1 or ov16 eq null or seee ownr ov16 eq 0
			inst
			doif ov16 ne null and carr eq null and seee ownr ov16 ne 0
				targ ov16
				setv va00 wdth
				setv va01 hght
				setv va02 hght
				divv va02 4
				targ ownr
				subv va00 wdth
				absv va00
				addv va01 va02
				pupt -1 va00 va01
				mesg writ ov16 4
				setv ov08 1

			else
				setv ov00 0
				gsub wander
			endi
		endi
	retn
	subr feedyoung2
		doif ov19 ne null and ov16 ne null
			setv ov76 4
			seta va46 ov19
			loop
				gsub seek
			untl touc ownr ov19 eq 1 or ov19 eq null or ov16 eq null or seee ownr ov19 eq 0
			inst
			doif ov19 ne null and ov16 ne null and seee ownr ov19 ne 0
				targ ov16
				doif carr eq ownr
					setv va84 1
				else
					setv va84 0
				endi
				targ ownr
				doif va84 eq 1
					mesg writ ov16 12
					targ ov19
					addv ov02 ov72
					targ ownr
					addv ov02 ov72
					setv ov08 0
				elif va84 eq 0
					setv ov08 0
					setv ov00 0
					gsub wander
				endi
			elif ov19 eq null or seee ownr ov19 eq 0
				doif ov16 ne null
					mesg writ ov16 5
					setv ov08 0
					setv ov00 0
					gsub wander
				endi
			elif ov16 eq null or seee ownr ov16 eq 0
				setv ov08 0
				setv ov00 0
				gsub wander
			endi
			slow
		endi
	retn
	subr dead
		doif ov05 eq 0
			doif ov10 gt 0
				setv va01 0
			elif ov10 le 0
				setv va01 1
			endi
		elif ov05 eq 1
			doif ov10 gt 0
				setv va01 2
			elif ov10 le 0
				setv va01 3
			endi
		elif ov05 ge 2
			doif ov10 gt 0
				setv va01 4
			elif ov10 le 0
				setv va01 5
			endi
		endi
		setv va50 posx
		setv va51 posy
		new: simp 2 10 5813 "parok" 6 12 rand 100 2000
		attr 195
		bhvr 48
		perm rand 15 60
		accg 1
		aero 3
		elas 0
		fric 50
		pose va01
		setv ov72 rand 10 40
		doif tmvt va50 va51 eq 1
			mvto va50 va51
			tick rand 200 300
		else
			kill targ
			kill ownr
		endi
		kill ownr
	retn
endm
scrp 2 17 5813 9
	doif ov16 ne null
		setv va00 1
	else
		setv va00 0
	endi
	doif ov19 ne null
		setv va01 1
	else
		setv va01 0
	endi
	doif va00 ne 1 and va01 ne 1
		subv ov72 1
	else
		setv ov72 100
	endi
	doif ov72 le 0
		doif rtyp room targ ne -1 and carr eq null
			altr room targ 3 0.1
			altr room targ 4 0.1
			kill ownr
		else
			kill ownr
		endi
	endi
endm
scrp 2 18 5813 9
	addv ov01 1
	doif prop room targ 2 lt 0.1
		subv ov02 1
	endi
	doif ov02 le 0
		setv ov00 99
	endi
	doif ov00 eq 99 and carr eq null and fall eq 0
		doif rtyp room targ ne -1 and carr eq null
			altr room targ 3 0.1
			altr room targ 4 0.1
			kill ownr
		else
			kill ownr
		endi
	endi
	doif ov02 gt ov74
		setv ov00 0
	endi
	doif ov02 lt ov73
		setv ov00 1
	endi
	doif ov01 ge 20
		inst
		doif ov96 ne null
			seta va96 ov96
		endi
		doif ov19 ne null
			seta va19 ov19
		endi
		doif ov18 ne null
			seta va18 ov18
		endi
		setv va00 posl
		setv va01 post
		setv va02 ov02
		new: simp 2 15 5813 "parok" 4 2 rand 50 90
		attr 195
		bhvr 48
		accg 0
		perm rand 40 70
		elas 5
		fric 90
		aero 0
		setv ov00 0
		setv ov01 0
		setv ov02 va02
		setv ov06 rand 0 1
		setv ov07 1
		setv ov30 0
		setv ov31 2
		setv ov72 300
		setv ov73 200
		setv ov74 500
		seta ov96 va96
		seta ov18 va18
		seta ov19 va19
		subv va00 5
		subv va01 12
		doif tmvt va00 va01 ne 1
			kill targ
			kill ownr
		endi
		doif tmvt va00 va01 eq 1
			mvto va00 va01
			tick 6
			kill ownr
		endi
		slow
	endi
endm
scrp 2 18 5813 4
	setv ov00 99
endm
scrp 2 18 5813 5
	accg 2
endm
scrp 2 18 5813 12
	stim writ from 80 1
	kill ownr
endm
scrp 2 15 5813 4
	setv ov00 99
endm
scrp 2 15 5813 5
	accg 2
endm
scrp 2 15 5813 9
	addv ov01 1
	subv ov02 1
	doif ov02 le 0
		setv ov00 99
	endi
	doif ov00 eq 99 and carr eq null and fall eq 0

		doif rtyp room targ ne -1 and carr eq null
			altr room targ 3 0.1
			altr room targ 4 0.1
			kill ownr
		else
			kill ownr
		endi

	endi
	doif ov02 gt ov74
		setv ov00 0
	endi
	doif ov02 lt ov73
		setv ov00 1
	endi
	doif ov96 ne null
		targ ov96
		seta ov19 ownr
	else
		kill ownr
	endi
	targ ownr
	doif ov19 ne null
		targ ov19
		seta ov19 ownr
	endi
	targ ownr
	doif ov18 ne null
		targ ov18
		seta ov19 ownr
	endi
	targ ownr
	rnge 300
	doif ov96 ne null and seee ownr ov19 eq 1 or ov96 ne null and seee ownr ov18 eq 1
		setv va20 rand 1 2
		doif va20 eq 1
			setv va21 ov30
		else
			setv va21 ov31
		endi
		base va21
		anim [0 1 0]
		snde "pchk"
	endi
	doif ov01 ge 1500
		setv va00 posl
		setv va01 post
		setv va02 ov02
		setv va06 ov06
		seta va96 ov96
		new: simp 2 16 5813 "parok" 42 18 rand 100 2000
		attr 195
		bhvr 48
		perm 26
		accg 0.05
		aero 3
		elas 10
		fric 0
		setv ov00 0
		setv ov01 0
		setv ov02 va02
		setv ov05 0
		setv ov06 va06
		setv ov08 0
		setv ov10 0
		setv ov11 0
		setv ov14 2
		setv ov15 2
		seta va19 targ
		seta ov16 null
		seta ov17 null
		seta ov18 null
		seta ov19 null
		setv ov20 0
		setv ov21 rand 200 250
		setv ov22 10
		setv ov23 0
		setv ov30 0
		setv ov31 3
		setv ov32 6
		setv ov33 7
		setv ov34 10
		setv ov35 13
		setv ov70 0
		setv ov72 400
		setv ov73 300
		setv ov74 1500
		setv ov76 0
		seta ov96 va96
		doif tmvt va00 va01 eq 1
			mvto va00 va01
			tick 4
		else
			kill targ
			kill ownr
		endi
		targ ov96
		seta ov19 va19
		targ va19
		kill ownr
	endi
endm
scrp 2 10 5813 9
	subv ov72 1
	doif ov72 le 0
		doif rtyp room targ ne -1 and carr eq null
			altr room targ 3 0.2
			altr room targ 4 0.25
			kill ownr
		else
			kill ownr
		endi
	endi
endm
scrp 2 10 5813 12
	stim writ from 81 2
	kill ownr
endm
scrp 2 10 5816 6
	doif wall eq down
		anim [0 1 2 3 4 5]
		over
	endi
endm
scrp 2 10 5816 9
	subv ov72 1
	doif ov72 le 0
		doif rtyp room targ ne -1 and carr eq null
			altr room targ 3 0.05
			altr room targ 4 0.1
			kill ownr
		else
			kill ownr
		endi
	endi
endm
scrp 2 10 5816 12
	stim writ from 81 1
	kill ownr
endm
scrp 2 15 5813 12
	stim writ from 80 1
	kill ownr
endm
scrp 2 16 5813 4
	stim writ from 88 1
	setv ov00 0
endm
scrp 2 16 5813 6
	doif wall eq down
		setv ov11 -1
	endi
	doif wall eq left
		setv ov10 1
	endi
	doif wall eq rght
		setv ov10 -1
	endi
	doif wall eq _up_
		setv ov11 1
	endi
endm
scrp 2 16 5813 12
	stim writ from 80 1
	targ from
	chem 12 0.4
	kill ownr
endm
rscr
enum 2 10 5816
	kill targ
next
enum 2 10 5813
	kill targ
next
enum 2 15 5813
	kill targ
next
enum 2 16 5813
	kill targ
next
enum 2 17 5813
	kill targ
next
enum 2 18 5813
	kill targ
next
scrx 2 10 5813 9
scrx 2 10 5813 12
scrx 2 10 5816 6
scrx 2 10 5816 9
scrx 2 10 5816 12
scrx 2 15 5813 4
scrx 2 15 5813 5
scrx 2 15 5813 9
scrx 2 15 5813 12
scrx 2 16 5813 4
scrx 2 16 5813 6
scrx 2 16 5813 9
scrx 2 16 5813 12
scrx 2 17 5813 9
scrx 2 18 5813 4
scrx 2 18 5813 5
scrx 2 18 5813 9
scrx 2 18 5813 12