home *** CD-ROM | disk | FTP | other *** search
/ 3D World 111 / 3DW_111.iso / pc / Menu / Scenes / home.dir / 00032_Script_banner_handler < prev    next >
Text File  |  2008-09-12  |  2KB  |  122 lines
  1. global gRootPath
  2. global gDiv
  3. property infoFile
  4. property holdTime
  5. property bImage
  6. property bURL
  7. property infoLength
  8. property spritenum
  9. property Sp
  10. property Clock
  11. property BannerLine
  12. property BannerTime
  13. property displayMem
  14.  
  15. on beginsprite me
  16.   displayMem = new(#animgif)
  17.   displayMem.name = "stub_image_holder"
  18.   
  19.   BannerTime = 300
  20.   
  21.   BannerLine = 1
  22.   Sp = sprite(me.spritenum)
  23.   
  24.   Sp.member = DisplayMem
  25.   
  26.   --  member("stub_image_holder").type = #animgif
  27.   
  28.   --  theNetID = getNetText (gRootPath & divi & "menu" & divi & "banners" & divi & "BannerList.txt")
  29.   theNetID = getNetText (gRootPath & "MENU" & gDiv & "banners" & gDiv & "BannerList.txt")
  30.   
  31.   
  32.   
  33.   if netDone(theNetID) then
  34.     member("bList").text = netTextResult(theNetID)
  35.   end if
  36.   
  37.   infoLength = member("bList").line.count
  38.   
  39.   --  put infoLength
  40.   
  41.   setDefaultBanner
  42.   
  43. end
  44.  
  45.  
  46. on setDefaultBanner
  47.   
  48.   bImage = line(1) of member("bList").text
  49.   bURL = line(2) of member("bList").text
  50.   
  51.   --  put bImage
  52.   --  put bURL
  53.   
  54.   RotateBanner
  55.   
  56. end
  57.  
  58. on RotateBanner me
  59.   
  60.   --  member(2).erase()
  61.   
  62.   
  63.   imageLoc = gRootPath & "menu" & gDiv & "banners" & gDiv & bImage
  64.   
  65.   put imageLoc
  66.   
  67.   displayMem.linked = 1
  68.   
  69.   displayMem.filename = imageLoc
  70.   
  71.   
  72.   displaymem.name = "stub_image_holder"
  73.   
  74.   Clock = 0
  75.   
  76. end
  77.  
  78. on mouseEnter me
  79.   cursor 280
  80. end
  81.  
  82. on mouseLeave me
  83.   cursor -1
  84. end
  85.  
  86.  
  87. on mouseup me
  88.   gotonetpage(bURL, bURL)
  89.   
  90. end
  91.  
  92. on Exitframe me
  93.   Clock = Clock + 1
  94.   
  95.   if Clock >= BannerTime then
  96.     bannerline = bannerLine +2
  97.     
  98.     if line(BannerLine) of member("bList").text = "" then
  99.       bannerLine = 1
  100.     end if
  101.  
  102.     
  103.     bImage = line(BannerLine) of member("bList").text
  104.     bURL = line(BannerLine +1) of member("bList").text
  105.     
  106.     rotateBanner
  107.     
  108.   end if
  109.   
  110. end
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.