home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 19 / MacAddict_019_1998_03.iso / Media / STORE.dxr / Internal_74.ls < prev    next >
Encoding:
Text File  |  1997-12-17  |  2.1 KB  |  60 lines
  1. on enterFrame
  2.   set i to field "type"
  3.   case i of
  4.     "Try Me":
  5.       nothing()
  6.     "Buy Me":
  7.       puppetSprite(22, 1)
  8.       set the member of sprite 22 to "buy2"
  9.   end case
  10.   set the itemDelimiter to "."
  11.   set x to item 1 of field "whichbox"
  12.   set the visible of sprite 29 to 0
  13.   updateStage()
  14.   case x of
  15.     "box1":
  16.       set the member of sprite 29 to member "Box01" of castLib "dbimages"
  17.     "box2":
  18.       set the member of sprite 29 to member "Box02" of castLib "dbimages"
  19.     "box3":
  20.       set the member of sprite 29 to member "Box03" of castLib "dbimages"
  21.     "box4":
  22.       set the member of sprite 29 to member "box04" of castLib "dbimages"
  23.     "box5":
  24.       set the member of sprite 29 to member "box05" of castLib "dbimages"
  25.     "box6":
  26.       set the member of sprite 29 to member "box06" of castLib "dbimages"
  27.     "box7":
  28.       set the member of sprite 29 to member "box07" of castLib "dbimages"
  29.     "box8":
  30.       set the member of sprite 29 to member "box08" of castLib "dbimages"
  31.     "box9":
  32.       set the member of sprite 29 to member "box09" of castLib "dbimages"
  33.     "box10":
  34.       set the member of sprite 29 to member "box10" of castLib "dbimages"
  35.     "box11":
  36.       set the member of sprite 29 to member "box11" of castLib "dbimages"
  37.     "box12":
  38.       set the member of sprite 29 to member "box12" of castLib "dbimages"
  39.     "box13":
  40.       set the member of sprite 29 to member "box13" of castLib "dbimages"
  41.     "box14":
  42.       set the member of sprite 29 to member "box14" of castLib "dbimages"
  43.     "box15":
  44.       set the member of sprite 29 to member "box15" of castLib "dbimages"
  45.     "box16":
  46.       set the member of sprite 29 to member "box16" of castLib "dbimages"
  47.     "box17":
  48.       set the member of sprite 29 to member "box17" of castLib "dbimages"
  49.     "box18":
  50.       set the member of sprite 29 to member "box18" of castLib "dbimages"
  51.     "box19":
  52.       set the member of sprite 29 to member "box19" of castLib "dbimages"
  53.     "box20":
  54.       set the member of sprite 29 to member "box20" of castLib "dbimages"
  55.   end case
  56.   set the visible of sprite 29 to 1
  57.   updateStage()
  58.   set the itemDelimiter to TAB
  59. end
  60.