home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003: The Beautiful Scenery / enter-parhaat-2003.iso / files / Sketchy.exe / Sled.dcr / 00130_b_ChooseBanner.ls < prev    next >
Encoding:
Text File  |  2002-12-31  |  999 b   |  33 lines
  1. global gBannerDisplay, gClientAdURL
  2.  
  3. on prepareFrame me
  4.   theMonth = (the systemDate).month
  5.   theDay = (the systemDate).day
  6.   theYear = (the systemDate).year
  7.   dateIndex = (theYear * 10000) + (theMonth * 100) + theDay
  8.   if dateIndex <= 20030307 then
  9.     gBannerDisplay = "Giveaway"
  10.     gClientAdURL = "http://nokia.kewlbox.com/offer.cfm?sketchy"
  11.   else
  12.     gBannerDisplay = "Default"
  13.     gClientAdURL = "http://www.nokiausa.com"
  14.   end if
  15.   case gBannerDisplay of
  16.     "Default":
  17.       sprite(12).loc = point(87, 35)
  18.       sprite(13).loc = point(79, 152)
  19.       sprite(14).loc = point(5, 250)
  20.       sprite(15).loc = point(86, 315)
  21.       sprite(16).loc = point(87, 359)
  22.     "Giveaway":
  23.       sprite(12).member = "AdTitle2"
  24.       sprite(13).member = "Phone2"
  25.       sprite(14).member = "t_ClientAd2"
  26.       sprite(12).loc = point(85, 57)
  27.       sprite(13).loc = point(87, 185)
  28.       sprite(14).loc = point(5, 270)
  29.       sprite(15).loc = point(-200, 315)
  30.       sprite(16).loc = point(87, 359)
  31.   end case
  32. end
  33.