Upload files to "Script"

Script/Script40029.txt

@@ -0,0 +1,13 @@
+BTalk::buildVerbList:
+		lsp	param[$1]
+		lag	global[$1]
+		eq?
+		bnt	code_003e
+		pushi	$9f		; 159, add
+		push1
+		pushi	$4		; scaleX
+		class	VerbList
+		send	$6
+		bnot
+code_003e:	ret
+

Script/Script40030.txt

@@ -0,0 +1,89 @@
+BUse::buildVerbList:
+		link	$2
+		class	VerbList
+		sat	temp[$0]
+		pToa	pOwner
+		not
+		bnt	code_00c8
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldEgo
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_00c8
+		pushi	$35c		; 860, getBase
+		push1
+		class	BCarryable
+		push
+		pToa	pSelf
+		send	$6
+		bnot
+		not
+		bt	code_006b
+		pushi	$3a9		; 937, isOwnedBy
+		push1
+		lsg	global[$1]
+		pToa	pSelf
+		send	$6
+		bnot
+code_006b:	bnt	code_00c8
+		pTos	pVerb
+		dup
+		ldi	$1
+		eq?
+		bnt	code_0082
+		pushi	$9f		; 159, add
+		push1
+		pushi	$79		; 121, 'y', textBottom
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_00c7
+
+code_0082:	dup
+		ldi	$2
+		eq?
+		bnt	code_0095
+		pushi	$9f		; 159, add
+		push1
+		pushi	$7a		; 122, 'z', borderColor
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_00c7
+
+code_0095:	dup
+		ldi	$3		; z
+		eq?
+		bnt	code_00a8
+		pushi	$9f		; 159, add
+		push1
+		pushi	$7b		; 123, '{', titleFore
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_00c7
+
+code_00a8:	dup
+		ldi	$4		; scaleX
+		eq?
+		bnt	code_00bc
+		pushi	$9f		; 159, add
+		push1
+		pushi	$81		; 129, magnifier
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_00c7
+
+code_00bc:	pushi	$9f		; 159, add
+		push1
+		pushi	$7		; priority
+		lat	temp[$0]
+		send	$6
+		bnot
+code_00c7:	toss
+code_00c8:	ret
+

Script/Script40031.txt

@@ -0,0 +1,91 @@
+BSwitch::buildVerbList:
+		link	$1
+		class	VerbList
+		sat	temp[$0]
+		pToa	pOwner
+		not
+		bnt	code_0073
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldEgo
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_0073
+		pToa	pOpen
+		bnt	code_0068
+		pushi	$9f		; 159, add
+		push1
+		pushi	$7f		; 127, frameOut
+		lat	temp[$0]
+		send	$6
+		bnot
+		jmp	code_0073
+
+code_0068:	pushi	$9f		; 159, add
+		push1
+		pushi	$7e		; 126, '~', dimmed
+		lat	temp[$0]
+		send	$6
+		bnot
+code_0073:	ret
+
+BSwitch::handlesAction:
+		pushi	$3		; z
+		lsp	param[$1]
+		pushi	$248		; 584, open
+		pushi	$253		; 595, close
+		calle	export60025_4, $6
+		bnot
+		ret
+
+BSwitch::open:
+		link	$3
+		ldi	$0
+		sat	temp[$0]
+		pToa	pOpen
+		bnt	code_0096
+		ldi	$4		; scaleX
+		sat	temp[$0]
+		jmp	code_009a
+
+code_0096:	ldi	$1
+		aTop	pOpen
+code_009a:	lat	temp[$0]
+		ret
+
+BSwitch::close:
+		link	$2
+		ldi	$0
+		sat	temp[$0]
+		pToa	pOpen
+		bnt	code_00cf
+		ldi	$0
+		aTop	pOpen
+		pushi	$35c		; 860, getBase
+		push1
+		class	BLockable
+		push
+		pToa	pSelf
+		send	$6
+		bnot
+		sat	temp[$1]
+		bnt	code_00d3
+		pushi	$427		; 1063, pAutoLock
+		push0
+		send	$4
+		bnot
+		bnt	code_00d3
+		pushi	$34a		; 842, lock
+		push0
+		lat	temp[$1]
+		send	$4
+		bnot
+		jmp	code_00d3
+
+code_00cf:	ldi	$4		; scaleX
+		sat	temp[$0]
+code_00d3:	lat	temp[$0]
+		ret
+

Script/Script40032.txt

@@ -0,0 +1,25 @@
+BMix::buildVerbList:
+		link	$1
+		pushi	$97		; 151, isKindOf
+		push1
+		class	WorldEgo
+		push
+		lap	param[$1]
+		send	$6
+		bnot
+		bnt	code_005a
+		pushi	$3a9		; 937, isOwnedBy
+		push1
+		lsg	global[$1]
+		pToa	pSelf
+		send	$6
+		bnot
+		bnt	code_005a
+		pushi	$9f		; 159, add
+		push1
+		pushi	$7d		; 125, '}', titleFont
+		class	VerbList
+		send	$6
+		bnot
+code_005a:	ret
+