The VPRO Digital Guide 1994/vpro.iso/vpro1/ps.dir/00020.ls

Text File | 1994-08-28 | 542 b | 23 lines

on enterFrame
  global gGettingMarker, ProductStatus
  if ProductStatus = "hidden" then
    HideRandoms()
  end if
  set the backColor of sprite 31 to 76
  if gGettingMarker <> 1 then
    CheckProduct()
    set the soundEnabled to 1
    set the volume of sound 1 to 255
  end if
end

on exitFrame
  global ProductCat, theProduct, gWasAt, gComingFrom, gGoingTo, gClock, gClockLong
  set holder to the frameLabel
  repeat with i = 1 to 4
    if char 3 of holder = i then
      set theProduct to item i of ProductCat
    end if
  end repeat
end