PushButton.txt

//-----------------Sonic CD Push Button Script----------------//
//--------Scripted by Christian Whitehead 'The Taxman'--------//
//-------Unpacked By Rubberduckycooly's Script Unpacker-------//

// Aliases
#alias Object.PropertyValue	:	Object.Pressed

// Gravity
#alias 0	:	GRAVITY_GROUND

// Player Collision
#alias 1	:	PLAYER_COL_FLOOR

// Stage SFX
#alias 5	:	SFX_S_SWITCH


sub ObjectPlayerInteraction
	if Object.Pressed == false
		if Player.YVelocity >= 0
			PlayerObjectCollision(C_BOX, -16, -8, 16, 8)
			if CheckResult == PLAYER_COL_FLOOR
				Object.Pressed = true

				Player.YPos += 0x80000
				
				PlayStageSfx(SFX_S_SWITCH, false)
			else
				Object.Pressed = false
			end if
		else
			Object.Pressed = false
		end if
	else
		PlayerObjectCollision(C_TOUCH, -16, -1, 16, 8)
		if CheckResult == true
			Object.Pressed = true

			Player.Gravity	 = GRAVITY_GROUND
			Player.YVelocity = 0
			
			Player.YPos   = Player.CollisionBottom
			FlipSign(Player.YPos)
			Player.YPos <<= 16
			Player.YPos  += Object.YPos
		else
			Object.Pressed = false
			if Player.YVelocity > -1
				Player.Gravity	 = GRAVITY_GROUND
				Player.YVelocity = 0

				Player.YPos = Player.CollisionBottom
				FlipSign(Player.YPos)
				Player.YPos  -= 8
				Player.YPos <<= 16
				Player.YPos  += Object.YPos
			end if
		end if
	end if
end sub


sub ObjectDraw
	DrawSprite(Object.Pressed)
end sub


sub ObjectStartup
	LoadSpriteSheet("R6/Objects.gif")

	SpriteFrame(-16, -8, 32, 16, 140, 1)	// #0 - Push Button
	SpriteFrame(-16, 0, 32, 8, 140, 18)		// #1 - Push Button pressed
end sub


// ========================
// Editor Subs
// ========================

sub RSDKDraw
	DrawSprite(0)
end sub


sub RSDKLoad
	LoadSpriteSheet("R6/Objects.gif")

	SpriteFrame(-16, -8, 32, 16, 140, 1)	// #0 - Push Button

	SetVariableAlias(ALIAS_VAR_PROPVAL, "unused")
end sub