R81ASetup.txt

//---------------Sonic CD R8 1 A Setup Script-----------------//
//--------Scripted by Christian Whitehead 'The Taxman'--------//
//-------Unpacked By Rubberduckycooly's Script Unpacker-------//

// Aliases
#alias Object.Value0	:	Object.PaletteTimer
#alias Object.Value1	:	Object.CurrentPalette
#alias Object.Value2	:	Object.VGearFrame
#alias Object.Value3	:	Object.HCylinderFrame
#alias Object.Value4	:	Object.VCylinderFrame
#alias Object.Value5	:	Object.LightsFrame
#alias Object.Value6	:	Object.BGSphereTimer
#alias Object.Value7	:	Object.BGSphereCoolDown

// Priority
#alias 1	:	PRIORITY_ACTIVE


sub ObjectMain
	Object.Rotation++
	Object.Rotation %= 144

	TempValue0  = Object.VGearFrame
	TempValue0 %= 7
	if TempValue0 == 0
		TempValue0   = Object.VGearFrame
		TempValue0  /= 7
		TempValue0 <<= 1
		TempValue0  += 600
		Copy16x16Tile(444, TempValue0)
		TempValue0++
		Copy16x16Tile(445, TempValue0)
	end if
	Object.VGearFrame++
	Object.VGearFrame %= 28

	TempValue0  = Object.HCylinderFrame
	TempValue0 &= 3
	if TempValue0 == 0
		TempValue0   = Object.HCylinderFrame
		TempValue0 >>= 2
		TempValue0 <<= 1
		TempValue0  += 608
		Copy16x16Tile(446, TempValue0)
		TempValue0++
		Copy16x16Tile(447, TempValue0)
	end if

	Object.HCylinderFrame++
	Object.HCylinderFrame &= 15

	TempValue0 = Object.VCylinderFrame
	TempValue0 %= 5
	if TempValue0 == 0
		TempValue0   = Object.VCylinderFrame
		TempValue0  /= 5
		TempValue0 <<= 2
		TempValue0  += 616
		Copy16x16Tile(448, TempValue0)
		TempValue0++
		Copy16x16Tile(449, TempValue0)
		TempValue0++
		Copy16x16Tile(450, TempValue0)
		TempValue0++
		Copy16x16Tile(451, TempValue0)
	end if
	Object.VCylinderFrame++
	Object.VCylinderFrame %= 20

	TempValue0  = Object.LightsFrame
	TempValue0 &= 7
	if TempValue0 == 0
		TempValue0   = Object.LightsFrame
		TempValue0 >>= 3
		TempValue0  += 632
		Copy16x16Tile(452, TempValue0)
	end if
	Object.LightsFrame++
	Object.LightsFrame %= 56
	
	if Object.BGSphereTimer == 0
		switch Object.Frame
		case 0
			Object.BGSphereTimer = 44
			Object.Frame++
			Copy16x16Tile(440, 484)
			Copy16x16Tile(441, 485)
			Copy16x16Tile(442, 486)
			Copy16x16Tile(443, 487)
			break
		case 1
			Object.BGSphereTimer = 4
			Object.Frame++
			Copy16x16Tile(440, 488)
			Copy16x16Tile(441, 489)
			Copy16x16Tile(442, 490)
			Copy16x16Tile(443, 491)
			break
		case 2
			Object.BGSphereTimer = 13
			Object.Frame++
			Copy16x16Tile(440, 492)
			Copy16x16Tile(441, 493)
			Copy16x16Tile(442, 494)
			Copy16x16Tile(443, 495)
			break
		case 3
			Object.BGSphereTimer = 4
			Object.Frame++
			Copy16x16Tile(440, 496)
			Copy16x16Tile(441, 497)
			Copy16x16Tile(442, 498)
			Copy16x16Tile(443, 499)
			break
		case 4
			Object.BGSphereTimer = 4
			if Object.BGSphereCoolDown < 4
				Object.Frame = 1
				Object.BGSphereCoolDown++
			else
				Object.BGSphereCoolDown = 0
				Object.Frame = 0
			end if
			Copy16x16Tile(440, 484)
			Copy16x16Tile(441, 485)
			Copy16x16Tile(442, 486)
			Copy16x16Tile(443, 487)
			break
		end switch
		Object.BGSphereTimer--
	else
		Object.BGSphereTimer--
	end if
	
	Object.PaletteTimer++
	if Object.PaletteTimer == 5
		Object.PaletteTimer = 0
		if Object.CurrentPalette > 2
			Object.CurrentPalette = 1
		else
			Object.CurrentPalette++
		end if
		Object.CurrentPalette %= 3
		if Object.CurrentPalette == 0
			switch Object.AnimationTimer
			case 3
				Object.CurrentPalette += 3
				break
			case 4
				Object.CurrentPalette += 4
				break
			case 5
				Object.CurrentPalette += 5
				break
			end switch
			Object.AnimationTimer++
			Object.AnimationTimer %= 6
		end if
	end if
	SetActivePalette(Object.CurrentPalette, 0, Screen.YSize)
end sub


sub ObjectStartup
	Object[19].Type = TypeName[R8 Setup]
	Object[19].Priority = PRIORITY_ACTIVE

	CopyPalette(0, 1)
	CopyPalette(0, 2)
	CopyPalette(0, 3)
	CopyPalette(0, 4)
	CopyPalette(0, 5)

	TempValue0 = 0
	TempValue1 = 0
	TempValue2 = 32
	while TempValue0 < 6
		LoadPalette("R81A_PalCycle.act", TempValue0, 160, TempValue1, TempValue2)
		TempValue0++
		TempValue1 += 32
		TempValue2 += 32
	loop
end sub


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

sub RSDKDraw
	DrawSprite(0)
end sub


sub RSDKLoad
	LoadSpriteSheet("Global/Display.gif")
	SpriteFrame(-16, -16, 32, 32, 1, 143)		// #0 - "Script" Icon

	SetVariableAlias(ALIAS_VAR_PROPVAL, "unused")
end sub