Upload files to "Script"

Script/Script40001.txt

@@ -0,0 +1,68 @@
+WDragger::dispose:
+		pushi	$359		; 857, stopDragging
+		push0
+		self	$4
+		bnot
+		pushi	$95		; 149, dispose
+		push0
+		&rest	$1
+		super	Obj, $4
+		bnot
+		ret
+
+WDragger::startDragging:
+		link	$2
+		pushi	$f4		; 244, curEvent
+		push0
+		lag	global[$e]
+		send	$4
+		bnot
+		sat	temp[$0]
+		push1
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push1
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		sub
+		aTop	pOfsX
+		push2
+		push0
+		lap	param[$1]
+		send	$4
+		bnot
+		push
+		push2
+		push0
+		lat	temp[$0]
+		send	$4
+		bnot
+		sub
+		aTop	pOfsY
+		pushi	$5		; scaleY
+		pushi	$19		; 25, lsBottom
+		push0
+		lsp	param[$1]
+		pTos	pOfsX
+		pTos	pOfsY
+		callk	kernel_118, $a
+		bnot
+		ldi	$1
+		aTop	pDragging
+		ret
+
+WDragger::stopDragging:
+		ldi	$0
+		aTop	pDragging
+		push2
+		pushi	$19		; 25, lsBottom
+		push1
+		callk	kernel_118, $4
+		bnot
+		ret
+