Upload files to "Script"

Script/Script40218.txt

@@ -0,0 +1,202 @@
+ATPRoomTypeArray::isRoomType:
+		link	$1
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		sat	temp[$0]
+		lsp	param[$2]
+		dup
+		ldi	$1
+		eq?
+		bnt	code_012c
+		lst	temp[$0]
+		ldi	$1
+		and
+		jmp	code_01d4
+
+code_012c:	dup
+		ldi	$2
+		eq?
+		bnt	code_013a
+		lst	temp[$0]
+		ldi	$2
+		and
+		jmp	code_01d4
+
+code_013a:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_0148
+		lst	temp[$0]
+		ldi	$4		; scaleX
+		and
+		jmp	code_01d4
+
+code_0148:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_0156
+		lst	temp[$0]
+		ldi	$8		; fixPriority
+		and
+		jmp	code_01d4
+
+code_0156:	dup
+		ldi	$5		; scaleY
+		eq?
+		bnt	code_0164
+		lst	temp[$0]
+		ldi	$10		; 16, cel
+		and
+		jmp	code_01d4
+
+code_0164:	dup
+		ldi	$6		; maxScale
+		eq?
+		bnt	code_0171
+		lst	temp[$0]
+		ldi	$20		; 32, ' ', name
+		and
+		jmp	code_01d4
+
+code_0171:	dup
+		ldi	$7		; priority
+		eq?
+		bnt	code_017e
+		lst	temp[$0]
+		ldi	$40		; 64, '@', yStep
+		and
+		jmp	code_01d4
+
+code_017e:	dup
+		ldi	$8		; fixPriority
+		eq?
+		bnt	code_018c
+		lst	temp[$0]
+		ldi	$80		; 128, lastKey
+		and
+		jmp	code_01d4
+
+code_018c:	dup
+		ldi	$9		; inLeft
+		eq?
+		bnt	code_019a
+		lst	temp[$0]
+		ldi	$100		; 256, strMax
+		and
+		jmp	code_01d4
+
+code_019a:	dup
+		ldi	$a		; 10, inTop
+		eq?
+		bnt	code_01a8
+		lst	temp[$0]
+		ldi	$200		; 512, bottomValue
+		and
+		jmp	code_01d4
+
+code_01a8:	dup
+		ldi	$b		; 11, inRight
+		eq?
+		bnt	code_01b6
+		lst	temp[$0]
+		ldi	$400		; 1024, pEndurance
+		and
+		jmp	code_01d4
+
+code_01b6:	dup
+		ldi	$f		; 15, loop
+		eq?
+		bnt	code_01c4
+		lst	temp[$0]
+		ldi	$800		; 2048, BAD SELECTOR
+		and
+		jmp	code_01d4
+
+code_01c4:	dup
+		ldi	$f		; 15, loop
+		eq?
+		bnt	code_01d2
+		lst	temp[$0]
+		ldi	$1000		; 4096, -objID-
+		and
+		jmp	code_01d4
+
+code_01d2:	ldi	$0
+code_01d4:	toss
+		ret
+
+ATPFlagsArray::hasPolygon:
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		ldi	$0
+		shr
+		push
+		ldi	$1
+		and
+		bnt	code_01ec
+		ldi	$0
+		jmp	code_01ee
+
+code_01ec:	ldi	$ff		; 255, asInteger
+code_01ee:	ret
+
+ATPFlagsArray::doScaler:
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		ldi	$1
+		shr
+		push
+		ldi	$1
+		and
+		ret
+
+ATPFlagsArray::getVersion:
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		ldi	$2
+		shr
+		push
+		ldi	$3		; z
+		and
+		ret
+
+ATPRandRoomArray::isUncommon:
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		ldi	$1
+		and
+		ret
+
+ATPRandRoomArray::getPlacement:
+		pushi	$4b		; 75, 'K', at
+		push1
+		lsp	param[$1]
+		self	$6
+		bnot
+		push
+		ldi	$1
+		shr
+		push
+		ldi	$1fff		; 8191
+		and
+		ret
+