home *** CD-ROM | disk | FTP | other *** search
/ FHM 100 Bombázó Ajándék CD / fhm_hu_1997.iso / fhm_scr.exe / fhm_scr.dxr / 00084.ls < prev    next >
Encoding:
Text File  |  2001-03-13  |  737 b   |  26 lines
  1. on prepareMovie
  2.   global ev, honap, nap, arrow_x, arrow_pos, csik_pos, yBase, xBase, step, currStep, Xpos, Ypos
  3.   clearGlobals()
  4.   set the exitLock to 1
  5.   kkY = getAt((the deskTopRectList)[1], 4)
  6.   if kkY < 600 then
  7.     go("error")
  8.   end if
  9.   if the colorDepth = 8 then
  10.     go("error")
  11.   end if
  12.   set_date()
  13.   init_honap()
  14.   naplist = "0,15,30,45,59,75,90,105,120,140,160,183,205,227,249,271,293,315,337,359,381,403,425,447,469,491,513,535,557,579,601"
  15.   arrow_x = 538 + value(item value(nap) of naplist)
  16.   arrow_pos = 100
  17.   megjeleneslist = "621,555,709,643,599,687,643,731,665,621,709,511"
  18.   csik_pos = value(item value(honap) of megjeleneslist)
  19.   xBase = 50
  20.   yBase = 0
  21.   Xpos = csik_pos
  22.   Ypos = 536
  23.   step = 0.13
  24.   currStep = 0
  25. end
  26.