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

// Collision
#alias 1	:	PLAYER_COL_FLOOR

// Stage SFX
#alias 2	:	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("R8/Objects.gif")

	SpriteFrame(-16, -8, 32, 16, 142, 98)	// #0 - Push Button inactive
	SpriteFrame(-16, 0, 32, 8, 142, 114)	// #1 - Push Button active
end sub


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

sub RSDKDraw
	DrawSprite(Object.PropertyValue)
end sub


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

	SpriteFrame(-16, -8, 32, 16, 142, 98)	// #0 - Push Button inactive
	SpriteFrame(-16, 0, 32, 8, 142, 114)	// #1 - Push Button active

	SetVariableAlias(ALIAS_VAR_PROPVAL, "unused")
end sub