TutenKham

' *********************************************
'
'**********************************************
'   Very Basic DOFLinx added by Outhere

Option Explicit				' Force explicit variable declaration


' Define any Constants
Const constMaxPlayers 		= 2 		' Maximum number of players per game (between 1 and 4)
												' Set this to 0 if you don't want this feature
Const constMaxMultiplier	= 6		' Defines the maximum bonus multiplier level

' Define Global Variables
'
Dim PlayersPlayingGame		' number of players playing the current game
Dim CurrentPlayer				' current player (1-4) playing the game
Dim BonusPoints(4)			' Bonus Points for the current player
Dim BonusMultiplier(4)		' Bonus Multiplier for the current player
Dim BallsRemaining
Dim bEnteringAHighScore		' player is entering their name into the high score table		>>> JPR
Dim theMultiplier


Dim x
	for x= 1 to 36
		Execute "Dim tVal" &x
		Execute "Dim tAnimIn" &x
		Execute "Dim tAnimOut" &x
		Execute "Dim tAnimLoop" &x
		Execute "Dim tTxIn" &x
		Execute "Dim tTxOut" &x
		Execute "Dim IsCritterTile" &x
		Execute "tVal" &x&"=0"
		Execute "IsCritterTile"&x&"=false"
		next




Kicker2.CreateCaptiveBall
Sub Kicker1_hit()
Kicker1. solenoidPulse
end sub

Dim enableCollect,TimetoCollect

Sub TriggerOpto1_hit()
		enableCollect=false
		block.collidable=false
		blockTimer.Set true ,1000
		AddScore(10*theMultiplier)
end sub

Sub collectIsOk_hit()
		enableCollect=true
		AddScore(10*theMultiplier)
end sub

Sub TriggerCollect_hit()
		AddScore(50*theMultiplier)
		PlaySound "fx_wire", 0.3
		if enableCollect=true and TimetoCollect=true then
			ShowMessages(3)
			CollectProgressive()
			TimetoCollect=false
		end if
end sub

Sub blockTimer_expired()
blockTimer.Set false
block.collidable=true
End sub


Sub ToggleCollect_expired()
		if TimetoCollect=false then
			TimetoCollect=true
			CollectProgLight.State=bulbBlink
		else
			TimetoCollect=false
			CollectProgLight.State=bulbOff
		end if
			ToggleCollect.Set true ,30000
end sub





Sub CollectProgressive()

		AddScore(nvR1)
		nvR1=0
		TimetoCollect=false
		CollectProgLight.State=bulbOff
		IncProgJackPot.Set true, 5000
		ToggleCollect.Set true ,60000
		stingerSFX()
		BigWipeLightEvent()
end sub

Sub IncProgJackPot_expired()
		nvR1=nvR1+250
		IncProgJackPot.Set true, 1000

end sub

'****************************************
' CHAMBER PF
'****************************************

Dim theLoot,EnoughChestKey

Sub chest1target_hit()
			PlaySound "fx_ballhitplung"
			winSFX()
		AddScore(10*theMultiplier)
		ChestLight1.FlashForMs  200, 100, BulbOff
		if EnoughChestKey>0 then
			BigWipeLightEvent()
				EnoughChestKey=EnoughChestKey-1
				ProcessKeyLight()
				chest1.Popdown
				PlaySound"chestOpen"
				ChestTimer.Set true ,2000
				AddScore(theLoot*xSpecial)
		else
				'NotEnoughKey
				AddScore(50*theMultiplier)
		end if
end sub

Sub chest2target_hit()
			winSFX()
			PlaySound "fx_ballhitplung"
		AddScore(10*theMultiplier)
		ChestLight2.FlashForMs  200, 100, BulbOff
		if EnoughChestKey>0 then
			BigWipeLightEvent()
				EnoughChestKey=EnoughChestKey-1
				ProcessKeyLight()
				chest2.Popdown
				PlaySound"chestOpen"
				ChestTimer.Set true ,2000
				AddScore(theLoot*xSpecial)
		else
				'NotEnoughKey
				AddScore(50*theMultiplier)
		end if
end sub

Sub chest3target_hit()
			winSFX()
			PlaySound "fx_ballhitplung"
		AddScore(10*theMultiplier)
		ChestLight3.FlashForMs  200, 100, BulbOff
		if EnoughChestKey>0 then
			BigWipeLightEvent()
				EnoughChestKey=EnoughChestKey-1
				ProcessKeyLight()
				chest3.Popdown
				PlaySound"chestOpen"
				ChestTimer.Set true ,2000
				AddScore(theLoot*xSpecial)
		else
				'NotEnoughKey
				AddScore(50*theMultiplier)
		end if
end sub

Sub chest4target_hit()
			winSFX()
			PlaySound "fx_ballhitplung"
		AddScore(10*theMultiplier)
		ChestLight4.FlashForMs  200, 100, BulbOff
		if EnoughChestKey>0 then
			BigWipeLightEvent()
				EnoughChestKey=EnoughChestKey-1
				ProcessKeyLight()
				chest4.Popdown
				PlaySound"chestOpen"
				ChestTimer.Set true ,2000
				AddScore(theLoot*xSpecial)
		else
				'NotEnoughKey
				AddScore(50*theMultiplier)
		end if
end sub

Sub ChestTimer_expired()
		ChestTimer.Set false
		chest1.SolenoidPulse
		chest2.SolenoidPulse
		chest3.SolenoidPulse
		chest4.SolenoidPulse
		PlaySound"chestClose"
End sub

Sub giveAKey_hit()
		PlaySound "fx_wire", 0.4
      PlaySound "findkey"
			winSFX()
		if EnoughChestKey<9 then
			ShowMessages(15)
			BigWipeLightEvent()
			EnoughChestKey=EnoughChestKey+1
			EventLight(1000)
			ProcessKeyLight()
			AddScore(250*theMultiplier)
		end if
end sub

Sub ProcessKeyLight()
	select case EnoughChestKey
		case 0 : keylit1.State=bulbOff : keylit2.State=bulbOff : keylit3.State=bulbOff : keylit4.State=bulbOff : keylit5.State=bulbOff : keylit6.State=bulbOff : keylit7.State=bulbOff : keylit8.State=bulbOff
		case 1 : keylit1.State=bulbOn : keylit2.State=bulbOff : keylit3.State=bulbOff : keylit4.State=bulbOff : keylit5.State=bulbOff : keylit6.State=bulbOff : keylit7.State=bulbOff : keylit8.State=bulbOff
		case 2 : keylit1.State=bulbOn : keylit2.State=bulbOn : keylit3.State=bulbOff : keylit4.State=bulbOff : keylit5.State=bulbOff : keylit6.State=bulbOff : keylit7.State=bulbOff : keylit8.State=bulbOff
		case 3 : keylit1.State=bulbOn : keylit2.State=bulbOn: keylit3.State=bulbOn : keylit4.State=bulbOff : keylit5.State=bulbOff : keylit6.State=bulbOff : keylit7.State=bulbOff : keylit8.State=bulbOff
		case 4 : keylit1.State=bulbOn : keylit2.State=bulbOn: keylit3.State=bulbOn : keylit4.State=bulbOn : keylit5.State=bulbOff : keylit6.State=bulbOff : keylit7.State=bulbOff : keylit8.State=bulbOff
		case 5 : keylit1.State=bulbOn : keylit2.State=bulbOn: keylit3.State=bulbOn : keylit4.State=bulbOn : keylit5.State=bulbOn : keylit6.State=bulbOff : keylit7.State=bulbOff : keylit8.State=bulbOff
		case 6 : keylit1.State=bulbOn : keylit2.State=bulbOn: keylit3.State=bulbOn : keylit4.State=bulbOn : keylit5.State=bulbOn : keylit6.State=bulbOn : keylit7.State=bulbOff : keylit8.State=bulbOff
		case 7 : keylit1.State=bulbOn : keylit2.State=bulbOn: keylit3.State=bulbOn : keylit4.State=bulbOn : keylit5.State=bulbOn : keylit6.State=bulbOn : keylit7.State=bulbOn : keylit8.State=bulbOff
		case 8 : keylit1.State=bulbOn : keylit2.State=bulbOn: keylit3.State=bulbOn : keylit4.State=bulbOn : keylit5.State=bulbOn : keylit6.State=bulbOn : keylit7.State=bulbOn : keylit8.State=bulbOn
	end select
end sub





'****************************************

'****************************************
Dim SobekTarVal,HorusTarVal,AnubisTarVal,KhnumTarVal

Sub KillAllGods()
		SobekTimer.Set false
		KhnumTimer.Set false
		AnubisTimer.Set false
		HorusTimer.Set false
		ResetAllGodsLights()
		InitHorusDead()
		InitSobekDead()
		InitAnubisDead()
		InitKhnumDead()
end sub

Sub SobekTarget1_hit()
		PlaySound "DropTarget"
		PlaySound "blood-hitting-window"
		SobekToplight.FlashForMs  200, 100, BulbOff
		SobekLight1.FlashForMs  200, 100, BulbOff
		SobekTarVal=SobekTarVal+1
		SobekIsHit()
		AddScore(200*theMultiplier)
		CheckSobek()

end sub

Sub CheckSobek()
		winSFX()
			OrbPosition(1)
			ElectrocuteSFX()
		if SobekTarVal=1 then
			ShowMessages(22)
		end if
		if SobekTarVal=2 then
		PlaySound "Blinky"
					EventLight(1000)
					SobekLight1.State=BulbBlink
					SobekLight2.State=BulbBlink
					SobekTarVal=0
					SobekTarTimer.Set true,1000
				if 	whichTile<8 then
					FlipATile()
				else

				end if
		end if
end sub

Dim CritterScore
Sub CheckAnubis()
		winSFX()
			ShowMessages(24)
			AnubisFlasher.State=bulbOff
			CrittersLight.State=bulbOff
			AnubisTopLight.State=bulbOff
			OrbPosition(3)
			ElectrocuteSFX()
			AnubisLight1.FlashForMs  1000, 100, BulbOff
			AnubisLight2.FlashForMs  1000, 100, BulbOff
				if IsCritterTile1=true then
						t1.frame 163,182 : IsCritterTile1=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile2=true then
						t2.frame 163,182 : IsCritterTile2=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile3=true then
						t3.frame 163,182 : IsCritterTile3=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile4=true then
						t4.frame 163,182 : IsCritterTile4=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile5=true then
						t5.frame 163,182 : IsCritterTile5=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile6=true then
						t6.frame 163,182 : IsCritterTile6=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile7=true then
						t7.frame 163,182 : IsCritterTile7=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile8=true then
						t8.frame 163,182 : IsCritterTile8=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile9=true then
						t9.frame 163,182 : IsCritterTile9=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile10=true then
						t10.frame 163,182 : IsCritterTile10=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile11=true then
						t11.frame 163,182 : IsCritterTile11=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile12=true then
						t12.frame 163,182 : IsCritterTile12=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile13=true then
						t13.frame 163,182 : IsCritterTile13=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile14=true then
						t14.frame 163,182 : IsCritterTile14=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile15=true then
						t15.frame 163,182 : IsCritterTile15=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile16=true then
						t16.frame 163,182 : IsCritterTile16=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile17=true then
						t17.frame 163,182 : IsCritterTile17=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile18=true then
						t18.frame 163,182 : IsCritterTile18=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile19=true then
						t19.frame 163,182 : IsCritterTile19=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile20=true then
						t20.frame 163,182 : IsCritterTile20=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile21=true then
						t21.frame 163,182 : IsCritterTile21=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile22=true then
						t22.frame 163,182 : IsCritterTile22=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile23=true then
						t23.frame 163,182 : IsCritterTile23=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile24=true then
						t24.frame 163,182 : IsCritterTile24=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile25=true then
						t25.frame 163,182 : IsCritterTile25=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile26=true then
						t26.frame 163,182 : IsCritterTile26=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile27=true then
						t27.frame 163,182 : IsCritterTile27=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile28=true then
						t28.frame 163,182 : IsCritterTile28=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile29=true then
						t29.frame 163,182 : IsCritterTile29=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile30=true then
						t30.frame 163,182 : IsCritterTile30=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile31=true then
						t31.frame 163,182 : IsCritterTile31=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile32=true then
						t32.frame 163,182 : IsCritterTile32=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile33=true then
						t33.frame 163,182 : IsCritterTile33=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile34=true then
						t34.frame 163,182 : IsCritterTile34=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile35=true then
						t35.frame 163,182 : IsCritterTile35=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if IsCritterTile36=true then
						t36.frame 163,182 : IsCritterTile36=false : CritterScore=CritterScore+2500 :  checkHowManyTileLeft()
				end if
				if CritterScore>1 then
					BigWipeLightEvent()
					CritterScore=CritterScore*theMultiplier
					AddScore(CritterScore)
					ShowMessages(5)
					CritterScore=0
				end if
end sub

Sub CheckHorus()
		winSFX()
			ElectrocuteSFX()
			OrbPosition(4)
		if HorusTarVal=1 then
			ShowMessages(25)
		end if
		if HorusTarVal=2 then
		PlaySound "Blinky"
					EventLight(1000)
					HorusTarVal=0
					HorusTarTimer.Set true,1000
					HorusLight1.State=BulbBlink
					HorusLight2.State=BulbBlink
				if 	whichTile<8 then
					FlipATile()
				else

				end if
		end if
end sub

Sub CheckKhnum()
		winSFX()
			ElectrocuteSFX()
			OrbPosition(2)
		if KhnumTarVal=1 then
			ShowMessages(23)
		end if
		if KhnumTarVal=2 then
		PlaySound "Blinky"
					EventLight(1000)
					KhnumTarVal=0
					KhnumTarTimer.Set true,1000
					KhnumLight1.State=BulbBlink
					KhnumLight2.State=BulbBlink
				if 	whichTile<8 then
					FlipATile()
				else

				end if
		end if
end sub


Sub SobekTarget2_hit()
		PlaySound "DropTarget"
		PlaySound "blood-hitting-window"
		SobekToplight.FlashForMs  200, 100, BulbOff
		SobekLight2.FlashForMs  200, 100, BulbOff
		SobekTarVal=SobekTarVal+1
		SobekIsHit()
		AddScore(200*theMultiplier)
		CheckSobek()
end sub



sub SobekTarTimer_expired()
		SobekTarget1.SolenoidPulse
		SobekTarget2.SolenoidPulse
FF_Sound DV_ML,-1, "chestClose"
		SobekTarTimer.Set false
		SobekLight1.State=BulbOff
		SobekLight2.State=BulbOff
end sub

Sub HorusTarget1_hit()
		PlaySound "DropTarget"
		PlaySound "blood-hitting-window"
		HorusTopLight.FlashForMs  200, 100, BulbOff
		HorusLight1.FlashForMs  200, 100, BulbOff
		HorusTarVal=HorusTarVal+1
		HorusIsHit()
		AddScore(200*theMultiplier)
		CheckHorus()
end sub

Sub HorusTarget2_hit()
		PlaySound "DropTarget"
		PlaySound "blood-hitting-window"
		HorusTopLight.FlashForMs  200, 100, BulbOff
		HorusLight2.FlashForMs  200, 100, BulbOff
		HorusTarVal=HorusTarVal+1
		HorusIsHit()
		AddScore(200*theMultiplier)
		CheckHorus()
end sub

sub HorusTarTimer_expired()
		HorusTarget1.SolenoidPulse
		HorusTarget2.SolenoidPulse
FF_Sound DV_MR,-1, "chestClose"
		HorusTarTimer.Set false
		HorusLight1.State=BulbOff
		HorusLight2.State=BulbOff
end sub

'****************************************
Sub KhnumTarget1_hit()
		PlaySound "DropTarget"
		PlaySound "blood-hitting-window"
		KhnumToplight.FlashForMs  200, 100, BulbOff
		KhnumLight1.FlashForMs  200, 100, BulbOff
		KhnumTarVal=KhnumTarVal+1
		KhnumIsHit()
		AddScore(200*theMultiplier)
		CheckKhnum()
end sub

Sub KhnumTarget2_hit()
		PlaySound "DropTarget"
		PlaySound "blood-hitting-window"
		KhnumToplight.FlashForMs  200, 100, BulbOff
		KhnumLight2.FlashForMs  200, 100, BulbOff
		KhnumTarVal=KhnumTarVal+1
	   KhnumIsHit()
		AddScore(200*theMultiplier)
		CheckKhnum()
end sub

sub KhnumTarTimer_expired()
		KhnumTarget1.SolenoidPulse
		KhnumTarget2.SolenoidPulse
FF_Sound DV_ML,-1, "chestClose"
		KhnumTarTimer.Set false
		KhnumLight1.State=BulbOff
		KhnumLight2.State=BulbOff
end sub

Sub AnubisTarget_hit()
		PlaySound "DropTarget"
		PlaySound "blood-hitting-window"
		AnubisTopLight.FlashForMs  200, 100, BulbOff
		AnubisLight1.FlashForMs  200, 100, BulbOff
		AnubisIsHit()
		AddScore(200*theMultiplier)
		CheckAnubis()
end sub


Sub rampSound_hit()
		PlaySound "ball drop double left"
end sub



Sub DisengageScarabTargets()
		anubisblock.collidable=true
		SobekTarget1.PopDown
		SobekTarget2.PopDown
		HorusTarget1.PopDown
		HorusTarget2.PopDown
		KhnumTarget1.PopDown
		KhnumTarget2.PopDown
		SobekTarTimer.Set false
		HorusTarTimer.Set false
		KhnumTarTimer.Set false
end sub

Sub EngageScarabTargets()
		anubisblock.collidable=false
		SobekTarget1.SolenoidPulse
		SobekTarget2.SolenoidPulse
		HorusTarget1.SolenoidPulse
		HorusTarget2.SolenoidPulse
		KhnumTarget1.SolenoidPulse
		KhnumTarget2.SolenoidPulse
end sub

Sub SobekTrig1_hit()
		SobekToplight.FlashForMs  200, 100, BulbOff
		SobekKicker1.Solenoidpulse
		AddScore(10*theMultiplier)
		TrigSFX()
end sub

Sub SobekTrig2_hit()
		SobekToplight.FlashForMs  200, 100, BulbOff
		SobekKicker2.Solenoidpulse
		AddScore(10*theMultiplier)
		TrigSFX()
end sub

Sub HorusTrig1_hit()
		HorusTopLight.FlashForMs  200, 100, BulbOff
		HorusKicker1.Solenoidpulse
		AddScore(10*theMultiplier)
		TrigSFX()
end sub

Sub HorusTrig2_hit()
		HorusTopLight.FlashForMs  200, 100, BulbOff
		HorusKicker2.Solenoidpulse
		AddScore(10*theMultiplier)
		TrigSFX()
end sub

Sub KhnumTrig1_hit()
		KhnumToplight.FlashForMs  200, 100, BulbOff
		KhnumKicker1.Solenoidpulse
		AddScore(10*theMultiplier)
		TrigSFX()
end sub

Sub KhnumTrig2_hit()
		KhnumKicker2.Solenoidpulse
		AddScore(10*theMultiplier)
		TrigSFX()
end sub


'-------------------------------------------------------------------------
'Basic Script For PowerBumpers
'-------------------------------------------------------------------------

Sub PowerBump_Skirt1_hit()
FF_Sound DV_BL,-1, "fx_Bumper"
		PowerBump_Kicker1.SolenoidPulse
		PowerBump_Kicker2.SolenoidPulse
		PowerBump_Kicker3.SolenoidPulse
		bumperSFX()
		bumper1TopLight.FlashForMs  200, 100, BulbOff
		PowerBump_Cap1.FlashForMs  200, 100, BulbOff
		nvR1=nvR1+500
		ShowMessages(17)
end sub

Sub PowerBump_Skirt2_hit()
FF_Sound DV_BR,-1, "fx_Bumper"
		PowerBump_Kicker5.SolenoidPulse
		PowerBump_Kicker6.SolenoidPulse
		PowerBump_Kicker7.SolenoidPulse
		PowerBump_Kicker8.SolenoidPulse
		bumperSFX()
		bumper2TopLight.FlashForMs  200, 100, BulbOff
		PowerBump_Cap2.FlashForMs  200, 100, BulbOff
		nvR1=nvR1+500
		ShowMessages(17)
end sub

Sub PowerBump_Skirt3_hit()
FF_Sound DV_BC,-1, "fx_Bumper"
		PowerBump_Kicker9.SolenoidPulse
		PowerBump_Kicker10.SolenoidPulse
		PowerBump_Kicker11.SolenoidPulse
		bumperSFX()
		KhnumToplight.FlashForMs  200, 100, BulbOff
		PowerBump_Cap3.FlashForMs  200, 100, BulbOff
		nvR1=nvR1+500
		ShowMessages(17)
end sub

Sub Rubber12_hit()
		miniSlingTop.FlashForMs  200, 100, BulbOff
		nvR1=nvR1+150
		ShowMessages(17)
		bumperSFX()
end sub

Sub Rubber14_hit()
FF_Sound DV_BC,-1, "chestClose"
		snakeHissSFX()
		AddScore(100*theMultiplier)
		winSFX()
end sub

Sub Rubber11_hit()
FF_Sound DV_BR,-1, "chestClose"
		snakeHissSFX()
		AddScore(100*theMultiplier)
		winSFX()
end sub

Sub Rubber20_hit()
FF_Sound DV_BL,-1, "chestClose"
		snakeHissSFX()
		AddScore(100*theMultiplier)
		winSFX()
end sub
'-------------------------------------------------------------------------
'-------------------------------------------------------------------------


' **************************************************
' **
' **       Future Pinball Defined Script Events
' **
' **************************************************


Sub FuturePinball_BeginPlay()
   FF_Init
	FF_DOFLinx=1  ' Set this to 0 to manually disable the link to DOFLinx.
                 ' DOFLinx must be active and set to link for this to make a difference
	' seed the randomiser (rnd(1) function


	Dim x													' >>> JPR
	bEnteringAHighScore	= False		' >>> JPR
	If nvR1 = 0 Then 								' >>> JPR - on initialise au premier lancement les meilleurs scores
		nvR1 = 1											' >>> JPR
		For x = 1 To 10: nvHighScore(x) = 0: nvHighScoreName(x) = "...": Next	' >>> JPR
		nvHighScore(1) = 125000: nvHighScore(2) = 110000				' >>> JPR
		nvHighScoreName(1) = "XXX": nvHighScoreName(2) = "YYY"		' >>> JPR
		nvSpecialHighScore = 3: nvSpecialHighScoreName = "ZZZ"		' >>> JPR
	End If
	Randomize
	EndOfGame()
End Sub


Sub FuturePinball_EndPlay()
End Sub
Dim GameOn


Sub FuturePinball_KeyPressed(ByVal KeyCode)
	If (KeyCode = GetKeyCode(InsertCoinKey)) and nvCredits<9 Then
		PlaySound "CoinIn"
		nvCredits = nvCredits + 1
		ShowMessages(12)
	End If
	If (KeyCode = GetKeyCode(PlungerKey)) Then

	End If
	If (KeyCode = GetKeyCode(LeftFlipperKey)) and GameOn=true Then
		LeftFlipper.SolenoidOn
		LeftFlipper2.SolenoidOn
           FF_Sound DV_LF,1000,"Flipper"    ' Turn on the left flipper for upto 10 seconds (realistically until thge key is lifted
		PlaySound "theFlipperUp" : 'testme
		leftFlipperOn=true
		LaneSafeLeft.State=BulbOn
	End If
	If (KeyCode = GetKeyCode(RightFlipperKey)) and GameOn=true  Then
		RightFlipper.SolenoidOn
		RightFlipper2.SolenoidOn
            FF_Sound DV_RF,1000,"Flipper"    ' Turn on the left flipper for upto 10 seconds (realistically until thge key is lifted
		PlaySound "theFlipperUp"
		rightFlipperOn=true
	   LaneSafeRight.State=BulbOn
	End If
	If (KeyCode = GetKeyCode(StartGameKey)) and GameOn=false Then
						nvCredits = nvCredits - 1
						ResetForNewGame()
						GameOn=true
	End If
End Sub

Sub FuturePinball_KeyReleased(ByVal KeyCode)
	If (KeyCode = GetKeyCode(PlungerKey)) and GameOn=true Then
		AutoPlunger.SolenoidPulse
   FF_Sound DV_RS,-1,"fx_SlingL"
		AutoPlungerT.Set false
	End If
	If (KeyCode = GetKeyCode(LeftFlipperKey)) Then
		LeftFlipper.SolenoidOff
		LeftFlipper2.SolenoidOff
            FF_Dev DV_LF,0    ' Turn the flipper solenoids off
		leftFlipperOn=false
		LaneSafeLeft.State=BulbOff

	End If
	If (KeyCode = GetKeyCode(RightFlipperKey)) Then
		RightFlipper.SolenoidOff
		RightFlipper2.SolenoidOff
            FF_Dev DV_RF,0    ' Turn the flipper solenoids off
		rightFlipperOn=false
		LaneSafeRight.State=BulbOff

	End If
End Sub


Sub FuturePinball_Paused()
End Sub
Sub FuturePinball_UnPaused()
End Sub






Sub FuturePinball_MusicFinished(ByVal Channel)
End Sub


Sub FuturePinball_NameEntryComplete(ByVal Position, ByVal Special)
	If (Position <> 0) Then
	End If
	If (Special <> 0) Then
	End If
	bEnteringAHighScore = FALSE
	EndOfBallComplete()
End Sub

Sub TriggerOpto2_hit()
		UpperPFTexture.Render=false
		RaiseTheBridge.Set true, 2000
		rampblocker.Collidable=false
		xSpecial=1
		BigWipeLightEvent()
		playsound"melody2"
		FlasherUPF.State=bulbOff
		FlasherUPF2.State=bulbOff
		MainMusic()
		BallOnLowerFloor=true
		ShowMessages(0)
end sub

Sub Trigger1_hit()
		BallOnLowerFloor=true
		ShowMessages(0)
		UpperPFTexture.Render=false
		rampblocker.Collidable=false
		xSpecial=1
		FlasherUPF.State=bulbOff
		FlasherUPF2.State=bulbOff
		MainMusic()
end sub

Sub Gate2_hit()
		BallOnLowerFloor=false
		ShowMessages(33)
		StressMusic()
		stingerSFX()
		UpperPFTexture.Render=true
		RaiseTheBridge.Set true, 2000
		AddScore(100*xSpecial)
		winSFX()
		PlaySound "fx_wire", 0.3
		BigWipeLightEvent()
		FlasherUPF.State=bulbBlink
		FlasherUPF2.State=bulbBlink
end sub

Sub RaiseTheBridge_expired()
		PlaySound"bridgeUp"
      bridgeDownSoundPlayed=false
		IsGhostTrigOnLeft=false
		IsGhostTrigOnRight=false
		GhostRamp.Collidable=false
		RBExtension.PopDown
		RaiseTheBridge.Set false
		UpperLight1.State=BulbOff
		UpperLight2.State=BulbOff
		rampblocker.Collidable=true
end sub

Dim IsGhostTrigOnLeft,IsGhostTrigOnRight,xSpecial,bridgeDownSoundPlayed
bridgeDownSoundPlayed=false

Sub UpperTarget1_hit()
			PlaySound "TargetLeft"
			UpperLight1.State=BulbBlink
			IsGhostTrigOnLeft=true
			AddScore(1250*theMultiplier)
			winSFX()
		if IsGhostTrigOnLeft=true and IsGhostTrigOnRight=true then
			ShowMessages(35)
			GhostRamp.Collidable=true
			RBExtension.SolenoidPulse
			EnoughChestKey=8
			BigWipeLightEvent()
			ProcessKeyLight()
			if bridgeDownSoundPlayed=false then
					PlaySound"bridgeDown"
					bridgeDownSoundPlayed=true
					stingerSFX()
			end if
			rampblocker.Collidable=false
			xSpecial=100
		end if
end sub

Sub UpperTarget2_hit()
			PlaySound "TargetRight"
			UpperLight2.State=BulbBlink
			IsGhostTrigOnRight=true
			AddScore(1250*theMultiplier)
			winSFX()
		if IsGhostTrigOnLeft=true and IsGhostTrigOnRight=true then
			ShowMessages(35)
			GhostRamp.Collidable=true
			RBExtension.SolenoidPulse
			EnoughChestKey=8
			BigWipeLightEvent()
			ProcessKeyLight()
			if bridgeDownSoundPlayed=false then
					PlaySound"bridgeDown"
					stingerSFX()
					bridgeDownSoundPlayed=true
			end if
			xSpecial=100
		end if
end sub

Sub Bumper1_hit()
FF_Sound DV_BR,-1, "fx_Bumper"
			LightBumperUPF.FlashForMs 240, 80, BulbOff
		if xSpecial=1 then
			AddScore(100*theMultiplier)
		else
			AddScore(100*xSpecial)
		end if
			BumperSFX()
		winSFX()
end sub


' *********************************************************************
' **                                                                 **
' **                     User Defined Script Events                  **
' **                                                                 **
' *********************************************************************

Sub ResetForNewGame()
		xSpecial=1
		voTimer.Set true,3000
		PlayfieldFlashing(2000)
		DelayDestroyTile=30000
		resetAllGodsOverlay()
		CritterScore=0
		resetAllCritters()
		IncProgJackPot.Set true, 1000
		TimetoCollect=false
		ToggleCollect.Set true,60000
		BFDAvail=5
		ProcessLightBackFromDead()
		ResetGODS()
		processGODS.Set false
		UpperPFTexture.Render=false
		RaiseTheBridge.Set true, 2000
		EnoughChestKey=0
		ProcessKeyLight()
		theLevel=1
		backDrop.Frame 1
		theLoot=1000*theLevel
		MainMusic()
		ResetAllTile()
		EngageScarabTargets()
		InitTiles()
		InitSobekLiving()
		InitHorusLiving()
		InitAnubisLiving()
		InitKhnumLiving()
	BumperSection.Collidable=false
	BumperSection.Render=false
	nvscore1=0
	theMultiplier=1
	LightX1.State=BulbOn
	AttractModeLight.StopPlay
	BigWipeLightEvent()
	BeginGame()
	BallsRemaining = 3
	CreateNewBall()
	ShowMessages(0)
	ShootAgainLight.FlashForMs 3000, 200, BulbOff
	UndeadTimer.Set true, 10000
	PlaySound"welcome"
End Sub


Sub EndOfGame()
	BallOnLowerFloor=true
	voTimer.Set false
	AlternatePlayfieldA.Render=true
	UndeadTimer.Set false
	Key.ty= -50
	ChasetheKey.Set false
	KeyTrigger1.Collidable=false
	resetAllGodsOverlay()
	ChaseKeyInc=0
	StopAllGodsOverlay()
	IncProgJackPot.Set false
	CollectProgLight.State=bulbOff
	ToggleCollect.Set false
	UpperPFTexture.Render=false
	orb.Ty=-200
	Runestone=0
	Key.ty=-30
	RestartNewLevel.Set false
	ChasetheKey.Set false
	ShakeTheKey.Set false
	KeyTrigger1.Collidable=false
	KeyTrigger2.Collidable=false
	KeyTrigger3.Collidable=false
	KeyTrigger4.Collidable=false
	DisengageScarabTargets()
	BumperSection.Collidable=false
	BumperSection.Render=false
	KillAllGods()
	initMusic()
	AttractMusic()
	EffectMusic 4, PlayAndFadeIn, 0.5, 1000	: 'Ambient
	ResetAllTile()
	BumperSection.Collidable=false
	BallsRemaining = 0
	GameOn=false
	theMultiplier=1
	LightX1.State=BulbOn
	AttractModeLight.Play SeqRandom, 10, , 999900
	EndGame()
	LeftFlipper.SolenoidOff
	LeftFlipper2.SolenoidOff
	RightFlipper.SolenoidOff
	RightFlipper2.SolenoidOff
				FF_Dev DV_LF,0    ' Turn the flipper solenoids off
            FF_Dev DV_RF,0    ' Turn the flipper solenoids off
	LaneSafeRight.State=BulbOff
	LaneSafeLeft.State=BulbOff
	PlaySound"gameOver"
	ShowMessages(26)
	introplayer.Set true,80
End Sub


' *********************************************************************
' **                                                                 **
' **                   Drain / Plunger Functions                     **
' **                                                                 **
' *********************************************************************


Sub myDrain_Hit()
		AddScore(25*theMultiplier)
		if BFDAvail>0 and leftFlipperOn=true and rightFlipperOn=true then
			BFDAvail=BFDAvail-1
			ProcessLightBackFromDead()
			myDrain.SolenoidPulse
			BigWipeLightSeq.Play SeqUpOn, 10
			KickerSFX()
				PlaySound "propulsion"
				ShowMessages(11)
		else
				ShowMessages(2)
				PlaySound"hitwallplasticright"
				ShortLightEvent()
				myDrain.DestroyBall
				EventLight(2000)
			if BallsRemaining>0 then
				myDrainT.Set true ,3000
			else
				LeftFlipper.SolenoidOff
				LeftFlipper2.SolenoidOff
				RightFlipper.SolenoidOff
				RightFlipper2.SolenoidOff
				FF_Dev DV_LF,0    ' Turn the flipper solenoids off
            FF_Dev DV_RF,0    ' Turn the flipper solenoids off
				LaneSafeRight.State=BulbOff
				LaneSafeLeft.State=BulbOff
				nvSpecialScore1 = theMultiplier	' >>> JPR
				nvScore1 = nvScore1					' >>> JPR
				bEnteringAHighScore = True			' >>> JPR
				EnterHighScore(1)						' >>> JPR
				EndOfGame
			end if
		end if
End Sub

' >>> JPR - routine en plus
Sub FuturePinball_NameEntryComplete(ByVal Position, ByVal Special)	' High Score entry has been completed by the player
	bEnteringAHighScore = False
End Sub

Sub Trigger2_hit()
		PlaySound "plungerrelease2"
		BigWipeLightEvent()
		ShowMessages(4)
end sub

Sub AutoPlungerT_expired()
	AutoPlungerT.Set false
	AutoPlunger.SolenoidPulse
   FF_Sound DV_RS,-1,"fx_SlingL"
end sub

Sub CreateNewBall()
	BallsRemaining = BallsRemaining - 1
	PlungerKicker.CreateBall
	ShowMessages(26+RandomNumber(6))
	PlungerKicker.SolenoidPulse
   FF_Sound DV_RF,-1,"fx_SlingL"   '
	AutoPlungerT.Set true ,5000
	PlaySound"ballrelease",0.1
end sub


Sub myDrainT_expired()
		CreateNewBall()
		myDrainT.Set false
		ShortLightEvent()
end sub



' *********************************************************************
' **                                                                 **
' **                   Supporting Score Functions                    **
' **                                                                 **
' *********************************************************************
Dim ChaseInc

Sub xTrigger_hit()
		ShowMessages(14)
		XTopLight.FlashForMs 400, 100, BulbOff
		RhaLight.state=bulbBlink
		ChaseAMultiplier.Set true,50
			BigWipeLightEvent()
end sub

Sub ChaseAMultiplier_expired
		resetXLight()
		Execute "LightX"  &RandomNumber(6)& ".state=BulbOn"
	if ChaseInc<25 then
		PlaySound "tic"
		ChaseInc=ChaseInc+1
		ChaseAMultiplier.Set true,100
	else
		ChaseInc=0
		ChaseAMultiplier.Set false
		PickAMultiplier()
	end if
end sub

Dim whichMultiplier
whichMultiplier=Array(1,2,3,4,5,6,8,10,12,15,18,20,24,30)

Sub PickAMultiplier()
		resetXLight()
			BigWipeLightEvent()
		theMultiplier=whichMultiplier(RandomNumber(14)-1)
		PlaySound "xplier"
		RhaLight.state=bulbOff
	Select case theMultiplier
		case 1 : LightX1.State=BulbOn : '1
		case 2 : LightX1.State=BulbOn : LightX2.State=BulbOn : '2
		case 3 : LightX1.State=BulbOn : LightX3.State=BulbOn: '3
		case 4 : LightX1.State=BulbOn : LightX4.State=BulbOn: '4
		case 5 : LightX1.State=BulbOn : LightX5.State=BulbOn: '5
		case 6 : LightX1.State=BulbOn : LightX6.State=BulbOn: '6
		case 8 : LightX2.State=BulbOn : LightX4.State=BulbOn: '8
		case 10 : LightX2.State=BulbOn : LightX5.State=BulbOn: '10
		case 12 : LightX2.State=BulbOn : LightX6.State=BulbOn: '12
		case 15 : LightX3.State=BulbOn : LightX5.State=BulbOn: '15
		case 18 : LightX3.State=BulbOn : LightX6.State=BulbOn: '18
		case 20 : LightX4.State=BulbOn : LightX5.State=BulbOn: '20
		case 24 : LightX4.State=BulbOn : LightX6.State=BulbOn: '24
		case 30 : LightX5.State=BulbOn : LightX6.State=BulbOn: '30
	end select
			if BallOnLowerFloor=true then
				ShowMessages(0)
			else
				ShowMessages(33)
			end if
End sub


sub resetXLight()
		Dim x
			for x= 1 to 6
				Execute "LightX"  &x& ".state=BulbOff"
			next
end sub


Dim MsngrBusy
'********************************************
'FORMAT THE SCORE
'********************************************
Function FormatScore(num)
    Dim n, f, s
    n = CStr(num)
    f = ""

    do while len(n)>3
        if len(f)>0 then
            f = Right(n, 3) & "," & f
        else
            f = Right(n, 3)
        end if
        n = Left(n, Len(n)-3)
    loop
    if len(n)>0 then
        if len(f) > 0 then
            f = n & "," & f
        else
            f = n
        end if
    end if
    FormatScore = f
End Function

'*********************************************
'*********************************************
' **
' **       Future Pinball DMD
' **
' ********************************************
'*********************************************

ExecuteGlobal LoadExternalScript("DOFLinx.vbs")

myDMD.AddFont 1, "score12x20"
myDMD.AddFont 2, "dmd06x07p"
myDMD.AddFont 3, "dmd05x05p"
myDMD.AddFont 4, "dmdreverse08x11p"
myDMD.AddFont 5, "verySmallfont"
myDMD.AddFont 6, "IntroDMD"
myDMD.AddFont 7, "DiversDMDElements"
myDMD.AddFont 8, "DiversA"
myDMD.AddFont 10, "DiversB"
myDMD.AddFont 11, "DiversC"
myDMD.AddFont 9, "dmd08x09p"
myDMD.AddFont 12, "dmd09x11po"

Dim AnimStartPoint,AnimEndPoint,AnimLoopPoint,AnimBGFont,AnimData

Sub introplayer_expired()
		if AnimStartPoint<AnimEndPoint then
			AnimStartPoint=AnimStartPoint+1
			if AnimStartPoint=91 then
				AnimStartPoint=92
			end if
			myDMD.text= AnimBGFont&"[edge4][x0][y0]"&Chr(AnimStartPoint)&AnimData&"[edge4]"
		else
			AnimStartPoint=AnimLoopPoint
		end if
			introplayer.Set true, 80
			AddDebugText AnimStartPoint
end sub

Sub AddScore(points)
		nvScore1 = nvScore1 + points
			if MsngrBusy=false then
				if BallOnLowerFloor=true then
					ShowMessages(0)
				else
					ShowMessages(33)
			end if
			end if
End Sub

Dim whichMessage,BallOnLowerFloor

Sub MsngrTimer_expired()
		MsngrBusy=false
		MsngrTimer.Set false
		if GameOn=false then
				ShowMessages(1)
		else
			if BallOnLowerFloor=true then
				ShowMessages(0)
			else
				ShowMessages(33)
			end if
		end if
end sub



Sub ShowMessages(whichMessage)
		Select Case whichMessage : 'steve
			case 0
					AnimBGFont="[f6]"
					AnimStartPoint=32
					AnimEndPoint=32
					AnimLoopPoint=32
					AnimData="[f5][x2][y26][edge4]PROG JACKPOT[f3][x50][y26]"&FormatScore(nvr1)&"[f1][xc][y2]"&FormatScore(nvScore1)&"[f9][x100][y10] x"&theMultiplier&" "&"[f5][x96][y26] BALLS [f3][x121][y26]"&BallsRemaining
			case 1 :
					MsngrBusy=false
					MsngrTimer.Set false
					AnimStartPoint=31
					AnimEndPoint=125
					AnimLoopPoint=31
					AnimBGFont="[f6]"
					AnimData="[f1][xc][yc][edge4]" : 'INTRO
			case 2
					MsngrBusy=false
					MsngrTimer.Set false
					AnimBGFont="[f6]"
					AnimStartPoint=32
					AnimEndPoint=32
					AnimLoopPoint=32
					AnimData="[f4][xc][y1][edge4].....DOWN THE DRAIN....."
			case 3
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f10]"
					AnimStartPoint=72
					AnimEndPoint=124
					AnimLoopPoint=72
					AnimData="[f3][xc][y2][edge4]JACKPOT COLLECTED[f1][xc][y10][b]"&FormatScore(nvr1)
			case 4
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f6]"
					AnimStartPoint=32
					AnimEndPoint=32
					AnimLoopPoint=32
					AnimData="[f4][xc][y1][edge4]..PROGRESSIVE JACKPOT..[f1][xc][y11]"&FormatScore(nvr1)
			case 5
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f6]"
					AnimStartPoint=32
					AnimEndPoint=32
					AnimLoopPoint=32
					AnimData="[f4][xc][y1][edge4].....DEFEATED CRITTERS.....[f1][xc][y11]"&FormatScore(CritterScore)
			case 6
					MsngrBusy=true
					MsngrTimer.Set true,2000
					AnimBGFont="[f8]"
					AnimStartPoint=32
					AnimEndPoint=34
					AnimLoopPoint=32
					AnimData="[edge4]" : 'collect G
			case 7
					MsngrBusy=true
					MsngrTimer.Set true,2000
					AnimBGFont="[f8]"
					AnimStartPoint=34
					AnimEndPoint=36
					AnimLoopPoint=34
					AnimData="[edge4]" : 'collect O
			case 8
					MsngrBusy=true
					MsngrTimer.Set true,2000
					AnimBGFont="[f8]"
					AnimStartPoint=36
					AnimEndPoint=38
					AnimLoopPoint=36
					AnimData="[edge4]" : 'collect D
			case 9
					MsngrBusy=true
					MsngrTimer.Set true,2000
					AnimBGFont="[f8]"
					AnimStartPoint=37
					AnimEndPoint=39
					AnimLoopPoint=37
					AnimData="[edge4]" : 'collect S
			case 10
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f8]"
					AnimStartPoint=39
					AnimEndPoint=41
					AnimLoopPoint=39
					AnimData="[edge4]" : 'collect GODS
			case 11
					MsngrBusy=true
					MsngrTimer.Set true,1000
					AnimBGFont="[f8]"
					AnimStartPoint=42
					AnimEndPoint=51
					AnimLoopPoint=42
					AnimData="[edge4]" : ' BACK FROM THE DEAD
			case 12
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f6]"
					AnimStartPoint=32
					AnimEndPoint=32
					AnimLoopPoint=32
					AnimData="[f1][xc][yc][edge4]CREDITS " & nvCredits
			case 14
					MsngrBusy=true
					MsngrTimer.Set true,2500
					AnimBGFont="[f8]"
					AnimStartPoint=52
					AnimEndPoint=61
					AnimLoopPoint=52
					AnimData="[edge4]" : ' Multiplier shuffle
			case 15
					MsngrBusy=true
					MsngrTimer.Set true,2000
					AnimBGFont="[f8]"
					AnimStartPoint=62
					AnimEndPoint=71
					AnimLoopPoint=62
					AnimData="[edge4]" : ' KEY COLLECTED
			case 16
					MsngrBusy=true
					MsngrTimer.Set true,2000
					AnimBGFont="[f8]"
					AnimStartPoint=72
					AnimEndPoint=81
					AnimLoopPoint=72
					AnimData="[edge4][f1][xc][yc]"&whichTile+1&" ARTIFACTS" : ' COLLECT ARTIFACT
			case 17
					MsngrBusy=true
					MsngrTimer.Set true,1000
					AnimBGFont="[f8]"
					AnimStartPoint=82
					AnimEndPoint=106
					AnimLoopPoint=82
					AnimData="[edge4][f9][xc][y16]"&FormatScore(nvr1)&"[f3][xc][y8]PROG. JACKPOT": ' ELECTRIFY
			case 18
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f8]"
					AnimStartPoint=107
					AnimEndPoint=125
					AnimLoopPoint=107
					AnimData="[edge4][f1][xc][y11]"&FormatScore(ValueToShow)&"[edge4][f3][xc][y3][b]ARTIFACT COLLECTED" : ' FLAME
			case 19
					MsngrBusy=true
					MsngrTimer.Set true,5000
					AnimBGFont="[f10]"
					AnimStartPoint=72
					AnimEndPoint=124
					AnimLoopPoint=72
					AnimData="[edge4][f1][xc][y11]"&FormatScore(10000*theMultiplier)&"[edge4][f3][xc][y3]ADVANCE LEVEL BONUS" : ' FLAME
			case 20
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f8]"
					AnimStartPoint=107
					AnimEndPoint=125
					AnimLoopPoint=107
					AnimData="[edge4][f1][xc][y11]"&FormatScore(250*theMultiplier)&"[edge4][f3][xc][y3]BONUS BACK FROM DEAD" : ' FLAME
			case 21
					MsngrBusy=true
					MsngrTimer.Set true,1000
					AnimBGFont="[f8]"
					AnimStartPoint=82
					AnimEndPoint=106
					AnimLoopPoint=82
					AnimData="[edge4][f9][xc][y16]"&FormatScore(2000*theMultiplier)&"[edge4][f3][xc][y8]MUMMY HIT" : ' ELECTRIFY
			case 22
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f8]"
					AnimStartPoint=82
					AnimEndPoint=106
					AnimLoopPoint=82
					AnimData="[edge4][f9][xc][y16]"&FormatScore(200*theMultiplier)&"[edge4][f3][xc][y8]SOBEK IS HIT" : ' ELECTRIFY
			case 23
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f8]"
					AnimStartPoint=82
					AnimEndPoint=106
					AnimLoopPoint=82
					AnimData="[edge4][f9][xc][y16]"&FormatScore(200*theMultiplier)&"[edge4][f3][xc][y8]KHNUM IS HIT" : ' ELECTRIFY
			case 24
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f8]"
					AnimStartPoint=82
					AnimEndPoint=106
					AnimLoopPoint=82
					AnimData="[edge4][f9][xc][y16]"&FormatScore(200*theMultiplier)&"[edge4][f3][xc][y8]ANUBIS IS HIT" : ' ELECTRIFY
			case 25
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f8]"
					AnimStartPoint=82
					AnimEndPoint=106
					AnimLoopPoint=82
					AnimData="[edge4][f9][xc][y16]"&FormatScore(200*theMultiplier)&"[edge4][f3][xc][y8]HORUS IS HIT" : ' ELECTRIFY
			case 26
					MsngrBusy=true
					MsngrTimer.Set true,3100
					AnimBGFont="[f11]"
					AnimStartPoint=32
					AnimEndPoint=71
					AnimLoopPoint=32
					AnimData="[f1][xc][yc][edge4]"  : ' GAMEOVER
			case 28
					MsngrBusy=false
					MsngrTimer.Set false
					AnimBGFont="[f11]"
					AnimStartPoint=92
					AnimEndPoint=125
					AnimLoopPoint=92
					AnimData="[f3][x41][y16][edge4]Leave no"&"[f3][x41][y22]stone unturned"  : ' TUTENTIPS 1
			case 29
					MsngrBusy=false
					MsngrTimer.Set false
					AnimBGFont="[f11]"
					AnimStartPoint=92
					AnimEndPoint=125
					AnimLoopPoint=92
					AnimData="[f3][x41][y16][edge4]Lower bridge for"&"[f3][x41][y22]Super Multiplier"  : ' TUTENTIPS 2
			case 30
					MsngrBusy=false
					MsngrTimer.Set false
					AnimBGFont="[f11]"
					AnimStartPoint=92
					AnimEndPoint=125
					AnimLoopPoint=92
					AnimData="[f3][x41][y16][edge4]HIT ANUBIS TO"&"[f3][x41][y22]DESTROY CRITTERS"  : ' TUTENTIPS 3
			case 31
					MsngrBusy=false
					MsngrTimer.Set false
					AnimBGFont="[f11]"
					AnimStartPoint=92
					AnimEndPoint=125
					AnimLoopPoint=92
					AnimData="[f3][x41][y16][edge4]COLLECT KEYS TO"&"[f3][x41][y22]OPEN CHESTS"  : ' TUTENTIPS 4
			case 32
					MsngrBusy=false
					MsngrTimer.Set false
					AnimBGFont="[f11]"
					AnimStartPoint=92
					AnimEndPoint=125
					AnimLoopPoint=92
					AnimData="[f3][x41][y16][edge4]hold flippers"&"[f3][x41][y22]when losing ball"  : ' TUTENTIPS 5
			case 27
					MsngrBusy=false
					MsngrTimer.Set false
					AnimBGFont="[f11]"
					AnimStartPoint=92
					AnimEndPoint=125
					AnimLoopPoint=92
					AnimData="[f3][x41][y16][edge4]fight snakes to"&"[f3][x41][y22]replenish lives"  : ' TUTENTIPS 6
			case 33
					MsngrBusy=false
					MsngrTimer.Set false
					AnimBGFont="[f10]"
					AnimStartPoint=32
					AnimEndPoint=61
					AnimLoopPoint=32
					AnimData="[f9][x71][y11][edge4]"&FormatScore(nvScore1)
			case 34
					MsngrBusy=true
					MsngrTimer.Set true,2500
					AnimBGFont="[f10]"
					AnimStartPoint=62
					AnimEndPoint=71
					AnimLoopPoint=62
					AnimData="[f9][x71][y11][edge4]"
			case 35
					MsngrBusy=true
					MsngrTimer.Set true,3000
					AnimBGFont="[f10]"
					AnimStartPoint=73
					AnimEndPoint=123
					AnimLoopPoint=73
					AnimData="[f12][xc][y4][edge4]Follow the Path[xc][y17]to the Riches"
end select
			myDMD.text= AnimBGFont&"[edge4][x0][y0]"&Chr(AnimStartPoint)&AnimData&"[edge4]"
end sub



'*********************************************
'*********************************************

Sub LeftSlingshotRubber_Hit()
	BumperSFX()
ShortLightEvent()
	AddScore(50*theMultiplier)
   FF_Sound DV_LS,-1,"fx_SlingL"   'DOFLinx Left Slingshot
	SlingLitLeft.FlashForMs 200, 100, BulbOff
	LeftSlingshotBulb1.FlashForMs 100, 50, BulbOff
	LeftSlingshotBulb2.FlashForMs 100, 50, BulbOff
End Sub


Sub RightSlingshotRubber_Hit()
	ShortLightEvent()
	BumperSFX()
	AddScore(50*theMultiplier)
   FF_Sound DV_RS,-1,"fx_SlingR"		'DOFLinx Right Slingshot
	SlingLitRight.FlashForMs 200, 100, BulbOff
	RightSlingshotBulb1.FlashForMs 100, 50, BulbOff
	RightSlingshotBulb2.FlashForMs 100, 50, BulbOff
End Sub



'------------------------------------------------------------------------
'
'------------------------------------------------------------------------

function RandomNumber(ByVal max)
	RandomNumber = Int(max * Rnd + 1)
end function

'--------------------------------------------------------------------------------------------
' PROCESSSFX
'--------------------------------------------------------------------------------------------

Sub ChimesSFX()
	Select Case RandomNumber(12)
		Case 1 : PlaySound "chimes1"
		Case 2 : PlaySound "chimes2"
		Case 3 : PlaySound "chimes3"
		Case 4 : PlaySound "chimes4"
		Case 5 : PlaySound "swoosh1"
		Case 6 : PlaySound "swoosh2"
		Case 7 : PlaySound "swoosh3"
		Case 8 : PlaySound "swoosh4"
		Case 9 : PlaySound "swoosh5"
		Case 10 : PlaySound "swoosh6"
		Case 11 : PlaySound "swoosh7"
		Case 12 : PlaySound "swoosh8"
	end Select
end Sub

Sub stingerSFX()
	Select Case RandomNumber(16)
		Case 1 : PlaySound "stinger1"
		Case 2 : PlaySound "stinger2"
		Case 3 : PlaySound "stinger3"
		Case 4 : PlaySound "stinger4"
		Case 5 : PlaySound "stinger5"
		Case 6 : PlaySound "stinger6"
		Case 7 : PlaySound "stinger7"
		Case 8 : PlaySound "stinger8"
		Case 9 : PlaySound "stinger9"
		Case 10 : PlaySound "stinger10"
		Case 11 : PlaySound "stinger11"
		Case 12 : PlaySound "stinger12"
		Case 13 : PlaySound "stinger13"
		Case 14 : PlaySound "stinger14"
		Case 15 : PlaySound "stinger15"
		Case 16 : PlaySound "stinger16"
	end Select
end Sub


Sub SummoningSFX()
	Select Case RandomNumber(5)
		Case 1 : PlaySound "VOGOD1"
		Case 2 : PlaySound "VOGOD2"
		Case 3 : PlaySound "VOGOD3"
		Case 4 : PlaySound "VOGOD4"
		Case 5 : PlaySound "VOGOD5"
	end Select
	Select Case RandomNumber(4)
		Case 1 : PlaySound "mummy1"
		Case 2 : PlaySound "mummy2"
		Case 3 : PlaySound "mummy3"
		Case 4 : PlaySound "mummy4"
	end Select
end Sub







Sub UndeadSFX()
	Select Case RandomNumber(8)
		Case 1 : PlaySound "undead1"
		Case 2 : PlaySound "undead2"
		Case 3 : PlaySound "undead3"
		Case 4 : PlaySound "undead4"
		Case 5 : PlaySound "undead5"
		Case 6 : PlaySound "undead6"
		Case 7 : PlaySound "undead7"
		Case 8 : PlaySound "undead8"
	end Select
	Select Case RandomNumber(4)
		Case 1 : PlaySound "hitUndead1"
		Case 2 : PlaySound "hitUndead2"
		Case 3 : PlaySound "hitUndead3"
		Case 4 : PlaySound "hitUndead4"
	end Select
end Sub


Sub bumperSFX()
	Select Case RandomNumber(4)
		Case 1 : PlaySound "bumper1"
		Case 2 : PlaySound "bumper2"
		Case 3 : PlaySound "bumper3"
		Case 4 : PlaySound "bumper4"
	end Select
end Sub

Sub winSFX()
	Select Case RandomNumber(12)
		Case 1 : PlaySound "cash"
		Case 2 : PlaySound "cash1"
		Case 3 : PlaySound "cash2"
		Case 4 : PlaySound "cash3"
		Case 5 : PlaySound "cash4"
		Case 6 : PlaySound "cash5"
		Case 7 : PlaySound "cash6"
		Case 8 : PlaySound "cash7"
		Case 9 : PlaySound "cash8"
		Case 10 : PlaySound "cash9"
		Case 11 : PlaySound "cash10"
		Case 12 : PlaySound "cash11"
	end Select
end Sub


Sub KickerSFX()
	Select Case RandomNumber(4)
		Case 1 : PlaySound "plungerrelease3"
		Case 2 : PlaySound "plungerrelease4"
		Case 3 : PlaySound "plungerrelease5"
		Case 4 : PlaySound "plungerrelease6"
	end Select
winSFX()
end Sub

Sub ElectrocuteSFX()
	Select Case RandomNumber(6)
		Case 1 : PlaySound "electrocute1"
		Case 2 : PlaySound "electrocute2"
		Case 3 : PlaySound "electrocute3"
		Case 4 : PlaySound "electrocute4"
		Case 5 : PlaySound "electrocute5"
		Case 6 : PlaySound "electrocute6"
	end Select
end Sub

Sub snakeHitSFX()
	Select Case RandomNumber(8)
		Case 1 : PlaySound "snakeHit1"
		Case 2 : PlaySound "snakeHit2"
		Case 3 : PlaySound "snakeHit3"
		Case 4 : PlaySound "snakeHit4"
		Case 5 : PlaySound "snakeHit5"
		Case 6 : PlaySound "snakeHit6"
		Case 7 : PlaySound "snakeHit7"
		Case 8 : PlaySound "snakeHit8"
	end Select
winSFX()
end Sub


Sub snakeHissSFX()
	Select Case RandomNumber(8)
		Case 1 : PlaySound "snakeHiss1"
		Case 2 : PlaySound "snakeHiss2"
		Case 3 : PlaySound "snakeHiss3"
		Case 4 : PlaySound "snakeHiss4"
		Case 5 : PlaySound "snakeHiss5"
		Case 6 : PlaySound "snakeHiss6"
		Case 7 : PlaySound "snakeHiss7"
		Case 8 : PlaySound "snakeHiss8"
	end Select
end Sub




Sub TrigSFX()
	Select Case RandomNumber(2)
		Case 1 : PlaySound "flapclosed"
		Case 2 : PlaySound "flapopen"
	end Select
winSFX()
end Sub

Sub voTimer_expired()
		voSFX()
		voTimer.Set true, (5000+RandomNumber(5000))
end sub

Sub voSFX()
	Select Case RandomNumber(76)
		Case 1 : PlaySound "me_vo1"
		Case 2 : PlaySound "me_vo2"
		Case 3 : PlaySound "me_vo3"
		Case 4 : PlaySound "me_vo4"
		Case 5 : PlaySound "me_vo5"
		Case 6 : PlaySound "me_vo6"
		Case 7 : PlaySound "me_vo7"
		Case 8 : PlaySound "me_vo8"
		Case 9 : PlaySound "me_vo9"
		Case 10 : PlaySound "me_vo10"
		Case 11 : PlaySound "me_vo11"
		Case 12 : PlaySound "me_vo12"
		Case 13 : PlaySound "me_vo13"
		Case 14 : PlaySound "me_vo14"
		Case 15 : PlaySound "me_vo15"
		Case 16 : PlaySound "me_vo16"
		Case 17 : PlaySound "me_vo17"
		Case 18 : PlaySound "me_vo18"
		Case 19 : PlaySound "me_vo19"
		Case 20 : PlaySound "me_vo20"
		Case 21 : PlaySound "me_vo21"
		Case 22 : PlaySound "me_vo22"
		Case 23 : PlaySound "me_vo23"
		Case 24 : PlaySound "me_vo24"
		Case 25 : PlaySound "me_vo25"
		Case 26 : PlaySound "me_vo26"
		Case 27 : PlaySound "me_vo27"
		Case 28 : PlaySound "me_vo28"
		Case 29 : PlaySound "me_vo29"
		Case 30 : PlaySound "me_vo30"
		Case 31 : PlaySound "me_vo31"
		Case 32 : PlaySound "me_vo32"
		Case 33 : PlaySound "me_vo33"
		Case 34 : PlaySound "me_vo34"
		Case 35 : PlaySound "me_vo35"
		Case 36 : PlaySound "me_vo36"
		Case 37 : PlaySound "me_vo37"
		Case 38 : PlaySound "me_vo38"
		Case 39 : PlaySound "me_vo39"
		Case 40 : PlaySound "me_vo30"
		Case 41 : PlaySound "me_vo31"
		Case 42 : PlaySound "me_vo32"
		Case 43 : PlaySound "me_vo33"
		Case 44 : PlaySound "me_vo34"
		Case 45 : PlaySound "me_vo35"
		Case 46 : PlaySound "me_vo36"
		Case 47 : PlaySound "me_vo37"
		Case 48 : PlaySound "me_vo38"
		Case 49 : PlaySound "me_vo39"
		Case 40 : PlaySound "me_vo40"
		Case 41 : PlaySound "me_vo41"
		Case 42 : PlaySound "me_vo42"
		Case 43 : PlaySound "me_vo43"
		Case 44 : PlaySound "me_vo44"
		Case 45 : PlaySound "me_vo45"
		Case 46 : PlaySound "me_vo46"
		Case 47 : PlaySound "me_vo47"
		Case 48 : PlaySound "me_vo48"
		Case 49 : PlaySound "me_vo49"
		Case 50 : PlaySound "me_vo50"
		Case 51 : PlaySound "me_vo51"
		Case 52 : PlaySound "me_vo52"
		Case 53 : PlaySound "me_vo53"
		Case 54 : PlaySound "me_vo54"
		Case 55 : PlaySound "me_vo55"
		Case 56 : PlaySound "me_vo56"
		Case 57 : PlaySound "me_vo57"
		Case 58 : PlaySound "me_vo58"
		Case 59 : PlaySound "me_vo59"
		Case 60 : PlaySound "me_vo60"
		Case 61 : PlaySound "me_vo61"
		Case 62 : PlaySound "me_vo62"
		Case 63 : PlaySound "me_vo63"
		Case 64 : PlaySound "me_vo64"
		Case 65 : PlaySound "me_vo65"
		Case 66 : PlaySound "me_vo66"
		Case 67 : PlaySound "me_vo67"
		Case 68 : PlaySound "me_vo68"
		Case 69 : PlaySound "me_vo69"
		Case 70 : PlaySound "me_vo70"
		Case 71 : PlaySound "me_vo71"
		Case 72 : PlaySound "me_vo72"
		Case 73 : PlaySound "me_vo73"
		Case 74 : PlaySound "me_vo74"
		Case 75 : PlaySound "me_vo75"
		Case 76 : PlaySound "me_vo76"
	end Select
end Sub








'-------------------------------------------------------------------------
'-------------------------------------------------------------------------



Sub initMusic()
		PlayMusic 1, "AttractMode", True, 0
		PlayMusic 2, "Main", True, 0
		PlayMusic 3, "KingChamber", True, 0
		PlayMusic 4, "Ambient", True, 0
End Sub


Sub AttractMusic()
		EffectMusic 1, PlayAndFadeIn, 1, 1000			: 'Attract
		EffectMusic 2, FadeOutAndPause, 0, 1000	: 'main
		EffectMusic 3, FadeOutAndPause, 0, 1000	: 'KingChamber
End Sub


Sub StressMusic()
		EffectMusic 1, FadeOutAndPause, 0, 1000	: 'Attract
		EffectMusic 2, FadeOutAndPause, 0, 1000	: 'main
		EffectMusic 3, PlayAndFadeIn, 1, 1000			: 'KingChamber
End Sub

Sub MainMusic()
		EffectMusic 1, FadeOutAndPause, 0, 1000	: 'Attract
		EffectMusic 2, PlayAndFadeIn, 1, 1000			: 'main
		EffectMusic 3, FadeOutAndPause, 0, 1000	: 'KingChamber
End Sub

'-------------------------------------------------------------------------
'-------------------------------------------------------------------------


Sub ShortLightEvent()
		PlaySound"rumble"
		ShortLightSeq.UpdateInterval = 15
    Select case RandomNumber(9)
        case 1   : ShortLightSeq.Play SeqStripe1HorizOn, 25
        case 2   : ShortLightSeq.Play SeqStripe2HorizOn, 25
        case 3   : ShortLightSeq.Play SeqStripe1VertOn, 25
        case 4   : ShortLightSeq.Play SeqStripe2VertOn, 25
        case 5   : ShortLightSeq.Play SeqHatch1HorizOn, 25
        case 6   : ShortLightSeq.Play SeqHatch2HorizOn, 25
        case 7   : ShortLightSeq.Play SeqHatch1VertOn, 25
    end Select
end Sub

Dim theLenght

Sub EventLight(theLenght)
		EventModeLight.Play SeqRandom, 10, ,theLenght
end sub


Sub BigWipeLightEvent()
		BigWipeLightSeq.UpdateInterval = 10
		ChimesSFX()
    Select case RandomNumber(27)
        case 1   : BigWipeLightSeq.Play SeqUpOn, 10
        case 2   : BigWipeLightSeq.Play SeqDownOn, 10
        case 3   : BigWipeLightSeq.Play SeqRightOn, 10
        case 4   : BigWipeLightSeq.Play SeqLeftOn, 10
        case 5   : BigWipeLightSeq.Play SeqMiddleOutHorizOn, 10
        case 6   : BigWipeLightSeq.Play SeqMiddleInHorizOn, 10
        case 7   : BigWipeLightSeq.Play SeqMiddleOutVertOn, 10
        case 8   : BigWipeLightSeq.Play SeqMiddleInVertOn, 10
        case 9   : BigWipeLightSeq.Play SeqClockRightOn, 10
        case 10   : BigWipeLightSeq.Play SeqClockLeftOn, 10
        case 11   : BigWipeLightSeq.Play SeqRadarRightOn, 10
        case 12   : BigWipeLightSeq.Play SeqRadarLeftOn, 10
        case 13   : BigWipeLightSeq.Play SeqStripe2VertOn, 10
        case 14   : BigWipeLightSeq.Play SeqWiperRightOn, 10
        case 15   : BigWipeLightSeq.Play SeqWiperLeftOn, 10
        case 16   : BigWipeLightSeq.Play SeqFanLeftUpOn, 10
        case 17   : BigWipeLightSeq.Play SeqFanLeftDownOn, 10
        case 18   : BigWipeLightSeq.Play SeqFanRightUpOn, 10
        case 19   : BigWipeLightSeq.Play SeqFanRightDownOn, 10
        case 20   : BigWipeLightSeq.Play SeqArcBottomLeftUpOn, 10
        case 21   : BigWipeLightSeq.Play SeqArcBottomLeftDownOn, 10
        case 22   : BigWipeLightSeq.Play SeqArcBottomRightUpOn , 10
        case 23   : BigWipeLightSeq.Play SeqArcBottomRightDownOn, 10
        case 24   : BigWipeLightSeq.Play SeqArcTopLeftUpOn, 10
        case 25   : BigWipeLightSeq.Play SeqArcTopLeftDownOn, 10
        case 26   : BigWipeLightSeq.Play SeqScrewRightOn, 10
        case 27   : BigWipeLightSeq.Play SeqScrewLeftOn, 10
    end Select
end Sub

Sub FlasherHitResponse()
		Select case RandomNumber(4)
			case 1: Flasher1.FlashForMs 200, 100, BulbOff : Flasher2.FlashForMs 200, 100, BulbOff
			case 2: Flasher3.FlashForMs 200, 100, BulbOff : Flasher4.FlashForMs 200, 100, BulbOff
			case 3: Flasher3.FlashForMs 200, 100, BulbOff : Flasher2.FlashForMs 200, 100, BulbOff
			case 4: Flasher4.FlashForMs 200, 100, BulbOff : Flasher1.FlashForMs 200, 100, BulbOff
		end select
end sub

'-------------------------------------------------------------------------
' FLASH THE PLAYFIELD
'-------------------------------------------------------------------------
Dim FlashDuration

sub PlayfieldFlashing(FlashDuration)
		PlayfieldFlashingTimer.Set true ,33
		PlayfieldStoppingTimer.Set true ,FlashDuration
end sub

Sub PlayfieldFlashingTimer_expired()
	Select Case RandomNumber(2)
		case 1 : AlternatePlayfieldA.Render=true
		case 2 : AlternatePlayfieldA.Render=false
	end select
		PlayfieldFlashingTimer.Set true ,33
end sub

Sub PlayfieldStoppingTimer_expired()
		AlternatePlayfieldA.Render=false
'		AlternatePlayfieldB.Render=false
'		AlternatePlayfieldC.Render=false
'		AlternatePlayfieldD.Render=false
		PlayfieldStoppingTimer.Set false
		PlayfieldFlashingTimer.Set false
end sub



'-------------------------------------------------------------------------
' SOBEK
'-------------------------------------------------------------------------

Dim theSpeed : theSpeed=50
Dim SobekInc,sobekInFrame,sobekOutFrame
Dim sobekheadxpos,sobekheadypos,sobekheadzpos,sobekheadxrot,sobekheadyrot,sobekheadzrot
Dim sobekbodyxpos,sobekbodyypos,sobekbodyzpos,sobekbodyxrot,sobekbodyyrot,sobekbodyzrot

SobekInc=0

sobekheadxpos=array(-231,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.46,-231.45,-231.45,-231.45,-231.45,-231.45,-231.45,-231.45,-231.45,-231.45,-231.45,-231.45,-231.44,-231.44,-231.44,-231.44,-231.44,-231.44,-231.44,-231.44,-231.43,-231.43,-231.43,-231.43,-231.43,-231.43,-231.43,-231.43,-231.42,-231.42,-231.42,-231.42,-231.42,-231.42,-231.41,-231.41,-231.41,-231.41,-231.41,-231.41,-231.4,-231.4,-231.4,-231.4,-231.4,-231.39,-231.39,-231.39,-231.39,-231.39,-231.38,-231.38,-231.38,-231.38,-231.38,-231.37,-231.37,-231.37,-231.37,-231.37,-231.36,-231.36,-231.36,-231.36,-231.36,-231.35,-231.35,-231.35,-231.35,-231.34,-231.34,-231.34,-231.34,-231.33,-231.33,-231.33,-231.33,-231.33,-231.32,-231.32,-231.32,-231.32,-231.31,-231.31,-231.31,-231.31,-231.3,-231.3,-231.3,-231.3,-231.29,-231.29,-231.29,-231.29,-231.28,-231.28,-231.28,-231.28,-231.27,-231.27,-231.27,-231.27,-231.26,-231.26,-231.26,-231.26,-231.25,-231.25,-231.25,-231.25,-231.24,-231.24,-231.24,-231.24,-231.23,-231.23,-231.23,-231.22,-231.22,-231.22,-231.22,-231.21,-231.21,-231.21,-231.21,-231.2,-231.2,-231.2,-231.2,-231.19,-231.19,-231.19,-231.19,-231.18,-231.18,-231.18,-231.18,-231.17,-231.17,-231.17,-231.17,-231.16,-231.16,-231.16,-231.16,-231.15,-231.15,-231.15,-231.15,-231.14,-231.14,-231.14,-231.14,-231.13,-231.13,-231.13,-231.13,-231.13,-231.12,-231.12,-231.12,-231.12,-231.11,-231.11,-231.11,-231.11,-231.1,-231.1,-231.1,-231.1,-231.1,-231.09,-231.09,-231.09,-231.09,-231.09,-231.08,-231.08,-231.08,-231.08,-231.08,-231.07,-231.07,-231.07,-231.07,-231.07,-231.06,-231.06,-231.06,-231.06,-231.06,-231.06,-231.05,-231.05,-231.05,-231.05,-231.05,-231.05,-231.04,-231.04,-231.04,-231.04,-231.04,-231.04,-231.03,-231.03,-231.03,-231.03,-231.03,-231.03,-231.03,-231.03,-231.02,-231.02,-231.02,-231.02,-231.02,-231.02,-231.02,-231.02,-231.01,-231.01,-231.01,-231.01,-231.01,-231.01,-231.01,-231.01,-231.01,-231.01,-231.01,-231.01,-231.01,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231,-231.06,-231.46,-232.86,-234.73,-235.67,-235.21,-234.55,-234.16,-233.82,-233.48,-233.12,-232.72,-232.46,-232.11,-231,-228.26,-224.2,-219.93,-216.56,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.19,-215.18,-215.18,-215.17,-215.16,-215.15,-215.14,-215.12,-215.1,-215.08,-215.06,-215.03,-214.85,-214.48,-214.12,-213.96,-216.62,-222.48,-228.34,-231)
sobekheadypos=array(84.5,84.43,84.43,84.43,84.43,84.43,84.43,84.43,84.43,84.43,84.43,84.43,84.43,84.43,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.44,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.45,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.46,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.47,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.48,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.49,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.5,84.49,84.43,83.84,82.84,82.31,82.66,83.01,82.96,82.86,82.73,82.62,82.57,83.07,84,84.5,83.97,82.69,81.17,79.9,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.36,79.34,79.32,79.28,79.24,79.18,79.12,79.05,78.97,78.88,78.78,78.67,78.56,78.44,78.31,78.17,78.03,77.67,77.07,76.5,76.25,77.54,80.38,83.21,84.5)
sobekheadzpos=array(31,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.06,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.05,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.04,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.03,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.02,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31.01,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31.03,31.06,30.91,30.64,30.49,31.06,31.8,32.12,32.41,32.65,32.8,32.86,32.38,31.48,31,31.3,32,32.84,33.55,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.85,33.83,33.79,33.73,33.64,33.54,33.43,33.31,33.19,33.06,32.93,32.81,32.7,32.6,32.52,32.46,32.42,32.4,32.43,32.49,32.56,32.59,32.34,31.79,31.25,31)
sobekheadxrot=array(0,0,-0.02,-0.04,-0.08,-0.12,-0.17,-0.23,-0.29,-0.36,-0.44,-0.53,-0.62,-0.72,-0.83,-0.93,-1.05,-1.17,-1.29,-1.42,-1.55,-1.68,-1.82,-1.96,-2.1,-2.24,-2.39,-2.53,-2.68,-2.83,-2.98,-3.12,-3.27,-3.42,-3.56,-3.7,-3.85,-3.99,-4.12,-4.26,-4.39,-4.51,-4.64,-4.76,-4.87,-4.98,-5.08,-5.18,-5.27,-5.36,-5.44,-5.51,-5.58,-5.64,-5.69,-5.73,-5.76,-5.78,-5.8,-5.8,-5.8,-5.78,-5.76,-5.72,-5.68,-5.62,-5.56,-5.48,-5.4,-5.31,-5.22,-5.11,-5,-4.88,-4.76,-4.63,-4.49,-4.35,-4.2,-4.05,-3.89,-3.73,-3.56,-3.4,-3.22,-3.05,-2.87,-2.69,-2.5,-2.32,-2.13,-1.94,-1.76,-1.57,-1.38,-1.19,-1,-0.81,-0.62,-0.43,-0.25,-0.07,0.12,0.29,0.47,0.64,0.81,0.98,1.14,1.3,1.45,1.6,1.74,1.87,2.01,2.13,2.25,2.36,2.46,2.56,2.65,2.73,2.8,2.87,2.92,2.97,3,3.03,3.05,3.05,3.05,3.05,3.04,3.04,3.03,3.03,3.02,3.01,2.99,2.98,2.97,2.95,2.94,2.92,2.9,2.88,2.86,2.84,2.82,2.8,2.78,2.75,2.73,2.7,2.68,2.65,2.63,2.6,2.57,2.54,2.51,2.48,2.46,2.43,2.4,2.37,2.34,2.31,2.27,2.24,2.21,2.18,2.15,2.12,2.09,2.06,2.03,2,1.97,1.94,1.92,1.89,1.86,1.83,1.8,1.78,1.75,1.73,1.7,1.68,1.65,1.63,1.61,1.58,1.56,1.53,1.51,1.48,1.46,1.43,1.41,1.38,1.36,1.33,1.31,1.28,1.26,1.23,1.21,1.18,1.16,1.13,1.11,1.08,1.05,1.03,1,0.98,0.95,0.93,0.9,0.88,0.85,0.83,0.8,0.78,0.75,0.73,0.7,0.68,0.65,0.63,0.6,0.58,0.56,0.53,0.51,0.48,0.46,0.44,0.42,0.39,0.37,0.35,0.33,0.3,0.28,0.26,0.24,0.22,0.21,0.19,0.18,0.18,0.17,0.17,0.16,0.16,0.16,0.15,0.15,0.14,0.14,0.13,0.11,0.1,0.08,0.06,0.03,0,-0.81,-6.37,-21.85,-40.56,-49.66,-36.63,-17.3,-6.74,0.77,7.46,13.04,15.38,11.39,3.99,0,0.64,2.15,3.96,5.48,6.12,6.09,6.01,5.88,5.7,5.48,5.22,4.91,4.56,4.17,3.75,3.3,2.82,1.8,0.22,-1.24,-1.88,-1.8,-1.58,-1.22,-0.76,-0.21,0.41,1.09,1.81,2.54,3.28,3.99,4.67,5.3,5.85,6.31,6.66,6.88,6.96,2.54,-1.88,-1.59,-0.94,-0.29,0)
sobekheadyrot=array(71.91,71.89,71.83,71.73,71.59,71.42,71.22,70.98,70.7,70.4,70.07,69.71,69.33,68.92,68.49,68.03,67.56,67.06,66.55,66.03,65.48,64.93,64.36,63.78,63.2,62.6,62,61.4,60.79,60.17,59.56,58.95,58.34,57.73,57.13,56.54,55.95,55.37,54.81,54.25,53.71,53.18,52.67,52.18,51.7,51.25,50.82,50.41,50.02,49.67,49.34,49.03,48.76,48.52,48.31,48.14,48.01,47.91,47.85,47.82,47.83,47.83,47.85,47.86,47.88,47.91,47.94,47.97,48.01,48.05,48.1,48.15,48.2,48.26,48.32,48.38,48.45,48.52,48.59,48.67,48.75,48.83,48.92,49,49.09,49.18,49.28,49.38,49.47,49.57,49.68,49.78,49.89,50,50.1,50.21,50.33,50.44,50.55,50.67,50.78,50.9,51.02,51.14,51.25,51.37,51.49,51.61,51.73,51.85,51.97,52.09,52.2,52.32,52.44,52.56,52.67,52.79,52.9,53.02,53.13,53.24,53.35,53.46,53.56,53.67,53.77,53.87,53.97,54.07,54.17,54.26,54.35,54.44,54.53,54.62,54.71,54.8,54.89,54.97,55.06,55.14,55.22,55.31,55.39,55.48,55.56,55.64,55.73,55.81,55.89,55.98,56.06,56.15,56.23,56.32,56.41,56.49,56.58,56.67,56.77,56.86,56.95,57.05,57.15,57.25,57.35,57.45,57.55,57.66,57.77,57.88,57.99,58.11,58.22,58.34,58.47,58.59,58.72,58.85,58.99,59.13,59.27,59.41,59.56,59.71,59.86,60.02,60.18,60.35,60.52,60.71,60.9,61.11,61.33,61.56,61.79,62.04,62.29,62.55,62.82,63.09,63.37,63.66,63.95,64.24,64.54,64.85,65.15,65.46,65.77,66.08,66.4,66.71,67.02,67.34,67.65,67.96,68.27,68.57,68.87,69.17,69.47,69.76,70.04,70.32,70.59,70.86,71.12,71.37,71.61,71.85,72.08,72.29,72.5,72.69,72.88,73.05,73.21,73.35,73.49,73.61,73.71,73.8,73.88,73.94,73.98,74.01,74.02,74.02,74.01,74.01,74,73.99,73.97,73.94,73.9,73.85,73.79,73.71,73.62,73.52,73.39,73.25,73.08,72.9,72.69,72.46,72.2,71.91,57.75,43.73,52.97,70.12,79.36,60.91,42.46,43.88,47.01,50.82,55.14,59.46,64.53,69.61,71.91,70.41,66.82,62.53,58.94,57.43,57.51,57.72,58.04,58.46,58.94,59.47,60.01,60.56,61.09,61.57,61.99,62.31,62.52,62.6,55.1,47.6,47.73,48.11,48.71,49.49,50.42,51.48,52.64,53.85,55.1,56.34,57.55,58.71,59.77,60.7,61.48,62.08,62.46,62.6,55.1,47.6,51.39,59.75,68.11,71.91)
sobekheadzrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.01,-0.01,-0.01,-0.01,-0.01,-0.02,-0.02,-0.02,-0.03,-0.03,-0.03,-0.04,-0.04,-0.05,-0.05,-0.05,-0.06,-0.06,-0.07,-0.07,-0.08,-0.08,-0.09,-0.09,-0.1,-0.1,-0.11,-0.11,-0.12,-0.12,-0.13,-0.13,-0.14,-0.14,-0.14,-0.15,-0.15,-0.16,-0.16,-0.16,-0.17,-0.17,-0.17,-0.18,-0.18,-0.18,-0.19,-0.19,-0.19,-0.19,-0.19,-0.19,-0.19,-0.2,-0.2,-0.19,-0.19,-0.19,-0.19,-0.19,-0.19,-0.19,-0.18,-0.18,-0.18,-0.18,-0.17,-0.17,-0.17,-0.16,-0.16,-0.15,-0.15,-0.14,-0.14,-0.14,-0.13,-0.13,-0.12,-0.12,-0.11,-0.11,-0.1,-0.09,-0.09,-0.08,-0.08,-0.07,-0.07,-0.06,-0.06,-0.05,-0.05,-0.04,-0.04,-0.03,-0.03,-0.03,-0.02,-0.02,-0.01,-0.01,-0.01,0,0,0,0,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0,0,0,0,0,0,0,0,0,0,2.13,4.27,-2.9,-16.2,-23.37,-8.64,7.23,8.57,8.76,7.95,6.16,4.38,2.85,1.33,0,-1.26,-2.59,-3.78,-4.64,-4.97,-4.97,-4.97,-4.96,-4.95,-4.93,-4.91,-4.87,-4.82,-4.75,-4.67,-4.57,-4.45,-4.22,-3.82,-3.31,-2.78,-2.3,-1.95,-1.7,-1.54,-1.46,-1.46,-1.52,-1.64,-1.79,-1.97,-2.17,-2.38,-2.58,-2.78,-2.94,-3.08,-3.17,-3.2,-3.12,-2.78,-2.04,-1.12,-0.33,0)

sobekbodyxpos=array(-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28,-227.28)
sobekbodyypos=array(50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50)
sobekbodyzpos=array(30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8,30.8)
sobekbodyxrot=array(-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.08,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.07,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.06,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.05,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.04,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.03,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.02,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17.01,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-17,-18.47,-21.72,-24.96,-26.43,-24.61,-21.21,-19.38,-20.54,-22.7,-23.86,-23.81,-23.42,-22.38,-20.35,-17,-10.36,-0.48,9.93,18.16,21.5,21.39,21.08,20.6,19.98,19.25,18.45,17.59,16.73,15.88,15.07,14.34,13.72,13.24,12.93,12.82,12.86,12.97,13.14,13.36,13.64,13.95,14.28,14.64,15.02,15.39,15.76,16.12,16.46,16.77,17.04,17.27,17.44,17.55,17.59,17.39,15.98,9.47,-1.72,-12.3,-17)
sobekbodyyrot=array(83,83,82.99,82.98,82.97,82.95,82.92,82.9,82.87,82.83,82.8,82.76,82.71,82.67,82.62,82.57,82.51,82.45,82.39,82.33,82.27,82.2,82.13,82.06,81.99,81.91,81.84,81.76,81.68,81.6,81.52,81.43,81.35,81.27,81.18,81.09,81.01,80.92,80.83,80.75,80.66,80.57,80.49,80.4,80.31,80.23,80.14,80.06,79.97,79.89,79.81,79.73,79.65,79.57,79.5,79.42,79.35,79.28,79.21,79.14,79.08,79.01,78.95,78.9,78.84,78.79,78.74,78.69,78.65,78.61,78.57,78.54,78.51,78.48,78.46,78.44,78.43,78.42,78.41,78.41,78.41,78.42,78.42,78.44,78.45,78.47,78.5,78.52,78.55,78.58,78.62,78.65,78.69,78.74,78.78,78.83,78.88,78.93,78.98,79.04,79.1,79.16,79.22,79.28,79.35,79.41,79.48,79.55,79.62,79.69,79.76,79.83,79.91,79.98,80.06,80.13,80.21,80.28,80.36,80.44,80.51,80.59,80.67,80.74,80.82,80.89,80.97,81.04,81.12,81.19,81.26,81.33,81.4,81.47,81.54,81.61,81.67,81.73,81.79,81.85,81.91,81.97,82.02,82.07,82.12,82.17,82.22,82.26,82.3,82.34,82.37,82.4,82.43,82.46,82.48,82.5,82.52,82.53,82.54,82.54,82.54,82.54,82.53,82.52,82.51,82.48,82.46,82.43,82.4,82.36,82.32,82.27,82.23,82.17,82.12,82.06,82,81.94,81.87,81.81,81.74,81.66,81.59,81.51,81.43,81.36,81.27,81.19,81.11,81.03,80.94,80.86,80.77,80.68,80.6,80.51,80.42,80.34,80.25,80.17,80.08,80,79.92,79.83,79.75,79.67,79.6,79.52,79.45,79.37,79.3,79.24,79.17,79.11,79.05,78.99,78.93,78.88,78.84,78.79,78.75,78.71,78.68,78.65,78.62,78.6,78.59,78.57,78.57,78.56,78.57,78.6,78.64,78.69,78.75,78.83,78.92,79.03,79.14,79.26,79.39,79.52,79.67,79.81,79.97,80.13,80.29,80.45,80.62,80.78,80.95,81.11,81.28,81.44,81.6,81.75,81.9,82.04,82.18,82.31,82.43,82.54,82.64,82.73,82.81,82.88,82.93,82.97,82.99,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,82.94,82.78,82.52,82.19,81.8,81.38,80.92,80.46,80.01,79.58,79.19,78.87,78.61,78.44,78.39,78.4,78.44,78.5,78.58,78.68,78.81,78.95,79.1,79.27,79.45,79.64,79.84,80.05,80.27,80.48,80.71,80.93,81.15,81.37,82.24,83,83,83,83,83)
sobekbodyzrot=array(5,5,4.99,4.98,4.96,4.94,4.92,4.89,4.86,4.82,4.78,4.74,4.69,4.64,4.58,4.53,4.47,4.41,4.34,4.27,4.2,4.13,4.05,3.98,3.9,3.81,3.73,3.65,3.56,3.47,3.38,3.29,3.2,3.11,3.02,2.93,2.83,2.74,2.64,2.55,2.45,2.36,2.26,2.17,2.07,1.98,1.89,1.8,1.71,1.62,1.53,1.44,1.35,1.27,1.19,1.1,1.02,0.95,0.87,0.8,0.73,0.66,0.59,0.53,0.47,0.42,0.36,0.31,0.26,0.22,0.18,0.14,0.11,0.08,0.06,0.04,0.02,0.01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.01,0.02,0.03,0.04,0.06,0.08,0.1,0.12,0.14,0.17,0.2,0.23,0.26,0.29,0.33,0.36,0.4,0.44,0.49,0.53,0.57,0.62,0.67,0.72,0.77,0.82,0.87,0.93,0.98,1.04,1.1,1.16,1.22,1.28,1.34,1.4,1.46,1.53,1.59,1.65,1.72,1.79,1.85,1.92,1.99,2.05,2.12,2.19,2.26,2.33,2.4,2.47,2.53,2.6,2.67,2.74,2.81,2.88,2.95,3.01,3.08,3.15,3.21,3.28,3.35,3.41,3.47,3.54,3.6,3.66,3.72,3.78,3.84,3.9,3.96,4.02,4.07,4.13,4.18,4.23,4.28,4.33,4.38,4.43,4.47,4.51,4.56,4.6,4.64,4.67,4.71,4.74,4.77,4.8,4.83,4.86,4.88,4.9,4.92,4.94,4.96,4.97,4.98,4.99,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4.89,4.57,4.09,3.46,2.72,1.91,1.04,0.17,-0.7,-1.51,-2.25,-2.88,-3.36,-3.68,-3.79,-3.78,-3.73,-3.66,-3.55,-3.43,-3.27,-3.09,-2.88,-2.65,-2.4,-2.13,-1.84,-1.52,-1.19,-0.84,-0.48,-0.09,0.3,0.72,2.96,5,5,5,5,5)

Sub ResetAllGodsLights()
		SobekLightRing.State=BulbOff
		HorusLightRing.State=BulbOff
		AnubisLightRing.State=BulbOff
		KhnumLightRing.State=BulbOff
end sub

Sub InitSobekDead()
		ResetAllGodsLights()
		sobeklegsDead.Tx=-227.7
		sobeklegsDead.Ty=26
		sobeklegsDead.Tz=43.12
		sobeklegsDead.AngleYZ=0
		sobeklegsDead.AngleXZ=-80
		sobeklegsDead.AngleXY=0
		sobekheadDead.Tx=sobekheadxpos(0)
		sobekheadDead.Ty=sobekheadypos(0)
		sobekheadDead.Tz=sobekheadzpos(0)+12
		sobekheadDead.AngleYZ=-sobekheadxrot(0)
		sobekheadDead.AngleXZ=-sobekheadyrot(0)
		sobekheadDead.AngleXY=-sobekheadzrot(0)
		sobekbodyDead.Tx=sobekbodyxpos(0)
		sobekbodyDead.Ty=sobekbodyypos(0)
		sobekbodyDead.Tz=sobekbodyzpos(0)+12
		sobekbodyDead.AngleYZ=-sobekbodyxrot(0)
		sobekbodyDead.AngleXZ=-sobekbodyyrot(0)
		sobekbodyDead.AngleXY=-sobekbodyzrot(0)
		sobeklegs.Ty=-200
		sobekhead.Ty=-200
		sobekbody.Ty=-200
		SobekTimer.Set false
end sub


Sub InitSobekLiving()

		sobeklegs.Tx=-227.7
		sobeklegs.Ty=26
		sobeklegs.Tz=43.12
		sobeklegs.AngleYZ=0
		sobeklegs.AngleXZ=-80
		sobeklegs.AngleXY=0
		sobekhead.Tx=sobekheadxpos(SobekInc)
		sobekhead.Ty=sobekheadypos(SobekInc)
		sobekhead.Tz=sobekheadzpos(SobekInc)+12
		sobekhead.AngleYZ=-sobekheadxrot(SobekInc)
		sobekhead.AngleXZ=-sobekheadyrot(SobekInc)
		sobekhead.AngleXY=-sobekheadzrot(SobekInc)
		sobekbody.Tx=sobekbodyxpos(SobekInc)
		sobekbody.Ty=sobekbodyypos(SobekInc)
		sobekbody.Tz=sobekbodyzpos(SobekInc)+12
		sobekbody.AngleYZ=-sobekbodyxrot(SobekInc)
		sobekbody.AngleXZ=-sobekbodyyrot(SobekInc)
		sobekbody.AngleXY=-sobekbodyzrot(SobekInc)
		sobeklegsDead.Ty=-200
		sobekheadDead.Ty=-200
		sobekbodyDead.Ty=-200
		SobekIdle()
End sub

Sub SobekAttack()
		sobekInFrame=284
		sobekOutFrame=329
		SobekInc=sobekInFrame
		SobekTimer.Set true ,theSpeed
end sub

Sub SobekIdle()
		sobekInFrame=0
		sobekOutFrame=269
		SobekInc=sobekInFrame
		SobekTimer.Set true ,theSpeed
end sub

Sub SobekIsHit()
		sobekInFrame=269
		sobekOutFrame=284
		SobekInc=sobekInFrame
		SobekTimer.Set true ,theSpeed
end sub

Sub SobekTimer_expired()
		if SobekInc<sobekOutFrame then
			SobekInc=SobekInc+1
		else
			SobekIdle()
		end if
			sobekhead.Tx=sobekheadxpos(SobekInc)
			sobekhead.Ty=sobekheadypos(SobekInc)
			sobekhead.Tz=sobekheadzpos(SobekInc)+12
			sobekhead.AngleYZ=-sobekheadxrot(SobekInc)
			sobekhead.AngleXZ=-sobekheadyrot(SobekInc)
			sobekhead.AngleXY=-sobekheadzrot(SobekInc)
			sobekbody.Tx=sobekbodyxpos(SobekInc)
			sobekbody.Ty=sobekbodyypos(SobekInc)
			sobekbody.Tz=sobekbodyzpos(SobekInc)+12
			sobekbody.AngleYZ=-sobekbodyxrot(SobekInc)
			sobekbody.AngleXZ=-sobekbodyyrot(SobekInc)
			sobekbody.AngleXY=-sobekbodyzrot(SobekInc)
			SobekTimer.Set true ,theSpeed
end sub


'-------------------------------------------------------------------------
' HORUS
'-------------------------------------------------------------------------
Dim HorusInc,HorusInFrame,HorusOutFrame
Dim Horusheadxpos,Horusheadypos,Horusheadzpos,Horusheadxrot,Horusheadyrot,Horusheadzrot
Dim Horusbodyxpos,Horusbodyypos,Horusbodyzpos,Horusbodyxrot,Horusbodyyrot,Horusbodyzrot

HorusInc=0


Horusheadxpos=array(160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,160.99,162.06,164.43,166.85,168.07,168.2,168.25,168.26,168.09,167.59,166.81,165.81,164.67,163.44,162.19,160.99,159.5,157.82,156.04,154.22,152.46,150.84,149.43,148.33,147.6,147.34,147.39,147.51,147.63,147.71,147.78,147.89,148.08,148.45,148.96,149.4,149.59,149.59,149.58,149.56,149.43,149.22,149.11,149.13,149.23,149.53,150.61,152.78,155.66,158.87,162.02,164.74,166.65,167.37,167.02,166.11,164.86,163.5,162.25,161.34,160.99)
Horusheadypos=array(81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.46,81.72,82.34,83.08,83.72,84.27,84.77,84.99,84.72,84.14,83.58,83.15,82.72,82.3,81.88,81.46,80.21,78.78,77.27,75.73,74.24,72.87,71.68,70.74,70.13,69.91,70.77,72.49,73.79,74.25,74.41,74.49,74.69,75.12,75.66,76.14,76.43,76.49,76.49,76.55,76.91,77.49,77.95,78.11,78.15,78.28,78.54,78.82,79.13,79.45,79.76,80.05,80.33,80.56,80.77,80.96,81.12,81.26,81.37,81.44,81.46)
Horusheadzpos=array(97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,97.22,96.49,94.84,93.04,91.89,91.49,91.34,91.32,91.83,92.91,93.9,94.61,95.28,95.93,96.57,97.22,98.03,98.95,99.92,100.91,101.88,102.76,103.53,104.13,104.53,104.67,104.65,104.59,104.51,104.43,104.33,104.21,104.07,103.83,103.53,103.27,103.16,103.24,103.37,103.44,103.4,103.32,103.28,103.37,103.53,103.62,103.16,101.95,100.23,98.27,96.31,94.6,93.39,92.93,93.16,93.78,94.62,95.53,96.37,96.98,97.22)
Horusheadxrot=array(0,0,0.02,0.03,0.06,0.09,0.13,0.18,0.23,0.29,0.36,0.43,0.51,0.59,0.67,0.77,0.86,0.97,1.07,1.18,1.3,1.42,1.54,1.66,1.79,1.93,2.06,2.2,2.34,2.48,2.62,2.77,2.92,3.07,3.22,3.37,3.52,3.68,3.83,3.98,4.14,4.29,4.45,4.6,4.75,4.9,5.06,5.2,5.35,5.5,5.64,5.79,5.93,6.06,6.2,6.33,6.46,6.58,6.71,6.83,6.94,7.05,7.16,7.26,7.36,7.45,7.54,7.62,7.7,7.77,7.83,7.89,7.94,7.99,8.03,8.06,8.09,8.11,8.12,8.12,8.1,8.04,7.94,7.8,7.62,7.42,7.18,6.91,6.62,6.3,5.97,5.61,5.23,4.84,4.44,4.02,3.6,3.17,2.74,2.3,1.86,1.43,1,0.58,0.16,-0.24,-0.63,-1.01,-1.37,-1.7,-2.02,-2.31,-2.58,-2.82,-3.02,-3.2,-3.34,-3.44,-3.5,-3.52,-3.52,-3.52,-3.51,-3.5,-3.49,-3.47,-3.46,-3.43,-3.41,-3.38,-3.34,-3.31,-3.26,-3.22,-3.17,-3.11,-3.05,-2.99,-2.91,-2.84,-2.76,-2.67,-2.58,-2.48,-2.38,-2.27,-2.15,-2.03,-1.9,-1.76,-1.62,-1.47,-1.31,-1.15,-0.98,-0.8,-0.61,-0.41,-0.21,0,0.26,0.61,1.03,1.52,2.05,2.64,3.25,3.89,4.54,5.19,5.82,6.44,7.03,7.58,8.07,8.51,8.87,9.14,9.32,9.4,9.42,9.44,9.46,9.47,9.48,9.5,9.51,9.51,9.52,9.53,9.53,9.54,9.54,9.54,9.54,9.54,9.54,9.54,9.54,9.54,9.29,8.57,7.51,6.2,4.73,3.22,1.75,0.44,-0.62,-1.33,-1.59,-1.56,-1.47,-1.31,-1.11,-0.86,-0.56,-0.22,0.15,0.55,0.98,1.42,1.88,2.36,2.84,3.32,3.8,4.28,4.74,5.19,5.61,6.01,6.38,6.72,7.02,7.27,7.48,7.63,7.72,7.76,7.76,7.75,7.75,7.74,7.72,7.69,7.66,7.61,7.55,7.47,7.37,7.26,7.12,6.97,6.79,6.58,6.34,6.08,5.79,5.46,5.1,4.7,4.26,3.78,3.27,2.71,2.1,1.45,0.75,0,-5.9,-17.86,-29.63,-34.95,-20.71,5.73,19.97,12.63,-1,-8.34,-7.73,-6.18,-4.09,-1.89,0,1.74,3.69,5.75,7.84,9.86,11.72,13.33,14.59,15.42,15.71,13.19,8.51,5.99,9.11,15.98,22.84,25.97,23.79,19,14.2,12.03,13.77,17.01,18.76,16.94,13.58,11.76,15.84,23.41,27.48,25.36,19.74,11.81,2.72,-6.38,-14.31,-19.92,-22.05,-20.83,-17.68,-13.37,-8.68,-4.37,-1.22,0)
Horusheadyrot=array(-71.11,-71.11,-71.13,-71.17,-71.22,-71.28,-71.35,-71.44,-71.53,-71.64,-71.76,-71.89,-72.03,-72.18,-72.34,-72.51,-72.69,-72.88,-73.07,-73.27,-73.48,-73.7,-73.92,-74.15,-74.39,-74.63,-74.88,-75.13,-75.39,-75.65,-75.91,-76.18,-76.45,-76.73,-77,-77.28,-77.56,-77.84,-78.12,-78.4,-78.69,-78.97,-79.25,-79.53,-79.81,-80.09,-80.36,-80.64,-80.91,-81.18,-81.44,-81.7,-81.96,-82.21,-82.46,-82.7,-82.94,-83.17,-83.39,-83.61,-83.82,-84.02,-84.21,-84.4,-84.58,-84.75,-84.91,-85.06,-85.2,-85.33,-85.45,-85.56,-85.66,-85.74,-85.81,-85.87,-85.92,-85.96,-85.98,-85.98,-85.97,-85.92,-85.83,-85.72,-85.57,-85.4,-85.2,-84.98,-84.73,-84.45,-84.16,-83.84,-83.5,-83.15,-82.78,-82.4,-82,-81.58,-81.16,-80.73,-80.29,-79.84,-79.38,-78.92,-78.46,-77.99,-77.52,-77.06,-76.59,-76.13,-75.67,-75.22,-74.77,-74.34,-73.91,-73.49,-73.09,-72.7,-72.33,-71.97,-71.61,-71.23,-70.84,-70.44,-70.02,-69.6,-69.16,-68.71,-68.26,-67.8,-67.34,-66.88,-66.41,-65.94,-65.48,-65.01,-64.55,-64.1,-63.65,-63.2,-62.77,-62.35,-61.94,-61.54,-61.15,-60.78,-60.43,-60.09,-59.78,-59.48,-59.21,-58.96,-58.73,-58.53,-58.36,-58.21,-58.1,-58.02,-57.97,-57.95,-57.96,-58.01,-58.09,-58.19,-58.32,-58.47,-58.65,-58.84,-59.05,-59.28,-59.52,-59.77,-60.04,-60.31,-60.59,-60.87,-61.15,-61.44,-61.72,-62,-62.29,-62.59,-62.91,-63.24,-63.58,-63.94,-64.3,-64.67,-65.04,-65.42,-65.8,-66.18,-66.56,-66.94,-67.32,-67.69,-68.05,-68.41,-68.76,-69.1,-69.45,-69.83,-70.22,-70.61,-70.99,-71.35,-71.67,-71.94,-72.14,-72.28,-72.33,-72.33,-72.32,-72.31,-72.31,-72.29,-72.28,-72.27,-72.25,-72.23,-72.21,-72.19,-72.17,-72.14,-72.12,-72.09,-72.07,-72.04,-72.01,-71.98,-71.96,-71.93,-71.9,-71.88,-71.85,-71.82,-71.8,-71.78,-71.75,-71.73,-71.71,-71.69,-71.66,-71.64,-71.61,-71.59,-71.56,-71.53,-71.51,-71.48,-71.45,-71.42,-71.39,-71.37,-71.34,-71.32,-71.29,-71.27,-71.24,-71.22,-71.2,-71.18,-71.17,-71.15,-71.14,-71.13,-71.12,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11,-71.11)
Horusheadzrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)

Horusbodyxpos=array(169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27,169.27)
Horusbodyypos=array(50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50)
Horusbodyzpos=array(93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19,93.19)
Horusbodyxrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2.2,-7.44,-13.69,-18.93,-21.13,-20.75,-19.71,-18.1,-16.04,-13.62,-10.96,-8.16,-5.33,-2.57,0,2.76,6.02,9.6,13.3,16.95,20.36,23.33,25.68,27.23,27.79,26.04,22.74,20.76,20.57,20.54,20.51,20.31,19.49,18.32,17.73,17.75,17.78,17.79,17.39,16.65,16.25,17.47,19.75,20.98,20.89,20.29,18.66,15.49,9.4,0.84,-8,-14.92,-17.72,-16.74,-14.21,-10.74,-6.97,-3.51,-0.98,0)
Horusbodyyrot=array(-61.27,-61.26,-61.25,-61.23,-61.19,-61.15,-61.1,-61.04,-60.98,-60.9,-60.82,-60.73,-60.64,-60.53,-60.42,-60.31,-60.19,-60.06,-59.93,-59.79,-59.64,-59.5,-59.34,-59.19,-59.02,-58.86,-58.69,-58.52,-58.34,-58.17,-57.98,-57.8,-57.62,-57.43,-57.24,-57.05,-56.86,-56.67,-56.48,-56.28,-56.09,-55.9,-55.7,-55.51,-55.32,-55.13,-54.94,-54.76,-54.57,-54.39,-54.21,-54.03,-53.85,-53.68,-53.51,-53.35,-53.19,-53.03,-52.88,-52.73,-52.58,-52.45,-52.31,-52.19,-52.06,-51.95,-51.84,-51.74,-51.64,-51.55,-51.47,-51.39,-51.33,-51.27,-51.22,-51.18,-51.15,-51.12,-51.11,-51.1,-51.12,-51.16,-51.22,-51.31,-51.42,-51.56,-51.72,-51.9,-52.1,-52.32,-52.57,-52.83,-53.11,-53.41,-53.72,-54.06,-54.41,-54.77,-55.15,-55.54,-55.95,-56.37,-56.8,-57.24,-57.69,-58.15,-58.63,-59.11,-59.59,-60.09,-60.59,-61.1,-61.61,-62.13,-62.66,-63.18,-63.71,-64.24,-64.77,-65.3,-65.84,-66.37,-66.9,-67.43,-67.95,-68.48,-68.99,-69.51,-70.02,-70.52,-71.02,-71.5,-71.98,-72.46,-72.92,-73.37,-73.81,-74.24,-74.66,-75.07,-75.46,-75.84,-76.2,-76.55,-76.89,-77.2,-77.5,-77.78,-78.04,-78.29,-78.51,-78.71,-78.89,-79.05,-79.19,-79.3,-79.39,-79.45,-79.49,-79.51,-79.49,-79.46,-79.4,-79.31,-79.21,-79.08,-78.93,-78.76,-78.57,-78.37,-78.15,-77.91,-77.65,-77.38,-77.1,-76.8,-76.49,-76.17,-75.83,-75.49,-75.14,-74.77,-74.4,-74.03,-73.64,-73.25,-72.86,-72.46,-72.06,-71.66,-71.26,-70.85,-70.45,-70.04,-69.64,-69.24,-68.84,-68.45,-68.06,-67.68,-67.31,-66.94,-66.58,-66.23,-65.88,-65.55,-65.23,-64.93,-64.63,-64.35,-64.08,-63.83,-63.59,-63.37,-63.17,-62.99,-62.83,-62.68,-62.56,-62.46,-62.38,-62.31,-62.25,-62.19,-62.13,-62.07,-62.02,-61.97,-61.92,-61.87,-61.83,-61.79,-61.75,-61.71,-61.67,-61.64,-61.61,-61.58,-61.55,-61.52,-61.5,-61.48,-61.45,-61.43,-61.42,-61.4,-61.38,-61.37,-61.36,-61.34,-61.33,-61.32,-61.32,-61.31,-61.3,-61.29,-61.29,-61.29,-61.28,-61.28,-61.28,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.27,-61.07,-60.62,-60.18,-59.98,-59.98,-60,-60.02,-60.06,-60.11,-60.17,-60.22,-60.28,-60.33,-60.39,-60.45,-60.5,-60.56,-60.62,-60.68,-60.73,-60.79,-60.85,-60.91,-60.97,-61.02,-61.06,-61.11,-61.16,-61.2,-61.24,-61.26,-61.27)
Horusbodyzrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.02,0.07,0.11,0.14,0.13,0.13,0.13,0.13,0.12,0.12,0.11,0.1,0.1,0.09,0.09,0.08,0.07,0.07,0.06,0.06,0.05,0.04,0.04,0.03,0.03,0.02,0.02,0.01,0.01,0,0,0)




Sub InitHorusDead()
		ResetAllGodsLights()
		HoruslegsDead.Tx=169.47
		HoruslegsDead.Ty=26
		HoruslegsDead.Tz=103.16
		HoruslegsDead.AngleYZ=0
		HoruslegsDead.AngleXZ=61.26
		HoruslegsDead.AngleXY=0
		HorusheadDead.Tx=Horusheadxpos(0)
		HorusheadDead.Ty=Horusheadypos(0)
		HorusheadDead.Tz=Horusheadzpos(0)+10
		HorusheadDead.AngleYZ=-Horusheadxrot(0)
		HorusheadDead.AngleXZ=-Horusheadyrot(0)
		HorusheadDead.AngleXY=-Horusheadzrot(0)
		HorusbodyDead.Tx=Horusbodyxpos(0)
		HorusbodyDead.Ty=Horusbodyypos(0)
		HorusbodyDead.Tz=Horusbodyzpos(0)+10
		HorusbodyDead.AngleYZ=-Horusbodyxrot(0)
		HorusbodyDead.AngleXZ=-Horusbodyyrot(0)
		HorusbodyDead.AngleXY=-Horusbodyzrot(0)
		Horuslegs.Ty=-200
		Horushead.Ty=-200
		Horusbody.Ty=-200
		HorusTimer.Set false
end sub


Sub InitHorusLiving()

		Horuslegs.Tx=169.47
		Horuslegs.Ty=26
		Horuslegs.Tz=103.16
		Horuslegs.AngleYZ=0
		Horuslegs.AngleXZ=61.26
		Horuslegs.AngleXY=0
		Horushead.Tx=Horusheadxpos(HorusInc)
		Horushead.Ty=Horusheadypos(HorusInc)
		Horushead.Tz=Horusheadzpos(HorusInc)+10
		Horushead.AngleYZ=-Horusheadxrot(HorusInc)
		Horushead.AngleXZ=-Horusheadyrot(HorusInc)
		Horushead.AngleXY=-Horusheadzrot(HorusInc)
		Horusbody.Tx=Horusbodyxpos(HorusInc)
		Horusbody.Ty=Horusbodyypos(HorusInc)
		Horusbody.Tz=Horusbodyzpos(HorusInc)+10
		Horusbody.AngleYZ=-Horusbodyxrot(HorusInc)
		Horusbody.AngleXZ=-Horusbodyyrot(HorusInc)
		Horusbody.AngleXY=-Horusbodyzrot(HorusInc)
		HoruslegsDead.Ty=-200
		HorusheadDead.Ty=-200
		HorusbodyDead.Ty=-200
		HorusIdle()
End sub

Sub HorusAttack()
		HorusInFrame=284
		HorusOutFrame=329
		HorusInc=HorusInFrame
		HorusTimer.Set true ,50
end sub

Sub HorusIdle()
		HorusInFrame=0
		HorusOutFrame=269
		HorusInc=HorusInFrame
		HorusTimer.Set true ,50
end sub

Sub HorusIsHit()
		HorusInFrame=269
		HorusOutFrame=284
		HorusInc=HorusInFrame
		HorusTimer.Set true ,33
end sub

Sub HorusTimer_expired()
		if HorusInc<HorusOutFrame then
			HorusInc=HorusInc+1
		else
			HorusIdle()
		end if
			Horushead.Tx=Horusheadxpos(HorusInc)
			Horushead.Ty=Horusheadypos(HorusInc)
			Horushead.Tz=Horusheadzpos(HorusInc)+10
			Horushead.AngleYZ=-Horusheadxrot(HorusInc)
			Horushead.AngleXZ=-Horusheadyrot(HorusInc)
			Horushead.AngleXY=-Horusheadzrot(HorusInc)
			Horusbody.Tx=Horusbodyxpos(HorusInc)
			Horusbody.Ty=Horusbodyypos(HorusInc)
			Horusbody.Tz=Horusbodyzpos(HorusInc)+10
			Horusbody.AngleYZ=-Horusbodyxrot(HorusInc)
			Horusbody.AngleXZ=-Horusbodyyrot(HorusInc)
			Horusbody.AngleXY=-Horusbodyzrot(HorusInc)
			HorusTimer.Set true ,33
end sub


'-------------------------------------------------------------------------
' ANUBIS
'-------------------------------------------------------------------------


Dim AnubisInc,AnubisInFrame,AnubisOutFrame
Dim Anubisheadxpos,Anubisheadypos,Anubisheadzpos,Anubisheadxrot,Anubisheadyrot,Anubisheadzrot
Dim Anubisbodyxpos,Anubisbodyypos,Anubisbodyzpos,Anubisbodyxrot,Anubisbodyyrot,Anubisbodyzrot

AnubisInc=0

Anubisheadxpos=array(37.18,37.18,37.18,37.18,37.18,37.18,37.19,37.19,37.19,37.2,37.2,37.21,37.21,37.22,37.23,37.23,37.24,37.25,37.25,37.26,37.27,37.27,37.28,37.29,37.3,37.3,37.31,37.32,37.33,37.33,37.34,37.35,37.36,37.36,37.37,37.38,37.38,37.39,37.39,37.4,37.4,37.41,37.41,37.41,37.42,37.42,37.42,37.42,37.42,37.42,37.42,37.42,37.41,37.4,37.39,37.37,37.36,37.34,37.32,37.29,37.27,37.24,37.21,37.18,37.15,37.12,37.09,37.06,37.02,36.99,36.96,36.92,36.89,36.85,36.82,36.78,36.75,36.72,36.68,36.65,36.62,36.59,36.56,36.54,36.51,36.49,36.47,36.45,36.43,36.42,36.41,36.4,36.39,36.38,36.38,36.39,36.4,36.42,36.44,36.47,36.51,36.55,36.6,36.66,36.71,36.78,36.84,36.91,36.99,37.06,37.14,37.22,37.31,37.39,37.48,37.56,37.65,37.74,37.83,37.91,38,38.08,38.17,38.25,38.33,38.4,38.48,38.55,38.61,38.68,38.73,38.79,38.84,38.88,38.92,38.95,38.97,38.99,39,39.01,39.01,39.01,39,39,39,38.99,38.99,38.98,38.97,38.97,38.96,38.95,38.94,38.93,38.92,38.91,38.9,38.89,38.87,38.86,38.85,38.83,38.82,38.81,38.79,38.78,38.76,38.75,38.73,38.71,38.7,38.68,38.67,38.65,38.63,38.62,38.6,38.58,38.57,38.55,38.54,38.52,38.5,38.49,38.47,38.46,38.44,38.43,38.41,38.4,38.38,38.37,38.35,38.34,38.32,38.31,38.29,38.27,38.26,38.24,38.22,38.2,38.18,38.16,38.15,38.13,38.11,38.09,38.07,38.05,38.03,38.01,37.99,37.97,37.95,37.93,37.91,37.89,37.87,37.85,37.83,37.81,37.79,37.77,37.75,37.73,37.71,37.69,37.67,37.65,37.63,37.61,37.59,37.57,37.55,37.53,37.52,37.5,37.48,37.46,37.45,37.43,37.41,37.4,37.38,37.37,37.35,37.34,37.33,37.31,37.3,37.29,37.28,37.27,37.26,37.25,37.24,37.23,37.22,37.21,37.21,37.2,37.19,37.19,37.19,37.18,37.18,37.18,37.18,37.18,37.88,39.42,40.97,41.67,41.62,41.47,41.23,40.93,40.58,40.19,39.79,39.38,38.62,37.66,37.18,37.18,37.18,37.18,37.18,37.18,37.18,37.18,37.18,37.18,37.18,37.18,37.19,37.22,37.24,37.28,37.32,37.37,37.42,37.47,37.53,37.59,37.65,37.71,37.77,37.82,37.88,37.93,37.98,38.03,38.07,38.11,38.14,38.16,38.17,38.18,38.15,38.07,37.96,37.82,37.68,37.53,37.39,37.28,37.2,37.18)
Anubisheadypos=array(97.52,97.52,97.52,97.52,97.52,97.52,97.52,97.52,97.52,97.51,97.51,97.51,97.51,97.5,97.5,97.5,97.5,97.49,97.49,97.48,97.48,97.48,97.47,97.47,97.46,97.46,97.45,97.45,97.44,97.44,97.43,97.43,97.42,97.42,97.41,97.41,97.4,97.4,97.39,97.39,97.38,97.38,97.37,97.37,97.36,97.36,97.35,97.35,97.34,97.34,97.33,97.33,97.32,97.32,97.31,97.31,97.3,97.3,97.29,97.28,97.28,97.27,97.27,97.26,97.25,97.25,97.24,97.24,97.23,97.22,97.22,97.21,97.2,97.2,97.19,97.18,97.18,97.17,97.17,97.16,97.15,97.15,97.14,97.13,97.13,97.12,97.12,97.11,97.11,97.1,97.1,97.09,97.09,97.08,97.08,97.07,97.07,97.06,97.06,97.05,97.05,97.04,97.04,97.04,97.03,97.03,97.02,97.02,97.01,97.01,97,97,97,96.99,96.99,96.98,96.98,96.98,96.97,96.97,96.97,96.96,96.96,96.96,96.95,96.95,96.95,96.95,96.94,96.94,96.94,96.94,96.94,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.93,96.94,96.94,96.94,96.94,96.94,96.94,96.94,96.94,96.95,96.95,96.95,96.95,96.95,96.95,96.96,96.96,96.96,96.96,96.96,96.97,96.97,96.97,96.98,96.98,96.98,96.98,96.99,96.99,96.99,97,97,97.01,97.01,97.01,97.02,97.02,97.03,97.03,97.04,97.04,97.05,97.05,97.05,97.06,97.06,97.07,97.07,97.08,97.08,97.09,97.09,97.1,97.1,97.11,97.11,97.12,97.12,97.13,97.13,97.14,97.14,97.15,97.15,97.16,97.16,97.17,97.17,97.18,97.18,97.19,97.19,97.2,97.21,97.21,97.22,97.22,97.23,97.23,97.24,97.25,97.25,97.26,97.26,97.27,97.28,97.28,97.29,97.3,97.3,97.31,97.32,97.32,97.33,97.34,97.34,97.35,97.36,97.37,97.37,97.38,97.39,97.4,97.4,97.41,97.42,97.43,97.44,97.45,97.45,97.46,97.47,97.48,97.49,97.5,97.51,97.52,97.52,97.58,97.67,97.77,97.81,97.81,97.79,97.76,97.72,97.68,97.64,97.61,97.58,97.56,97.56,97.52,97.37,97.03,96.57,96.01,95.42,94.83,94.29,93.85,93.56,93.45,93.46,93.49,93.54,93.61,93.69,93.79,93.91,94.03,94.17,94.32,94.47,94.63,94.8,94.97,95.15,95.32,95.5,95.67,95.84,96,96.16,96.32,96.46,96.59,96.72,96.83,96.95,97.06,97.17,97.27,97.35,97.42,97.48,97.51,97.52)
Anubisheadzpos=array(-245.58,-245.58,-245.57,-245.56,-245.55,-245.53,-245.51,-245.48,-245.46,-245.43,-245.39,-245.36,-245.32,-245.28,-245.24,-245.19,-245.15,-245.1,-245.05,-245,-244.95,-244.9,-244.85,-244.79,-244.74,-244.69,-244.63,-244.58,-244.53,-244.48,-244.43,-244.38,-244.33,-244.28,-244.23,-244.19,-244.15,-244.11,-244.07,-244.03,-244,-243.97,-243.94,-243.92,-243.9,-243.88,-243.86,-243.85,-243.85,-243.85,-243.85,-243.86,-243.87,-243.89,-243.92,-243.95,-243.98,-244.02,-244.06,-244.11,-244.16,-244.22,-244.27,-244.33,-244.39,-244.46,-244.53,-244.59,-244.66,-244.73,-244.81,-244.88,-244.95,-245.02,-245.1,-245.17,-245.24,-245.31,-245.38,-245.45,-245.52,-245.58,-245.64,-245.7,-245.76,-245.81,-245.86,-245.91,-245.95,-245.99,-246.03,-246.06,-246.08,-246.1,-246.12,-246.13,-246.14,-246.15,-246.16,-246.17,-246.18,-246.18,-246.19,-246.2,-246.21,-246.21,-246.22,-246.23,-246.23,-246.24,-246.24,-246.25,-246.25,-246.26,-246.26,-246.26,-246.27,-246.27,-246.27,-246.27,-246.28,-246.28,-246.28,-246.28,-246.28,-246.28,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.29,-246.27,-246.25,-246.21,-246.17,-246.13,-246.07,-246.01,-245.94,-245.86,-245.78,-245.69,-245.59,-245.5,-245.39,-245.29,-245.18,-245.06,-244.95,-244.83,-244.71,-244.59,-244.46,-244.34,-244.22,-244.09,-243.97,-243.84,-243.72,-243.6,-243.48,-243.37,-243.25,-243.14,-243.04,-242.93,-242.84,-242.74,-242.65,-242.57,-242.5,-242.43,-242.36,-242.31,-242.26,-242.22,-242.18,-242.16,-242.15,-242.14,-242.14,-242.14,-242.14,-242.15,-242.15,-242.15,-242.16,-242.16,-242.17,-242.17,-242.18,-242.19,-242.19,-242.2,-242.21,-242.22,-242.24,-242.25,-242.26,-242.28,-242.29,-242.31,-242.32,-242.34,-242.36,-242.38,-242.4,-242.43,-242.45,-242.47,-242.5,-242.53,-242.55,-242.58,-242.61,-242.65,-242.68,-242.71,-242.75,-242.79,-242.82,-242.86,-242.91,-242.95,-242.99,-243.04,-243.08,-243.13,-243.18,-243.23,-243.29,-243.34,-243.4,-243.45,-243.51,-243.57,-243.64,-243.7,-243.77,-243.83,-243.9,-243.98,-244.05,-244.12,-244.2,-244.28,-244.36,-244.44,-244.52,-244.61,-244.7,-244.79,-244.88,-244.97,-245.07,-245.17,-245.27,-245.37,-245.47,-245.58,-246.51,-248.43,-250.31,-251.17,-250.9,-250.21,-249.23,-248.11,-246.98,-246,-245.31,-245.04,-245.18,-245.44,-245.58,-245.22,-244.25,-242.81,-241.07,-239.17,-237.27,-235.53,-234.09,-233.12,-232.76,-232.77,-232.78,-232.8,-232.84,-232.88,-232.94,-233,-233.08,-233.17,-233.28,-233.4,-233.53,-233.67,-233.83,-234.01,-234.2,-234.41,-234.64,-234.88,-235.14,-235.42,-235.72,-236.03,-236.37,-236.72,-237.27,-238.11,-239.18,-240.37,-241.61,-242.82,-243.9,-244.78,-245.37,-245.58)
Anubisheadxrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.01,-0.01,-0.01,-0.02,-0.03,-0.04,-0.05,-0.06,-0.08,-0.09,-0.11,-0.13,-0.15,-0.18,-0.2,-0.23,-0.26,-0.29,-0.32,-0.36,-0.4,-0.44,-0.48,-0.52,-0.57,-0.62,-0.67,-0.73,-0.79,-0.85,-0.91,-0.97,-1.04,-1.11,-1.19,-1.27,-1.35,-1.43,-1.52,-1.61,-1.7,-1.8,-1.9,-2,-2.12,-2.25,-2.39,-2.54,-2.7,-2.87,-3.05,-3.23,-3.42,-3.62,-3.82,-4.02,-4.23,-4.44,-4.66,-4.88,-5.09,-5.31,-5.53,-5.75,-5.97,-6.18,-6.4,-6.61,-6.81,-7.01,-7.21,-7.4,-7.58,-7.76,-7.93,-8.09,-8.24,-8.38,-8.51,-8.63,-8.74,-8.84,-8.92,-8.99,-9.05,-9.09,-9.11,-9.12,-9.11,-9.1,-9.09,-9.06,-9.03,-9,-8.95,-8.91,-8.85,-8.79,-8.73,-8.66,-8.59,-8.51,-8.43,-8.35,-8.26,-8.17,-8.08,-7.98,-7.88,-7.78,-7.67,-7.57,-7.46,-7.35,-7.24,-7.13,-7.02,-6.9,-6.79,-6.68,-6.57,-6.46,-6.34,-6.23,-6.12,-6.02,-5.91,-5.81,-5.71,-5.61,-5.51,-5.41,-5.32,-5.24,-5.15,-5.07,-4.99,-4.92,-4.85,-4.78,-4.71,-4.63,-4.56,-4.48,-4.41,-4.33,-4.25,-4.17,-4.09,-4.01,-3.93,-3.85,-3.77,-3.69,-3.61,-3.53,-3.45,-3.36,-3.28,-3.2,-3.12,-3.03,-2.95,-2.87,-2.79,-2.71,-2.62,-2.54,-2.46,-2.38,-2.3,-2.22,-2.14,-2.07,-1.99,-1.91,-1.83,-1.76,-1.69,-1.61,-1.54,-1.47,-1.4,-1.33,-1.26,-1.19,-1.13,-1.06,-1,-0.94,-0.88,-0.82,-0.76,-0.71,-0.66,-0.6,-0.55,-0.51,-0.46,-0.42,-0.37,-0.33,-0.29,-0.26,-0.22,-0.19,-0.16,-0.13,-0.11,-0.09,-0.07,-0.05,-0.03,-0.02,-0.01,-0.01,0,0,-4.19,-13.42,-22.65,-26.85,-26.37,-24.79,-21.89,-17.46,-5.02,4.77,-0.3,-5.37,-3.98,-1.39,0,0,0,0,0,0,0,0,0,0,0,0.59,2,3.69,5.1,5.69,5.6,5.52,6.13,6.74,5.43,3.64,2.99,2.83,4.75,6.67,6.47,5.49,2.62,0.51,2.05,4.91,6.45,4.78,1.67,0,2.41,6.89,9.3,8.78,7.45,5.64,3.66,1.84,0.51,0)
Anubisheadyrot=array(-6.06,-6.05,-6.01,-5.95,-5.87,-5.76,-5.63,-5.49,-5.32,-5.14,-4.94,-4.73,-4.5,-4.26,-4,-3.74,-3.46,-3.18,-2.88,-2.59,-2.28,-1.97,-1.66,-1.34,-1.02,-0.7,-0.39,-0.07,0.24,0.55,0.86,1.16,1.45,1.73,2.01,2.28,2.53,2.77,3,3.21,3.41,3.6,3.76,3.91,4.03,4.14,4.23,4.29,4.32,4.34,4.32,4.25,4.15,4.01,3.83,3.62,3.38,3.1,2.8,2.47,2.12,1.75,1.35,0.94,0.51,0.06,-0.4,-0.87,-1.34,-1.83,-2.31,-2.81,-3.3,-3.79,-4.28,-4.76,-5.24,-5.71,-6.17,-6.61,-7.04,-7.46,-7.85,-8.23,-8.58,-8.91,-9.21,-9.48,-9.73,-9.94,-10.11,-10.26,-10.36,-10.42,-10.44,-10.44,-10.41,-10.37,-10.32,-10.25,-10.17,-10.07,-9.96,-9.84,-9.71,-9.57,-9.41,-9.25,-9.08,-8.9,-8.71,-8.51,-8.3,-8.09,-7.88,-7.65,-7.42,-7.19,-6.95,-6.71,-6.47,-6.23,-5.98,-5.73,-5.48,-5.23,-4.98,-4.74,-4.49,-4.25,-4,-3.77,-3.53,-3.3,-3.07,-2.85,-2.64,-2.43,-2.23,-2.04,-1.84,-1.64,-1.43,-1.22,-1,-0.77,-0.54,-0.3,-0.06,0.18,0.43,0.68,0.93,1.19,1.44,1.7,1.95,2.21,2.47,2.72,2.98,3.23,3.48,3.72,3.97,4.21,4.44,4.67,4.9,5.12,5.33,5.54,5.74,5.93,6.12,6.29,6.46,6.62,6.76,6.9,7.03,7.14,7.24,7.34,7.41,7.48,7.53,7.57,7.59,7.6,7.6,7.59,7.58,7.57,7.56,7.54,7.52,7.49,7.46,7.43,7.39,7.35,7.31,7.26,7.21,7.15,7.09,7.03,6.96,6.89,6.81,6.73,6.65,6.56,6.47,6.37,6.27,6.17,6.06,5.95,5.83,5.71,5.58,5.45,5.31,5.17,5.03,4.88,4.73,4.57,4.4,4.24,4.06,3.88,3.7,3.51,3.32,3.12,2.92,2.71,2.5,2.28,2.06,1.83,1.6,1.36,1.11,0.86,0.61,0.35,0.08,-0.19,-0.47,-0.75,-1.04,-1.33,-1.63,-1.94,-2.25,-2.57,-2.89,-3.22,-3.55,-3.89,-4.24,-4.59,-4.95,-5.32,-5.69,-6.06,-9.13,-15.39,-21.54,-24.33,-17.53,-2.57,12.39,19.19,11.14,-2.18,-15.2,-22.95,-18.58,-10.44,-6.06,-6.06,-6.06,-6.06,-6.06,-6.06,-6.06,-6.06,-6.06,-6.06,-6.06,-6.16,-6.37,-6.63,-6.85,-6.94,-6.06,-4.64,-3.63,-2.66,-1.5,-0.75,-0.71,-0.66,-0.29,0.42,1.46,2.55,3.17,4.1,6.21,8.66,10.28,10.85,11.07,11.1,10.49,9.04,7.29,5.29,2.89,0.35,-2.07,-4.12,-5.53,-6.06)
Anubisheadzrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.01,0.02,0.03,0.05,0.07,0.09,0.12,0.15,0.18,0.21,0.25,0.29,0.33,0.37,0.41,0.45,0.5,0.54,0.59,0.64,0.68,0.73,0.78,0.83,0.87,0.92,0.96,1.01,1.05,1.09,1.13,1.17,1.2,1.24,1.27,1.3,1.32,1.35,1.37,1.39,1.4,1.41,1.41,1.42,1.41,1.41,1.4,1.39,1.37,1.35,1.33,1.31,1.28,1.25,1.22,1.18,1.15,1.11,1.07,1.03,0.99,0.95,0.9,0.86,0.82,0.77,0.73,0.68,0.64,0.59,0.55,0.51,0.47,0.42,0.38,0.35,0.31,0.28,0.24,0.21,0.18,0.16,0.14,0.11,0.1,0.08,0.07,0.07,0.06,0.06,0.06,0.06,0.06,0.05,0.05,0.05,0.05,0.05,0.05,0.05,0.05,0.05,0.05,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.04,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.03,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.02,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.45,1.45,2.44,2.89,2.82,2.63,2.36,2.03,1.35,0.77,0.71,0.65,0.42,0.14,0,0,0,0,0,0,0,0,0,0,0,-0.04,-0.15,-0.28,-0.38,-0.42,-0.42,-0.41,-0.43,-0.45,-0.43,-0.39,-0.37,-0.33,-0.27,-0.24,-0.89,-1.58,-1.62,-1.63,-1.12,-0.18,0.33,0.24,0.08,0,0.31,0.88,1.19,1.12,0.95,0.72,0.47,0.24,0.07,0)

Anubisbodyxpos=array(34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97,34.97)
Anubisbodyypos=array(64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.57,64.66,64.91,65.28,65.72,66.2,66.69,67.13,67.5,67.74,67.83,67.83,67.83,67.83,67.83,67.83,67.82,67.82,67.81,67.8,67.78,67.77,67.75,67.72,67.7,67.66,67.63,67.59,67.54,67.49,67.43,67.37,67.3,67.23,67.14,67.05,66.91,66.68,66.38,66.05,65.7,65.36,65.05,64.8,64.63,64.57)
Anubisbodyzpos=array(-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18,-254.18)
Anubisbodyxrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.01,-0.02,-0.04,-0.06,-0.08,-0.11,-0.14,-0.18,-0.22,-0.26,-0.31,-0.36,-0.41,-0.46,-0.52,-0.58,-0.64,-0.71,-0.78,-0.84,-0.91,-0.99,-1.06,-1.13,-1.21,-1.28,-1.36,-1.44,-1.52,-1.6,-1.67,-1.75,-1.83,-1.91,-1.99,-2.06,-2.14,-2.22,-2.29,-2.36,-2.44,-2.51,-2.58,-2.64,-2.71,-2.78,-2.86,-2.94,-3.02,-3.1,-3.19,-3.28,-3.37,-3.46,-3.55,-3.65,-3.75,-3.84,-3.94,-4.04,-4.14,-4.23,-4.33,-4.43,-4.53,-4.62,-4.71,-4.81,-4.9,-4.98,-5.07,-5.15,-5.23,-5.31,-5.39,-5.46,-5.52,-5.59,-5.65,-5.7,-5.75,-5.79,-5.83,-5.87,-5.9,-5.92,-5.94,-5.95,-5.95,-5.94,-5.91,-5.86,-5.78,-5.7,-5.59,-5.47,-5.33,-5.18,-5.01,-4.83,-4.64,-4.44,-4.22,-4,-3.77,-3.53,-3.28,-3.03,-2.77,-2.51,-2.24,-1.98,-1.71,-1.44,-1.17,-0.9,-0.63,-0.36,-0.1,0.16,0.41,0.66,0.9,1.13,1.35,1.56,1.77,1.96,2.14,2.31,2.46,2.6,2.72,2.82,2.91,2.98,3.04,3.07,3.08,3.08,3.08,3.08,3.08,3.08,3.08,3.08,3.07,3.07,3.07,3.07,3.07,3.06,3.06,3.06,3.05,3.05,3.04,3.04,3.03,3.02,3.01,3,2.99,2.98,2.97,2.96,2.95,2.93,2.92,2.9,2.88,2.86,2.84,2.82,2.8,2.77,2.75,2.72,2.69,2.66,2.63,2.6,2.57,2.53,2.49,2.45,2.41,2.37,2.33,2.28,2.23,2.18,2.13,2.08,2.02,1.96,1.9,1.84,1.78,1.71,1.64,1.57,1.5,1.43,1.35,1.27,1.19,1.1,1.02,0.93,0.83,0.74,0.64,0.54,0.44,0.33,0.23,0.11,0,-2.49,-7.81,-13.11,-15.51,-14.86,-13.14,-10.71,-7.91,-5.09,-2.62,-0.84,-0.1,-0.05,-0.05,0,0.82,2.88,5.86,9.46,13.36,17.25,20.81,23.75,25.73,26.47,26.16,25.77,25.67,25.65,25.51,24.94,24.14,23.7,23.67,23.66,23.63,23.26,22.63,22.31,22.35,22.42,22.46,21.92,21.19,21,20.94,20.63,20.06,19.24,17.96,16.18,14.06,11.75,9.36,7,4.8,2.88,1.36,0.36,0)
Anubisbodyyrot=array(27.66,27.66,27.65,27.63,27.61,27.57,27.54,27.49,27.44,27.38,27.32,27.25,27.17,27.09,27.01,26.91,26.81,26.71,26.6,26.49,26.37,26.24,26.12,25.98,25.85,25.7,25.56,25.41,25.25,25.09,24.93,24.77,24.6,24.42,24.25,24.07,23.88,23.7,23.51,23.32,23.13,22.93,22.73,22.53,22.33,22.12,21.92,21.71,21.5,21.29,21.07,20.82,20.56,20.28,19.99,19.67,19.35,19.01,18.66,18.3,17.92,17.54,17.15,16.76,16.36,15.96,15.55,15.14,14.73,14.33,13.92,13.52,13.12,12.73,12.34,11.96,11.59,11.23,10.88,10.54,10.22,9.91,9.61,9.34,9.08,8.84,8.62,8.42,8.24,8.09,7.97,7.86,7.79,7.75,7.73,7.76,7.84,7.97,8.14,8.37,8.63,8.94,9.28,9.66,10.07,10.51,10.98,11.47,11.99,12.53,13.08,13.66,14.24,14.84,15.44,16.06,16.67,17.29,17.9,18.51,19.12,19.72,20.3,20.88,21.43,21.97,22.49,22.98,23.45,23.89,24.3,24.68,25.02,25.33,25.59,25.81,25.99,26.12,26.2,26.23,26.22,26.22,26.2,26.18,26.16,26.13,26.09,26.05,26.01,25.96,25.91,25.86,25.8,25.74,25.68,25.61,25.55,25.48,25.4,25.33,25.26,25.18,25.11,25.03,24.96,24.88,24.8,24.73,24.65,24.58,24.51,24.44,24.37,24.3,24.23,24.17,24.11,24.05,24,23.95,23.9,23.86,23.82,23.79,23.76,23.73,23.71,23.7,23.69,23.68,23.69,23.69,23.7,23.71,23.73,23.75,23.77,23.8,23.82,23.86,23.89,23.93,23.97,24.01,24.05,24.1,24.15,24.2,24.25,24.31,24.36,24.42,24.48,24.54,24.61,24.67,24.74,24.81,24.87,24.94,25.01,25.09,25.16,25.23,25.3,25.38,25.45,25.52,25.6,25.67,25.75,25.82,25.9,25.97,26.04,26.12,26.19,26.26,26.33,26.4,26.47,26.54,26.61,26.68,26.74,26.8,26.87,26.93,26.98,27.04,27.1,27.15,27.2,27.25,27.3,27.34,27.38,27.42,27.46,27.49,27.52,27.55,27.58,27.6,27.62,27.63,27.65,27.66,27.66,27.66,27.65,27.55,27.3,26.8,25.79,24.21,22.27,20.19,18.19,16.49,15.32,14.87,18.19,24.35,27.66,27.63,27.54,27.4,27.21,26.96,26.67,26.34,25.98,25.57,25.14,23.59,22.27,23.02,24.42,25.18,23.87,21.44,20.13,21.25,23.33,24.46,23.29,21.11,19.94,21.5,24.39,25.94,23.2,20.45,21.72,24.14,25.69,25.96,26.03,26.12,26.28,26.47,26.67,26.88,27.08,27.26,27.42,27.55,27.63,27.66)
Anubisbodyzrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.01,-0.02,-0.02,-0.04,-0.05,-0.06,-0.08,-0.09,-0.11,-0.13,-0.15,-0.17,-0.2,-0.22,-0.25,-0.27,-0.3,-0.33,-0.36,-0.39,-0.42,-0.45,-0.48,-0.51,-0.54,-0.57,-0.61,-0.64,-0.67,-0.7,-0.74,-0.77,-0.8,-0.83,-0.87,-0.9,-0.93,-0.96,-0.99,-1.02,-1.05,-1.07,-1.1,-1.13,-1.16,-1.19,-1.22,-1.25,-1.28,-1.32,-1.35,-1.39,-1.42,-1.46,-1.5,-1.53,-1.57,-1.61,-1.65,-1.69,-1.72,-1.76,-1.8,-1.84,-1.87,-1.91,-1.94,-1.98,-2.01,-2.05,-2.08,-2.11,-2.14,-2.17,-2.19,-2.22,-2.24,-2.27,-2.29,-2.31,-2.32,-2.34,-2.35,-2.36,-2.37,-2.38,-2.38,-2.38,-2.38,-2.37,-2.34,-2.32,-2.28,-2.24,-2.19,-2.13,-2.07,-2,-1.93,-1.86,-1.77,-1.69,-1.6,-1.51,-1.41,-1.31,-1.21,-1.11,-1,-0.89,-0.79,-0.68,-0.57,-0.46,-0.35,-0.24,-0.14,-0.03,0.07,0.17,0.27,0.37,0.46,0.55,0.64,0.72,0.8,0.87,0.94,1,1.05,1.1,1.14,1.18,1.21,1.23,1.24,1.25,1.25,1.25,1.25,1.25,1.25,1.25,1.25,1.24,1.24,1.24,1.24,1.24,1.24,1.24,1.24,1.24,1.23,1.23,1.23,1.23,1.22,1.22,1.22,1.21,1.21,1.2,1.2,1.19,1.19,1.18,1.17,1.17,1.16,1.15,1.14,1.13,1.12,1.11,1.1,1.09,1.08,1.07,1.05,1.04,1.02,1.01,0.99,0.98,0.96,0.94,0.92,0.9,0.88,0.86,0.84,0.82,0.8,0.77,0.75,0.72,0.69,0.67,0.64,0.61,0.58,0.55,0.51,0.48,0.45,0.41,0.38,0.34,0.3,0.26,0.22,0.18,0.14,0.09,0.05,0,-1.95,-6.18,-10.4,-12.31,-12.1,-11.52,-10.65,-9.56,-8.33,-7.04,-5.76,-4.57,-3.17,-1.5,0,1.36,2.87,4.45,6.03,7.56,8.96,10.16,11.11,11.72,11.94,11.82,11.66,11.61,11.59,11.51,11.25,10.91,10.69,10.65,10.64,10.6,10.4,10.12,9.97,9.98,10,10.01,9.79,9.51,9.43,9.4,9.26,9.01,8.66,8.09,7.29,6.34,5.29,4.22,3.15,2.16,1.3,0.61,0.16,0)



Sub InitAnubisDead()
		ResetAllGodsLights()
		AnubislegsDead.Tx=34.5
		AnubislegsDead.Ty=60.5
		AnubislegsDead.Tz=-253.5
		AnubislegsDead.AngleYZ=0
		AnubislegsDead.AngleXZ=-27.6
		AnubislegsDead.AngleXY=0
		AnubisheadDead.Tx=Anubisheadxpos(0)
		AnubisheadDead.Ty=Anubisheadypos(0)+20
		AnubisheadDead.Tz=Anubisheadzpos(0)
		AnubisheadDead.AngleYZ=-Anubisheadxrot(0)
		AnubisheadDead.AngleXZ=-Anubisheadyrot(0)
		AnubisheadDead.AngleXY=-Anubisheadzrot(0)
		AnubisbodyDead.Tx=Anubisbodyxpos(0)
		AnubisbodyDead.Ty=Anubisbodyypos(0)+20
		AnubisbodyDead.Tz=Anubisbodyzpos(0)
		AnubisbodyDead.AngleYZ=-Anubisbodyxrot(0)
		AnubisbodyDead.AngleXZ=-Anubisbodyyrot(0)
		AnubisbodyDead.AngleXY=-Anubisbodyzrot(0)
		Anubislegs.Ty=-200
		Anubishead.Ty=-200
		Anubisbody.Ty=-200
		AnubisTimer.Set false
end Sub



Sub InitAnubisLiving()

		AnubislegsDead.Ty=-200
		AnubisheadDead.Ty=-200
		AnubisbodyDead.Ty=-200
		Anubislegs.Tx=34.5
		Anubislegs.Ty=60.5
		Anubislegs.Tz=-253.5
		Anubislegs.AngleYZ=0
		Anubislegs.AngleXZ=-27.6
		Anubislegs.AngleXY=0
		Anubishead.Tx=Anubisheadxpos(AnubisInc)
		Anubishead.Ty=Anubisheadypos(AnubisInc)+20
		Anubishead.Tz=Anubisheadzpos(AnubisInc)
		Anubishead.AngleYZ=-Anubisheadxrot(AnubisInc)
		Anubishead.AngleXZ=-Anubisheadyrot(AnubisInc)
		Anubishead.AngleXY=-Anubisheadzrot(AnubisInc)
		Anubisbody.Tx=Anubisbodyxpos(AnubisInc)
		Anubisbody.Ty=Anubisbodyypos(AnubisInc)+20
		Anubisbody.Tz=Anubisbodyzpos(AnubisInc)
		Anubisbody.AngleYZ=-Anubisbodyxrot(AnubisInc)
		Anubisbody.AngleXZ=-Anubisbodyyrot(AnubisInc)
		Anubisbody.AngleXY=-Anubisbodyzrot(AnubisInc)
		AnubisIdle()
End sub

Sub AnubisAttack()
		AnubisInFrame=284
		AnubisOutFrame=329
		AnubisInc=AnubisInFrame
		AnubisTimer.Set true ,theSpeed
end sub

Sub AnubisIdle()
		AnubisInFrame=0
		AnubisOutFrame=269
		AnubisInc=AnubisInFrame
		AnubisTimer.Set true ,theSpeed
end sub

Sub AnubisIsHit()
		AnubisInFrame=269
		AnubisOutFrame=284
		AnubisInc=AnubisInFrame
		AnubisTimer.Set true ,theSpeed
end sub

Sub AnubisTimer_expired()
		if AnubisInc<AnubisOutFrame then
			AnubisInc=AnubisInc+1
		else
			AnubisIdle()
		end if
			Anubishead.Tx=Anubisheadxpos(AnubisInc)
			Anubishead.Ty=Anubisheadypos(AnubisInc)+20
			Anubishead.Tz=Anubisheadzpos(AnubisInc)
			Anubishead.AngleYZ=-Anubisheadxrot(AnubisInc)
			Anubishead.AngleXZ=-Anubisheadyrot(AnubisInc)
			Anubishead.AngleXY=-Anubisheadzrot(AnubisInc)
			Anubisbody.Tx=Anubisbodyxpos(AnubisInc)
			Anubisbody.Ty=Anubisbodyypos(AnubisInc)+20
			Anubisbody.Tz=Anubisbodyzpos(AnubisInc)
			Anubisbody.AngleYZ=-Anubisbodyxrot(AnubisInc)
			Anubisbody.AngleXZ=-Anubisbodyyrot(AnubisInc)
			Anubisbody.AngleXY=-Anubisbodyzrot(AnubisInc)
			AnubisTimer.Set true ,theSpeed
end sub


'-------------------------------------------------------------------------
' KHNUM
'-------------------------------------------------------------------------
Dim KhnumInc,KhnumInFrame,KhnumOutFrame
Dim Khnumheadxpos,Khnumheadypos,Khnumheadzpos,Khnumheadxrot,Khnumheadyrot,Khnumheadzrot
Dim Khnumbodyxpos,Khnumbodyypos,Khnumbodyzpos,Khnumbodyxrot,Khnumbodyyrot,Khnumbodyzrot

KhnumInc=0

Khnumheadxpos=array(-111.85,-111.85,-111.85,-111.84,-111.83,-111.82,-111.81,-111.8,-111.78,-111.77,-111.75,-111.73,-111.71,-111.69,-111.66,-111.64,-111.61,-111.58,-111.55,-111.52,-111.49,-111.46,-111.43,-111.4,-111.37,-111.33,-111.3,-111.27,-111.23,-111.2,-111.17,-111.13,-111.1,-111.06,-111.03,-111,-110.96,-110.93,-110.9,-110.87,-110.84,-110.81,-110.78,-110.76,-110.73,-110.7,-110.68,-110.66,-110.64,-110.62,-110.6,-110.58,-110.57,-110.55,-110.54,-110.53,-110.52,-110.52,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.51,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.52,-110.53,-110.53,-110.53,-110.53,-110.53,-110.53,-110.53,-110.53,-110.53,-110.53,-110.54,-110.54,-110.54,-110.54,-110.54,-110.54,-110.54,-110.55,-110.55,-110.55,-110.55,-110.55,-110.56,-110.56,-110.56,-110.56,-110.56,-110.57,-110.57,-110.57,-110.57,-110.57,-110.58,-110.58,-110.58,-110.58,-110.59,-110.59,-110.59,-110.6,-110.6,-110.6,-110.61,-110.61,-110.61,-110.62,-110.62,-110.62,-110.63,-110.63,-110.63,-110.64,-110.64,-110.65,-110.65,-110.65,-110.66,-110.66,-110.67,-110.67,-110.68,-110.68,-110.69,-110.69,-110.7,-110.7,-110.71,-110.71,-110.72,-110.72,-110.73,-110.73,-110.74,-110.74,-110.75,-110.76,-110.76,-110.77,-110.78,-110.78,-110.79,-110.8,-110.8,-110.81,-110.82,-110.82,-110.83,-110.84,-110.85,-110.85,-110.86,-110.87,-110.88,-110.89,-110.89,-110.9,-110.91,-110.92,-110.93,-110.94,-110.94,-110.95,-110.96,-110.97,-110.98,-110.99,-111,-111.01,-111.02,-111.03,-111.04,-111.05,-111.06,-111.07,-111.08,-111.09,-111.11,-111.12,-111.13,-111.14,-111.15,-111.16,-111.17,-111.19,-111.2,-111.21,-111.22,-111.24,-111.25,-111.26,-111.27,-111.29,-111.3,-111.31,-111.33,-111.34,-111.36,-111.37,-111.38,-111.4,-111.41,-111.43,-111.44,-111.46,-111.47,-111.49,-111.5,-111.52,-111.54,-111.55,-111.57,-111.58,-111.6,-111.62,-111.64,-111.65,-111.67,-111.69,-111.7,-111.72,-111.74,-111.76,-111.78,-111.8,-111.81,-111.83,-111.85,-112.42,-113.66,-114.89,-115.45,-114.97,-113.91,-112.01,-110.71,-110.74,-110.84,-111.05,-111.31,-111.57,-111.77,-111.85,-111.47,-110.45,-108.93,-107.09,-105.09,-103.09,-101.26,-99.74,-98.71,-98.34,-98.61,-99.18,-99.86,-100.6,-101.22,-101.65,-101.95,-102.06,-101.92,-101.77,-101.81,-101.93,-102.13,-102.52,-102.99,-103.23,-102.94,-102.36,-101.9,-101.69,-101.6,-101.58,-101.66,-101.95,-102.51,-103.38,-104.46,-105.58,-106.61,-107.65,-108.8,-109.93,-110.91,-111.59,-111.85)
Khnumheadypos=array(83.97,83.97,83.97,83.97,83.97,83.96,83.96,83.96,83.95,83.95,83.94,83.93,83.93,83.92,83.91,83.91,83.9,83.89,83.88,83.87,83.86,83.85,83.84,83.83,83.82,83.81,83.8,83.79,83.78,83.77,83.76,83.75,83.74,83.73,83.72,83.71,83.7,83.69,83.68,83.67,83.66,83.66,83.65,83.64,83.63,83.62,83.62,83.61,83.6,83.6,83.59,83.59,83.58,83.58,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.57,83.58,83.58,83.58,83.58,83.58,83.58,83.58,83.58,83.58,83.59,83.59,83.59,83.59,83.59,83.59,83.59,83.6,83.6,83.6,83.6,83.6,83.6,83.61,83.61,83.61,83.61,83.61,83.62,83.62,83.62,83.62,83.62,83.63,83.63,83.63,83.63,83.63,83.64,83.64,83.64,83.64,83.65,83.65,83.65,83.65,83.66,83.66,83.66,83.66,83.67,83.67,83.67,83.67,83.68,83.68,83.68,83.68,83.69,83.69,83.69,83.69,83.7,83.7,83.7,83.71,83.71,83.71,83.71,83.72,83.72,83.72,83.73,83.73,83.73,83.73,83.74,83.74,83.74,83.75,83.75,83.75,83.75,83.76,83.76,83.76,83.77,83.77,83.77,83.77,83.78,83.78,83.78,83.79,83.79,83.79,83.79,83.8,83.8,83.8,83.81,83.81,83.81,83.81,83.82,83.82,83.82,83.83,83.83,83.83,83.83,83.84,83.84,83.84,83.85,83.85,83.85,83.85,83.86,83.86,83.86,83.86,83.87,83.87,83.87,83.87,83.88,83.88,83.88,83.88,83.89,83.89,83.89,83.89,83.9,83.9,83.9,83.9,83.9,83.91,83.91,83.91,83.91,83.92,83.92,83.92,83.92,83.92,83.93,83.93,83.93,83.93,83.93,83.93,83.94,83.94,83.94,83.94,83.94,83.94,83.95,83.95,83.95,83.95,83.95,83.95,83.95,83.96,83.96,83.96,83.96,83.96,83.96,83.96,83.96,83.96,83.96,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.97,83.94,83.84,83.73,83.61,83.46,83.36,83.36,83.41,83.87,84.3,84.29,84.28,84.23,84.13,83.97,83.68,83.22,82.63,81.96,81.25,80.55,79.9,79.33,78.91,78.65,78.52,78.41,78.33,78.26,78.22,78.19,78.17,78.16,78.16,78.15,78.18,78.26,78.39,78.54,78.71,78.89,79.08,79.25,79.4,79.52,79.6,79.63,79.44,79.08,78.89,79.03,79.42,79.99,80.68,81.43,82.18,82.87,83.44,83.83,83.97)
Khnumheadzpos=array(-109.89,-109.89,-109.89,-109.88,-109.87,-109.86,-109.84,-109.83,-109.81,-109.79,-109.76,-109.74,-109.71,-109.68,-109.65,-109.62,-109.58,-109.55,-109.51,-109.47,-109.43,-109.39,-109.35,-109.31,-109.27,-109.23,-109.19,-109.14,-109.1,-109.05,-109.01,-108.97,-108.92,-108.88,-108.84,-108.79,-108.75,-108.71,-108.67,-108.63,-108.59,-108.56,-108.52,-108.48,-108.45,-108.42,-108.39,-108.36,-108.33,-108.3,-108.28,-108.26,-108.24,-108.22,-108.21,-108.2,-108.19,-108.18,-108.17,-108.17,-108.17,-108.17,-108.17,-108.17,-108.18,-108.18,-108.18,-108.18,-108.18,-108.18,-108.19,-108.19,-108.19,-108.19,-108.2,-108.2,-108.2,-108.21,-108.21,-108.22,-108.22,-108.23,-108.23,-108.23,-108.24,-108.25,-108.25,-108.26,-108.26,-108.27,-108.27,-108.28,-108.29,-108.29,-108.3,-108.31,-108.31,-108.32,-108.33,-108.34,-108.34,-108.35,-108.36,-108.37,-108.38,-108.38,-108.39,-108.4,-108.41,-108.42,-108.43,-108.44,-108.45,-108.46,-108.46,-108.47,-108.48,-108.49,-108.5,-108.51,-108.52,-108.53,-108.54,-108.55,-108.56,-108.58,-108.59,-108.6,-108.61,-108.62,-108.63,-108.64,-108.65,-108.66,-108.67,-108.69,-108.7,-108.71,-108.72,-108.73,-108.74,-108.75,-108.77,-108.78,-108.79,-108.8,-108.81,-108.83,-108.84,-108.85,-108.86,-108.87,-108.89,-108.9,-108.91,-108.92,-108.93,-108.95,-108.96,-108.97,-108.98,-109,-109.01,-109.02,-109.03,-109.04,-109.06,-109.07,-109.08,-109.09,-109.11,-109.12,-109.13,-109.14,-109.16,-109.17,-109.18,-109.19,-109.2,-109.22,-109.23,-109.24,-109.25,-109.26,-109.28,-109.29,-109.3,-109.31,-109.32,-109.33,-109.35,-109.36,-109.37,-109.38,-109.39,-109.4,-109.41,-109.42,-109.44,-109.45,-109.46,-109.47,-109.48,-109.49,-109.5,-109.51,-109.52,-109.53,-109.54,-109.55,-109.56,-109.57,-109.58,-109.59,-109.6,-109.61,-109.62,-109.63,-109.64,-109.65,-109.66,-109.66,-109.67,-109.68,-109.69,-109.7,-109.71,-109.71,-109.72,-109.73,-109.74,-109.74,-109.75,-109.76,-109.77,-109.77,-109.78,-109.79,-109.79,-109.8,-109.8,-109.81,-109.81,-109.82,-109.83,-109.83,-109.84,-109.84,-109.84,-109.85,-109.85,-109.86,-109.86,-109.86,-109.87,-109.87,-109.87,-109.88,-109.88,-109.88,-109.88,-109.89,-109.89,-109.89,-109.89,-109.89,-109.89,-109.89,-109.89,-109.89,-109.85,-109.76,-109.68,-109.64,-109.88,-110.41,-111.32,-111.94,-111.88,-111.67,-111.44,-111.27,-111.03,-110.61,-109.89,-108.93,-107.85,-106.7,-105.48,-104.22,-102.94,-101.66,-100.41,-99.19,-98.05,-97.18,-96.62,-96.13,-95.74,-95.58,-95.68,-95.92,-96.17,-96.4,-96.72,-97.3,-97.94,-98.33,-98.42,-98.46,-98.46,-98.39,-98.26,-98.19,-98.5,-99.19,-99.89,-100.44,-100.99,-101.64,-102.42,-103.27,-104.15,-105,-105.93,-107,-108.07,-108.99,-109.65,-109.89)
Khnumheadxrot=array(0,0,0,-0.01,-0.02,-0.03,-0.04,-0.05,-0.07,-0.09,-0.11,-0.13,-0.15,-0.18,-0.21,-0.23,-0.27,-0.3,-0.33,-0.37,-0.4,-0.44,-0.48,-0.53,-0.57,-0.61,-0.66,-0.71,-0.75,-0.8,-0.85,-0.91,-0.96,-1.01,-1.07,-1.12,-1.18,-1.24,-1.3,-1.36,-1.42,-1.48,-1.54,-1.6,-1.66,-1.73,-1.79,-1.86,-1.92,-1.99,-2.05,-2.12,-2.19,-2.25,-2.32,-2.39,-2.45,-2.52,-2.59,-2.66,-2.73,-2.79,-2.86,-2.93,-3,-3.06,-3.13,-3.2,-3.26,-3.33,-3.4,-3.46,-3.53,-3.59,-3.66,-3.72,-3.78,-3.84,-3.91,-3.97,-4.03,-4.09,-4.14,-4.2,-4.26,-4.32,-4.37,-4.42,-4.48,-4.53,-4.58,-4.63,-4.68,-4.72,-4.77,-4.81,-4.86,-4.9,-4.94,-4.98,-5.01,-5.05,-5.08,-5.12,-5.15,-5.18,-5.2,-5.23,-5.25,-5.27,-5.29,-5.31,-5.33,-5.34,-5.35,-5.36,-5.37,-5.38,-5.38,-5.38,-5.38,-5.38,-5.38,-5.38,-5.38,-5.37,-5.37,-5.37,-5.36,-5.36,-5.35,-5.35,-5.34,-5.33,-5.33,-5.32,-5.31,-5.3,-5.29,-5.28,-5.27,-5.26,-5.24,-5.23,-5.22,-5.2,-5.19,-5.17,-5.15,-5.14,-5.12,-5.1,-5.08,-5.06,-5.04,-5.01,-4.99,-4.97,-4.94,-4.91,-4.89,-4.86,-4.83,-4.8,-4.77,-4.74,-4.71,-4.67,-4.64,-4.6,-4.57,-4.53,-4.49,-4.45,-4.41,-4.37,-4.32,-4.28,-4.23,-4.18,-4.14,-4.09,-4.04,-3.99,-3.94,-3.88,-3.83,-3.78,-3.72,-3.67,-3.61,-3.55,-3.5,-3.44,-3.38,-3.32,-3.26,-3.2,-3.14,-3.08,-3.02,-2.96,-2.9,-2.84,-2.78,-2.71,-2.65,-2.59,-2.53,-2.47,-2.4,-2.34,-2.28,-2.22,-2.16,-2.1,-2.04,-1.97,-1.91,-1.85,-1.79,-1.73,-1.67,-1.62,-1.56,-1.5,-1.44,-1.39,-1.33,-1.28,-1.22,-1.17,-1.11,-1.06,-1.01,-0.96,-0.91,-0.86,-0.82,-0.77,-0.72,-0.68,-0.63,-0.59,-0.55,-0.51,-0.47,-0.43,-0.4,-0.36,-0.33,-0.3,-0.27,-0.24,-0.21,-0.18,-0.16,-0.14,-0.12,-0.1,-0.08,-0.06,-0.05,-0.04,-0.02,-0.02,-0.01,0,0,0,-4.53,-14.49,-24.46,-28.99,-26.35,-21.23,-13.94,-9.13,-10.55,-11.97,-8.74,-4.3,-2.28,-0.91,0,0.7,1.33,1.88,2.34,2.68,2.9,2.97,2.93,2.81,2.63,2.37,2.05,1.66,1.22,0.74,0.08,-0.78,-1.76,-2.77,-3.72,-4.51,-5.05,-5.25,-4.74,-3.41,-1.6,0.38,2.21,3.57,4.51,5.32,5.98,6.46,6.76,6.87,6.8,6.58,6.19,5.6,4.71,3.54,2.29,1.15,0.32,0)
Khnumheadyrot=array(26.62,26.63,26.65,26.69,26.74,26.81,26.89,26.98,27.08,27.2,27.33,27.47,27.62,27.78,27.95,28.13,28.31,28.51,28.71,28.92,29.14,29.37,29.6,29.83,30.07,30.31,30.56,30.81,31.07,31.33,31.59,31.85,32.11,32.37,32.63,32.9,33.16,33.42,33.68,33.93,34.19,34.44,34.69,34.93,35.17,35.4,35.63,35.85,36.07,36.27,36.48,36.67,36.85,37.03,37.2,37.35,37.5,37.64,37.76,37.87,37.98,38.08,38.18,38.27,38.37,38.45,38.54,38.62,38.7,38.78,38.85,38.92,38.99,39.05,39.11,39.17,39.23,39.28,39.33,39.38,39.43,39.47,39.51,39.55,39.59,39.63,39.66,39.69,39.72,39.75,39.78,39.8,39.82,39.84,39.86,39.88,39.9,39.91,39.93,39.94,39.95,39.96,39.97,39.98,39.98,39.99,40,40,40,40.01,40.01,40.01,40.01,40.02,40.02,40.02,40.02,40.02,40.02,40.02,40.02,40.01,40,39.98,39.97,39.94,39.92,39.89,39.85,39.82,39.78,39.73,39.69,39.64,39.59,39.53,39.47,39.41,39.35,39.28,39.22,39.15,39.07,39,38.92,38.85,38.77,38.69,38.6,38.52,38.43,38.35,38.26,38.17,38.08,37.99,37.9,37.81,37.72,37.63,37.54,37.44,37.35,37.26,37.17,37.08,36.98,36.89,36.8,36.71,36.63,36.54,36.46,36.38,36.31,36.24,36.17,36.1,36.04,35.98,35.92,35.87,35.81,35.76,35.71,35.66,35.62,35.57,35.53,35.49,35.45,35.41,35.37,35.34,35.3,35.26,35.23,35.2,35.16,35.13,35.09,35.06,35.03,34.99,34.96,34.93,34.89,34.85,34.82,34.78,34.74,34.7,34.66,34.62,34.58,34.53,34.49,34.44,34.39,34.34,34.28,34.22,34.16,34.1,34.04,33.97,33.9,33.83,33.75,33.68,33.59,33.51,33.42,33.33,33.23,33.13,33.03,32.92,32.81,32.69,32.57,32.44,32.31,32.18,32.04,31.89,31.74,31.59,31.43,31.26,31.09,30.91,30.73,30.54,30.34,30.14,29.93,29.72,29.5,29.27,29.04,28.8,28.55,28.3,28.04,27.77,27.49,27.21,26.92,26.62,22.93,15.2,7.54,4.08,16.84,30.73,32.03,32.22,31,29.31,28.79,28.47,27.76,27,26.62,26.57,26.54,26.51,26.5,26.49,26.49,26.49,26.5,26.52,26.55,26.58,26.61,26.64,26.66,26.67,26.63,26.51,26.33,26.09,25.82,25.52,25.21,24.9,24.6,24.33,24.1,23.92,23.8,23.75,23.93,24.38,24.97,25.58,26.08,26.33,26.41,26.47,26.52,26.56,26.58,26.6,26.61,26.62,26.62,26.62)
Khnumheadzrot=array(0,0,0,0,0,-0.01,-0.01,-0.01,-0.02,-0.02,-0.03,-0.04,-0.04,-0.05,-0.06,-0.07,-0.07,-0.08,-0.09,-0.1,-0.11,-0.12,-0.13,-0.15,-0.16,-0.17,-0.18,-0.2,-0.21,-0.22,-0.24,-0.25,-0.27,-0.28,-0.3,-0.31,-0.33,-0.34,-0.36,-0.38,-0.39,-0.41,-0.43,-0.44,-0.46,-0.48,-0.5,-0.51,-0.53,-0.55,-0.57,-0.59,-0.61,-0.62,-0.64,-0.66,-0.68,-0.7,-0.72,-0.74,-0.76,-0.77,-0.79,-0.81,-0.83,-0.85,-0.87,-0.89,-0.9,-0.92,-0.94,-0.96,-0.98,-1,-1.01,-1.03,-1.05,-1.07,-1.08,-1.1,-1.12,-1.13,-1.15,-1.17,-1.18,-1.2,-1.21,-1.23,-1.24,-1.26,-1.27,-1.28,-1.3,-1.31,-1.32,-1.33,-1.35,-1.36,-1.37,-1.38,-1.39,-1.4,-1.41,-1.42,-1.43,-1.44,-1.44,-1.45,-1.46,-1.46,-1.47,-1.47,-1.48,-1.48,-1.48,-1.49,-1.49,-1.49,-1.49,-1.49,-1.48,-1.45,-1.4,-1.33,-1.24,-1.13,-1.01,-0.87,-0.72,-0.55,-0.37,-0.17,0.03,0.25,0.47,0.7,0.94,1.19,1.45,1.7,1.97,2.24,2.51,2.78,3.05,3.32,3.59,3.86,4.13,4.39,4.65,4.91,5.15,5.4,5.63,5.85,6.07,6.27,6.46,6.65,6.81,6.97,7.11,7.23,7.34,7.43,7.5,7.55,7.58,7.59,7.59,7.58,7.57,7.55,7.54,7.51,7.48,7.45,7.42,7.38,7.33,7.29,7.24,7.19,7.13,7.07,7.01,6.94,6.87,6.8,6.73,6.65,6.57,6.49,6.4,6.32,6.23,6.14,6.05,5.95,5.85,5.76,5.66,5.55,5.45,5.35,5.24,5.14,5.03,4.92,4.81,4.7,4.59,4.47,4.36,4.25,4.14,4.02,3.91,3.8,3.68,3.57,3.45,3.34,3.23,3.12,3,2.89,2.78,2.67,2.56,2.46,2.35,2.24,2.14,2.04,1.93,1.83,1.74,1.64,1.54,1.45,1.36,1.27,1.19,1.1,1.02,0.94,0.86,0.79,0.72,0.65,0.58,0.52,0.46,0.4,0.35,0.3,0.26,0.21,0.17,0.14,0.11,0.08,0.06,0.04,0.02,0.01,0,0,0.88,2.83,4.78,5.66,-3.82,-13.3,-6.95,-0.6,-7.4,-14.2,-8.5,-1.87,-0.67,-0.29,0,0.55,1.15,1.76,2.32,2.78,3.09,3.21,2.82,1.8,0.35,-1.3,-2.95,-4.4,-5.42,-5.8,-5.74,-5.54,-5.23,-4.83,-4.35,-3.8,-3.21,-2.59,-1.95,-1.31,-0.69,-0.1,0.44,0.92,1.38,1.86,2.3,2.66,2.92,3.01,2.93,2.7,2.36,1.95,1.51,1.06,0.65,0.31,0.08,0)

Khnumbodyxpos=array(-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94,-115.94)
Khnumbodyypos=array(50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50.05,50.19,50.41,50.68,50.99,51.33,51.67,52.01,52.32,52.58,52.77,52.85,52.76,52.58,52.49,52.58,52.77,52.95,53.11,53.2,53.01,52.66,52.48,52.6,52.83,52.95,52.72,52.42,52.34,52.31,52.28,52.16,51.86,51.46,51.17,51,50.84,50.67,50.52,50.38,50.25,50.15,50.07,50.02,50)
Khnumbodyzpos=array(-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97,-115.97)
Khnumbodyxrot=array(-6.59,-6.59,-6.58,-6.57,-6.55,-6.52,-6.49,-6.46,-6.42,-6.37,-6.32,-6.27,-6.22,-6.16,-6.09,-6.03,-5.96,-5.89,-5.81,-5.74,-5.66,-5.58,-5.5,-5.41,-5.33,-5.24,-5.15,-5.06,-4.98,-4.89,-4.8,-4.71,-4.62,-4.53,-4.45,-4.36,-4.27,-4.19,-4.11,-4.03,-3.95,-3.87,-3.8,-3.73,-3.66,-3.59,-3.53,-3.47,-3.41,-3.36,-3.31,-3.27,-3.23,-3.19,-3.16,-3.14,-3.12,-3.1,-3.1,-3.09,-3.09,-3.1,-3.11,-3.12,-3.13,-3.14,-3.16,-3.18,-3.2,-3.23,-3.25,-3.28,-3.31,-3.34,-3.37,-3.41,-3.45,-3.48,-3.52,-3.56,-3.6,-3.64,-3.69,-3.73,-3.77,-3.82,-3.86,-3.91,-3.95,-4,-4.04,-4.09,-4.13,-4.18,-4.22,-4.26,-4.31,-4.35,-4.39,-4.43,-4.47,-4.51,-4.55,-4.58,-4.62,-4.65,-4.68,-4.71,-4.74,-4.77,-4.79,-4.81,-4.83,-4.85,-4.86,-4.88,-4.89,-4.89,-4.9,-4.9,-4.9,-4.9,-4.89,-4.88,-4.87,-4.86,-4.85,-4.84,-4.82,-4.8,-4.78,-4.76,-4.74,-4.72,-4.7,-4.67,-4.65,-4.62,-4.6,-4.57,-4.54,-4.51,-4.49,-4.46,-4.43,-4.4,-4.37,-4.35,-4.32,-4.29,-4.27,-4.24,-4.21,-4.19,-4.16,-4.14,-4.12,-4.1,-4.08,-4.06,-4.04,-4.03,-4.01,-4,-3.99,-3.98,-3.97,-3.97,-3.96,-3.96,-3.96,-3.97,-3.99,-4,-4.02,-4.05,-4.08,-4.12,-4.15,-4.2,-4.24,-4.29,-4.34,-4.4,-4.45,-4.51,-4.57,-4.63,-4.7,-4.76,-4.83,-4.9,-4.97,-5.04,-5.11,-5.18,-5.25,-5.32,-5.39,-5.46,-5.53,-5.59,-5.66,-5.72,-5.79,-5.85,-5.91,-5.96,-6.02,-6.07,-6.12,-6.17,-6.21,-6.25,-6.28,-6.32,-6.34,-6.37,-6.38,-6.4,-6.41,-6.42,-6.43,-6.44,-6.45,-6.45,-6.46,-6.47,-6.47,-6.47,-6.48,-6.48,-6.48,-6.49,-6.49,-6.49,-6.49,-6.49,-6.49,-6.49,-6.49,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.5,-6.51,-6.51,-6.51,-6.52,-6.52,-6.53,-6.53,-6.54,-6.54,-6.55,-6.56,-6.57,-6.58,-6.59,-8.03,-11.3,-14.88,-17.23,-17.89,-18.05,-18.22,-18.3,-18.32,-17.79,-16.37,-14.29,-11.81,-9.16,-6.59,-4.07,-1.41,1.35,4.18,7.04,9.91,12.77,15.56,18.27,20.87,22.53,23.74,25.56,27.46,28.92,29.53,29.69,30.11,31.65,32.79,31.97,30.25,28.72,27.69,26.73,25.84,25.01,24.21,23.46,22.78,22.17,21.66,21.42,21.33,20.91,19.53,17.09,13.87,10.15,6.22,2.37,-1.12,-3.97,-5.89,-6.59)
Khnumbodyyrot=array(42.02,42.02,42.01,42,41.99,41.97,41.95,41.93,41.9,41.87,41.84,41.8,41.76,41.72,41.68,41.63,41.59,41.54,41.49,41.43,41.38,41.32,41.27,41.21,41.15,41.09,41.03,40.97,40.91,40.85,40.78,40.72,40.66,40.6,40.54,40.48,40.42,40.36,40.31,40.25,40.2,40.15,40.09,40.04,40,39.95,39.91,39.87,39.83,39.79,39.76,39.73,39.7,39.68,39.66,39.64,39.63,39.62,39.61,39.61,39.61,39.61,39.62,39.63,39.64,39.65,39.66,39.68,39.69,39.71,39.74,39.76,39.78,39.81,39.84,39.86,39.89,39.93,39.96,39.99,40.03,40.06,40.1,40.14,40.18,40.22,40.26,40.3,40.34,40.38,40.42,40.47,40.51,40.55,40.6,40.64,40.69,40.73,40.77,40.82,40.86,40.91,40.95,40.99,41.04,41.08,41.12,41.16,41.2,41.24,41.28,41.32,41.36,41.4,41.43,41.47,41.5,41.53,41.57,41.6,41.63,41.66,41.69,41.72,41.75,41.78,41.82,41.85,41.88,41.91,41.95,41.98,42.02,42.05,42.08,42.12,42.15,42.18,42.22,42.25,42.28,42.31,42.34,42.38,42.41,42.44,42.46,42.49,42.52,42.55,42.57,42.6,42.62,42.65,42.67,42.69,42.71,42.73,42.75,42.76,42.78,42.79,42.8,42.82,42.83,42.83,42.84,42.84,42.85,42.85,42.85,42.85,42.85,42.85,42.85,42.85,42.85,42.85,42.85,42.85,42.85,42.85,42.84,42.84,42.84,42.84,42.84,42.84,42.84,42.84,42.84,42.84,42.84,42.84,42.83,42.83,42.83,42.83,42.83,42.82,42.82,42.82,42.82,42.81,42.81,42.81,42.81,42.8,42.8,42.79,42.79,42.79,42.78,42.78,42.77,42.77,42.76,42.76,42.75,42.74,42.74,42.73,42.72,42.72,42.71,42.7,42.69,42.69,42.68,42.67,42.66,42.65,42.64,42.63,42.62,42.61,42.6,42.59,42.58,42.56,42.55,42.54,42.53,42.51,42.5,42.49,42.47,42.46,42.44,42.43,42.41,42.39,42.38,42.36,42.34,42.32,42.3,42.29,42.27,42.25,42.23,42.21,42.18,42.16,42.14,42.12,42.1,42.07,42.05,42.02,41.6,40.63,39.51,38.62,38.2,38.12,38.12,38.13,38.15,38.43,39.08,39.94,40.83,41.58,42.02,42.23,42.4,42.53,42.63,42.7,42.74,42.77,42.79,42.79,42.79,42.71,42.48,42.15,41.74,41.3,40.86,40.45,40.12,39.89,39.81,39.82,39.84,39.88,39.95,40.05,40.19,40.37,40.61,41.11,41.89,42.6,42.92,42.87,42.78,42.7,42.62,42.54,42.45,42.36,42.27,42.19,42.13,42.07,42.04,42.02)
Khnumbodyzrot=array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.02,0.02,0.02,0.02,0.02,0.03,0.03,0.03,0.03,0.04,0.04,0.04,0.05,0.05,0.05,0.06,0.06,0.07,0.07,0.08,0.08,0.09,0.09,0.1,0.11,0.11,0.12,0.13,0.13,0.14,0.15,0.16,0.17,0.18,0.19,0.2,0.21,0.23,0.25,0.27,0.3,0.32,0.35,0.38,0.41,0.44,0.47,0.51,0.54,0.58,0.62,0.66,0.7,0.74,0.78,0.83,0.87,0.91,0.96,1,1.05,1.09,1.14,1.18,1.23,1.27,1.32,1.36,1.4,1.44,1.49,1.53,1.57,1.61,1.65,1.68,1.72,1.75,1.79,1.82,1.85,1.88,1.9,1.93,1.95,1.97,1.99,2.01,2.02,2.03,2.04,2.05,2.05,2.05,2.05,2.04,2.03,2.02,1.99,1.97,1.94,1.91,1.87,1.83,1.79,1.74,1.69,1.64,1.59,1.53,1.48,1.42,1.36,1.3,1.23,1.17,1.11,1.04,0.98,0.91,0.85,0.79,0.72,0.66,0.6,0.54,0.48,0.42,0.37,0.31,0.26,0.22,0.17,0.13,0.09,0.05,0.02,-0.01,-0.04,-0.06,-0.07,-0.09,-0.09,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.1,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.09,-0.08,-0.08,-0.08,-0.08,-0.08,-0.08,-0.08,-0.08,-0.08,-0.08,-0.08,-0.07,-0.07,-0.07,-0.07,-0.07,-0.07,-0.07,-0.07,-0.06,-0.06,-0.06,-0.06,-0.06,-0.06,-0.06,-0.05,-0.05,-0.05,-0.05,-0.05,-0.05,-0.04,-0.04,-0.04,-0.04,-0.04,-0.03,-0.03,-0.03,-0.03,-0.02,-0.02,-0.02,-0.02,-0.01,-0.01,-0.01,-0.01,0,0,0.22,0.71,1.2,1.42,0.24,-1.9,-4.39,-6.99,-8.19,-7.58,-6.07,-4.1,-2.12,-0.61,0,-0.06,-0.23,-0.48,-0.78,-1.11,-1.44,-1.75,-2,-2.17,-2.23,-2.03,-1.48,-0.68,0.3,1.36,2.42,3.4,4.2,4.75,4.95,4.81,4.43,3.87,3.2,2.46,1.71,1.03,0.45,0.01,-0.35,-0.68,-1.04,-1.54,-2.05,-2.29,-2.23,-2.05,-1.8,-1.48,-1.14,-0.81,-0.49,-0.24,-0.06,0)




Sub InitKhnumDead()
		ResetAllGodsLights()
		KhnumlegsDead.Tx=-116.8
		KhnumlegsDead.Ty=26
		KhnumlegsDead.Tz=-116.19
		KhnumlegsDead.AngleYZ=0
		KhnumlegsDead.AngleXZ=-42.2
		KhnumlegsDead.AngleXY=0
		KhnumheadDead.Tx=Khnumheadxpos(0)
		KhnumheadDead.Ty=Khnumheadypos(0)
		KhnumheadDead.Tz=Khnumheadzpos(0)
		KhnumheadDead.AngleYZ=-Khnumheadxrot(0)
		KhnumheadDead.AngleXZ=-Khnumheadyrot(0)
		KhnumheadDead.AngleXY=-Khnumheadzrot(0)
		KhnumbodyDead.Tx=Khnumbodyxpos(0)
		KhnumbodyDead.Ty=Khnumbodyypos(0)
		KhnumbodyDead.Tz=Khnumbodyzpos(0)
		KhnumbodyDead.AngleYZ=-Khnumbodyxrot(0)
		KhnumbodyDead.AngleXZ=-Khnumbodyyrot(0)
		KhnumbodyDead.AngleXY=-Khnumbodyzrot(0)
		Khnumlegs.Ty=-200
		Khnumhead.Ty=-200
		Khnumbody.Ty=-200
		KhnumTimer.Set false
end sub


Sub InitKhnumLiving()

		Khnumlegs.Tx=-116.8
		Khnumlegs.Ty=26
		Khnumlegs.Tz=-116.19
		Khnumlegs.AngleYZ=0
		Khnumlegs.AngleXZ=-42.2
		Khnumlegs.AngleXY=0
		Khnumhead.Tx=Khnumheadxpos(KhnumInc)
		Khnumhead.Ty=Khnumheadypos(KhnumInc)
		Khnumhead.Tz=Khnumheadzpos(KhnumInc)
		Khnumhead.AngleYZ=-Khnumheadxrot(KhnumInc)
		Khnumhead.AngleXZ=-Khnumheadyrot(KhnumInc)
		Khnumhead.AngleXY=-Khnumheadzrot(KhnumInc)
		Khnumbody.Tx=Khnumbodyxpos(KhnumInc)
		Khnumbody.Ty=Khnumbodyypos(KhnumInc)
		Khnumbody.Tz=Khnumbodyzpos(KhnumInc)
		Khnumbody.AngleYZ=-Khnumbodyxrot(KhnumInc)
		Khnumbody.AngleXZ=-Khnumbodyyrot(KhnumInc)
		Khnumbody.AngleXY=-Khnumbodyzrot(KhnumInc)
		KhnumlegsDead.Ty=-200
		KhnumheadDead.Ty=-200
		KhnumbodyDead.Ty=-200
		KhnumIdle()
End sub

Sub KhnumAttack()
		KhnumInFrame=284
		KhnumOutFrame=329
		KhnumInc=KhnumInFrame
		KhnumTimer.Set true ,theSpeed
end sub

Sub KhnumIdle()
		KhnumInFrame=0
		KhnumOutFrame=269
		KhnumInc=KhnumInFrame
		KhnumTimer.Set true ,theSpeed
end sub

Sub KhnumIsHit()
		KhnumInFrame=269
		KhnumOutFrame=284
		KhnumInc=KhnumInFrame
		KhnumTimer.Set true ,theSpeed
end sub

Sub KhnumTimer_expired()
		if KhnumInc<KhnumOutFrame then
			KhnumInc=KhnumInc+1
		else
			KhnumIdle()
		end if
			Khnumhead.Tx=Khnumheadxpos(KhnumInc)
			Khnumhead.Ty=Khnumheadypos(KhnumInc)
			Khnumhead.Tz=Khnumheadzpos(KhnumInc)
			Khnumhead.AngleYZ=-Khnumheadxrot(KhnumInc)
			Khnumhead.AngleXZ=-Khnumheadyrot(KhnumInc)
			Khnumhead.AngleXY=-Khnumheadzrot(KhnumInc)
			Khnumbody.Tx=Khnumbodyxpos(KhnumInc)
			Khnumbody.Ty=Khnumbodyypos(KhnumInc)
			Khnumbody.Tz=Khnumbodyzpos(KhnumInc)
			Khnumbody.AngleYZ=-Khnumbodyxrot(KhnumInc)
			Khnumbody.AngleXZ=-Khnumbodyyrot(KhnumInc)
			Khnumbody.AngleXY=-Khnumbodyzrot(KhnumInc)
			KhnumTimer.Set true ,theSpeed
end sub





'********************************************************
' SNAKE PIT
'********************************************************
Dim DummyBallx,DummyBallz,BallInc,SnakePitAnim,whichSequence,shakeInc
DummyBallx=array(29.07,20.89,12.8,4.79,-3.11,-10.91,-18.61,-26.2,-33.67,-41.04,-48.28,-55.38,-62.31,-68.99,-75.28,-80.88,-85.43,-88.21,-87.96,-84.5,-79.24,-73.36,-67.4,-61.53,-55.8,-50.34,-45.61,-42.51,-41.07,-40.73,-41.14,-42.11,-43.62,-45.72,-48.51,-52.05,-56.13,-60.26,-64.08,-67.34,-69.8,-71.52,-72.61,-73.19,-73.28,-72.77,-71.45,-69.29,-66.75,-64.3,-62.13,-60.43,-59.39,-59.04,-59.15,-59.57,-60.23,-61.06,-61.98,-62.87,-63.62,-64.21,-64.62,-64.86,-64.94)
DummyBallz=array(-396.64,-397.14,-397.49,-397.64,-397.57,-397.31,-396.91,-396.36,-395.68,-394.9,-393.97,-392.81,-391.3,-389.29,-386.51,-382.73,-377.89,-372,-365.64,-360.42,-357.17,-355.58,-354.98,-354.96,-355.48,-356.87,-359.66,-364.03,-369.1,-374.24,-379.25,-384.07,-388.6,-392.76,-396.32,-398.9,-400.12,-400.04,-398.87,-396.79,-393.99,-390.82,-387.53,-384.26,-381.07,-378.07,-375.5,-373.82,-373.25,-373.46,-374.27,-375.61,-377.33,-379.16,-380.87,-382.37,-383.6,-384.52,-385.09,-385.32,-385.34,-385.24,-385.13,-385.04,-385.01)
DummyBall.Ty=-200

Sub snakeGobbler_hit()
		EventLight(1500)
		snakeGobbler.DestroyBall
		theSnakePit(1)
end sub

Sub snakePitEnd_hit()
			SpinningDisk.SolenoidOff
			SnakeLight1.State=bulbOff : SnakeLight2.State=bulbOff : SnakeLight3.State=bulbOff
			SnakeHit1=false : SnakeHit2=false : SnakeHit3=false
			AddScore(25*theMultiplier)
			playsound"melody1"
			FlasherPit.State=bulbOff
end sub


Sub theSnakePit(whichSequence)
	Select case whichSequence
		case 1 : shakeInc=0 : DummyBall.Ty=45 : LeadtheBall.Set true,15 : SpintheDisk() : PlaySound "fx_wire", 0.3
		case 2 : ShakeTheBall.Set true ,33 : 	BigWipeLightEvent() : PlaySound "levitation" : ShowMessages(34)
		case 3 : SnakeHiddenKicker.CreateCaptiveBall : PlaySound "crashDown" : FlasherPit.State=bulbBlink
	end select
end sub

Sub LeadtheBall_expired()
			if BallInc<64 then
				BallInc=BallInc+1
				DummyBall.Tx=DummyBallx(BallInc)
				DummyBall.Tz=DummyBallz(BallInc)
				LeadtheBall.Set true,15
			else
				BallInc=0
				LeadtheBall.Set false
				theSnakePit(2)
			end if
end sub


Sub ShakeTheBall_Expired()
			if shakeInc<100 then
				shakeInc=shakeInc+1
				DummyBall.Tx=(-65)+((RandomNumber(2)/5))
				DummyBall.Ty=DummyBall.Ty+0.1
				DummyBall.Tz=(-385.34)+((RandomNumber(2)/5))
				ShakeTheBall.Set true ,20
			else
				shakeInc=0
				theSnakePit(3)
				DummyBall.Ty=-200
				ShakeTheBall.Set false
			end if
end sub

Sub SpintheDisk()
		SpinningDisk.AntiClockwise = TRUE
		SpinningDisk.SolenoidOn
end Sub

Sub StopSpintheDisk()
		SpinningDisk.SolenoidOff
end Sub

Dim SnakeHit1,SnakeHit2,SnakeHit3

Sub SnakeTarget1_hit()
			snakeHitSFX()
			AddScore(250*theMultiplier)
			SnakeHit1=true
			SnakeLight1.State=bulbBlink
			CheckSnakeBonus()
		if Snake1.dropped=true then
			Snake1.SolenoidPulse
FF_Sound DV_BC,-1, "chestClose"
		else
		Snake1.Popdown
end if
end sub


Sub SnakeTarget2_hit()
			snakeHitSFX()
			AddScore(250*theMultiplier)
			SnakeHit2=true
			SnakeLight2.State=bulbBlink
			CheckSnakeBonus()
		if Snake2.dropped=true then
			Snake2.SolenoidPulse
FF_Sound DV_BR,-1, "chestClose"
		else
		Snake2.Popdown
end if
end sub


Sub SnakeTarget3_hit()
			snakeHitSFX()
			AddScore(250*theMultiplier)
			SnakeHit3=true
			SnakeLight3.State=bulbBlink
			CheckSnakeBonus()
		if Snake3.dropped=true then
			Snake3.SolenoidPulse
FF_Sound DV_BR,-1, "chestClose"
		else
		Snake3.Popdown
		end if
end sub

Sub CheckSnakeBonus()
		if SnakeHit1=true and SnakeHit2=true and SnakeHit3=true then
			BigWipeLightEvent()
				SnakeHit1=false : SnakeHit2=false : SnakeHit3=false
				SnakeLight1.State=bulbOff : SnakeLight2.State=bulbOff : SnakeLight3.State=bulbOff
					if BFDAvail<5 then
						BFDAvail=BFDAvail+1
						ShowMessages(20)
						ProcessLightBackFromDead()
						AddScore(250*theMultiplier)
					end if
		end if
end sub


'********************************************************
' Progressive Jackpot
'********************************************************


Sub bumpSectionTrigIn_hit()
			bumpSectionTrigIn.Collidable=false
			bumpSectionTrigIn.Render=false
			BumperSectionT.Set true, 3000
			BumperSection.Collidable=true
			BumperSection.Render=true
end sub

Sub bumpSectionTrigOut_hit()
			bumpSectionTrigIn.Collidable=true
			bumpSectionTrigIn.Render=true
end sub

Sub BumperSectionT_expired()
	BumperSection.Collidable=false
	BumperSection.Render=false
	BumperSectionT.Set false
end sub


'********************************************************
' TUTENKHAM
'********************************************************
Dim whichPos,ChaseKeyInc,keyPos

Sub resetAllGodsOverlay()
		HorusOverlay.frame 1,30,1
		SobekOverlay.frame 5,30,1
		AnubisOverlay.frame 12,30,1
		KhnumOverlay.frame 20,30,1
end sub

Sub StopAllGodsOverlay()
		HorusOverlay.frame 32
		SobekOverlay.frame 32
		AnubisOverlay.frame 32
		KhnumOverlay.frame 32
end sub

AddDebugText Key.tx
AddDebugText key.tz

Dim theKeyAngle

Sub UndeadTimer_expired()
		ChaseKeyInc=0
		ChasetheKey.Set true,100
		UndeadTimer.Set false
end sub


Sub keyposition(whichPos)
		Select case whichPos
			case 1: theKeyAngle=110 :Key.Tx=-165.04 : Key.Tz=58.16 : SobekOverlay.frame 31  :  'Sobek :
			case 2: theKeyAngle=160 :Key.Tx=-80.04 : Key.Tz=-34.83 : KhnumOverlay.frame 31 :'Khnum
			case 3: theKeyAngle=180 :Key.Tx=4.3 : Key.Tz=-43.08  : AnubisOverlay.frame 31 : 'Anubis
			case 4: theKeyAngle=240 : Key.Tx=114.95 : Key.Tz=114.66  : HorusOverlay.frame 31 :'Horus
		end select
end sub


Sub ChasetheKey_expired()
			ChaseKeyInc=ChaseKeyInc+1
		Select Case ChaseKeyInc
				Case 1 : SummoningSFX() : keyPos=RandomNumber(4)  : keyposition(keyPos) : Key.AngleXZ= theKeyAngle : Key.MoveTo Key.Tx, 27, Key.Tz , 150 : ChaseKey3DAnim() : ChasetheKey.Set true,1000
				Case 2 : BigWipeLightEvent() : Execute "KeyTrigger"&keyPos&".Collidable=true" : ChasetheKey.Set true,5000 : ShakeTheKey.Set true ,33
				Case 3 : ResetAllLightRing() : ChasetheKey.Set true,100 : ShakeTheKey.Set false
				Case 4 : Key.MoveTo Key.Tx, -50, Key.Tz , 150  : ChasetheKey.Set true,1000 :  Execute "KeyTrigger"&keyPos&".Collidable=false"
				Case 5 : resetAllGodsOverlay() : ChaseKeyInc=0 : ChasetheKey.Set false : UndeadTimer.Set true, (randomNumber(10000)+5000)
		end select
end sub


Sub ShakeTheKey_expired()
		Key.AngleXZ=theKeyAngle+(RandomNumber(15)/2)
		Key.Ty=27+(RandomNumber(6)/2)
		ShakeTheKey.Set true ,33
end sub


Sub ChaseKey3DAnim()
		Select case keyPos
			case 1 : SobekAttack() : SobekLightRing.State=BulbBlink : SobekToplight.State=bulbBlink : SobekLight1.State=bulbBlink: SobekLight2.State=bulbBlink
			case 2 : KhnumAttack() : KhnumLightRing.State=BulbBlink: KhnumToplight.State=bulbBlink : KhnumLight1.State=bulbBlink: KhnumLight2.State=bulbBlink
			case 3 : AnubisAttack() : AnubisLightRing.State=BulbBlink: AnubisToplight.State=bulbBlink : AnubisLight1.State=bulbBlink: AnubisLight2.State=bulbBlink
			case 4 : HorusAttack() : HorusLightRing.State=BulbBlink: HorusToplight.State=bulbBlink : HorusLight1.State=bulbBlink: HorusLight2.State=bulbBlink
		end select
end sub

Sub ResetAllLightRing()
			SobekLightRing.State=BulbOff : SobekToplight.State=bulbOff : SobekLight1.State=bulbOff: SobekLight2.State=bulbOff
			KhnumLightRing.State=BulbOff: KhnumToplight.State=bulbOff : KhnumLight1.State=bulbOff: KhnumLight2.State=bulbOff
			AnubisLightRing.State=BulbOff: AnubisToplight.State=bulbOff : AnubisLight1.State=bulbOff: AnubisLight2.State=bulbOff
			HorusLightRing.State=BulbOff: HorusToplight.State=bulbOff : HorusLight1.State=bulbOff: HorusLight2.State=bulbOff
end sub

Dim Runestone


Sub KeyTrigger1_hit
		UndeadSFX()
		SobekToplight.FlashForMs  200, 100, BulbOff
		KeyTrigger1.Collidable=false
		ChasetheKey.Set true,50
		AddScore(2000*theMultiplier)
		ShowMessages(21)
end sub

Sub KeyTrigger2_hit
		UndeadSFX()
		KhnumToplight.FlashForMs  200, 100, BulbOff
		KeyTrigger2.Collidable=false
		ChasetheKey.Set true,50
		AddScore(2000*theMultiplier)
		ShowMessages(21)
end sub

Sub KeyTrigger3_hit
		UndeadSFX()
		AnubisTopLight.FlashForMs  200, 100, BulbOff
		KeyTrigger3.Collidable=false
		ChasetheKey.Set true,50
		AddScore(2000*theMultiplier)
		ShowMessages(21)
end sub

Sub KeyTrigger4_hit
		UndeadSFX()
		HorusTopLight.FlashForMs  200, 100, BulbOff
		KeyTrigger4.Collidable=false
		ChasetheKey.Set true,50
		AddScore(2000*theMultiplier)
		ShowMessages(21)
end sub

Sub checkRunestone()
				PlaySound"boomreverb"
				if theLevel<9 then
								stingerSFX()
								theLevel=theLevel+1
								PlayfieldFlashing(2000)
								BigWipeLightEvent()
								AddScore(10000*theMultiplier)
								ShowMessages(19)
								DelayDestroyTile=DelayDestroyTile-2500
							if BFDAvail<6 then
								BFDAvail=BFDAvail+1
								ProcessLightBackFromDead()
							end if
				else
						theLevel=1
						backDrop.Frame 1
						'END OF THE GAME : LOOP
				end if
						ResetAllTile()
						ResetAllLightRing() :
						BackdropAnim()
						RestartNewLevel.Set true,750
end sub

Sub RestartNewLevel_expired()
		EngageScarabTargets()
		InitTiles()
		RestartNewLevel.Set false
end sub
'*******************************************************
'SCROLLING BACKDROP
'*******************************************************
Sub BackdropAnim()
		Select case theLevel
			case 1 : backDrop.Frame 1
			case 2: backDrop.Frame 2,15
			case 3: backDrop.Frame 16,29
			case 4: backDrop.Frame 30,43
			case 5: backDrop.Frame 44,58
			case 6: backDrop.Frame 59,72
			case 7: backDrop.Frame 73,86
			case 8: backDrop.Frame 87,100
		end select
end sub


'*******************************************************
'*******************************************************
Dim TileSeqIn,TileSeqOut,TileSeqLoop,whichTile,theLevelRange,theLevel
Dim  TileList1,TileList2,TileList3,TileList4,TileList5,TileList6,TileList7,TileList8,TileList9,TileList10,TileList11,TileList12
Dim  TileAnimIn1,TileAnimIn2,TileAnimIn3,TileAnimIn4,TileAnimIn5,TileAnimIn6,TileAnimIn7,TileAnimIn8,TileAnimIn9,TileAnimIn10,TileAnimIn11,TileAnimIn12
Dim  TileAnimOut1,TileAnimOut2,TileAnimOut3,TileAnimOut4,TileAnimOut5,TileAnimOut6,TileAnimOut7,TileAnimOut8,TileAnimOut9,TileAnimOut10,TileAnimOut11,TileAnimOut12
Dim  TileAnimLoop1,TileAnimLoop2,TileAnimLoop3,TileAnimLoop4,TileAnimLoop5,TileAnimLoop6,TileAnimLoop7,TileAnimLoop8,TileAnimLoop9,TileAnimLoop10,TileAnimLoop11,TileAnimLoop12
Dim  TileVal1,TileVal2,TileVal3,TileVal4,TileVal5,TileVal6,TileVal7,TileVal8,TileVal9,TileVal10,TileVal11,TileVal12
'*******************************************************
' PARAM ANIMATION 1
'*******************************************************
TileList1=Array(14,17,34,1,36,26,6,11)
TileAnimIn1=Array(22,23,24,25,26,27,28,29)
TileAnimOut1=Array(22,23,24,25,26,27,28,29)
TileAnimLoop1=Array(22,23,24,25,26,27,28,29)
TileVal1=Array(100,100,100,100,100,250,250,250)
'*******************************************************
' PARAM ANIMATION 2
'*******************************************************
TileList2=Array(17,13,27,3,30,10,31,12)
TileAnimIn2=Array(24,27,28,29,25,30,32,23)
TileAnimOut2=Array(24,27,28,29,25,30,32,23)
TileAnimLoop2=Array(24,27,28,29,25,30,32,23)
TileVal2=Array(100,250,250,250,100,250,1000,100)
'*******************************************************
' PARAM ANIMATION 3
'*******************************************************
TileList3=Array(2,21,29,7,17,34,9,19)
TileAnimIn3=Array(24,35,27,34,33,29,32,31)
TileAnimOut3=Array(24,35,27,34,33,29,32,31)
TileAnimLoop3=Array(24,35,27,34,33,29,32,31)
TileVal3=Array(100,1000,250,1000,1000,250,1000,250)
'*******************************************************
' PARAM ANIMATION 4
'*******************************************************
TileList4=Array(15,16,5,26,7,30,12,35)
TileAnimIn4=Array(30,32,33,37,38,34,39,35)
TileAnimOut4=Array(30,32,33,37,38,34,39,35)
TileAnimLoop4=Array(30,32,33,37,38,34,39,35)
TileVal4=Array(250,1000,1000,2500,2500,1000,2500,1000)
'*******************************************************
' PARAM ANIMATION 5
'*******************************************************
TileList5=Array(21,2,16,25,24,23,9,20)
TileAnimIn5=Array(41,36,37,43,44,38,39,40)
TileAnimOut5=Array(41,36,37,43,44,38,39,40)
TileAnimLoop5=Array(41,36,37,43,44,38,39,40)
TileVal5=Array(2500,1000,2500,5000,5000,2500,2500,2500)
'*******************************************************
'PARAM ANIMATION 6
'*******************************************************
TileList6=Array(25,8,26,21,36,2,11,22)
TileAnimIn6=Array(42,38,43,44,39,45,46,47)
TileAnimOut6=Array(42,38,43,44,39,45,46,47)
TileAnimLoop6=Array(42,38,43,44,39,45,46,47)
TileVal6=Array(5000,2500,5000,5000,2500,5000,5000,10000)
'*******************************************************
'PARAM ANIMATION 7
'*******************************************************
TileList7=Array(18,20,22,5,25,10,15,30)
TileAnimIn7=Array(47,37,45,41,48,49,50,51)
TileAnimOut7=Array(47,37,45,41,48,49,50,51)
TileAnimLoop7=Array(47,37,45,41,48,49,50,51)
TileVal7=Array(10000,2500,5000,2500,10000,10000,10000,10000)
'*******************************************************
'PARAM ANIMATION 8
'*******************************************************
TileList8=Array(14,27,20,17,28,23,26,29)
TileAnimIn8=Array(50,52,49,54,55,56,48,57)
TileAnimOut8=Array(50,52,49,54,55,56,48,57)
TileAnimLoop8=Array(50,52,49,54,55,56,48,57)
TileVal8=Array(10000,25000,10000,25000,25000,25000,10000,25000)

'*******************************************************



Dim tileHitCount

Sub ResetAllTile()
		whichTile=0
		tileHitCount=0
		Dim x
			for x=1 to 36
				Execute "t"&x& ".frame 1"
				Execute "tt"&x& ".collidable=false"
				Execute "tt"&x& ".render=false"
				Execute "tVal"&x& "=0"
			next
end sub

Dim theTileList

Sub InitTiles
		Dim x
Select Case theLevel
	case 1
			for x=0 to 7
				Execute "t"&TileList1(x)& ".frame 2,21,2"
			next
	case 2
			for x=0 to 7
				Execute "t"&TileList2(x)& ".frame 2,21,2"
			next
	case 3
			for x=0 to 7
				Execute "t"&TileList3(x)& ".frame 2,21,2"
			next
	case 4
			for x=0 to 7
				Execute "t"&TileList4(x)& ".frame 2,21,2"
			next
	case 5
			for x=0 to 7
				Execute "t"&TileList5(x)& ".frame 2,21,2"
			next
	case 6
			for x=0 to 7
				Execute "t"&TileList6(x)& ".frame 2,21,2"
			next
	case 7
			for x=0 to 7
				Execute "t"&TileList7(x)& ".frame 2,21,2"
			next
	case 8
			for x=0 to 7
				Execute "t"&TileList8(x)& ".frame 2,21,2"
			next
end select
end sub


Dim DelayDestroyTile




Sub FlipATile()
	ShowMessages(16)
	select case theLevel
		case 1 :
			Execute "t"  &TileList1(whichTile)& ".frame "&TileAnimIn1(whichTile)
			Execute "tt"  &TileList1(whichTile)& ".collidable=true"
			Execute "tVal"&TileList1(whichTile)& "="&TileVal1(whichTile)
			Execute "Timer"&TileList1(whichTile)& ".Set true ,DelayDestroyTile"
		case 2 :
			Execute "t"  &TileList2(whichTile)& ".frame "&TileAnimIn2(whichTile)
			Execute "tt"  &TileList2(whichTile)& ".collidable=true"
			Execute "tVal"&TileList2(whichTile)& "="&TileVal2(whichTile)
			Execute "Timer"&TileList2(whichTile)& ".Set true ,DelayDestroyTile"
		case 3 :
			Execute "t"  &TileList3(whichTile)& ".frame "&TileAnimIn3(whichTile)
			Execute "tt"  &TileList3(whichTile)& ".collidable=true"
			Execute "tVal"&TileList3(whichTile)& "="&TileVal3(whichTile)
			Execute "Timer"&TileList3(whichTile)& ".Set true ,DelayDestroyTile"
		case 4 :
			Execute "t"  &TileList4(whichTile)& ".frame "&TileAnimIn4(whichTile)
			Execute "tt"  &TileList4(whichTile)& ".collidable=true"
			Execute "tVal"&TileList4(whichTile)& "="&TileVal4(whichTile)
			Execute "Timer"&TileList4(whichTile)& ".Set true ,DelayDestroyTile"
		case 5 :
			Execute "t"  &TileList5(whichTile)& ".frame "&TileAnimIn5(whichTile)
			Execute "tt"  &TileList5(whichTile)& ".collidable=true"
			Execute "tVal"&TileList5(whichTile)& "="&TileVal5(whichTile)
			Execute "Timer"&TileList5(whichTile)& ".Set true ,DelayDestroyTile"
		case 6 :
			Execute "t"  &TileList6(whichTile)& ".frame "&TileAnimIn6(whichTile)
			Execute "tt"  &TileList6(whichTile)& ".collidable=true"
			Execute "tVal"&TileList6(whichTile)& "="&TileVal6(whichTile)
			Execute "Timer"&TileList6(whichTile)& ".Set true ,DelayDestroyTile"
		case 7 :
			Execute "t"  &TileList7(whichTile)& ".frame "&TileAnimIn7(whichTile)
			Execute "tt"  &TileList7(whichTile)& ".collidable=true"
			Execute "tVal"&TileList7(whichTile)& "="&TileVal7(whichTile)
			Execute "Timer"&TileList7(whichTile)& ".Set true ,DelayDestroyTile"
		case 8 :
			Execute "t"  &TileList8(whichTile)& ".frame "&TileAnimIn8(whichTile)
			Execute "tt"  &TileList8(whichTile)& ".collidable=true"
			Execute "tVal"&TileList8(whichTile)& "="&TileVal8(whichTile)
			Execute "Timer"&TileList8(whichTile)& ".Set true ,DelayDestroyTile"
		end select
			if whichTile<7 then
				whichTile=whichTile+1
			end if
end sub

'****************************************************
' CRITTERS ATTACK
'****************************************************

Sub resetAllCritters()
		Dim x
			for x= 1 to 36
				Execute "IsCritterTile"&x&"=false"
		next
			resetTimerCritters()
end sub

Sub resetTimerCritters()
		Dim t
			for t= 1 to 36
				Execute "Timer"&t&".Set false"
			next
end sub

Sub AnubisBlink()
		AnubisFlasher.State=bulbBlink : CrittersLight.State=bulbBlink : AnubisTopLight.State=bulbBlink
end sub

Dim whichTimer

Sub ProcessCrittersTiles()
			Execute "Timer" & whichTimer & ".Set false"
			Execute "t" & whichTimer & ".frame 84,162,143"
			Execute "tt" & whichTimer & ".collidable=false"
			Execute "IsCritterTile" & whichTimer & "=true"
end sub


Sub Timer1_expired()
			AnubisBlink() : whichTimer=1 : ProcessCrittersTiles
end sub

Sub Timer2_expired()
			AnubisBlink() : whichTimer=2 : ProcessCrittersTiles
end sub

Sub Timer3_expired()
			AnubisBlink() : whichTimer=3 : ProcessCrittersTiles
end sub

Sub Timer4_expired()
			AnubisBlink() : whichTimer=4 : ProcessCrittersTiles
end sub

Sub Timer5_expired()
			AnubisBlink() : whichTimer=5 : ProcessCrittersTiles
end sub

Sub Timer6_expired()
			AnubisBlink() : whichTimer=6 : ProcessCrittersTiles
end sub

Sub Timer7_expired()
			AnubisBlink() : whichTimer=7 : ProcessCrittersTiles
end sub

Sub Timer8_expired()
			AnubisBlink() : whichTimer=8 : ProcessCrittersTiles
end sub

Sub Timer9_expired()
			AnubisBlink() : whichTimer=9 : ProcessCrittersTiles
end sub

Sub Timer10_expired()
			AnubisBlink() : whichTimer=10 : ProcessCrittersTiles
end sub


Sub Timer11_expired()
			AnubisBlink() : whichTimer=11 : ProcessCrittersTiles
end sub

Sub Timer12_expired()
			AnubisBlink() : whichTimer=12 : ProcessCrittersTiles
end sub

Sub Timer13_expired()
			AnubisBlink() : whichTimer=13 : ProcessCrittersTiles
end sub

Sub Timer14_expired()
			AnubisBlink() : whichTimer=14 : ProcessCrittersTiles
end sub

Sub Timer15_expired()
			AnubisBlink() : whichTimer=15 : ProcessCrittersTiles
end sub

Sub Timer16_expired()
			AnubisBlink() : whichTimer=16 : ProcessCrittersTiles
end sub

Sub Timer17_expired()
			AnubisBlink() : whichTimer=17 : ProcessCrittersTiles
end sub

Sub Timer18_expired()
			AnubisBlink() : whichTimer=18 : ProcessCrittersTiles
end sub

Sub Timer19_expired()
			AnubisBlink() : whichTimer=19 : ProcessCrittersTiles
end sub

Sub Timer20_expired()
			AnubisBlink() : whichTimer=20 : ProcessCrittersTiles
end sub

Sub Timer21_expired()
			AnubisBlink() : whichTimer=21 : ProcessCrittersTiles
end sub

Sub Timer22_expired()
			AnubisBlink() : whichTimer=22 : ProcessCrittersTiles
end sub

Sub Timer23_expired()
			AnubisBlink() : whichTimer=23 : ProcessCrittersTiles
end sub

Sub Timer24_expired()
			AnubisBlink() : whichTimer=24 : ProcessCrittersTiles
end sub

Sub Timer25_expired()
			AnubisBlink() : whichTimer=25 : ProcessCrittersTiles
end sub

Sub Timer26_expired()
			AnubisBlink() : whichTimer=26 : ProcessCrittersTiles
end sub

Sub Timer27_expired()
			AnubisBlink() : whichTimer=27 : ProcessCrittersTiles
end sub

Sub Timer28_expired()
			AnubisBlink() : whichTimer=28 : ProcessCrittersTiles
end sub

Sub Timer29_expired()
			AnubisBlink() : whichTimer=29 : ProcessCrittersTiles
end sub

Sub Timer30_expired()
			AnubisBlink() : whichTimer=30 : ProcessCrittersTiles
end sub

Sub Timer31_expired()
			AnubisBlink() : whichTimer=31 : ProcessCrittersTiles
end sub

Sub Timer32_expired()
			AnubisBlink() : whichTimer=32 : ProcessCrittersTiles
end sub

Sub Timer33_expired()
			AnubisBlink() : whichTimer=33 : ProcessCrittersTiles
end sub

Sub Timer34_expired()
			AnubisBlink() : whichTimer=34 : ProcessCrittersTiles
end sub

Sub Timer35_expired()
			AnubisBlink() : whichTimer=35 : ProcessCrittersTiles
end sub

Sub Timer36_expired()
			AnubisBlink() : whichTimer=36 : ProcessCrittersTiles
end sub

'****************************************************
'****************************************************

Sub checkHowManyTileLeft()
			PlaySound"rockdebris", 0.6
			winSFX()
			tileHitCount=tileHitCount+1
			resetTimerCritters()
		if tileHitCount=8 then
			ResetAllTile()
			resetAllCritters()
			DisengageScarabTargets()
			checkRunestone()
		end if
end sub

Dim whichIsHit,ValueToShow

Sub ProcessWhichIsHit()
		EventLight(1500)
		Execute "t" & whichIsHit & ".frame 58,83"
		Execute "Timer" & whichIsHit & ".Set false"
		Execute "tt" & whichIsHit & ".collidable=false"
		Execute "tt" & whichIsHit & ".render=false"
		Execute "AddScore(tVal" & whichIsHit & "*theMultiplier)"
		Execute "ValueToShow=(tVal" & whichIsHit & "*theMultiplier)"
		checkHowManyTileLeft()
		ShowMessages(18)
end sub

Sub tt1_hit()
		whichIsHit=1 : ProcessWhichIsHit()
end sub

Sub tt2_hit()
		whichIsHit=2 : ProcessWhichIsHit()
end sub

Sub tt3_hit()
		whichIsHit=3 : ProcessWhichIsHit()
end sub

Sub tt4_hit()
		whichIsHit=4 : ProcessWhichIsHit()
end sub

Sub tt5_hit()
		whichIsHit=5 : ProcessWhichIsHit()
end sub

Sub tt6_hit()
		whichIsHit=6 : ProcessWhichIsHit()
end sub

Sub tt7_hit()
		whichIsHit=7 : ProcessWhichIsHit()
end sub

Sub tt8_hit()
		whichIsHit=8 : ProcessWhichIsHit()
end sub

Sub tt9_hit()
		whichIsHit=9 : ProcessWhichIsHit()
end sub

Sub tt10_hit()
		whichIsHit=10 : ProcessWhichIsHit()
end sub

Sub tt11_hit()
		whichIsHit=11 : ProcessWhichIsHit()
end sub

Sub tt12_hit()
		whichIsHit=12 : ProcessWhichIsHit()
end sub

Sub tt13_hit()
		whichIsHit=13 : ProcessWhichIsHit()
end sub

Sub tt14_hit()
		whichIsHit=14 : ProcessWhichIsHit()
end sub

Sub tt15_hit()
		whichIsHit=15 : ProcessWhichIsHit()
end sub

Sub tt16_hit()
		whichIsHit=16 : ProcessWhichIsHit()
end sub

Sub tt17_hit()
		whichIsHit=17 : ProcessWhichIsHit()
end sub

Sub tt18_hit()
		whichIsHit=18 : ProcessWhichIsHit()
end sub

Sub tt19_hit()
		whichIsHit=19 : ProcessWhichIsHit()
end sub

Sub tt20_hit()
		whichIsHit=20 : ProcessWhichIsHit()
end sub

Sub tt21_hit()
		whichIsHit=21 : ProcessWhichIsHit()
end sub

Sub tt22_hit()
		whichIsHit=22 : ProcessWhichIsHit()
end sub

Sub tt23_hit()
		whichIsHit=23 : ProcessWhichIsHit()
end sub

Sub tt24_hit()
		whichIsHit=24 : ProcessWhichIsHit()
end sub

Sub tt25_hit()
		whichIsHit=25 : ProcessWhichIsHit()
end sub

Sub tt26_hit()
		whichIsHit=26 : ProcessWhichIsHit()
end sub

Sub tt27_hit()
		whichIsHit=27 : ProcessWhichIsHit()
end sub

Sub tt28_hit()
		whichIsHit=28 : ProcessWhichIsHit()
end sub

Sub tt29_hit()
		whichIsHit=29 : ProcessWhichIsHit()
end sub

Sub tt30_hit()
		whichIsHit=30 : ProcessWhichIsHit()
end sub

Sub tt31_hit()
		whichIsHit=31 : ProcessWhichIsHit()
end sub

Sub tt32_hit()
		whichIsHit=32 : ProcessWhichIsHit()
end sub

Sub tt33_hit()
		whichIsHit=33 : ProcessWhichIsHit()
end sub

Sub tt34_hit()
		whichIsHit=34 : ProcessWhichIsHit()
end sub

Sub tt35_hit()
		whichIsHit=35 : ProcessWhichIsHit()
end sub

Sub tt36_hit()
		whichIsHit=36 : ProcessWhichIsHit()
end sub


'****************************************************
'****************************************************
' IT ME WITH YOUR BEST SHOCK
'****************************************************
Dim shockMeInc

Sub ShockIt_expired()
		if shockMeInc<25 then
			shockMeInc=shockMeInc+1
			orb.AngleXZ =RandomNumber(350)
			orb.AngleYZ =RandomNumber(350)
			orb.AngleXY =RandomNumber(350)
			ShockIt.Set true,50
		else
			shockMeInc=0
			ShockIt.Set false
			orb.Ty=-200
		end if
end sub


Dim orbPos

Sub OrbPosition(orbPos)
Select case orbPos
		case 4 : orb.Tx=167.62 : orb.Ty=60 : orb.Tz=102.66 : 'horusOrb
		case 1 : orb.Tx=-218.87 : orb.Ty=60 : orb.Tz=43.66 : 'sobekOrb
		case 3 : orb.Tx=33.62 : orb.Ty=90 : orb.Tz=-249.83 : 'AnubisOrb
		case 2 : orb.Tx=-107.87 : orb.Ty=60 : orb.Tz=-98.83 : 'KhnumOrb
		end select
				ShockIt.Set true,50
end sub

'****************************************************
' OH MY GODS
'****************************************************
Sub ResetGODS()
		GLight.State=bulbOff
		OLight.State=bulbOff
		DLight.State=bulbOff
		SLight.State=bulbOff
end sub

Sub GTrig_Hit()
	AddScore(250*theMultiplier)
	GLight.State=bulbOn
	CheckGODS()
	if GLight.State=bulbOff then
		ShowMessages(6)
	end if
end sub

Sub OTrig_Hit()
	if 	OLight.State=bulbOff then
		ShowMessages(7)
	end if
	AddScore(250*theMultiplier)
	OLight.State=bulbOn
	CheckGODS()
end sub

Sub DTrig_Hit()
	if DLight.State=bulbOff then
		ShowMessages(8)
	end if
	AddScore(250*theMultiplier)
	DLight.State=bulbOn
	CheckGODS()
end sub

Sub STrig_Hit()
		if 	SLight.State=bulbOff then
			ShowMessages(9)
		end if
	AddScore(250*theMultiplier)
	SLight.State=bulbOn
	CheckGODS()
end sub

Sub CheckGODS()
		PlaySound "click", 1
		if 	GLight.State=bulbOn and OLight.State=bulbOn and DLight.State=bulbOn and SLight.State=bulbOn then
			processGODS.Set true ,2000
			stingerSFX()
			GLight.State=bulbBlink
			OLight.State=bulbBlink
			DLight.State=bulbBlink
			SLight.State=bulbBlink
		end if
end sub


Sub processGODS_expired()
		processGODS.Set false
		AddScore(5000*theMultiplier)
		ShowMessages(10)
		ResetGODS()
end sub


'****************************************************
' BACK FROM DEAD
'****************************************************
Dim leftFlipperOn,rightFlipperOn









Dim BFDAvail

Sub ProcessLightBackFromDead()
		AddScore(25*theMultiplier)
	select case BFDAvail
		case 0 : BFDLight1.State=bulbOff : BFDLight2.State=bulbOff : BFDLight3.State=bulbOff : BFDLight4.State=bulbOff : BFDLight5.State=bulbOff
		case 1 : BFDLight1.State=bulbOn : BFDLight2.State=bulbOff : BFDLight3.State=bulbOff : BFDLight4.State=bulbOff : BFDLight5.State=bulbOff
		case 2 : BFDLight1.State=bulbOn : BFDLight2.State=bulbOn : BFDLight3.State=bulbOff : BFDLight4.State=bulbOff : BFDLight5.State=bulbOff
		case 3 : BFDLight1.State=bulbOn : BFDLight2.State=bulbOn : BFDLight3.State=bulbOn : BFDLight4.State=bulbOff : BFDLight5.State=bulbOff
		case 4 : BFDLight1.State=bulbOn : BFDLight2.State=bulbOn : BFDLight3.State=bulbOn : BFDLight4.State=bulbOn : BFDLight5.State=bulbOff
		case 5 : BFDLight1.State=bulbOn : BFDLight2.State=bulbOn : BFDLight3.State=bulbOn : BFDLight4.State=bulbOn : BFDLight5.State=bulbOn
	end select
end sub