Cocktail Hour/image.iso/COCKTAIL.DIR/00037_Script_37

Text File | 1997-03-05 | 995b | 45 lines

on exitFrame
  global SoundActive,gProgrmPathOnHD
  if SoundActive and soundbusy(1)=0 then
    sound playFile 1, (gProgrmPathOnHD&"drinks")
  end if

  global OnceCheck

  if OnceCheck=0 then
    cursor -1
    colorRoutine
    repeat with i=2  to 17
      if i<>6 then set the cursor of sprite i=[34,35]
    end repeat
    set the cursor of sprite 27=[34,35]
    repeat with i=42 to 48
      puppetSprite i,1
    end repeat
    set OnceCheck=1
  end if
  go to the frame
end

on mouseDown
  global checkPress
  set checkPress=the clickOn
  set bDown=the clickon
  if bDown>41 then
    buttonPressedDown bDown,"query"
  end if
end

on mouseUp
  global checkPress
  set checkPress2=the clickOn
  if checkPress=checkPress2 then
    set bUp=the clickon
    if bUp=3 or bUp=4 or bUp=5 then
      --set the member of sprite 8=member ("query"&bUp-4)
    else if bUp>41 then
      global CompVec
      buttonPressedUp bUp,"query"
    end if
  end if
end