home *** CD-ROM | disk | FTP | other *** search
/ JuniorNet Sample Games / treefrog.exe / bookend.dcr / 00002_movieScripts.ls < prev    next >
Encoding:
Text File  |  2000-01-01  |  1.2 KB  |  53 lines
  1. global gActivityClicked, gContentClicked, gActivityList, gSpriteList, gPlaybackType, gDownloadObject, gPlayerGlobals, gJNWebSite, gPlayAgain, gMessageObject, gMoaType, gGamePlayed, gNetTestID, gNoConnection, gTestStartTime, gSelectedActivityCode
  2.  
  3. on startMovie
  4.   code = member("Activity Code Init").text
  5.   gActivityClicked = [#Icon: code]
  6.   gSelectedActivityCode = code
  7.   gPlaybackType = #exe
  8.   if voidp(gGamePlayed) then
  9.     go("intro")
  10.     gNetTestID = getNetText("http://www.juniornet.com")
  11.     gNoConnection = 1
  12.     gTestStartTime = the milliSeconds
  13.   else
  14.     go("extro")
  15.   end if
  16. end
  17.  
  18. on stopMovie
  19.   global gDownloadObject
  20.   gDownloadObject = VOID
  21.   if the runMode = "Author" then
  22.     Extension = ".cst"
  23.   else
  24.     Extension = ".cct"
  25.   end if
  26. end
  27.  
  28. on DownloadDone
  29.   go("ready")
  30. end
  31.  
  32. on convertlisttotext targetList
  33.   textList = EMPTY
  34.   repeat with record in targetList
  35.     textList = textList & record & RETURN
  36.   end repeat
  37.   return textList
  38. end
  39.  
  40. on convertTextToList textList
  41.   foundAll = 0
  42.   repeat while foundAll = 0
  43.     currentChar = offset(RETURN, textList)
  44.     if currentChar = 0 then
  45.       foundAll = 1
  46.       next repeat
  47.     end if
  48.     delete textList.char[currentChar]
  49.   end repeat
  50.   newList = value(textList)
  51.   return newList
  52. end
  53.