// ----------------------------------
// RSDK Project: Sonic 1/Sonic 2
// Script Description: Water Object
// Script Author: Christan Whitehead/Simon Thomley
// Unpacked by Rubberduckycooly's script unpacker
// ----------------------------------

//-------Aliases-------//
private alias 41 : TYPE_WATER

// Function declarations
reserve function Water_Function103
reserve function Water_Function104
reserve function Water_Function105
reserve function Water_Function106
reserve function Water_Function107

// Static Values
public value Water_value37 = 0;
public value Water_value38 = 0;

// Tables
public table Water_table42
	0, 0, 0
end table

function Water_Function103
end function


function Water_Function104
	if object.state == 0
		stage.newWaterLevel = 0x7100000
		if temp0 >= 0x1E80
			stage.newWaterLevel = 0x5100000
			object.state++
		end if
	end if
end function


function Water_Function105
	if object[+currentPlayer].value1 > 0
		object[+currentPlayer].value1--
		if object[+currentPlayer].value2 > 0
			object[+currentPlayer].value2--
		else
			CreateTempObject(TypeName[Air Bubble], 2, object[currentPlayer].xpos, object[currentPlayer].ypos)
			object[tempObjectPos].drawOrder = 4
			object[tempObjectPos].yvel = -0x8800
			object[tempObjectPos].value2 = currentPlayer
			if object[currentPlayer].direction == FLIP_NONE
				object[tempObjectPos].xpos += 0x60000
			else
				object[tempObjectPos].xpos -= 0x60000
				object[tempObjectPos].angle = 256
			end if
			object[tempObjectPos].value1 = object[tempObjectPos].xpos
			object[+currentPlayer].value2 = 512
		end if
	else
		Rand(temp0, 3)
		if temp0 == 1
			Rand(object[+currentPlayer].value2, 16)
			object[+currentPlayer].value2 += 8
		else
			object[+currentPlayer].value2 = 512
		end if
		object[+currentPlayer].value1 = 60
		CreateTempObject(TypeName[Air Bubble], 2, object[currentPlayer].xpos, object[currentPlayer].ypos)
		object[tempObjectPos].drawOrder = 4
		object[tempObjectPos].yvel = -0x8800
		object[tempObjectPos].value2 = currentPlayer
		if object[currentPlayer].direction == FLIP_NONE
			object[tempObjectPos].xpos += 0x60000
		else
			object[tempObjectPos].xpos -= 0x60000
			object[tempObjectPos].angle = 256
		end if
		object[tempObjectPos].value1 = object[tempObjectPos].xpos
	end if
end function


function Water_Function106
	CreateTempObject(TypeName[Countdown Bubble], temp0, object[currentPlayer].xpos, object[currentPlayer].ypos)
	object[tempObjectPos].drawOrder = 5
	object[tempObjectPos].yvel = -0x8800
	object[tempObjectPos].value2 = currentPlayer
	if object[currentPlayer].direction == FLIP_NONE
		object[tempObjectPos].xpos += 0x60000
	else
		object[tempObjectPos].xpos -= 0x60000
		object[tempObjectPos].angle = 256
	end if
	object[tempObjectPos].value1 = object[tempObjectPos].xpos
end function


function Water_Function107
	if currentPlayer == 0
		arrayPos0 = Water_value37
		arrayPos0 += currentPlayer
		if object[currentPlayer].type != TypeName[Death Event]
			if music.currentTrack == 6
				if object[arrayPos0].value8 == 2
					arrayPos1 = currentPlayer
					arrayPos1 += playerCount
					if object[arrayPos1].type != TypeName[Invincibility]
						if PlayerObject_SuperState != 1
							object[arrayPos0].value8 = 0
						end if
					end if
				end if
				PlayMusic(object[arrayPos0].value8)
			end if
			StopSfx(SfxName[DrownCD])
		end if
	end if
end function


event ObjectMain
	temp0 = object[0].xpos
	temp0 >>= 16
	temp1 = object[0].ypos
	temp1 >>= 16
	arrayPos0 = object.entityPos
	CallFunction(object.value3)
	if object.ypos < stage.newWaterLevel
		object.ypos += 0x10000
	end if
	if object.ypos > stage.newWaterLevel
		object.ypos -= 0x10000
	end if
	temp0 = oscillation
	temp0 <<= 1
	Sin(stage.waterLevel, temp0)
	stage.waterLevel <<= 10
	stage.waterLevel += object.ypos
	temp7 = stage.waterLevel
	stage.waterLevel >>= 16
	currentPlayer = 0
	while currentPlayer < playerCount
		if object[currentPlayer].value25 == 0x3800
			CheckNotEqual(object[currentPlayer].type, TypeName[Debug Mode])
			temp0 = checkResult
			CheckNotEqual(object[currentPlayer].state, PlayerObject_Death)
			temp0 &= checkResult
			CheckNotEqual(object[currentPlayer].state, PlayerObject_Blank)
			temp0 &= checkResult
			CheckGreater(object[currentPlayer].ypos, temp7)
			temp0 &= checkResult
			if temp0 == 1
				if object[currentPlayer].yvel > 0
					object[currentPlayer].yvel >>= 2
				else
					object[currentPlayer].yvel >>= 1
				end if
				if object.ypos < stage.newWaterLevel
					object[currentPlayer].yvel += 0x10000
				end if
				if object[currentPlayer].state == PlayerObject_HandleTailsFlight
					StopSfx(SfxName[Flying])
					StopSfx(SfxName[Jump])
				end if
				object[currentPlayer].xvel >>= 1
				object[currentPlayer].speed >>= 1
				CallFunction(PlayerObject_SwitchPhysicsState)
				if currentPlayer == 0
					ZoneSetup_value36 = 1
				end if
				if object[currentPlayer].yvel != 0
					CreateTempObject(TypeName[Water Splash], 0, object[currentPlayer].xpos, temp7)
					object[tempObjectPos].drawOrder = 4
					object[currentPlayer].value18 = 4
					PlaySfx(SfxName[Water Splash], 0)
				end if
				object[+currentPlayer].value1 = 52
				object[currentPlayer].value3 = 0
			end if
		else
			if object[currentPlayer].value7 == 0
				if object[currentPlayer].value37 == 3
					temp2 = 0
					while temp2 < 8
						Rand(temp0, 32)
						Rand(temp1, 32)
						temp0 -= 16
						temp0 <<= 16
						temp0 += object[currentPlayer].xpos
						temp1 -= 16
						temp1 <<= 16
						temp1 += object[currentPlayer].ypos
						CreateTempObject(TypeName[Dust Puff], 0, temp0, temp1)
						object[tempObjectPos].drawOrder = object[currentPlayer].value18
						object[tempObjectPos].drawOrder++
						object[tempObjectPos].xvel = object[currentPlayer].xvel
						object[tempObjectPos].yvel = object[currentPlayer].yvel
						temp2++
					loop
					object[currentPlayer].value37 = 0
					arrayPos0 = currentPlayer
					arrayPos0 += playerCount
					CallFunction(PlayerObject_RestorePowerup)
				end if
				if object[currentPlayer].value37 == 4
					object[currentPlayer].value37 = 0
					arrayPos0 = currentPlayer
					arrayPos0 += playerCount
					CallFunction(PlayerObject_RestorePowerup)
					ZoneSetup_value34 = 4
				end if
			end if
			//if object[currentPlayer].value37 != 2
			CheckEqual(object[currentPlayer].value37, 2)
			temp2 = checkResult
			if PlayerObject_SuperState == 1
				if saveRAM[482] > 0
					if options.gameMode != 2
						if currentPlayer == 0
							temp2 = 1
						end if
					end if
				end if
			end if
			
			if temp2 == 0
				if object[currentPlayer].value3 == 0
					object[currentPlayer].value4 = 0
					CallFunction(Water_Function107)
				end if
				switch object[currentPlayer].value4
				case 0
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 360
						if currentPlayer == 0
							PlaySfx(SfxName[Drown Alert], 0)
						end if
						object[currentPlayer].value4++
					end if
					break
				case 1
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 660
						if currentPlayer == 0
							PlaySfx(SfxName[Drown Alert], 0)
						end if
						object[currentPlayer].value4++
					end if
					break
				case 2
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 960
						if currentPlayer == 0
							PlaySfx(SfxName[Drown Alert], 0)
						end if
						object[currentPlayer].value4++
					end if
					break
				case 3
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 0x438
						if currentPlayer == 0
							if saved.Drowning == 0
								object.value8 = music.currentTrack
								PlayMusic(6)
							else
								PlaySfx(SfxName[DrownCD],1)
							end if
						end if
						temp0 = 0
						CallFunction(Water_Function106)
						object[currentPlayer].value4++
					end if
					break
				case 4
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 0x4B0
						temp0 = 1
						CallFunction(Water_Function106)
						object[currentPlayer].value4++
					end if
					break
				case 5
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 0x528
						temp0 = 2
						CallFunction(Water_Function106)
						object[currentPlayer].value4++
					end if
					break
				case 6
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 0x5A0
						temp0 = 3
						CallFunction(Water_Function106)
						object[currentPlayer].value4++
					end if
					break
				case 7
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 0x618
						temp0 = 4
						CallFunction(Water_Function106)
						object[currentPlayer].value4++
					end if
					break
				case 8
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 0x690
						temp0 = 5
						CallFunction(Water_Function106)
						object[currentPlayer].value4++
					end if
					break
				case 9
					CallFunction(Water_Function105)
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 0x708
						StopSfx(SfxName[DrownCD])
						if object[currentPlayer].state != PlayerObject_Death
							if currentPlayer == 0
								stage.timeEnabled = 0
								screen.cameraEnabled = 0
							end if
							object[currentPlayer].state = PlayerObject_Drown
							object[currentPlayer].animation = ANI_DROWNING
							object[currentPlayer].speed = 0
							object[currentPlayer].xvel = 0
							object[currentPlayer].yvel = 0
							object[currentPlayer].tileCollisions = 0
							object[currentPlayer].interaction = 0
							object[currentPlayer].value18 = 5
							object[+currentPlayer].value1 = 2
							PlaySfx(SfxName[Drowning], 0)
							object[currentPlayer].value4++
						end if
					end if
					break
				case 10
					object[currentPlayer].value3++
					if object[currentPlayer].value3 == 0x744
						object[currentPlayer].value4++
					end if
					if object[+currentPlayer].value1 > 0
						object[+currentPlayer].value1--
						if object[+currentPlayer].value2 > 0
							object[+currentPlayer].value2--
						else
							Rand(temp1, 2)
							temp1 += 2
							CreateTempObject(TypeName[Air Bubble], temp1, object[currentPlayer].xpos, object[currentPlayer].ypos)
							object[tempObjectPos].drawOrder = 5
							object[tempObjectPos].yvel = -0x8800
							object[tempObjectPos].ypos -= 0x60000
							object[tempObjectPos].value2 = currentPlayer
							Rand(object[tempObjectPos].angle, 256)
							object[tempObjectPos].value1 = object[tempObjectPos].xpos
							object[+currentPlayer].value2 = 512
						end if
					else
						Rand(temp0, 5)
						if temp0 == 1
							object[+currentPlayer].value2 = 2
						else
							object[+currentPlayer].value2 = 512
						end if
						object[+currentPlayer].value1 = 6
						Rand(temp1, 2)
						temp1 += 2
						CreateTempObject(TypeName[Air Bubble], temp1, object[currentPlayer].xpos, object[currentPlayer].ypos)
						object[tempObjectPos].drawOrder = 5
						object[tempObjectPos].yvel = -0x8800
						object[tempObjectPos].ypos -= 0x60000
						object[tempObjectPos].value2 = currentPlayer
						Rand(object[tempObjectPos].angle, 256)
						object[tempObjectPos].value1 = object[tempObjectPos].xpos
					end if
					break
				end switch
			end if
			CheckEqual(object[currentPlayer].type, TypeName[Debug Mode])
			temp0 = checkResult
			CheckLower(object[currentPlayer].ypos, temp7)
			temp0 |= checkResult
			if temp0 == 1
				if object[currentPlayer].state != PlayerObject_Death
					object[currentPlayer].yvel <<= 1
					if object[currentPlayer].yvel < -0x100000
						object[currentPlayer].yvel = -0x100000
					end if
					if object[currentPlayer].state == PlayerObject_HandleTailsFlight
						if object[currentPlayer].value1 < 480
							PlaySfx(SfxName[Flying], 1)
						else
							PlaySfx(SfxName[Jump], 1)
						end if
					end if
					CallFunction(PlayerObject_SwitchPhysicsState)
					if object[currentPlayer].yvel != 0
						temp0 = object.ypos
						temp0 -= object[currentPlayer].ypos
						if temp0 < 0xF00000
							CreateTempObject(TypeName[Water Splash], 0, object[currentPlayer].xpos, temp7)
							object[tempObjectPos].drawOrder = 4
							object[currentPlayer].value18 = 4
							PlaySfx(SfxName[Water Splash], 0)
						end if
					end if
					object[currentPlayer].value3 = 0
					CallFunction(Water_Function107)
				end if
			end if
		end if
		currentPlayer++
	loop
	object.animationTimer++
	object.animationTimer &= 31
	object.frame = object.animationTimer
	object.frame >>= 3
end event


event ObjectDraw
	temp0 = screen.xoffset
	Sin(temp1, oscillation)
	temp1 >>= 5
	temp0 += temp1
	temp0 &= 63
	FlipSign(temp0)
	temp1 = stage.waterLevel
	temp1 -= screen.yoffset
	while temp0 < screen.xsize
		DrawSpriteScreenFX(object.frame, FX_INK, temp0, temp1)
		temp0 += 256
		DrawSpriteScreenFX(object.frame, FX_INK, temp0, temp1)
		temp0 += 256
	loop
end event


event ObjectStartup
	SetTableValue(Water_Function103, 1, Water_table42)
	SetTableValue(Water_Function104, 2, Water_table42)
	if options.vsMode == 1
		foreach (TypeName[Water], arrayPos0, ALL_ENTITIES)
			object[arrayPos0].type = TypeName[Blank Object]
		next
	end if
	foreach (TypeName[Water], arrayPos0, ALL_ENTITIES)
		object[arrayPos0].priority = PRIORITY_ACTIVE
		object[arrayPos0].drawOrder = 5
		object[arrayPos0].inkEffect = INK_ALPHA
		object[arrayPos0].alpha = 160
		if credits.screen == 0
			stage.newWaterLevel = object[arrayPos0].ypos
		else
			stage.waterState = 1
			stage.newWaterLevel = 0x4C80000
			temp0 = object[0].xpos
			temp0 >>= 16
			temp1 = object[0].ypos
			temp1 >>= 16
		end if
		Water_value37 = arrayPos0
		GetTableValue(object[arrayPos0].value3, stage.actNum, Water_table42)
		CallFunction(object[arrayPos0].value3)
		stage.waterLevel = stage.newWaterLevel
		stage.waterLevel >>= 16
		object[arrayPos0].ypos = stage.newWaterLevel
		if starPostID > 31
			stage.waterState = recWaterState
			stage.waterLevel = recWaterLevel
			stage.newWaterLevel = recWaterLevel
			stage.newWaterLevel <<= 16
			arrayPos0 = Water_value37
			object[arrayPos0].ypos = stage.newWaterLevel
		else
			if credits.screen == 0
				stage.waterState = 0
			end if
		end if
	next
	Water_value38 = 0
	foreach (256, currentPlayer, ALL_ENTITIES)
		object[currentPlayer].value3 = 0
		if object[currentPlayer].ypos > stage.newWaterLevel
			object[currentPlayer].yvel >>= 2
			object[currentPlayer].xvel >>= 1
			object[currentPlayer].speed >>= 1
			object[currentPlayer].value20 >>= 1
			object[currentPlayer].value21 >>= 1
			object[currentPlayer].value22 >>= 1
			object[currentPlayer].value23 >>= 1
			object[currentPlayer].value24 >>= 1
			object[currentPlayer].value25 = 0x1000
			if stage.playerListPos == 2
				object[currentPlayer].value27 = 0x30000
			else
				object[currentPlayer].value27 = 0x38000
			end if
			object[currentPlayer].value28 = -0x20000
			arrayPos0 = Water_value37
			arrayPos0 += currentPlayer
			object[arrayPos0].value1 = 52
		end if
	next
	LoadSpriteSheet("CPZ/Objects2.gif")
	SpriteFrame(0, -8, 256, 16, 0, 0)
	SpriteFrame(0, -8, 256, 16, 0, 16)
	SpriteFrame(0, -8, 256, 16, 0, 32)
	SpriteFrame(0, -8, 256, 16, 0, 48)
	BrokenMonitor_value27 = Water_Function107
end event

event RSDKDraw
	DrawSprite(0)
end event

event RSDKLoad
	LoadSpriteSheet("Global/Display.gif")
	SpriteFrame(-16, -16, 32, 32, 1, 143)
end event
