home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / ARTWDEC.DXR / 00500.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  997 b   |  37 lines
  1. on exitFrame
  2.   global ARTImageGO, ARTWhichImageName, DriveLtr
  3.   go(the frame)
  4.   set the locH of sprite 48 to 2000
  5.   if the mouseUp and (ARTImageGO = 0) then
  6.     set ARTImageGO to 1
  7.   end if
  8.   if the mouseDown and (ARTImageGO = 1) then
  9.     set ARTImageGO to 2
  10.   end if
  11.   if the mouseDown and (ARTImageGO = 2) and not rollOver(3) then
  12.     repeat with t = 2 to 3
  13.       puppetSprite(t, 1)
  14.       set the locH of sprite t to 1500
  15.     end repeat
  16.     updateStage()
  17.     set x to the frame
  18.     go(x + 1)
  19.   end if
  20.   if rollOver(3) and (ARTImageGO = 1) then
  21.     puppetSprite(3, 1)
  22.     set the castNum of sprite 3 to the castNum of sprite 3 + 1
  23.     updateStage()
  24.     repeat while rollOver(3)
  25.       if the mouseDown then
  26.         set a to DriveLtr & "IMAGES\" & ARTWhichImageName
  27.         set b to the pathName & "COPY.EXE"
  28.         open(a, b)
  29.         set ARTImageGO to 0
  30.         exit repeat
  31.       end if
  32.     end repeat
  33.     set the castNum of sprite 3 to the castNum of sprite 3 - 1
  34.     updateStage()
  35.   end if
  36. end
  37.