home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1997 December / macgaichiban199712.bin / MOVIES / SCHEDULE.DXR / 00113.ls < prev    next >
Encoding:
Text File  |  1997-10-06  |  430 b   |  20 lines
  1. global gmonthcnt, gmonthday
  2.  
  3. on startMovie
  4.   puppetspon(47, 48)
  5.   set gmonthcnt to 1
  6.   set gmonthday to 30
  7. end
  8.  
  9. on dayclick
  10.   set mych to clickOn()
  11.   puppetSound("click")
  12.   updateStage()
  13.   set day to mych - 10
  14.   set daymnum to day + 7 + ((gmonthcnt - 1) * gmonthday)
  15.   set daytext to day + 47 + ((gmonthcnt - 1) * gmonthday)
  16.   notupdateplace(47, daymnum, 0, 320, 240)
  17.   notupdateplace(48, daytext, 0, 365, 89)
  18.   updateStage()
  19. end
  20.