home *** CD-ROM | disk | FTP | other *** search
/ Stickerpedia Stickerbook / Stickerbook.iso / pc / DATA / main.dxr / 00001_Script_1 next >
Text File  |  2003-03-24  |  5KB  |  215 lines
  1. --\
  2. main
  3.  
  4.  
  5. global  gPasswordDinos
  6. global  gPasswordAnimals
  7. global  gPasswordOceans
  8. global  gCastLibs
  9. global  gWhichCD
  10. global  gDontReact
  11. global  gImageList
  12. global  oMarvin
  13. global  gPathDelim
  14. global  gCurImagePath
  15. global  gCurImageName
  16. global  gImportMember
  17. global  gImageMode
  18.  
  19.  
  20.  
  21.  
  22. on prepareMovie
  23.   cleartextMembers
  24.   gImportMember          =  member ("placeholder", "Internal")
  25. end
  26.  
  27.  
  28.  
  29.  
  30.  
  31. on stopMovie
  32.   cleartextMembers
  33. end
  34.  
  35.  
  36. on cleartextMembers
  37.   member("password").text = ""
  38.   member("imageID").text = ""
  39.   
  40. end
  41.  
  42.  
  43.  
  44. on checkPassword 
  45.   retVal     = "error"
  46.   gDontReact = 1
  47.   
  48.   if (member("password").text = gPasswordDinos ) then 
  49.     gWhichCD   = "dinos"
  50.     gDontReact = 0
  51.     retVal     = "ok"   
  52.   else  if (member("password").text = gPasswordAnimals ) then 
  53.     gWhichCD   = "animals"
  54.     gDontReact = 0
  55.     retVal     = "ok"       
  56.   else  if (member("password").text = gPasswordOceans ) then 
  57.     gWhichCD   = "oceans"
  58.     gDontReact = 0
  59.     retVal     = "ok"   
  60.     
  61.   else  if (member("password").text = "goilheimer" ) then 
  62.     retVal     = "goilheimer" 
  63.     gDontReact = 0
  64.   else
  65.     gDontReact = 1
  66.     
  67.   end if
  68.   if retVal = "ok" then
  69.     setPreferences
  70.   end if
  71.   return retVal
  72. end
  73.  
  74.  
  75.  
  76.  
  77. on wrongPassword
  78.   sendallSprites #showPWalert  
  79.   member("password").text = ""
  80.   gDontReact = 1
  81. end
  82.  
  83.  
  84.  
  85. on wrongimageID
  86.   sendallSprites #showImageAlert  
  87.   member("imageID").text = ""
  88.   gDontReact = 1
  89. end
  90.  
  91.  
  92.  
  93.  
  94. on checkImage
  95.   
  96.   retVal = "error"
  97.   
  98.   imageName = eliminateSpaces (oMarvin, (member("imageID").text))
  99.   numberOfChars = imageName.length
  100.   
  101.   -- take apart into its constituent parts:
  102.   theLetter    = imageName.char[1]
  103.   if not ("aod" contains theLetter) then
  104.     theLetter    = gWhichCD.char[1]
  105.     theNumber    = chars(imageName, 1, numberOfChars)
  106.   else
  107.     if theLetter <> gWhichCD.char[1] then
  108.       return retVal
  109.       exit  
  110.     end if
  111.     theNumber    = chars(imageName, 2, numberOfChars) 
  112.   end if
  113.   
  114.   
  115.   if gImageMode = #looseOnCD then
  116.     --try several options, in case input has been nitwittish
  117.     differentNameOptions = [(theLetter & theNumber & ".jpg"), (theLetter & theNumber & ".JPG"), ((switchCapitalLowerCase (oMarvin,theLetter)) & theNumber & ".jpg"), ((switchCapitalLowerCase (oMarvin,theLetter)) & theNumber & ".JPG")]
  118.     
  119.     repeat with n in differentNameOptions
  120.       if getOne(gImageList, n) then
  121.         retVal = n
  122.         exit repeat
  123.       end if
  124.     end repeat
  125.     
  126.   else if gImageMode = #inCast then
  127.     
  128.     differentNameOptions = [(theLetter & theNumber), ((switchCapitalLowerCase (oMarvin,theLetter)) & theNumber)]
  129.     
  130.     repeat with n in differentNameOptions
  131.       if getOne(gImageList, n) then
  132.         retVal = n
  133.         exit repeat
  134.       end if
  135.     end repeat
  136.     
  137.   end if
  138.   
  139.   member("imageID").text = ""
  140.   put "retVal" && retVal
  141.   return retVal
  142.   
  143. end
  144.  
  145.  
  146.  
  147. on showImage imageName
  148.   
  149.   gCurImageName = imageName
  150.   
  151.   if gImageMode = #looseOnCD then
  152.     gCurImagePath = the pathname & "images" & gPathDelim & gWhichCD & gPathDelim
  153.     importFileInto member("placeholder"), (gCurImagePath & gCurImageName)
  154.     gImportMember.name = "placeholder"
  155.   else
  156.     
  157.     sendAllSprites #setSelectedImage(gCurImageName)
  158.   end if
  159.   
  160.   member("gCurImage").text = imageName
  161.   member("imageID").text = imageName
  162.   
  163.   sendAllSprites #showImage
  164. end
  165.  
  166.  
  167.  
  168. on copyImage
  169.   set theDestination = baGetFolder( "c:\", "Please select a destination for the image,", 1, gWhichCD, -1, 0 )
  170.   -- put (theDestination & gCurImageName)
  171.   if (theDestination <> "") and (theDestination <> VOID) then
  172.     baCopyFile((gCurImagePath&gCurImageName), (theDestination & gCurImageName), "IfNewer")
  173.   end if
  174. end
  175.  
  176.  
  177.  
  178. on printImage
  179.   if gImageMode = #looseOnCD then
  180.     print gImportMember
  181.   else
  182.     print member(gCurImageName, "images")
  183.   end if
  184. end
  185.  
  186.  
  187.  
  188. on switchImage direction
  189.   
  190.   theNumber = gCurImageName
  191.   theLetter = theNumber.char[1]
  192.   delete theNumber.char[1]
  193.   theNumber = integer(theNumber)
  194.   
  195.   if not integerP(theNumber) then exit
  196.   newImageIname = theLetter & string(theNumber + direction)
  197.   
  198.   put "newImageIname" && newImageIname
  199.   
  200.   
  201.   imageNameAfterThat = theLetter & string(theNumber + (direction*2))
  202.   if getOne(gImageList, newImageIname) then
  203.     if not getOne(gImageList, imageNameAfterThat) then
  204.       sendAllSprites #lastImage, direction
  205.     else
  206.       sendAllSprites #notLastImage, direction
  207.     end if
  208.     showImage newImageIname
  209.   else
  210.     exit
  211.   end if
  212. end
  213.  
  214.  
  215.