diff --git a/ootw/ootw_c1_arrival.s b/ootw/ootw_c1_arrival.s
index e32b8c9b..bf49d081 100644
--- a/ootw/ootw_c1_arrival.s
+++ b/ootw/ootw_c1_arrival.s
@@ -39,6 +39,7 @@ ootw_c1_arrival:
 	lda	#0
 	sta	GAME_OVER
 	sta	GAIT
+	sta	MONSTER_GRAB
 
 	lda	#20
 	sta	BUBBLES_Y
@@ -59,6 +60,18 @@ ootw_c1_arrival:
 	sta	tentacle_ypos+3
 	sta	tentacle_ypos+4
 
+	lda	#10
+	sta	tentacle_xpos
+	lda	#15
+	sta	tentacle_xpos+1
+	lda	#20
+	sta	tentacle_xpos+2
+	lda	#25
+	sta	tentacle_xpos+3
+	lda	#30
+	sta	tentacle_xpos+4
+
+
 	;============================
 	; Underwater Loop
 	;============================
@@ -96,6 +109,35 @@ underwater_loop:
 	; draw physicist
 	;=================================
 
+	lda	MONSTER_GRAB
+	beq	swim_physicist_normal
+
+	; draw being pulled by tentacle
+
+	ldx	MONSTER_WHICH
+	lda	tentacle_xpos,X
+	sta	XPOS
+
+	lda	tentacle_ypos,X
+	sec
+	sbc	#10
+	sta	YPOS
+
+	; see if game over
+	cmp	#75
+	bcc	not_too_far_down
+
+	lda	#$ff
+	sta	GAME_OVER
+
+not_too_far_down:
+
+	lda	#<swimming1
+	sta	INL
+	lda	#>swimming1
+	jmp	swim_physicist_draw
+
+swim_physicist_normal:
 	lda	PHYSICIST_X
 	sta	XPOS
 	lda	PHYSICIST_Y
@@ -106,6 +148,8 @@ underwater_loop:
 	lda	swim_progression,Y
 	sta	INL
 	lda	swim_progression+1,Y
+
+swim_physicist_draw:
 	sta	INH
 	jsr	put_sprite_crop
 
@@ -147,6 +191,9 @@ no_draw_bubbles:
 	; check keyboard
 	;===============================
 
+	lda	MONSTER_GRAB
+	bne	underwater_done_keyboard
+
 	lda	KEYPRESS
         bpl	underwater_done_keyboard
 
@@ -509,18 +556,151 @@ done_flash:
 	;======================
 
 move_tentacle_monster:
+	lda	MONSTER_GRAB
+	beq	move_tentacle_notgrabbed
+
+	;====================
+
+	lda	FRAMEL
+	and	#$7
+	bne	no_move_tentacle_grabbed
+
+	ldx	#0
+	jsr	random16
+	lda	SEEDL
+	sta	MONSTER_AI
+move_tentacle_grab_loop:
+
+
+	;=====================
+	; randomly adjust y
+
+	ror	MONSTER_AI
+	lda	MONSTER_AI
+	and	#$2
+	clc
+	adc	tentacle_ypos,X
+	sta	tentacle_ypos,X
+
+
+	; adjust place in animation
+
+
+	inc	tentacle_gait,X
+	lda	tentacle_gait,X
+	and	#$7
+	sta	tentacle_gait,X
+
+	inx
+	cpx	#5
+	bne	move_tentacle_grab_loop
+
+no_move_tentacle_grabbed:
+	rts
+
+
+
+
+move_tentacle_notgrabbed:
+
+;       P   P   P   P   P
+;       T   T   T   T   T
+;NnNnYyYyNn
+; NnNnYyYyNn
+;     TTT
+;
+;  if (physicist_x < tentacle+2) && (physicist_c>=tentacle)
+;  if (tentaclex>=physicist_c) &&  (tentaclex<physicist+2)
+
+
+; if (tentacle_x+2<physicist) not collision
+;;;;;;; if (tentacle_x>physicist+2) not collision
+; it (physicist-2>tentacle_x) not collision
+
+
+	;=====================
+	; check for grab
+
+	ldx	#0
+tentacle_collision_loop:
+
+	lda	PHYSICIST_X
+	sec
+	sbc	#2
+	cmp	tentacle_xpos,X
+	bcs	tentacle_no_collision		; bge
+
+	lda	tentacle_xpos,X
+	clc
+	adc	#2
+	cmp	PHYSICIST_X
+	bcc	tentacle_no_collision		; blt
+
+
+tentacle_collision_x:
+
+	lda	tentacle_ypos,X
+	sec
+	sbc	#10
+	cmp	PHYSICIST_Y
+	bcs	tentacle_no_collision		; bge
+
+tentacle_collision:
+
+	stx	MONSTER_WHICH
+	lda	#1
+	sta	MONSTER_GRAB
+
+	jmp	no_move_tentacle
+
+
+tentacle_no_collision:
+
+	inx
+	cpx	#5
+	bne	tentacle_collision_loop
+
+
+
+
+	;====================
+
 
 	lda	FRAMEL
 	and	#$7
 	bne	no_move_tentacle
 
-
 	ldx	#0
 	jsr	random16
 	lda	SEEDL
 	sta	MONSTER_AI
 move_tentacle_monster_loop:
 
+
+	;=====================
+	; move toward swimmer
+
+	lda	FRAMEL
+	and	#$3f
+	bne	tentacle_no_sideways
+
+	lda	tentacle_xpos,X
+	sec
+	sbc	PHYSICIST_X
+
+	bmi	tentacle_move_right
+
+	dec	tentacle_xpos,X
+	jmp	tentacle_no_sideways
+
+tentacle_move_right:
+	inc	tentacle_xpos,X
+tentacle_no_sideways:
+
+
+	;=====================
+	; randomly adjust y
+
 	ror	MONSTER_AI
 	lda	MONSTER_AI
 	and	#$2
@@ -529,12 +709,10 @@ move_tentacle_monster_loop:
 	adc	tentacle_ypos,X
 	sta	tentacle_ypos,X
 
-;	bne	random_not_move
-;	dec	tentacle_ypos,X
-
-
 random_not_move:
 
+	; adjust place in animation
+
 
 	inc	tentacle_gait,X
 	lda	tentacle_gait,X
@@ -547,8 +725,6 @@ random_not_move:
 
 no_move_tentacle:
 
-
-
 	rts
 
 
diff --git a/ootw/zp.inc b/ootw/zp.inc
index dd67fc37..5c570e97 100644
--- a/ootw/zp.inc
+++ b/ootw/zp.inc
@@ -128,7 +128,7 @@ ON_ELEVATOR	= $DF		; ALL
 LEFT_LIMIT	= $E0		; ALL
 RIGHT_LIMIT	= $E1		; ALL
 
-CONSOLE_Y	= $E2		; C1 arrival
+CONSOLE_Y	= $E2		; C1 underwater
 EXIT_COUNT	= $E2		; C1 pool
 WHICH_SLUG	= $E2		; C1
 TELEPORTING	= $E2		; C2 jail
@@ -136,6 +136,7 @@ TELEPORTING	= $E2		; C2 jail
 WHICH_CAVE	= $E3		; C1
 WHICH_JAIL	= $E3		; C2
 
+MONSTER_GRAB	= $E4		; C1 underwater
 BEAST_OUT	= $E4		; C1
 HAVE_GUN	= $E4		; C2 jail+
 
@@ -155,6 +156,7 @@ CURSOR_COUNT	= $E7		; INTRO
 PARTICLE_COUNT	= $E7		; INTRO
 MESSAGE_COUNT	= $E7		; INTRO
 
+MONSTER_WHICH	= $E8		; C1 underwater
 BOULDER_X	= $E8		; C1
 LITTLEGUY_OUT	= $E8		; C2 cage
 CART_X		= $E8		; C2 jail