home *** CD-ROM | disk | FTP | other *** search
/ 3D World 113 / 3DW_113.iso / pc / Menu / Scenes / home.dir / Internal_32_banner_handler.ls < prev    next >
Encoding:
Text File  |  2008-09-12  |  1.3 KB  |  58 lines
  1. property infoFile, holdTime, bImage, bURL, infoLength, spriteNum, Sp, Clock, BannerLine, BannerTime, displayMem
  2. global gRootPath, gDiv
  3.  
  4. on beginSprite me
  5.   displayMem = new(#animGif)
  6.   displayMem.name = "stub_image_holder"
  7.   BannerTime = 300
  8.   BannerLine = 1
  9.   Sp = sprite(me.spriteNum)
  10.   Sp.member = displayMem
  11.   theNetID = getNetText(gRootPath & "MENU" & gDiv & "banners" & gDiv & "BannerList.txt")
  12.   if netDone(theNetID) then
  13.     member("bList").text = netTextResult(theNetID)
  14.   end if
  15.   infoLength = member("bList").line.count
  16.   setDefaultBanner()
  17. end
  18.  
  19. on setDefaultBanner
  20.   bImage = line 1 of the text of member "bList"
  21.   bURL = line 2 of the text of member "bList"
  22.   RotateBanner()
  23. end
  24.  
  25. on RotateBanner me
  26.   imageLoc = gRootPath & "menu" & gDiv & "banners" & gDiv & bImage
  27.   put imageLoc
  28.   displayMem.linked = 1
  29.   displayMem.fileName = imageLoc
  30.   displayMem.name = "stub_image_holder"
  31.   Clock = 0
  32. end
  33.  
  34. on mouseEnter me
  35.   cursor(280)
  36. end
  37.  
  38. on mouseLeave me
  39.   cursor(-1)
  40. end
  41.  
  42. on mouseUp me
  43.   gotoNetPage(bURL, bURL)
  44. end
  45.  
  46. on exitFrame me
  47.   Clock = Clock + 1
  48.   if Clock >= BannerTime then
  49.     BannerLine = BannerLine + 2
  50.     if line BannerLine of the text of member "bList" = EMPTY then
  51.       BannerLine = 1
  52.     end if
  53.     bImage = line BannerLine of the text of member "bList"
  54.     bURL = line BannerLine + 1 of the text of member "bList"
  55.     RotateBanner()
  56.   end if
  57. end
  58.