Car Screensaver - Toyota/TOYOTA.iso/mjparty/no1_demo/dnorp00.dxr/script_22.ls

Text File | 1996-10-31 | 344 b | 24 lines

on exitFrame
  repeat while soundBusy(1)
    if the timer > 5 then
      movehs()
    end if
    if the mouseDown then
      exith()
    end if
  end repeat
end

on movehs
  global gtime1
  if gtime1 = 24 then
    set gtime1 to 1
  else
    set gtime1 to gtime1 + 1
  end if
  if (gtime1 mod 12) = 0 then
    curh()
  end if
  startTimer()
end