diff --git a/Script/Script60083.txt b/Script/Script60083.txt
new file mode 100644
index 0000000..d509458
--- /dev/null
+++ b/Script/Script60083.txt
@@ -0,0 +1,184 @@
+PChase::init:
+		lap	param[$0]
+		bnt	code_00b8
+		push
+		ldi	$1
+		ge?
+		bnt	code_00a1
+		lap	param[$1]
+		aTop	client
+		lsp	param[$0]
+		ldi	$2
+		ge?
+		bnt	code_00a1
+		lap	param[$2]
+		aTop	who
+		push1
+		push0
+		pToa	who
+		send	$4
+		bnot
+		aTop	targetX
+		push2
+		push0
+		pToa	who
+		send	$4
+		bnot
+		aTop	targetY
+		lsp	param[$0]
+		ldi	$3		; z
+		ge?
+		bnt	code_00a1
+		lap	param[$3]
+		aTop	distance
+		lsp	param[$0]
+		ldi	$4		; scaleX
+		ge?
+		bnt	code_00a1
+		lap	param[$4]
+		aTop	caller
+code_00a1:	pushi	$94		; 148, init
+		pushi	$6		; maxScale
+		pTos	client
+		pTos	targetX
+		pTos	targetY
+		pTos	caller
+		push1
+		pTos	obstacles
+		super	PolyPath, $10
+		bnot
+		jmp	code_00c0
+
+code_00b8:	pushi	$94		; 148, init
+		push0
+		super	PolyPath, $4
+		bnot
+code_00c0:	ret
+
+PChase::doit:
+		link	$1
+		pushi	$165		; 357, distanceTo
+		push1
+		pTos	who
+		pToa	client
+		send	$6
+		bnot
+		sat	temp[$0]
+		push
+		pToa	distance
+		le?
+		bnt	code_00de
+		pushi	$64		; 100, 'd', moveDone
+		push0
+		self	$4
+		bnot
+		jmp	code_012c
+
+code_00de:	pushi	$4		; scaleX
+		pTos	targetX
+		pTos	targetY
+		push1
+		push0
+		pToa	who
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		pToa	who
+		send	$4
+		bnot
+		push
+		callk	kernel_64, $8
+		bnot
+		push
+		pToa	distance
+		gt?
+		bnt	code_0125
+		pToa	points
+		bnt	code_0109
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0109:	ldi	$0
+		aTop	points
+		ldi	$2
+		aTop	value
+		pushi	$94		; 148, init
+		push2
+		pTos	client
+		pTos	who
+		self	$8
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		super	PolyPath, $4
+		bnot
+		jmp	code_012c
+
+code_0125:	pushi	$45		; 69, 'E', doit
+		push0
+		super	PolyPath, $4
+		bnot
+code_012c:	ret
+
+PChase::moveDone:
+		link	$1
+		pushi	$165		; 357, distanceTo
+		push1
+		pTos	who
+		pToa	client
+		send	$6
+		bnot
+		sat	temp[$0]
+		push
+		pToa	distance
+		le?
+		bnt	code_014b
+		pushi	$64		; 100, 'd', moveDone
+		push0
+		super	PolyPath, $4
+		bnot
+		jmp	code_018d
+
+code_014b:	pushi	$4b		; 75, 'K', at
+		push1
+		pTos	value
+		pToa	points
+		send	$6
+		bnot
+		push
+		ldi	$7777		; 30583
+		eq?
+		bnt	code_0182
+		pToa	points
+		bnt	code_0167
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_0167:	ldi	$0
+		aTop	points
+		ldi	$2
+		aTop	value
+		pushi	$94		; 148, init
+		push2
+		pTos	client
+		pTos	who
+		self	$8
+		bnot
+		pushi	$45		; 69, 'E', doit
+		push0
+		self	$4
+		bnot
+		jmp	code_018d
+
+code_0182:	pushi	$157		; 343, setTarget
+		push0
+		pushi	$94		; 148, init
+		push0
+		self	$8
+		bnot
+code_018d:	ret
+
diff --git a/Script/Script60084.txt b/Script/Script60084.txt
new file mode 100644
index 0000000..05d7206
--- /dev/null
+++ b/Script/Script60084.txt
@@ -0,0 +1,193 @@
+PFollow::init:
+		link	$1
+		lap	param[$0]
+		bnt	code_00c4
+		push
+		ldi	$4		; scaleX
+		ge?
+		bnt	code_0070
+		lap	param[$4]
+		jmp	code_0079
+
+code_0070:	pushi	$16d		; 365, obstacles
+		push0
+		lag	global[$3]
+		send	$4
+		bnot
+code_0079:	sat	temp[$0]
+		lsp	param[$0]
+		ldi	$1
+		ge?
+		bnt	code_00ae
+		lap	param[$1]
+		aTop	client
+		lsp	param[$0]
+		ldi	$2
+		ge?
+		bnt	code_00ae
+		lap	param[$2]
+		aTop	who
+		push1
+		push0
+		pToa	who
+		send	$4
+		bnot
+		aTop	targetX
+		push2
+		push0
+		pToa	who
+		send	$4
+		bnot
+		aTop	targetY
+		lsp	param[$0]
+		ldi	$3		; z
+		ge?
+		bnt	code_00ae
+		lap	param[$3]
+		aTop	distance
+code_00ae:	pushi	$94		; 148, init
+		pushi	$6		; maxScale
+		pTos	client
+		pTos	targetX
+		pTos	targetY
+		push0
+		push1
+		lst	temp[$0]
+		super	PolyPath, $10
+		bnot
+		jmp	code_00cc
+
+code_00c4:	pushi	$94		; 148, init
+		push0
+		super	PolyPath, $4
+		bnot
+code_00cc:	ret
+
+PFollow::doit:
+		link	$2
+		pushi	$4		; scaleX
+		pTos	targetX
+		pTos	targetY
+		push1
+		push0
+		pToa	who
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		pToa	who
+		send	$4
+		bnot
+		push
+		callk	kernel_64, $8
+		bnot
+		push
+		pToa	distance
+		gt?
+		bnt	code_0112
+		pToa	points
+		bnt	code_00fa
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_00fa:	ldi	$0
+		aTop	points
+		ldi	$2
+		aTop	value
+		pushi	$94		; 148, init
+		push2
+		pTos	client
+		pTos	who
+		self	$8
+		bnot
+		ldi	$0
+		jmp	code_0187
+
+code_0112:	pushi	$165		; 357, distanceTo
+		push1
+		pTos	who
+		pToa	client
+		send	$6
+		bnot
+		sat	temp[$0]
+		push
+		pToa	distance
+		le?
+		bnt	code_0180
+		pushi	$4		; scaleX
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		push1
+		push0
+		pToa	who
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		pToa	who
+		send	$4
+		bnot
+		push
+		callk	kernel_63, $8
+		bnot
+		sat	temp[$1]
+		pushi	$43		; 67, 'C', heading
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lat	temp[$1]
+		ne?
+		bnt	code_0166
+		pushi	$15a		; 346, setHeading
+		push1
+		lst	temp[$1]
+		pToa	client
+		send	$6
+		bnot
+code_0166:	push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	xLast
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		aTop	yLast
+		lag	global[$40]
+		aTop	b_moveCnt
+		ldi	$0
+		jmp	code_0187
+
+code_0180:	pushi	$45		; 69, 'E', doit
+		push0
+		super	PolyPath, $4
+		bnot
+code_0187:	ret
+
+PFollow::moveDone:
+		pushi	$157		; 343, setTarget
+		push0
+		pushi	$94		; 148, init
+		push0
+		self	$8
+		bnot
+		ret
+
diff --git a/Script/Script60085.txt b/Script/Script60085.txt
new file mode 100644
index 0000000..11321e5
--- /dev/null
+++ b/Script/Script60085.txt
@@ -0,0 +1,722 @@
+PAvoider::init:
+		lsp	param[$0]
+		ldi	$1
+		ge?
+		bnt	code_0043
+		lap	param[$1]
+		aTop	client
+code_0043:	ret
+
+PAvoider::dispose:
+		pToa	oldBlockerMover
+		bnt	code_004f
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+code_004f:	pushi	$95		; 149, dispose
+		push0
+		super	Code, $4
+		bnot
+		ret
+
+PAvoider::doit:
+		link	$18
+		pushi	$44		; 68, 'D', mover
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sat	temp[$9]
+		pToa	oldBlocker
+		bnt	code_00d4
+		pushi	$165		; 357, distanceTo
+		push1
+		push
+		pToa	client
+		send	$6
+		bnot
+		push
+		ldi	$14		; 20, nsRight
+		ge?
+		bnt	code_00d4
+		pushi	$197		; 407, ignoreActors
+		push1
+		push0
+		pToa	oldBlocker
+		send	$6
+		bnot
+		pToa	oldBlockerMover
+		bnt	code_008f
+		pushi	$44		; 68, 'D', mover
+		push1
+		push
+		pToa	oldBlocker
+		send	$6
+		bnot
+code_008f:	ldi	$9d		; 157, eachElementDo
+		aTop	oldMoverX
+		aTop	oldMoverY
+		ldi	$0
+		aTop	oldBlockerMover
+		aTop	oldBlocker
+		lat	temp[$9]
+		bnt	code_00d4
+		pushi	$16d		; 365, obstacles
+		push0
+		send	$4
+		bnot
+		bnt	code_00d4
+		pushi	$a4		; 164, isEmpty
+		push0
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		bnt	code_00d4
+		pushi	$95		; 149, dispose
+		push0
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		pushi	$16d		; 365, obstacles
+		push1
+		push0
+		lat	temp[$9]
+		send	$6
+		bnot
+code_00d4:	pushi	$44		; 68, 'D', mover
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sat	temp[$9]
+		bnt	code_0476
+		pushi	$45		; 69, 'E', doit
+		push0
+		send	$4
+		bnot
+		sat	temp[$4]
+		bnt	code_0476
+		pushi	$154		; 340, completed
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		not
+		bnt	code_0476
+		pushi	$97		; 151, isKindOf
+		push1
+		class	PolyPath
+		push
+		lat	temp[$9]
+		send	$6
+		bnot
+		bnt	code_0476
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$44		; 68, 'D', mover
+		lat	temp[$4]
+		send	$6
+		bnot
+		bnt	code_012e
+		pushi	$44		; 68, 'D', mover
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		aTop	oldBlockerMover
+		pToa	oldBlockerMover
+		bnt	code_0132
+		pushi	$44		; 68, 'D', mover
+		push1
+		push0
+		lat	temp[$4]
+		send	$6
+		bnot
+		jmp	code_0132
+
+code_012e:	ldi	$0
+		aTop	oldBlockerMover
+code_0132:	pushi	$173		; 371, finalX
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		aTop	oldMoverX
+		pushi	$174		; 372, finalY
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		aTop	oldMoverY
+		lat	temp[$4]
+		aTop	oldBlocker
+		pushi	$197		; 407, ignoreActors
+		push1
+		push1
+		send	$6
+		bnot
+		pushi	$1c		; 28, brLeft
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		push2
+		pushi	$3f		; 63, '?', xStep
+		push0
+		pToa	client
+		send	$4
+		bnot
+		mul
+		push
+		push2
+		pushi	$3		; z
+		pushi	$e		; 14, view
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		callk	kernel_28, $6
+		bnot
+		push
+		pushi	$3		; z
+		pushi	$e		; 14, view
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		push0
+		push0
+		callk	kernel_28, $6
+		bnot
+		push
+		calle	export60025_3, $4
+		bnot
+		push
+		ldi	$2
+		div
+		add
+		sat	temp[$2]
+		sub
+		sat	temp[$5]
+		push2
+		pushi	$40		; 64, '@', yStep
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		mul
+		sat	temp[$3]
+		pushi	$1e		; 30, brRight
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		lat	temp[$2]
+		add
+		sat	temp[$7]
+		push2
+		push0
+		lat	temp[$4]
+		send	$4
+		bnot
+		push
+		lat	temp[$3]
+		add
+		push
+		ldi	$2
+		add
+		sat	temp[$8]
+		push
+		lat	temp[$6]
+		sub
+		push
+		ldi	$3		; z
+		le?
+		bnt	code_01e1
+		lst	temp[$6]
+		ldi	$2
+		sub
+		sat	temp[$6]
+		lst	temp[$8]
+		ldi	$2
+		add
+		sat	temp[$8]
+code_01e1:	pushi	$173		; 371, finalX
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sub
+		sat	temp[$0]
+		pushi	$174		; 372, finalY
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sub
+		sat	temp[$1]
+		pushi	$43		; 67, 'C', heading
+		push0
+		pToa	client
+		send	$4
+		bnot
+		sat	temp[$17]
+		pushi	$55		; 85, 'U', button
+		le?
+		bnt	code_0224
+		pprev
+		ldi	$5f		; 95, '_', min
+		le?
+		bnt	code_0224
+		ldi	$0
+		sat	temp[$e]
+		jmp	code_024a
+
+code_0224:	pushi	$109		; 265, timeLeft
+		lat	temp[$17]
+		le?
+		bnt	code_0239
+		pprev
+		ldi	$113		; 275, mul
+		le?
+		bnt	code_0239
+		ldi	$1
+		sat	temp[$e]
+		jmp	code_024a
+
+code_0239:	lst	temp[$1]
+		ldi	$0
+		ge?
+		bnt	code_0246
+		ldi	$2
+		sat	temp[$e]
+		jmp	code_024a
+
+code_0246:	ldi	$3		; z
+		sat	temp[$e]
+code_024a:	lst	temp[$e]
+		dup
+		ldi	$3		; z
+		eq?
+		bnt	code_0298
+		pushi	$94		; 148, init
+		pushi	$a		; 10, inTop
+		lst	temp[$5]
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lst	temp[$5]
+		lst	temp[$6]
+		lst	temp[$7]
+		lst	temp[$6]
+		lst	temp[$7]
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pushi	$7777		; 30583
+		push0
+		pushi	$2b		; 43, '+', type
+		push1
+		push2
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0028	; "isBlockedPoly"
+		push
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		send	$28
+		bnot
+		sat	temp[$11]
+		jmp	code_0378
+
+code_0298:	dup
+		ldi	$2
+		eq?
+		bnt	code_02e4
+		pushi	$94		; 148, init
+		pushi	$a		; 10, inTop
+		lst	temp[$7]
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lst	temp[$7]
+		lst	temp[$8]
+		lst	temp[$5]
+		lst	temp[$8]
+		lst	temp[$5]
+		push2
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		pushi	$7777		; 30583
+		push0
+		pushi	$2b		; 43, '+', type
+		push1
+		push2
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0028	; "isBlockedPoly"
+		push
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		send	$28
+		bnot
+		sat	temp[$11]
+		jmp	code_0378
+
+code_02e4:	dup
+		ldi	$0
+		eq?
+		bnt	code_032f
+		pushi	$94		; 148, init
+		pushi	$a		; 10, inTop
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lst	temp[$6]
+		lst	temp[$7]
+		lst	temp[$6]
+		lst	temp[$7]
+		lst	temp[$8]
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lst	temp[$8]
+		pushi	$7777		; 30583
+		push0
+		pushi	$2b		; 43, '+', type
+		push1
+		push2
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0028	; "isBlockedPoly"
+		push
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		send	$28
+		bnot
+		sat	temp[$11]
+		jmp	code_0378
+
+code_032f:	dup
+		ldi	$1
+		eq?
+		bnt	code_0378
+		pushi	$94		; 148, init
+		pushi	$a		; 10, inTop
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lst	temp[$8]
+		lst	temp[$5]
+		lst	temp[$8]
+		lst	temp[$5]
+		lst	temp[$6]
+		push1
+		push0
+		pToa	client
+		send	$4
+		bnot
+		push
+		lst	temp[$6]
+		pushi	$7777		; 30583
+		push0
+		pushi	$2b		; 43, '+', type
+		push1
+		push2
+		pushi	$20		; 32, ' ', name
+		push1
+		lofsa	string_0028	; "isBlockedPoly"
+		push
+		pushi	$9a		; 154, yourself
+		push0
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		send	$28
+		bnot
+		sat	temp[$11]
+code_0378:	toss
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		not
+		bnt	code_0398
+		pushi	$16d		; 365, obstacles
+		push1
+		pushi	$8d		; 141, new
+		push0
+		class	List
+		send	$4
+		bnot
+		push
+		lat	temp[$9]
+		send	$6
+		bnot
+code_0398:	pushi	$3		; z
+		pushi	$5b		; 91, '[', points
+		push0
+		lat	temp[$11]
+		send	$4
+		bnot
+		push
+		pushi	$24		; 36, '$', elements
+		push0
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		pushi	$5a		; 90, 'Z', size
+		push0
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		send	$4
+		bnot
+		push
+		callk	kernel_102, $6
+		bnot
+		sat	temp[$10]
+		bnt	code_03f1
+		pushi	$5b		; 91, '[', points
+		push1
+		push
+		pushi	$5a		; 90, 'Z', size
+		push1
+		push1
+		push
+		call	code_0476, $2
+		bnot
+		push
+		pushi	$2b		; 43, '+', type
+		push1
+		push2
+		pushi	$16e		; 366, dynamic
+		push1
+		push1
+		pushi	$8d		; 141, new
+		push0
+		class	Polygon
+		send	$4
+		bnot
+		sat	temp[$f]
+		send	$18
+		bnot
+code_03f1:	pushi	$9f		; 159, add
+		push1
+		lst	temp[$f]
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$51		; 81, 'Q', value
+		push1
+		push2
+		pushi	$94		; 148, init
+		pushi	$3		; z
+		pTos	client
+		pushi	$173		; 371, finalX
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		pushi	$174		; 372, finalY
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		lat	temp[$9]
+		send	$10
+		bnot
+		pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$f]
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$58		; 88, 'X', delete
+		push1
+		lst	temp[$11]
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		send	$6
+		bnot
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		bnt	code_0464
+		push1
+		pushi	$16d		; 365, obstacles
+		push0
+		lat	temp[$9]
+		send	$4
+		bnot
+		push
+		call	code_049e, $2
+		bnot
+code_0464:	pushi	$95		; 149, dispose
+		push0
+		lat	temp[$11]
+		send	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		lat	temp[$f]
+		send	$4
+		bnot
+code_0476:	ret
+
+		link	$5
+		ldi	$9c		; 156, handleError
+		sat	temp[$3]
+		ldi	$0
+		sat	temp[$0]
+code_0481:	lst	temp[$3]
+		ldi	$7777		; 30583
+		ne?
+		bnt	code_049c
+		pushi	$4b		; 75, 'K', at
+		push1
+		push2
+		lat	temp[$0]
+		mul
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$3]
+		+at	temp[$0]
+		jmp	code_0481
+
+code_049c:	-at	temp[$0]
+code_049e:	ret
+
+		link	$4
+		pushi	$5a		; 90, 'Z', size
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		sat	temp[$3]
+		ldi	$0
+		sat	temp[$0]
+code_04af:	lst	temp[$0]
+		lat	temp[$3]
+		lt?
+		bnt	code_04e2
+		pushi	$4b		; 75, 'K', at
+		push1
+		lst	temp[$0]
+		lap	param[$1]
+		send	$6
+		bnot
+		sat	temp[$1]
+		pushi	$2b		; 43, '+', type
+		push0
+		send	$4
+		bnot
+		sat	temp[$2]
+		push
+		ldi	$10		; 16, cel
+		ge?
+		bnt	code_04de
+		pushi	$2b		; 43, '+', type
+		push1
+		lst	temp[$2]
+		ldi	$10		; 16, cel
+		sub
+		push
+		lat	temp[$1]
+		send	$6
+		bnot
+code_04de:	+at	temp[$0]
+		jmp	code_04af
+
+code_04e2:	ret
+
diff --git a/Script/Script60087.txt b/Script/Script60087.txt
new file mode 100644
index 0000000..395a680
--- /dev/null
+++ b/Script/Script60087.txt
@@ -0,0 +1,169 @@
+Flags::init:
+		pToa	size
+		bnt	code_0050
+		pToa	array
+		not
+		bnt	code_0050
+		pushi	$1be		; 446, setSize
+		push1
+		pTos	size
+		self	$6
+		bnot
+code_0050:	ret
+
+Flags::setSize:
+		link	$2
+		lsp	param[$1]
+		ldi	$10		; 16, cel
+		div
+		sat	temp[$0]
+		lsp	param[$1]
+		ldi	$10		; 16, cel
+		mod
+		bnt	code_0063
+		+at	temp[$0]
+code_0063:	lst	temp[$0]
+		ldi	$10		; 16, cel
+		mul
+		aTop	size
+		pushi	$8d		; 141, new
+		push1
+		lst	temp[$0]
+		ldi	$2
+		mul
+		push
+		class	IntArray
+		send	$6
+		bnot
+		aTop	array
+		pushi	$d6		; 214, fill
+		push2
+		push0
+		lst	temp[$0]
+		ldi	$2
+		mul
+		push
+		pToa	array
+		send	$8
+		bnot
+		ret
+
+Flags::dispose:
+		pToa	array
+		bnt	code_009b
+		pushi	$95		; 149, dispose
+		push0
+		send	$4
+		bnot
+		ldi	$0
+		aTop	array
+code_009b:	pushi	$95		; 149, dispose
+		push0
+		super	Obj, $4
+		bnot
+		ret
+
+Flags::set:
+		link	$2
+code_00a6:	lap	param[$0]
+		bnt	code_00de
+		-ap	param[$0]
+		lspi	param[$1]
+		ldi	$10		; 16, cel
+		div
+		push
+		ldi	$2
+		mul
+		sat	temp[$1]
+		pushi	$4b		; 75, 'K', at
+		push1
+		push
+		pToa	array
+		send	$6
+		bnot
+		sat	temp[$0]
+		push
+		pushi	$8000		; -32768
+		lap	param[$0]
+		lspi	param[$1]
+		ldi	$10		; 16, cel
+		mod
+		shr
+		or
+		sat	temp[$0]
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$1]
+		push
+		pToa	array
+		send	$8
+		bnot
+		jmp	code_00a6
+
+code_00de:	ret
+
+Flags::clear:
+		link	$2
+code_00e1:	lap	param[$0]
+		bnt	code_011a
+		-ap	param[$0]
+		lspi	param[$1]
+		ldi	$10		; 16, cel
+		div
+		push
+		ldi	$2
+		mul
+		sat	temp[$1]
+		pushi	$4b		; 75, 'K', at
+		push1
+		push
+		pToa	array
+		send	$6
+		bnot
+		sat	temp[$0]
+		push
+		pushi	$8000		; -32768
+		lap	param[$0]
+		lspi	param[$1]
+		ldi	$10		; 16, cel
+		mod
+		shr
+		bnot
+		and
+		sat	temp[$0]
+		pushi	$4b		; 75, 'K', at
+		push2
+		lst	temp[$1]
+		push
+		pToa	array
+		send	$8
+		bnot
+		jmp	code_00e1
+
+code_011a:	ret
+
+Flags::test:
+		link	$2
+		lsp	param[$1]
+		ldi	$10		; 16, cel
+		div
+		push
+		ldi	$2
+		mul
+		sat	temp[$1]
+		pushi	$4b		; 75, 'K', at
+		push1
+		push
+		pToa	array
+		send	$6
+		bnot
+		sat	temp[$0]
+		push
+		pushi	$8000		; -32768
+		lsp	param[$1]
+		ldi	$10		; 16, cel
+		mod
+		shr
+		and
+		ret
+
diff --git a/Script/Script60088.txt b/Script/Script60088.txt
new file mode 100644
index 0000000..df66004
--- /dev/null
+++ b/Script/Script60088.txt
@@ -0,0 +1,206 @@
+WinDialogSet::add:
+		link	$3
+		pushi	$99		; 153, respondsTo
+		push1
+		pushi	$c8		; 200, handleEvent
+		lap	param[$1]
+		send	$6
+		bnot
+		not
+		bnt	code_00a6
+		push1
+		lofsa	string_005c	; "Found it."
+		push
+		callk	kernel_132, $2
+		bnot
+code_00a6:	pushi	$9f		; 159, add
+		push1
+		lsp	param[$1]
+		&rest	$2
+		super	Set, $6
+		bnot
+		ret
+
+WinDialogHandler::init:
+		pToa	pWindow
+		bnt	code_00c3
+		push2
+		pushi	$2c		; 44, ',', window
+		push
+		callk	kernel_118, $4
+		bnot
+		ldi	$0
+		aTop	pWindow
+code_00c3:	push2
+		pushi	$2b		; 43, '+', type
+		push2
+		pushi	$9		; inLeft
+		lsp	param[$1]
+		callk	kernel_91, $4
+		bnot
+		push
+		callk	kernel_118, $4
+		bnot
+		aTop	pWindow
+		pushi	$9f		; 159, add
+		push1
+		pushSelf
+		class	WinDialogSet
+		send	$6
+		bnot
+		ret
+
+WinDialogHandler::dispose:
+		pToa	pWindow
+		bnt	code_00f1
+		push2
+		pushi	$2c		; 44, ',', window
+		push
+		callk	kernel_118, $4
+		bnot
+		ldi	$0
+		aTop	pWindow
+code_00f1:	pushi	$58		; 88, 'X', delete
+		push1
+		pushSelf
+		class	WinDialogSet
+		send	$6
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+WinDialogHandler::handleEvent:
+		ldi	$0
+		ret
+
+WinDialogHandler::disable:
+		push2
+		pushi	$32		; 50, '2', edit
+		pTos	pWindow
+		callk	kernel_118, $4
+		bnot
+code_0111:	pushi	$2b		; 43, '+', type
+		push0
+		pushi	$f3		; 243, nextEvent
+		push1
+		pushi	$7fff		; 32767
+		lag	global[$e]
+		send	$6
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$0
+		ne?
+		bnt	code_012b
+		jmp	code_0111
+
+code_012b:	ret
+
+WinDialogHandler::enable:
+		push2
+		pushi	$31		; 49, '1', message
+		pTos	pWindow
+		callk	kernel_118, $4
+		bnot
+code_0135:	pushi	$2b		; 43, '+', type
+		push0
+		pushi	$f3		; 243, nextEvent
+		push1
+		pushi	$7fff		; 32767
+		lag	global[$e]
+		send	$6
+		bnot
+		send	$4
+		bnot
+		push
+		ldi	$0
+		ne?
+		bnt	code_014f
+		jmp	code_0135
+
+code_014f:	ret
+
+DialogHandler::doit:
+		lap	param[$0]
+		bnt	code_016b
+		pushi	$24e		; 590, handsOff
+		push0
+		lag	global[$2]
+		send	$4
+		bnot
+		lap	param[$1]
+		bnt	code_0167
+		ldi	$1
+		sag	global[$32]
+		jmp	code_016b
+
+code_0167:	ldi	$0
+		aTop	scratch
+code_016b:	ret
+
+DialogHandler::init:
+		selfID
+		sag	global[$13]
+		pushi	$94		; 148, init
+		push0
+		super	Set, $4
+		bnot
+		pushi	$9f		; 159, add
+		push0
+		self	$4
+		bnot
+		ret
+
+DialogHandler::dispose:
+		ldi	$0
+		sag	global[$13]
+		pushi	$95		; 149, dispose
+		push0
+		super	Set, $4
+		bnot
+		ret
+
+DialogHandler::handleEvent:
+		link	$1
+		pushi	$2b		; 43, '+', type
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		ldi	$100		; 256, strMax
+		and
+		bnt	code_01b6
+		pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$c8		; 200, handleEvent
+		lsp	param[$1]
+		class	WinDialogSet
+		send	$8
+		bnot
+		pushi	$50		; 80, 'P', claimed
+		push1
+		push1
+		lap	param[$1]
+		send	$6
+		bnot
+		jmp	code_01c2
+
+code_01b6:	pushi	$a0		; 160, firstTrue
+		push2
+		pushi	$1ce		; 462, process
+		lsp	param[$1]
+		self	$8
+		bnot
+code_01c2:	pushi	$50		; 80, 'P', claimed
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		ret
+