home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 103 / CD_Gamer_Issue_103_Disc_1_PCG103A1201_December_2001.iso / util.dxr / 00009_StartMovie.ls < prev    next >
Encoding:
Text File  |  2001-10-02  |  3.8 KB  |  85 lines
  1. on startMovie
  2.   put the long date into member "TodaysDate"
  3.   issue124Day = date(20010620)
  4.   issue125Day = date(20010717)
  5.   issue126Day = date(20010813)
  6.   issue127Day = date(20010910)
  7.   issue128Day = date(20011005)
  8.   issue129Day = date(20011101)
  9.   issue130Day = date(20011128)
  10.   issue131Day = date(20011228)
  11.   issue132Day = date(20020130)
  12.   today = the systemDate
  13.   if today < issue124Day then
  14.     put "..." && abs(today - issue124Day) && "days to the next issue of PC Gamer." into member "Date counter"
  15.     put "June on sale now." into member "Currentissue"
  16.   end if
  17.   if today >= issue124Day then
  18.     put "..." && abs(today - issue125Day) && "days to the next issue of PC Gamer." into member "Date counter"
  19.     put "July issue on sale now." into member "Currentissue"
  20.   end if
  21.   if today = issue124Day then
  22.     put "..." && abs(1) && "day to the next issue of PC Gamer." into member "Date counter"
  23.     put "July issue on sale now." into member "Currentissue"
  24.   end if
  25.   if today >= issue125Day then
  26.     put "..." && abs(today - issue126Day) && "days to the next issue of PC Gamer." into member "Date counter"
  27.     put "Aug issue on sale now." into member "Currentissue"
  28.   end if
  29.   if today = (issue125Day - 1) then
  30.     put "..." && abs(1) && "day to the next issue of PC Gamer." into member "Date counter"
  31.     put "July issue on sale now." into member "Currentissue"
  32.   end if
  33.   if today >= issue126Day then
  34.     put "..." && abs(today - issue127Day) && "days to the next issue of PC Gamer." into member "Date counter"
  35.     put "Sept issue on sale now." into member "Currentissue"
  36.   end if
  37.   if today = (issue126Day - 1) then
  38.     put "..." && abs(1) && "day to the next issue of PC Gamer." into member "Date counter"
  39.     put "Aug issue on sale now." into member "Currentissue"
  40.   end if
  41.   if today >= issue127Day then
  42.     put "..." && abs(today - issue128Day) && "days to the next issue of PC Gamer." into member "Date counter"
  43.     put "Oct issue on sale now." into member "Currentissue"
  44.   end if
  45.   if today = (issue127Day - 1) then
  46.     put "..." && abs(1) && "day to the next issue of PC Gamer." into member "Date counter"
  47.     put "Sept issue on sale now." into member "Currentissue"
  48.   end if
  49.   if today >= issue128Day then
  50.     put "..." && abs(today - issue129Day) && "days to the next issue of PC Gamer." into member "Date counter"
  51.     put "Nov issue on sale now." into member "Currentissue"
  52.   end if
  53.   if today = (issue128Day - 1) then
  54.     put "..." && abs(1) && "day to the next issue of PC Gamer." into member "Date counter"
  55.     put "Oct issue on sale now." into member "Currentissue"
  56.   end if
  57.   if today >= issue129Day then
  58.     put "..." && abs(today - issue130Day) && "days to the next issue of PC Gamer." into member "Date counter"
  59.     put "Dec issue on sale now." into member "Currentissue"
  60.   end if
  61.   if today = (issue129Day - 1) then
  62.     put "..." && abs(1) && "day to the next issue of PC Gamer." into member "Date counter"
  63.     put "Nov issue on sale now." into member "Currentissue"
  64.   end if
  65.   if today >= issue130Day then
  66.     sprite(20).locH = 609
  67.     put "..." && abs(today - issue131Day) && "days to the next issue of PC Gamer." into member "Date counter"
  68.     put "Christmas issue on sale now." into member "Currentissue"
  69.   end if
  70.   if today = (issue130Day - 1) then
  71.     put "..." && abs(1) && "day to the next issue of PC Gamer." into member "Date counter"
  72.     put "Dec issue on sale now." into member "Currentissue"
  73.   end if
  74.   if today >= issue131Day then
  75.     put "..." && abs(today - issue132Day) && "days to the next issue of PC Gamer." into member "Date counter"
  76.     sprite(20).locH = 639
  77.     put "Jan issue on sale now." into member "Currentissue"
  78.   end if
  79.   if today = (issue131Day - 1) then
  80.     put "..." && abs(1) && "day to the next issue of PC Gamer." into member "Date counter"
  81.     sprite(20).locH = 609
  82.     put "Christmas issue on sale now." into member "Currentissue"
  83.   end if
  84. end
  85.