Scriptname aaUCTimeTransmuterScript extends ObjectReference
{Script for the Time Transmuter}

GlobalVariable property TimeScale auto
Sound property QSTDwemerGong01 auto

Message property aaUCTransmuterMsg auto
{Points to the message box that is shown on activation}

Event OnActivate(ObjectReference akActivator)
  
	Int iButton = aaUCTransmuterMsg.Show()

        	If (iButton == 0) ; TimeScale != 30
                	TimeScale.SetValue(30)
			DeBug.MessageBox("Timescale set to 30")
			QSTDwemerGong01.Play(Self)
       	 	ElseIf (iButton == 1) ; TimeScale != 20
                	TimeScale.SetValue(20)
			DeBug.MessageBox("Timescale set to 20")
			QSTDwemerGong01.Play(Self)
       	 	ElseIf (iButton == 2) ; TimeScale != 10
                	TimeScale.SetValue(10)
			DeBug.MessageBox("Timescale set to 10")
			QSTDwemerGong01.Play(Self)
        	ElseIf (iButton == 3) ; TimeScale != 5
                	TimeScale.SetValue(5)
			DeBug.MessageBox("Timescale set to 5")
			QSTDwemerGong01.Play(Self)
		ElseIf (iButton == 4)
			Return 
        	EndIf

endEvent