diff --git a/constants/seasons/parts.s b/constants/seasons/parts.s
index 882a0a9a6..006b249ac 100644
--- a/constants/seasons/parts.s
+++ b/constants/seasons/parts.s
@@ -94,8 +94,8 @@
 .define PART_MOTHULA_PROJECTILE_2 $42
 
 ;;
-; created by Gleeok - projectiles?
-.define PART_43 $43
+; projectiles created by Gleeok
+.define PART_GLEEOK_FLAME $43
 
 ;;
 ; created by medusa head
diff --git a/object_code/seasons/enemies/gleeok.s b/object_code/seasons/enemies/gleeok.s
index ea791c392..fe9eddae2 100644
--- a/object_code/seasons/enemies/gleeok.s
+++ b/object_code/seasons/enemies/gleeok.s
@@ -1,68 +1,94 @@
 ; ==================================================================================================
 ; ENEMY_GLEEOK
+;
+; Variables (subid 1, main body):
+;   var30-var37: Contain high bytes of other body parts with subids 2-9
+;   var38: Bitfield of which 3 bits are used:
+;     Bit 0: Set while one of the heads is performing one of the attacks 0-2 to block the other
+;            head from the same attack range
+;     Bit 1: Set whenever the left head is detached and floating through the room
+;     Bit 2: Set whenever the right head is detached and floating through the room
+;
+; Variables (subids 2 and 3, heads):
+;   var03: Attack pattern (0-5)
+;   relatedObj1: Points to the main body
+;   var30: Angle sequence index for movement in attack patterns 4 and 5
+;   var31: Wait timer for next angle update in attack patterns 4 and 5
+;   var39: Projectile target y for attack pattern 1
+;   var3a: Projectile target x for attack pattern 1
+;
+; Variables (subids 4 to 9, neck segments):
+;   relatedObj1: Points to the main body
+;   relatedObj2: Points to the head on the same side
 ; ==================================================================================================
 enemyCode06:
 	jr z,@normalStatus
-	sub $03
+	sub ENEMYSTATUS_NO_HEALTH
 	ret c
 	jr nz,@normalStatus
+	; If main body has no health, consider the boss defeated
 	ld e,Enemy.subid
 	ld a,(de)
 	dec a
 	jp z,enemyBoss_dead
-	ld e,$a4
+	ld e,Enemy.collisionType
 	ld a,(de)
 	or a
 	jp z,enemyDie_uncounted_withoutItemDrop
+	; Otherwise a head has no health, mark it as floating in main body variable
 	ld e,Enemy.subid
 	ld a,(de)
 	cp $02
-	ld b,$02
+	ld b,$02 ; left head
 	jr z,+
-	ld b,$04
+	ld b,$04 ; right head
 +
-	ld a,$38
+	ld a,Object.var38
 	call objectGetRelatedObject1Var
 	ld a,(hl)
 	or b
 	ld (hl),a
+	; If this head is currently performing a fire attack and the other head is also attacking,
+	; advance the other head to state $0c so it can pick a fire attack soon
 	ld e,Enemy.state
 	ld a,(de)
 	cp $0b
 	jr nz,+
-	ld e,$83
+	ld e,Enemy.var03
 	ld a,(de)
 	cp $03
 	jr nc,+
-	ld e,$82
+	ld e,Enemy.subid
 	ld a,(de)
 	xor $01
-	add $ae
+	add Enemy.var30-2
 	ld l,a
 	ld h,(hl)
-	ld l,$84
+	ld l,Enemy.state
 	ld a,(hl)
 	cp $0b
 	jr nz,+
 	inc (hl)
 +
+	; Put head in state $0e (floating across the room)
 	ld h,d
-	ld l,$84
+	ld l,Enemy.state
 	ld (hl),$0e
-	ld l,$a4
+	; Reset health and make immune to attacks
+	ld l,Enemy.collisionType
 	set 7,(hl)
 	inc l
-	ld (hl),$04
-	ld l,$a9
+	ld (hl),ENEMYCOLLISION_PODOBOO ; [enemyCollisionMode]
+	ld l,Enemy.health
 	ld (hl),$19
-	ld l,$ac
+	ld l,Enemy.knockbackAngle
 	ld a,(hl)
-	ld l,$89
+	ld l,Enemy.angle
 	ld (hl),a
-	ld l,$90
-	ld (hl),$50
-	ld l,$86
-	ld (hl),$96
+	ld l,Enemy.speed
+	ld (hl),SPEED_200
+	ld l,Enemy.counter1
+	ld (hl),150
 	xor a
 	jp enemySetAnimation
 
@@ -70,128 +96,139 @@ enemyCode06:
 	call ecom_getSubidAndCpStateTo08
 	jr nc,+
 	rst_jumpTable
-	.dw @state0
-	.dw @state1
-	.dw @stateStub
-	.dw @stateStub
-	.dw @stateStub
-	.dw @stateStub
-	.dw @stateStub
-	.dw @stateStub
+	.dw gleeok_state_uninitialized
+	.dw gleeok_state_spawner
+	.dw gleeok_state_stub
+	.dw gleeok_state_stub
+	.dw gleeok_state_stub
+	.dw gleeok_state_stub
+	.dw gleeok_state_stub
+	.dw gleeok_state_stub
 +
 	dec b
 	ld a,b
 	rst_jumpTable
-	.dw @subid1
-	.dw @subid2
-	.dw @subid3
-	.dw @subid4
-	.dw @subid5
-	.dw @subid6
-	.dw @subid7
-	.dw @subid8
-	.dw @subid9
-
-@state0:
+	.dw gleeok_body
+	.dw gleeok_headLeft
+	.dw gleeok_headRight
+	.dw gleeok_neckTopLeft
+	.dw gleeok_neckTopRight
+	.dw gleeok_neckMiddleLeft
+	.dw gleeok_neckMiddleRight
+	.dw gleeok_neckBottomLeft
+	.dw gleeok_neckBottomRight
+
+; Initialize room or body part depending on subid
+gleeok_state_uninitialized:
 	ld a,b
 	or a
-	jp z,+
+	jp z,@initializeRoom
 	call ecom_setSpeedAndState8AndVisible
-	jp func_6c6b
-+
+	jp gleeok_initializeBodyPart
+
+@initializeRoom:
 	inc a
-	ld (de),a
-	ld a,$06
-	ld b,$87
+	ld (de),a ; [state]
+	ld a,ENEMY_GLEEOK
+	ld b,PALH_SEASONS_87
 	call enemyBoss_initializeRoom
 
-@state1:
-	ld b,$09
+; Spawn the 9 body parts with references between main body and other parts, then delete self
+gleeok_state_spawner:
+	ld b,9
 	call checkBEnemySlotsAvailable
 	ret nz
 	ld b,ENEMY_GLEEOK
 	call ecom_spawnUncountedEnemyWithSubid01
-	ld l,$80
+	ld l,Enemy.enabled
 	ld e,l
 	ld a,(de)
 	ld (hl),a
-	ld l,$b0
+	ld l,Enemy.var30
 	ld c,h
-	ld e,$08
+	; Spawn 8 enemy objects (2 heads and 6 neck segments)
+	ld e,8
 -
 	push hl
 	call ecom_spawnUncountedEnemyWithSubid01
 	ld a,$0a
 	sub e
-	ld (hl),a
-	ld l,$96
-	ld a,$80
+	ld (hl),a ; [subid]
+	; Make relatedObj1 point to main body
+	ld l,Enemy.relatedObj1
+	ld a,Enemy.start
 	ldi (hl),a
 	ld (hl),c
 	ld a,h
 	pop hl
-	ldi (hl),a
+	ldi (hl),a ; [var30] through [var37]
 	dec e
 	jr nz,-
 	jp enemyDelete
 
-@stateStub:
+gleeok_state_stub:
 	ret
 
-@subid1:
+; Main body
+gleeok_body:
 	ld a,(de)
 	sub $08
 	rst_jumpTable
-	.dw @@state8
-	.dw @@state9
-	.dw @@stateA
-	.dw @@stateB
-	.dw @@stateC
-	.dw @@stateD
-	.dw @@stateE
-	.dw @@stateF
-	.dw @@stateG
-	
-@@state8:
+	.dw gleeok_body_state8
+	.dw gleeok_body_state9
+	.dw gleeok_body_stateA
+	.dw gleeok_body_stateB
+	.dw gleeok_body_stateC
+	.dw gleeok_body_stateD
+	.dw gleeok_body_stateE
+	.dw gleeok_body_stateF
+	.dw gleeok_body_state10
+
+; Start playing music once the shutter door is closed
+gleeok_body_state8:
 	ld a,(wcc93)
 	or a
 	ret nz
 	ld h,d
 	ld l,e
-	inc (hl)
-	ld a,$2e
+	inc (hl) ; [state]
+	ld a,MUS_BOSS
 	ld (wActiveMusic),a
 	jp playSound
-	
-@@state9:
-	ld e,$b8
+
+; Wait until both heads are floating
+gleeok_body_state9:
+	ld e,Enemy.var38
 	ld a,(de)
 	bit 1,a
-	jr z,@@animate
+	jr z,gleeok_body_animate
 	bit 2,a
-	jr z,@@animate
+	jr z,gleeok_body_animate
+	; Both heads are floating, prepare second phase
 	ld h,d
-	ld l,$84
+	ld l,Enemy.state
 	inc (hl)
-	ld l,$87
-	ld (hl),$3c
-	ld e,$b0
+	ld l,Enemy.counter2
+	ld (hl),60
+	; Set health of heads to 0 and disable their collision
+	ld e,Enemy.var30
 	ld a,(de)
 	ld h,a
-	ld l,$a9
+	ld l,Enemy.health
 	xor a
-	ld (hl),a
-	ld l,$a4
+	ld (hl),a ; left head
+	ld l,Enemy.collisionType
 	ld (hl),a
 	inc e
-	ld a,(de)
+	ld a,(de) ; [var31]
 	ld h,a
 	xor a
-	ld (hl),a
-	ld l,$a9
-	ld (hl),a
-	ld hl,$ce16
-	xor a
+	ld (hl),a ; [collisionType]
+	ld l,Enemy.health
+	ld (hl),a ; right head
+	; Make floor under main body no longer solid
+	ld hl,wRoomCollisions+$16
+	xor a ; Unnecessary
 	ldi (hl),a
 	ldi (hl),a
 	ld (hl),a
@@ -199,249 +236,276 @@ enemyCode06:
 	ldi (hl),a
 	ldi (hl),a
 	ld (hl),a
-	ld a,$67
+	ld a,SND_BOSS_DEAD
 	call playSound
-	ld a,$f0
+	ld a,SNDCTRL_STOPMUSIC
 	jp playSound
-	
-@@stateA:
+
+; Flicker and transition to second phase
+gleeok_body_stateA:
 	call ecom_decCounter2
 	jp nz,ecom_flickerVisibility
 	ld bc,$020c
 	call enemyBoss_spawnShadow
 	jp nz,ecom_flickerVisibility
 	ld h,d
-	ld l,$84
+	ld l,Enemy.state
 	inc (hl)
-	ld l,$86
-	ld (hl),$1e
+	ld l,Enemy.counter1
+	ld (hl),30
 	ld a,$04
 	call enemySetAnimation
-	
-@@stateB:
+
+; Start playing music again
+gleeok_body_stateB:
 	call ecom_decCounter1
 	jp nz,ecom_flickerVisibility
-	inc (hl)
+	inc (hl) ; [counter1] = 1
 	ld l,e
-	inc (hl)
-	ld l,$a4
+	inc (hl) ; [state]
+	ld l,Enemy.collisionType
 	set 7,(hl)
-	ld a,$2e
+	ld a,MUS_BOSS
 	ld (wActiveMusic),a
 	call playSound
-	ld e,$84
-	
-@@stateC:
+	ld e,Enemy.state
+
+; Start jump
+gleeok_body_stateC:
 	call ecom_decCounter1
 	jr nz,+
 	ld l,e
-	inc (hl)
+	inc (hl) ; [state]
 	ld bc,$fdc0
 	call objectSetSpeedZ
 	jp objectSetVisible81
 +
-	ld a,(hl)
-	cp $0a
+	ld a,(hl) ; [counter1]
+	cp 10
 	ret c
 
-@@animate:
+gleeok_body_animate:
 	jp enemyAnimate
-	
-@@stateD:
+
+; Perform jump and shake the ground when landing
+gleeok_body_stateD:
 	ld c,$20
 	call objectUpdateSpeedZ_paramC
 	ret nz
-	ld l,$84
+	ld l,Enemy.state
 	inc (hl)
-	ld l,$86
-	ld (hl),$96
-	ld a,$78
+	ld l,Enemy.counter1
+	ld (hl),150
+	ld a,120
 	call setScreenShakeCounter
 	call objectSetVisible82
-	ld a,$81
+	ld a,SND_STRONG_POUND
 	jp playSound
-	
-@@stateE:
+
+; Stun Link if he touches the ground within 15 frames after landing, then after waiting set the angle to face Link
+gleeok_body_stateE:
 	call ecom_decCounter1
-	jr z,+
-	ld a,(hl)
-	cp $87
-	jr c,@@animate
-	ld a,($d00f)
+	jr z,@prepareRunTowardsLink
+	ld a,(hl) ; [counter1]
+	cp 135
+	jr c,gleeok_body_animate
+	ld a,(w1Link.zh)
 	rlca
 	ret c
-	ld hl,$cc6a
+	ld hl,wLinkForceState
 	ld a,$14
 	ldi (hl),a
-	ld (hl),$00
+	ld (hl),$00 ; [wcc50]
 	ret
-+
+
+@prepareRunTowardsLink:
 	ld l,e
-	inc (hl)
-	ld l,$90
-	ld (hl),$50
+	inc (hl) ; [state]
+	ld l,Enemy.speed
+	ld (hl),SPEED_200
 	call ecom_updateAngleTowardTarget
-	jr @@animate
-	
-@@stateF:
-	ld a,$01
+	jr gleeok_body_animate
+
+; Run until a wall is encountered
+gleeok_body_stateF:
+	ld a,$01 ; Holes count as walls
 	call ecom_getSideviewAdjacentWallsBitset
-	jr nz,+
+	jr nz,@reachedWall
 	call objectApplySpeed
-	jr @@animate
-+
-	ld a,$28
+	jr gleeok_body_animate
+
+@reachedWall:
+	ld a,40
 	call setScreenShakeCounter
 	ld h,d
-	ld l,$84
+	ld l,Enemy.state
 	inc (hl)
-	ld l,$90
-	ld (hl),$14
-	ld l,$89
+	ld l,Enemy.speed
+	ld (hl),SPEED_80
+	; Bounce in opposite direction of running
+	ld l,Enemy.angle
 	ld a,(hl)
 	xor $10
 	ld (hl),a
 	ld bc,$fe80
 	call objectSetSpeedZ
-	jr @@animate
-	
-@@stateG:
+	jr gleeok_body_animate
+
+; Perform bounce away from wall
+gleeok_body_state10:
 	call ecom_applyVelocityForSideviewEnemyNoHoles
 	ld c,$20
 	call objectUpdateSpeedZ_paramC
-	jr nz,@@animate
-	ld l,$84
+	jr nz,gleeok_body_animate
+	ld l,Enemy.state
 	ld (hl),$0c
-	ld l,$86
-	ld (hl),$3c
-	jr @@animate
+	ld l,Enemy.counter1
+	ld (hl),60
+	jr gleeok_body_animate
 
-@subid2:
+; Left head
+gleeok_headLeft:
 	ld a,(de)
 	sub $08
 	rst_jumpTable
-	.dw @@state8
-	.dw @@incStateWhenCounter1Is0
-	.dw @@stateA
-	.dw @@stateB
-	.dw @@stateC
-	.dw @@stateD
-	.dw @@stateE
-	.dw @@stateF
-	.dw @@incStateWhenCounter1Is0
-	.dw @@stateH
-	
-@@state8:
+	.dw gleeok_headLeft_state8
+	.dw gleeok_head_state9
+	.dw gleeok_headLeft_stateA
+	.dw gleeok_head_stateB
+	.dw gleeok_head_stateC
+	.dw gleeok_head_stateD
+	.dw gleeok_head_stateE
+	.dw gleeok_head_stateF
+	.dw gleeok_head_state10
+	.dw gleeok_head_state11
+
+; Initialize head-specific properties
+gleeok_headLeft_state8:
 	ld h,d
 	ld l,Enemy.angle
 	ld (hl),$14
-@@incStateEnableCollisionsSetCounterAndSpeed:
+@rightHeadEntry:
 	ld l,e
-	inc (hl)
+	inc (hl) ; [state]
 	ld l,Enemy.collisionType
 	set 7,(hl)
 	ld l,Enemy.counter1
-	ld (hl),$3c
+	ld (hl),60
 	ld l,Enemy.speed
 	ld (hl),SPEED_80
 	ret
-	
-@@incStateWhenCounter1Is0:
+
+; Increment state when counter1 reaches 0 after decrementing
+gleeok_head_state9:
+gleeok_head_state10:
 	call ecom_decCounter1
 	jp nz,objectApplySpeed
 	ld l,e
-	inc (hl)
+	inc (hl) ; [state]
 	ret
-	
-@@stateA:
+
+; Pick the next attack pattern
+gleeok_headLeft_stateA:
 	ld b,$04
-@@func_6905:
-	ld a,$38
+@rightHeadEntry:
+	; If other head is currently floating, pick one of the attacks 0-2
+	ld a,Object.var38
 	call objectGetRelatedObject1Var
 	ld a,(hl)
 	and b
 	ld c,$03
-	ld l,$b8
-	jr nz,+
+	ld l,Enemy.var38
+	jr nz,@lowAttackPattern ; Confusing order, this branch could have been 2 operations earlier
+	; If the other head is doing one of the attacks 0-2, pick an attack 3-5
 	bit 0,(hl)
-	jr nz,++
-	ld e,$82
+	jr nz,@highAttackPattern
+	; If right head, pick an attack 0-2
+	ld e,Enemy.subid
 	ld a,(de)
 	cp $03
-	jr z,+
+	jr z,@lowAttackPattern
+	; If right head is in state $10 or $11 (just came back to main body after floating), pick an attack 0-2
 	ld b,h
-	ld l,$b1
+	ld l,Enemy.var31
 	ld h,(hl)
-	ld l,$84
+	ld l,Enemy.state
 	ld a,(hl)
 	cp $10
 	ld h,b
-	jr nc,+
+	jr nc,@lowAttackPattern
+	; If Link is in the left half of the room, pick an attack 0-2, otherwise 3-5
 	ldh a,(<hEnemyTargetX)
 	cp $78
-	jr nc,++
-+
-	ld l,$b8
+	jr nc,@highAttackPattern
+@lowAttackPattern:
+	ld l,Enemy.var38
 	set 0,(hl)
 	ld c,$00
-++
+@highAttackPattern:
+	; If Link is in the top half of the room, pick attack 0 or 3
 	ldh a,(<hEnemyTargetY)
 	cp $58
 	ld b,$00
-	jr c,+
+	jr c,@setAttackPattern
+	; If Link is near the bottom of the room (Y position $70 or greater), pick attack 2 or 5
 	ld b,$02
 	sub $70
 	cp $40
-	jr c,+
+	jr c,@setAttackPattern
+	; Otherwise, choose randomly between attack 1/4 or 2/5
 	call getRandomNumber
 	and $01
 	inc a
 	ld b,a
-+
+@setAttackPattern:
+	; [var03] = c+b
 	ld h,d
-	ld l,$83
+	ld l,Enemy.var03
 	ld a,c
 	add b
 	ld (hl),a
-	ld l,$84
+	ld l,Enemy.state
 	inc (hl)
 	inc l
-	ld (hl),$00
+	ld (hl),$00 ; [substate]
 	ret
-	
-@@stateB:
+
+; Handle the current attack pattern
+gleeok_head_stateB:
 	ld e,Enemy.var03
 	ld a,(de)
 	ld e,Enemy.substate
 	rst_jumpTable
-	.dw @@@var03_00
-	.dw @@@var03_01
-	.dw @@@var03_02
-	.dw @@@var03_03
-	.dw @@@var03_04
-	.dw @@@var03_05
-
-@@@var03_00:
+	.dw @attackPattern0
+	.dw @attackPattern1
+	.dw @attackPattern2
+	.dw @attackPattern3
+	.dw @attackPattern4
+	.dw @attackPattern5
+
+; Shoot a single flame towards Link that explodes into smaller flames
+@attackPattern0:
 	ld a,(de)
 	rst_jumpTable
-	.dw @@@@substate0
-	.dw @@@@substate1
-	.dw @@@@substate2
-	
-@@@@substate0:
+	.dw @@substate0
+	.dw @@substate1
+	.dw @@substate2
+
+; Move to a fixed position below and to the side of the main body
+@@substate0:
 	ld bc,$3a60
 	ld h,d
-	ld l,$82
+	ld l,Enemy.subid
 	ld a,(hl)
 	cp $02
 	jr z,+
 	ld c,$90
 +
-	ld l,$8b
+	ld l,Enemy.yh
 	ldi a,(hl)
 	ldh (<hFF8F),a
 	inc l
-	ld a,(hl)
+	ld a,(hl) ; [xh]
 	ldh (<hFF8E),a
 	cp c
 	jr nz,+
@@ -452,263 +516,288 @@ enemyCode06:
 	jp ecom_moveTowardPosition
 ++
 	ld l,e
-	inc (hl)
+	inc (hl) ; [substate]
 	ret
-	
-@@@@substate1:
+
+; Indicate visually that the head is about to fire a projectile
+@@substate1:
 	ld h,d
 	ld l,e
-	inc (hl)
+	inc (hl) ; [substate]
 	inc l
-	ld (hl),$1e
+	ld (hl),30 ; [counter1]
 	ld a,$01
 	jp enemySetAnimation
-	
-@@@@substate2:
+
+; Fire a projectile
+@@substate2:
 	call ecom_decCounter1
 	jr z,+
-	ld a,(hl)
-	cp $08
+	ld a,(hl) ; [counter1]
+	cp 8
 	ret nz
-	ld l,$8b
+	ld l,Enemy.yh
 	ld a,(hl)
 	sub $04
 	ld (hl),a
-	ld b,PART_43
+	ld b,PART_GLEEOK_FLAME
 	jp ecom_spawnProjectile
 +
-	ld l,$8b
+	ld l,Enemy.yh
 	ld a,(hl)
 	add $04
 	ld (hl),a
-@@@func_69bc:
-	ld a,$38
+
+; Increment state to $0c, and do the same for the other head if it is currently attacking
+@finishProjectileAttack:
+	; If other head is also in state $0b, move it to state $0c
+	ld a,Object.var38
 	call objectGetRelatedObject1Var
 	res 0,(hl)
-	ld e,$82
+	ld e,Enemy.subid
 	ld a,(de)
 	sub $02
 	xor $01
-	add $b0
+	add Enemy.var30
 	ld l,a
 	ld h,(hl)
-	ld l,$84
+	ld l,Enemy.state
 	ld a,(hl)
 	cp $0b
 	jr nz,+
-	inc (hl)
+	inc (hl) ; [state] = $0c
 +
+	; Go to state $0c
 	ld h,d
 	ld e,l
-	inc (hl)
-	ld l,$82
+	inc (hl) ; [state] = $0c
+	ld l,Enemy.subid
 	ld a,(hl)
 	cp $02
 	ret nz
-	jp @@stateC
+	; For the left head, run state $0c code instantly
+	jp gleeok_head_stateC
 
-@@@var03_01:
+; Spawn 4 flames surrounding Link
+@attackPattern1:
 	ld a,(de)
 	rst_jumpTable
-	.dw @@@@substate0
-	.dw @@@@substate1
-	.dw @@@@substate2
-	
-@@@@substate0:
+	.dw @@substate0
+	.dw @@substate1
+	.dw @@substate2
+
+; Indicate visually that the head is about to fire a projectile and set up wait timer
+@@substate0:
 	ld h,d
 	ld l,e
-	inc (hl)
-	ld l,$86
-	ld (hl),$28
+	inc (hl) ; [substate]
+	ld l,Enemy.counter1
+	ld (hl),40
 	ld a,$01
 	jp enemySetAnimation
-	
-@@@@substate1:
+
+; Store Link's current position as the projectile target
+@@substate1:
 	call ecom_decCounter1
 	ret nz
-	ld (hl),$41
+	ld (hl),$41 ; [counter1]
 	ld l,e
-	inc (hl)
-	ld l,$b9
+	inc (hl) ; [substate]
+	ld l,Enemy.var39
 	ldh a,(<hEnemyTargetY)
 	ldi (hl),a
 	ldh a,(<hEnemyTargetX)
-	ld (hl),a
+	ld (hl),a ; [var3a]
 	ret
-	
-@@@@substate2:
+
+; Spawn 4 projectiles surrounding the target position
+@@substate2:
 	call ecom_decCounter1
-	jr z,@@@func_69bc
-	ld a,(hl)
+	jr z,@finishProjectileAttack
+	ld a,(hl) ; [counter1]
 	and $0f
-	jr z,+
+	jr z,@spawnProjectile
 	cp $08
 	ret nz
-	ld l,$8b
+	ld l,Enemy.yh
 	ld a,(hl)
 	add $02
 	ld (hl),a
 	ret
-+
-	ld l,$8b
+
+@spawnProjectile:
+	ld l,Enemy.yh
 	ld a,(hl)
 	sub $02
 	ld (hl),a
 	call getFreePartSlot
 	ret nz
-	ld (hl),PART_43
+	ld (hl),PART_GLEEOK_FLAME ; [Part.id]
 	inc l
-	inc (hl)
-	ld e,$86
+	inc (hl) ; [Part.subid]
+	ld e,Enemy.counter1
 	ld a,(de)
 	and $30
 	swap a
-	ld bc,@@@@table_6a54
+	ld bc,@projectileOffsetsFromTarget
 	call addDoubleIndexToBc
-	ld e,$b9
+	ld e,Enemy.var39
 	ld a,(de)
 	ld e,a
 	ld a,(bc)
 	add e
-	ld l,$cb
+	ld l,Part.yh
 	ldi (hl),a
 	inc l
 	inc bc
-	ld e,$ba
+	ld e,Enemy.var3a
 	ld a,(de)
 	ld e,a
 	ld a,(bc)
 	add e
-	ldi (hl),a
+	ldi (hl),a ; [Part.xh]
 	call getFreeInteractionSlot
 	ret nz
 	ld (hl),INTERAC_PUFF
 	ld bc,$0800
 	jp objectCopyPositionWithOffset
 
-@@@@table_6a54:
-	.db $ec $00
-	.db $00 $ec
-	.db $00 $14
-	.db $14 $00
+; Projectile position offsets from target position
+@projectileOffsetsFromTarget:
+	.db $ec $00 ; Top
+	.db $00 $ec ; Left
+	.db $00 $14 ; Right
+	.db $14 $00 ; Bottom
 
-@@@var03_02:
+; Fire 2 waves of 3 flames
+@attackPattern2:
 	ld a,(de)
 	rst_jumpTable
-	.dw @@@@substate0
-	.dw @@@@substate1
-	.dw @@@@substate2
+	.dw @@substate0
+	.dw @@substate1
+	.dw @@substate2
 
-@@@@substate0:
+; Indicate visually that the head is about to fire a projectile and set up counters
+@@substate0:
 	ld h,d
 	ld l,e
-	inc (hl)
+	inc (hl) ; [substate]
 	inc l
-	ld (hl),$08
+	ld (hl),8 ; [counter1]
 	inc l
-	ld (hl),$02
+	ld (hl),2 ; [counter2]
 	ld a,$01
 	jp enemySetAnimation
 
-@@@@substate1:
+; Wait until counter1 reaches 0
+@@substate1:
 	call ecom_decCounter1
 	ret nz
 	ld l,e
-	inc (hl)
+	inc (hl) ; [substate]
 	ret
 
-@@@@substate2:
-	ld b,PART_43
+; Spawn projectile
+@@substate2:
+	ld b,PART_GLEEOK_FLAME
 	call ecom_spawnProjectile
 	ret nz
-	ld l,$c2
+	ld l,Part.subid
 	ld (hl),$02
 	call ecom_decCounter2
-	jp z,@@@func_69bc
+	jp z,@finishProjectileAttack
 	dec l
-	ld (hl),$14
+	ld (hl),20 ; [counter1]
 	dec l
-	dec (hl)
+	dec (hl) ; [substate]
 	ret
 
-@@@var03_03:
+; Move to a fixed position, then wait there until the other head finishes a projectile attack
+@attackPattern3:
 	ld a,(de)
 	rst_jumpTable
-	.dw @@@var03_00@substate0
-	.dw @@@@ret
-@@@@ret:
+	.dw @attackPattern0@substate0
+	.dw @ret
+@ret:
 	ret
 
-@@@var03_04:
-@@@var03_05:
-	call @@@func_6a9f
-	call z,func_6cf6
+; Move around until the other head finishes a projectile attack
+@attackPattern4:
+@attackPattern5:
+	call @decrementAngleUpdateWait
+	call z,gleeok_updateHeadAngle
 	jp objectApplySpeed
-@@@func_6a9f:
+
+@decrementAngleUpdateWait:
 	ld h,d
-	ld l,$b1
+	ld l,Enemy.var31
 	ld a,(hl)
 	or a
 	ret z
 	dec (hl)
 	ret
-	
-@@stateC:
+
+; Go to state $0d and set up the timer of 2 seconds for it
+gleeok_head_stateC:
 	ld h,d
 	ld l,e
-	inc (hl)
-	ld l,$87
-	ld (hl),$78
-	ld l,$83
+	inc (hl) ; [state]
+	ld l,Enemy.counter2
+	ld (hl),120
+	; After attack patterns 0 and 3, reset angle variables since the head went to its default position before
+	ld l,Enemy.var03
 	ld a,(hl)
 	or a
 	jr z,+
 	cp $03
 	jr nz,++
 +
-	ld l,$b0
+	ld l,Enemy.var30
 	xor a
 	ldi (hl),a
-	ld (hl),a
+	ld (hl),a ; [var31]
 ++
 	xor a
 	jp enemySetAnimation
-	
-@@stateD:
+
+; Do not attack for 2 seconds, then go back to state $0a
+gleeok_head_stateD:
 	call ecom_decCounter2
-	jr nz,@@stateB@var03_04
+	jr nz,gleeok_head_stateB@attackPattern4
 	ld l,e
-	ld (hl),$0a
+	ld (hl),$0a ; [state]
 	ret
-	
-@@stateE:
+
+; Head is detached from main body and floating across the room
+gleeok_head_stateE:
 	ld a,(wFrameCounter)
 	rrca
 	jr c,+
 	call ecom_decCounter1
 	jr nz,+
 	ld l,e
-	inc (hl)
-	ld l,$90
-	ld (hl),$28
+	inc (hl) ; [state]
+	ld l,Enemy.speed
+	ld (hl),SPEED_100
 +
 	call objectApplySpeed
 	jp ecom_bounceOffScreenBoundary
-	
-@@stateF:
+
+; Head is floating back to its default position in a straight line
+gleeok_head_stateF:
 	ld h,d
-	ld l,$82
+	ld l,Enemy.subid
 	ld a,(hl)
 	cp $02
 	ld bc,$2476
 	jr z,+
 	ld c,$7a
 +
-	ld l,$8b
+	ld l,Enemy.yh
 	ldi a,(hl)
 	ldh (<hFF8F),a
 	inc l
-	ld a,(hl)
+	ld a,(hl) ; [xh]
 	ldh (<hFF8E),a
 	cp c
 	jr nz,+
@@ -718,290 +807,323 @@ enemyCode06:
 +
 	jp ecom_moveTowardPosition
 ++
+	; Attach head to main body again
 	ld l,e
-	inc (hl)
+	inc (hl) ; [state]
 	ld l,Enemy.enemyCollisionMode
 	ld (hl),ENEMYCOLLISION_GLEEOK
-	ld l,$90
-	ld (hl),$14
-	ld l,$86
-	ld (hl),$3c
-	ld l,$b0
+	ld l,Enemy.speed
+	ld (hl),SPEED_80
+	ld l,Enemy.counter1
+	ld (hl),60
+	ld l,Enemy.var30
 	xor a
 	ldi (hl),a
-	ld (hl),a
-	ld l,$82
+	ld (hl),a ; [var31]
+	ld l,Enemy.subid
 	ld a,(hl)
 	cp $02
-	ld a,$14
+	ld a,$14 ; left head moves down left
 	ld b,$02
 	jr z,+
-	ld a,$0c
+	ld a,$0c ; right head moves down right
 	ld b,$04
 +
-	ld l,$89
+	ld l,Enemy.angle
 	ld (hl),a
-	ld a,$38
+	; Mark head as no longer detached for main body
+	ld a,Object.var38
 	call objectGetRelatedObject1Var
 	ld a,(hl)
 	xor b
 	ld (hl),a
 	ret
-	
-@@stateH:
-	ld e,$82
+
+; Wait until the other head is not attacking, then go back to state $0a
+gleeok_head_state11:
+	; If mirror image is in one of the states $0b to $0d (attacking), just move the head around without attacking
+	ld e,Enemy.subid
 	ld a,(de)
 	sub $02
 	xor $01
-	add $30
+	add Object.var30
 	call objectGetRelatedObject1Var
 	ld h,(hl)
-	ld l,$84
+	ld l,Enemy.state
 	ld a,(hl)
 	cp $0e
 	jr nc,+
 	cp $0a
-	jp nz,@@stateB@var03_04
+	jp nz,gleeok_head_stateB@attackPattern4
 +
+	; Otherwise, go back to state $0a
 	ld h,d
-	ld (hl),$0a
-	ld l,$82
+	ld (hl),$0a ; [state]
+	; For the left head, run state $0a code instantly
+	ld l,Enemy.subid
 	ld a,(hl)
 	cp $02
 	ret nz
-	jp @@stateA
+	jp gleeok_headLeft_stateA
 
-@subid3:
+; Right head
+gleeok_headRight:
 	ld a,(de)
 	sub $08
 	rst_jumpTable
-	.dw @@state8
-	.dw @subid2@incStateWhenCounter1Is0
-	.dw @@stateA
-	.dw @subid2@stateB
-	.dw @subid2@stateC
-	.dw @subid2@stateD
-	.dw @subid2@stateE
-	.dw @subid2@stateF
-	.dw @subid2@incStateWhenCounter1Is0
-	.dw @subid2@stateH
-
-@@state8:
+	.dw gleeok_headRight_state8
+	.dw gleeok_head_state9
+	.dw gleeok_headRight_stateA
+	.dw gleeok_head_stateB
+	.dw gleeok_head_stateC
+	.dw gleeok_head_stateD
+	.dw gleeok_head_stateE
+	.dw gleeok_head_stateF
+	.dw gleeok_head_state10
+	.dw gleeok_head_state11
+
+gleeok_headRight_state8:
 	ld h,d
-	ld l,$89
+	ld l,Enemy.angle
 	ld (hl),$0c
-	jp @subid2@incStateEnableCollisionsSetCounterAndSpeed
+	jp gleeok_headLeft_state8@rightHeadEntry
 
-@@stateA:
+gleeok_headRight_stateA:
 	ld b,$02
-	jp @subid2@func_6905
+	jp gleeok_headLeft_stateA@rightHeadEntry
 
-@subid4:
-@subid5:
+; Neck segments next to heads
+gleeok_neckTopLeft:
+gleeok_neckTopRight:
 	ld a,(de)
 	sub $08
 	rst_jumpTable
-	.dw @@state8
-	.dw @@state9
-	.dw @@stateA
+	.dw gleeok_neckTop_state8
+	.dw gleeok_neckTop_state9
+	.dw gleeok_neck_stateA
 
-@@state8:
+; Initialize neck-specific properties
+gleeok_neckTop_state8:
 	ld h,d
 	ld l,e
-	inc (hl)
+	inc (hl) ; [state]
 	ld l,Enemy.enemyCollisionMode
 	ld (hl),ENEMYCOLLISION_PODOBOO
-	ld e,$82
+	; Store reference to head on the same side in relatedObj2
+	ld e,Enemy.subid
 	ld a,(de)
 	sub $04
-	add $30
+	add Object.var30
 	call objectGetRelatedObject1Var
-	ld e,$99
+	ld e,Enemy.relatedObj2+1
 	ld a,(hl)
 	ld (de),a
 	dec e
-	ld a,$80
-	ld (de),a
+	ld a,Enemy.start
+	ld (de),a ; [relatedObj2]
 
-@@state9:
-	call func_6cb2
-	call func_6cbf
+; Update position based on the head on the same side, or turn invisible if head detached
+gleeok_neckTop_state9:
+	call gleeok_deleteSegmentIfHeadUnloaded
+	call gleeok_getHeadVectorDividedBy4
 	ret nz
-	ld e,$8b
+
+	; [yh] = b*3+$24
+	ld e,Enemy.yh
 	ld a,b
 	add a
 	add b
 	add $24
 	ld (de),a
-	ld e,$82
+	ld e,Enemy.subid
 	ld a,(de)
 	cp $04
 	ld b,$76
 	jr z,+
 	ld b,$7a
 +
+	; [xh] = c*3+b
 	ld a,c
 	add a
 	add c
 	add b
-	ld e,$8d
+	ld e,Enemy.xh
 	ld (de),a
 	ret
 
-@@stateA:
-	call func_6cb2
-	ld e,$82
+; Wait for head on same side to connect with main body again
+gleeok_neck_stateA:
+	call gleeok_deleteSegmentIfHeadUnloaded
+	ld e,Enemy.subid
 	ld a,(de)
 	rrca
 	ld bc,$0276
 	jr nc,+
 	ld bc,$047a
 +
-	ld a,$38
+	; Return if the head on the same side is detached
+	ld a,Object.var38
 	call objectGetRelatedObject1Var
 	ld a,(hl)
 	and b
 	ret nz
+	; Head is attached, become visible and active again
 	ld h,d
-	ld l,$84
+	ld l,Enemy.state
 	dec (hl)
-	ld l,$a4
+	ld l,Enemy.collisionType
 	set 7,(hl)
-	ld l,$8b
+	ld l,Enemy.yh
 	ld (hl),$24
-	ld l,$8d
+	ld l,Enemy.xh
 	ld (hl),c
 	jp objectSetVisible82
 
-@subid6:
-@subid7:
+; Middle neck segments
+gleeok_neckMiddleLeft:
+gleeok_neckMiddleRight:
 	ld a,(de)
 	sub $08
 	rst_jumpTable
-	.dw @@state8
-	.dw @@state9
-	.dw @subid5@stateA
+	.dw gleeok_neckMiddle_state8
+	.dw gleeok_neckMiddle_state9
+	.dw gleeok_neck_stateA
 
-@@state8:
+; Initialize neck-specific properties
+gleeok_neckMiddle_state8:
 	ld h,d
 	ld l,e
-	inc (hl)
+	inc (hl) ; [state]
 	ld l,Enemy.enemyCollisionMode
 	ld (hl),ENEMYCOLLISION_PODOBOO
-	ld e,$82
+	; Store reference to head on the same side in relatedObj2
+	ld e,Enemy.subid
 	ld a,(de)
 	sub $06
-	add $30
+	add Object.var30
 	call objectGetRelatedObject1Var
-	ld e,$99
+	ld e,Enemy.relatedObj2+1
 	ld a,(hl)
 	ld (de),a
 	dec e
-	ld a,$80
-	ld (de),a
+	ld a,Enemy.start
+	ld (de),a ; [relatedObj2]
 
-@@state9:
-	call func_6cb2
-	call func_6cbf
+; Update position based on the head on the same side, or turn invisible if head detached
+gleeok_neckMiddle_state9:
+	call gleeok_deleteSegmentIfHeadUnloaded
+	call gleeok_getHeadVectorDividedBy4
 	ret nz
-	ld e,$8b
+
+	; [yh] = b*2+$24
+	ld e,Enemy.yh
 	ld a,b
 	add a
 	add $24
 	ld (de),a
-	ld e,$82
+	ld e,Enemy.subid
 	ld a,(de)
 	cp $06
 	ld b,$76
 	jr z,+
 	ld b,$7a
 +
+	; [xh] = c*2+b
 	ld a,c
 	add a
 	add b
-	ld e,$8d
+	ld e,Enemy.xh
 	ld (de),a
 	ret
 
-@subid8:
-@subid9:
+; Neck segments next to main body
+gleeok_neckBottomLeft:
+gleeok_neckBottomRight:
 	ld a,(de)
 	sub $08
 	rst_jumpTable
-	.dw @@state8
-	.dw @@state9
-	.dw @subid5@stateA
-	
-@@state8:
+	.dw gleeok_neckBottom_state8
+	.dw gleeok_neckBottom_state9
+	.dw gleeok_neck_stateA
+
+; Initialize neck-specific properties
+gleeok_neckBottom_state8:
 	ld h,d
 	ld l,e
-	inc (hl)
+	inc (hl) ; [state]
 	ld l,Enemy.enemyCollisionMode
 	ld (hl),ENEMYCOLLISION_PODOBOO
-	ld e,$82
+	; Store reference to head on the same side in relatedObj2
+	ld e,Enemy.subid
 	ld a,(de)
 	sub $08
-	add $30
+	add Object.var30
 	call objectGetRelatedObject1Var
-	ld e,$99
+	ld e,Enemy.relatedObj2+1
 	ld a,(hl)
 	ld (de),a
 	dec e
-	ld a,$80
-	ld (de),a
-	
-@@state9:
-	call func_6cb2
-	call func_6cbf
+	ld a,Enemy.start
+	ld (de),a ; [relatedObj2]
+
+; Update position based on the head on the same side, or turn invisible if head detached
+gleeok_neckBottom_state9:
+	call gleeok_deleteSegmentIfHeadUnloaded
+	call gleeok_getHeadVectorDividedBy4
 	ret nz
-	ld e,$8b
+
+	; [yh] = b+$24
+	ld e,Enemy.yh
 	ld a,b
 	add $24
 	ld (de),a
-	ld e,$82
+	ld e,Enemy.subid
 	ld a,(de)
 	cp $08
 	ld a,$76
 	jr z,+
 	ld a,$7a
 +
+	; [xh] = c+a
 	add c
-	ld e,$8d
+	ld e,Enemy.xh
 	ld (de),a
 	ret
 
-func_6c6b:
+gleeok_initializeBodyPart:
 	dec b
-	jr z,func_6c8a
-	ld c,$76
-	ld l,$82
+	jr z,gleeok_initializeMainBody
+	ld c,$76 ; even subid: left of main body
+	ld l,Enemy.subid
 	bit 0,(hl)
 	jr z,+
-	ld c,$7a
+	ld c,$7a ; odd subid: right of main body
 +
-	ld l,$8b
+	ld l,Enemy.yh
 	ld (hl),$24
-	ld l,$8d
+	ld l,Enemy.xh
 	ld (hl),c
-	ld l,$82
+	ld l,Enemy.subid
 	ld a,(hl)
 	cp $04
 	ret c
+	; Not a head
 	ld a,$02
 	jp enemySetAnimation
-	
-func_6c8a:
-	ld l,$a4
+
+gleeok_initializeMainBody:
+	ld l,Enemy.collisionType
 	res 7,(hl)
-	ld l,$a6
+	ld l,Enemy.collisionRadiusY
 	ld (hl),$0c
 	inc l
-	ld (hl),$0e
-	ld l,$8b
+	ld (hl),$0e ; [Enemy.collisionRadiusX]
+	ld l,Enemy.yh
 	ld (hl),$20
-	ld l,$8d
+	ld l,Enemy.xh
 	ld (hl),$78
-	ld hl,$ce16
+	; Make floor under main body solid
+	ld hl,wRoomCollisions+$16
 	ld a,$0f
 	ldi (hl),a
 	ldi (hl),a
@@ -1014,56 +1136,72 @@ func_6c8a:
 	call enemySetAnimation
 	jp objectSetVisible83
 
-func_6cb2:
-	ld a,$01
+; Called by body segments to delete them when the head on the same side is no longer loaded
+gleeok_deleteSegmentIfHeadUnloaded:
+	ld a,Object.id
 	call objectGetRelatedObject2Var
 	ld a,(hl)
-	cp $06
+	cp ENEMY_GLEEOK
 	ret z
+	; Break out of Gleeok code
 	pop hl
 	jp enemyDelete
 
-func_6cbf:
-	ld l,$84
+; Turns the given neck segment invisible and increments its state if the given head is
+; in state $0e (floating across the room), otherwise computes the vector from the given
+; head's default position to its current position, divided by 4
+;
+; @param	de	Pointer to a Gleeok neck segment (e irrelevant)
+; @param	hl	Pointer to a Gleeok head (l irrelevant)
+; @param[out]	zflag	Set if the head is not in state $0e, cleared otherwise
+; @param[out]	b	If z is set: y component of the vector
+; @param[out]	c	If z is set: x component of the vector
+gleeok_getHeadVectorDividedBy4:
+	ld l,Enemy.state
 	ld a,(hl)
 	cp $0e
-	jr nz,func_6cd8
+	jr nz,@computeVector
+	; Neck segment goes to state $0a and turns invisible
 	ld h,d
-	inc (hl)
-	ld l,$a4
+	inc (hl) ; [state]
+	ld l,Enemy.collisionType
 	res 7,(hl)
-	ld e,$9a
+	ld e,Enemy.visible
 	ld a,(de)
 	rlca
 	ld b,INTERAC_KILLENEMYPUFF
 	call c,objectCreateInteractionWithSubid00
 	jp objectSetInvisible
-	
-func_6cd8:
-	ld l,$8b
+
+@computeVector:
+	; b = ([head.yh]-$24)/4
+	ld l,Enemy.yh
 	ldi a,(hl)
 	sub $24
 	sra a
 	sra a
 	ld b,a
 	inc l
-	ld e,$82
+	ld e,Enemy.subid
 	ld a,(de)
 	rrca
 	ld c,$76
 	jr nc,+
 	ld c,$7a
 +
-	ld a,(hl)
+	; c = ([head.xh]-c)/4
+	ld a,(hl) ; [xh]
 	sub c
 	sra a
 	sra a
 	ld c,a
 	xor a
 	ret
-	
-func_6cf6:
-	ld e,$b0
+
+; Picks a sequence when needed, then gets the next angle from the sequence
+; and sets the dedicated wait timer to 6
+gleeok_updateHeadAngle:
+	ld e,Enemy.var30
 	ld a,(de)
 	and $1f
 	jr nz,+
@@ -1072,7 +1210,7 @@ func_6cf6:
 	ld (de),a
 +
 	ld a,(de)
-	ld hl,table_6d14
+	ld hl,gleeok_headAngleSequences
 	rst_addAToHl
 	ld e,Enemy.angle
 	ld a,(hl)
@@ -1081,10 +1219,11 @@ func_6cf6:
 	ld l,Enemy.var30
 	inc (hl)
 	inc l
-	ld (hl),$06
+	ld (hl),6 ; [var31]
 	ret
 
-table_6d14:
+; 2 blocks of size $20, a random block is picked and the sequence advances every 6 frames
+gleeok_headAngleSequences:
 	.db $15 $16 $17 $17 $19 $19 $1a $1b
 	.db $05 $06 $07 $07 $09 $09 $0a $0b
 	.db $0b $0a $09 $09 $07 $07 $06 $05
diff --git a/object_code/seasons/parts/43.s b/object_code/seasons/parts/43.s
deleted file mode 100644
index 5a6f18665..000000000
--- a/object_code/seasons/parts/43.s
+++ /dev/null
@@ -1,206 +0,0 @@
-; ==================================================================================================
-; PART_43
-; ==================================================================================================
-partCode43:
-	ld e,$c2
-	ld a,(de)
-	ld e,$c4
-	rst_jumpTable
-	.dw @subid0
-	.dw @subid1
-	.dw @subid2
-	.dw @subid3
-	.dw @subid4
-@subid0:
-	ld a,(de)
-	or a
-	jr z,@func_724b
-	call partAnimate
-	call partCommon_decCounter1IfNonzero
-	jp nz,objectApplyComponentSpeed
-	ld b,$06
--
-	ld a,b
-	dec a
-	ld hl,@table_7245
-	rst_addAToHl
-	ld c,(hl)
-	call @func_7236
-	dec b
-	jr nz,-
-	call objectCreatePuff
-	jp partDelete
-@func_7236:
-	call getFreePartSlot
-	ret nz
-	ld (hl),PART_43
-	inc l
-	ld (hl),$03
-	ld l,$c9
-	ld (hl),c
-	jp objectCopyPosition
-@table_7245:
-	.db $03 $08 $0d
-	.db $13 $18 $1d
-
-@func_724b:
-	ld h,d
-	ld l,e
-	inc (hl)
-	ld l,$dd
-	ld (hl),$06
-	dec l
-	ld a,$0a
-	ldd (hl),a
-	ld (hl),a
-	ld l,$cb
-	ld a,(hl)
-	add $06
-	ld (hl),a
-	ld l,$e6
-	ld a,$05
-	ldi (hl),a
-	ld (hl),a
-	ld l,$c6
-	ld (hl),$0c
-	ld l,$c9
-	ld (hl),$10
-	ld b,$50
-	jr @subid1@func_729a
-@subid1:
-	ld a,(de)
-	rst_jumpTable
-	.dw @@state0
-	.dw @@state1
-	.dw @@state2
-@@state0:
-	ld h,d
-	ld l,e
-	inc (hl)
-	ld l,$c6
-	ld (hl),$04
-	ld l,$e4
-	res 7,(hl)
-	ld l,$dd
-	ld (hl),$06
-	dec l
-	ld a,$0a
-	ldd (hl),a
-	ld (hl),a
-	ret
-@@state1:
-	call partCommon_decCounter1IfNonzero
-	ret nz
-	ld (hl),$b4
-	ld l,e
-	inc (hl)
-	ld l,$e4
-	set 7,(hl)
-	ld b,$3c
-@@func_729a:
-	call func_733d
-	call objectSetVisible81
-	ld a,$72
-	jp playSound
-@@state2:
-	call partCommon_decCounter1IfNonzero
-	jp z,partDelete
-	jp partAnimate
-@subid2:
-	ld a,(de)
-	or a
-	jr z,@func_72be
-
-@seasonsFunc_10_72b2:
-	call partCommon_checkOutOfBounds
-	jp z,partDelete
-	call objectApplyComponentSpeed
-	jp partAnimate
-@func_72be:
-	ld b,$02
-	call checkBPartSlotsAvailable
-	ret nz
-	ld h,d
-	ld l,$c4
-	inc (hl)
-	ld l,$dd
-	ld (hl),$06
-	dec l
-	ld a,$0a
-	ldd (hl),a
-	ld (hl),a
-	ld l,$c9
-	ld (hl),$10
-	ld l,$cb
-	ld a,(hl)
-	add $06
-	ld (hl),a
-	ld b,$3c
-	call @subid1@func_729a
-	ld bc,$0213
-	call @func_72e9
-	ld bc,$030d
-@func_72e9:
-	call getFreePartSlot
-	ld (hl),PART_43
-	inc l
-	ld (hl),$04
-	inc l
-	ld (hl),b
-	ld l,$c9
-	ld (hl),c
-	jp objectCopyPosition
-@subid3:
-	ld a,(de)
-	or a
-	jr z,+
-	call objectApplyComponentSpeed
-	ld c,$12
-	call objectUpdateSpeedZ_paramC
-	jp nz,partAnimate
-	jp partDelete
-+
-	ld bc,$ff20
-	call objectSetSpeedZ
-	ld l,e
-	inc (hl)
-	ld l,$e6
-	ld (hl),$05
-	inc l
-	ld (hl),$02
-	ld b,$3c
-	call func_733d
-	call objectSetVisible82
-	ld a,$01
-	jp partSetAnimation
-@subid4:
-	ld a,(de)
-	or a
-	jp nz,@seasonsFunc_10_72b2
-	ld h,d
-	ld l,e
-	inc (hl)
-	ld b,$3c
-	call func_733d
-	call objectSetVisible82
-	ld e,$c3
-	ld a,(de)
-	jp partSetAnimation
-func_733d:
-	ld e,$c9
-	ld a,(de)
-	ld c,a
-	call getPositionOffsetForVelocity
-	ld e,$d0
-	ldi a,(hl)
-	ld (de),a
-	inc e
-	ldi a,(hl)
-	ld (de),a
-	inc e
-	ldi a,(hl)
-	ld (de),a
-	inc e
-	ldi a,(hl)
-	ld (de),a
-	ret
diff --git a/object_code/seasons/parts/gleeokFlame.s b/object_code/seasons/parts/gleeokFlame.s
new file mode 100644
index 000000000..02873486a
--- /dev/null
+++ b/object_code/seasons/parts/gleeokFlame.s
@@ -0,0 +1,237 @@
+; ==================================================================================================
+; PART_GLEEOK_FLAME
+; ==================================================================================================
+partCode43:
+	ld e,Part.subid
+	ld a,(de)
+	ld e,Part.state
+	rst_jumpTable
+	.dw gleeokFlame_exploding
+	.dw gleeokFlame_stationary
+	.dw gleeokFlame_tripleMiddle
+	.dw gleeokFlame_small
+	.dw gleeokFlame_tripleSide
+
+; Single flame that moves south and then explodes into 6 smaller flames
+gleeokFlame_exploding:
+	ld a,(de) ; [state]
+	or a
+	jr z,@initializeSouthMovingFlame
+	call partAnimate
+	call partCommon_decCounter1IfNonzero
+	jp nz,objectApplyComponentSpeed
+	; Spawn 6 small flames and delete self
+	ld b,$06
+-
+	ld a,b
+	dec a
+	ld hl,@smallFlameAngles
+	rst_addAToHl
+	ld c,(hl)
+	call @spawnSmallFlame
+	dec b
+	jr nz,-
+	call objectCreatePuff
+	jp partDelete
+
+; Spawns a flame with subid 3 and the given angle
+;
+; @param	c	Angle
+@spawnSmallFlame:
+	call getFreePartSlot
+	ret nz
+	ld (hl),PART_GLEEOK_FLAME ; [id]
+	inc l
+	ld (hl),$03 ; [subid]
+	ld l,Part.angle
+	ld (hl),c
+	jp objectCopyPosition
+
+@smallFlameAngles:
+	.db $03 $08 $0d
+	.db $13 $18 $1d
+
+@initializeSouthMovingFlame:
+	ld h,d
+	ld l,e
+	inc (hl) ; [state]
+	ld l,Part.oamTileIndexBase
+	ld (hl),$06
+	dec l
+	ld a,$0a
+	ldd (hl),a ; [oamFlags]
+	ld (hl),a ; [oamFlagsBackup]
+	ld l,Part.yh
+	ld a,(hl)
+	add $06
+	ld (hl),a
+	ld l,Part.collisionRadiusY
+	ld a,$05
+	ldi (hl),a
+	ld (hl),a ; [collisionRadiusX]
+	ld l,Part.counter1
+	ld (hl),12
+	ld l,Part.angle
+	ld (hl),$10
+	ld b,SPEED_200
+	jr gleeokFlame_stationary_state1@setSpeedYXVisibleAndPlaySound
+
+; Single stationary flame
+gleeokFlame_stationary:
+	ld a,(de) ; [state]
+	rst_jumpTable
+	.dw gleeokFlame_stationary_state0
+	.dw gleeokFlame_stationary_state1
+	.dw gleeokFlame_stationary_state2
+
+gleeokFlame_stationary_state0:
+	ld h,d
+	ld l,e
+	inc (hl) ; [state]
+	ld l,Part.counter1
+	ld (hl),4
+	ld l,Part.collisionType
+	res 7,(hl)
+	ld l,Part.oamTileIndexBase
+	ld (hl),$06
+	dec l
+	ld a,$0a
+	ldd (hl),a ; [oamFlags]
+	ld (hl),a ; [oamFlagsBackup]
+	ret
+
+gleeokFlame_stationary_state1:
+	call partCommon_decCounter1IfNonzero
+	ret nz
+	ld (hl),180 ; [counter1]
+	ld l,e
+	inc (hl) ; [state]
+	ld l,Part.collisionType
+	set 7,(hl)
+	ld b,SPEED_180
+
+@setSpeedYXVisibleAndPlaySound:
+	call gleeokFlame_setSpeedYX
+	call objectSetVisible81
+	ld a,SND_LIGHTTORCH
+	jp playSound
+
+gleeokFlame_stationary_state2:
+	call partCommon_decCounter1IfNonzero
+	jp z,partDelete
+	jp partAnimate
+
+; The middle out of a burst of 3 flames moving generally south
+gleeokFlame_tripleMiddle:
+	ld a,(de) ; [state]
+	or a
+	jr z,@initializeTripleFlame
+
+@keepMovingUntilOutOfBounds:
+	call partCommon_checkOutOfBounds
+	jp z,partDelete
+	call objectApplyComponentSpeed
+	jp partAnimate
+
+@initializeTripleFlame:
+	ld b,$02
+	call checkBPartSlotsAvailable
+	ret nz
+	ld h,d
+	ld l,Part.state
+	inc (hl)
+	ld l,Part.oamTileIndexBase
+	ld (hl),$06
+	dec l
+	ld a,$0a
+	ldd (hl),a ; [oamFlags]
+	ld (hl),a ; [oamFlagsBackup]
+	ld l,Part.angle
+	ld (hl),$10
+	ld l,Part.yh
+	ld a,(hl)
+	add $06
+	ld (hl),a
+	ld b,SPEED_180
+	call gleeokFlame_stationary_state1@setSpeedYXVisibleAndPlaySound
+	ld bc,$0213
+	call @spawnCompanionFlame
+	ld bc,$030d
+
+; Spawns a flame with a given angle that moves alongside the current flame
+;
+; @param	b	Value for var03 which will later get passed to partSetAnimation
+; @param	c	Angle
+@spawnCompanionFlame:
+	call getFreePartSlot
+	ld (hl),PART_GLEEOK_FLAME ; [id]
+	inc l
+	ld (hl),$04 ; [subid]
+	inc l
+	ld (hl),b ; [var03]
+	ld l,Part.angle
+	ld (hl),c
+	jp objectCopyPosition
+
+; Small flame that moves in a straight line for a bit and then disappears
+gleeokFlame_small:
+	ld a,(de) ; [state]
+	or a
+	jr z,+
+	call objectApplyComponentSpeed
+	ld c,$12
+	call objectUpdateSpeedZ_paramC
+	jp nz,partAnimate
+	jp partDelete
++
+	ld bc,$ff20
+	call objectSetSpeedZ
+	ld l,e
+	inc (hl) ; [state]
+	ld l,Part.collisionRadiusY
+	ld (hl),$05
+	inc l
+	ld (hl),$02 ; [collisionRadiusX]
+	ld b,SPEED_180
+	call gleeokFlame_setSpeedYX
+	call objectSetVisible82
+	ld a,$01
+	jp partSetAnimation
+
+; The left or right out of a burst of 3 flames moving generally south
+gleeokFlame_tripleSide:
+	ld a,(de) ; [state]
+	or a
+	jp nz,gleeokFlame_tripleMiddle@keepMovingUntilOutOfBounds
+	; Initialize
+	ld h,d
+	ld l,e
+	inc (hl) ; [state]
+	ld b,SPEED_180
+	call gleeokFlame_setSpeedYX
+	call objectSetVisible82
+	ld e,Part.var03
+	ld a,(de)
+	jp partSetAnimation
+
+; Combines the given speed value with the part's angle and sets speedY and speedX accordingly
+;
+; @param	b	Speed
+gleeokFlame_setSpeedYX:
+	ld e,Part.angle
+	ld a,(de)
+	ld c,a
+	call getPositionOffsetForVelocity
+	ld e,Part.speedY
+	ldi a,(hl)
+	ld (de),a
+	inc e
+	ldi a,(hl)
+	ld (de),a ; [speedY+1]
+	inc e
+	ldi a,(hl)
+	ld (de),a ; [speedX]
+	inc e
+	ldi a,(hl)
+	ld (de),a ; [speedX+1]
+	ret
diff --git a/seasons.s b/seasons.s
index e228c5e61..d48d55ae8 100644
--- a/seasons.s
+++ b/seasons.s
@@ -690,7 +690,7 @@ m_section_free Part_Code_2 NAMESPACE partCode
 	.include "object_code/seasons/parts/aquamentusProjectile.s"
 	.include "object_code/seasons/parts/dodongoFireball.s"
 	.include "object_code/seasons/parts/mothulaProjectile2.s"
-	.include "object_code/seasons/parts/43.s"
+	.include "object_code/seasons/parts/gleeokFlame.s"
 	.include "object_code/seasons/parts/44.s"
 	.include "object_code/seasons/parts/45.s"
 	.include "object_code/seasons/parts/46.s"