What PC? 1997 February/WPCFEB97.ISO/dxrs/artwfeb.dxr/00500.ls

Text File | 1996-12-05 | 1.0 KB | 39 lines

on exitFrame
  global ARTImageGO, ARTWhichImageName, DriveLtr
  go(the frame)
  set the locH of sprite 48 to 2000
  if the mouseUp and (ARTImageGO = 0) then
    set ARTImageGO to 1
  end if
  if the mouseDown and (ARTImageGO = 1) then
    set ARTImageGO to 2
  end if
  if the mouseDown and (ARTImageGO = 2) and not rollOver(3) then
    repeat with t = 2 to 3
      puppetSprite(t, 1)
      set the locH of sprite t to 1500
    end repeat
    updateStage()
    set x to the frame
    go(x + 1)
  end if
  if rollOver(3) and (ARTImageGO = 1) then
    puppetSprite(3, 1)
    set the castNum of sprite 3 to the castNum of sprite 3 + 1
    updateStage()
    repeat while rollOver(3)
      if the mouseDown then
        set a to DriveLtr & "IMAGES\" & ARTWhichImageName
        set b to the pathName & "COPY.EXE"
        open(a, b)
        put "a", a
        put "b", b
        set ARTImageGO to 0
        exit repeat
      end if
    end repeat
    set the castNum of sprite 3 to the castNum of sprite 3 - 1
    updateStage()
  end if
end