home *** CD-ROM | disk | FTP | other *** search
/ 404 Jogos / CLJG.iso / Acao / Doubleshotz / Doubleshotz.dcr / Internal_6_LOAD.ls < prev    next >
Encoding:
Text File  |  2007-09-27  |  1.1 KB  |  35 lines
  1. property spriteNum, myLoadProg, pHasFinished, adtimer
  2. global myStreamState, myBytesLoaded, myBytesTotal, gRunMode, PREPMODE, SndC_Music, gCarName
  3.  
  4. on beginSprite me
  5.   myLoadProg = 0
  6.   adtimer = 0
  7.   pHasFinished = 0
  8. end
  9.  
  10. on exitFrame me
  11.   if pHasFinished = 0 then
  12.     if (myStreamState = "Complete") or (myStreamState = VOID) or (gRunMode = "Author") then
  13.       myLoadProg = min(100, myLoadProg + 5)
  14.     else
  15.       dirBytesLoaded = max(0, myBytesLoaded)
  16.       dirBytesTotal = max(0.001, myBytesTotal)
  17.       dirBytesPercent = float(dirBytesLoaded) / float(dirBytesTotal) * 100
  18.       myLoadProg = min(dirBytesPercent, myLoadProg + 5)
  19.     end if
  20.     sprite(spriteNum).setVariable("loadstatus", string(min(100, integer(myLoadProg)) & "%"))
  21.     sprite(spriteNum).setFlashProperty("bar", #scaleX, min(100, integer(myLoadProg)))
  22.     if myLoadProg >= 100 then
  23.       pHasFinished = 1
  24.       PREPMODE = 1
  25.       adtimer = the ticks + (60 * 5)
  26.     end if
  27.   else
  28.     if the ticks >= adtimer then
  29.       member("Snd_Music_main").loop = 1
  30.       SndC_Music.play(member("Snd_Music_main"))
  31.       go("MAIN")
  32.     end if
  33.   end if
  34. end
  35.