Encyklopedia Omnia/Planeta.iso/data/s_gen.dir/00028_VillaggioHandlers.ls

Text File | 2000-11-09 | 570 b | 20 lines

on handleMouseUpVillaggio
  global gMouseDownLocVR
  set offs to point(2, 2)
  set p to point(mouseH(), mouseV())
  if inside(gMouseDownLocVR, rect(p - offs, p + offs)) then
    set id to the hotSpotID of sprite(1)
    if id = 66 then
      set the MouseUpHandler of sprite(1) to EMPTY
      set the BackBufferMovie of sprite(1) to EMPTY
      set the MovieMouseClick of sprite(1) to 0
      puppetSound(1, "omo8")
      repeat while soundBusy(1)
        nothing()
      end repeat
      set the MovieMouseClick of sprite(1) to 1
      go(#next)
    end if
  end if
end