ساعة حائط ملونة

  <script>
Dim a
Dim min1
Dim hr1
Dim sec1
'Initializes clock and tells it how to behave, when to start animation, etc
Sub window_onload
 a = time
 min1 = minute(time)
 hr1 = hour(time)
 if hr1 > 12 then
  hr1 = hr1 - 12
 end if
 sec1 = second(time)
 call sgSecondHand.Rotate(0,0,sec1*6 - 90)
 call sgMinuteHand.Rotate(0,0,min1*6 - 90)
 call sgHourHand.Rotate(0,0,hr1*360/12 - 90)
 call seq("Time").Play
end Sub

'Sequencer initilization
Sub Seq_OnInit
 Call seq("Time").at(0.000, "SecRot", -1, 1.000, 1)
 Call seq("Time").at(60.000, "MinRot", -1, 60.000, 1)
 Call seq("Time").at(0.000, "HourRot", -1, 1800.000, 1)
End Sub
'rotates second hand of clock
Sub SecRot
 Call sgSecondHand.Rotate(0,0,6)
End Sub
' rotates minute hand of clock
Sub MinRot
 Call sgMinuteHand.Rotate(0,0,6)
End Sub
' rotates hour hand of clock
Sub HourRot
 Call sgHourHand.Rotate(0,0,15)
End Sub

</script>
<This>
<div id="MASTERLAYOUT">
<Div>
<div id="divTimeText">
<br>
<br>
<br>
<p>
<font face="Verdana,Tahoma,Arial" size="5" color="YELLOW">
<BR>
<BR>
</font>
</p>
<Object>
<OBJECT>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
</OBJECT>
</div>
<Creates>
<OBJECT>
    <PARAM>
    <PARAM>
    <PARAM>
    <PARAM>
    <PARAM>
</OBJECT>
<div id="divClock">
<Object>
<OBJECT>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
</OBJECT>
<Object>
<OBJECT>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
</OBJECT>
<Object>
<OBJECT>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
 <PARAM>
</OBJECT>
</div>
</div>
<Sequencer>
<OBJECT>
</OBJECT>