Encyklopedia Omnia/Planeta.iso/data/s_gen.dir/00041_BerscenHandlers.ls

Text File | 2000-11-09 | 1.8 KB | 66 lines

on handleMouseUpBerscen
  global gMouseDownLocVR, gCatenaccio, gMessageID
  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 the HotSpotType of sprite(1) = "link" then
      exit
    end if
    case id of
      157:
        sound stop 2
        set the MouseUpHandler of sprite(1) to EMPTY
        moveToBack(window "m_navig")
        set the visible of window "m_navig" to 0
        go(">16")
      55, 46, 50:
        if getPos(gCatenaccio, #capanne) = 0 then
          add(gCatenaccio, #capanne)
          mixa("omo12", 1)
        end if
      103, 129:
        if getPos(gCatenaccio, #armi) = 0 then
          add(gCatenaccio, #armi)
          mixa("omo13", 1)
        end if
      212, 43:
        if getPos(gCatenaccio, #pelli) = 0 then
          add(gCatenaccio, #pelli)
          mixa("omo14", 1)
        end if
      5, 152, 60, 19, 219, 73, 57, 65, 195, 150, 138:
        set the MovieMouseClick of sprite(1) to 0
        apriMessaggio("m_omo05")
      250:
        set the MovieMouseClick of sprite(1) to 0
        apriMessaggio("m_omo06")
      otherwise:
        nothing()
    end case
  end if
end

on handleNodeLeaveBerscen pFromNodeID, pToNodeID
  global gCatenaccio, gInfoContext
  if pToNodeID = 131 then
    if count(gCatenaccio) = 3 then
      set gInfoContext to "s_11"
      set the MovieMouseClick of sprite(1) to 0
      set oldLevel to the volume of sound 2
      set the volume of sound 2 to 40
      puppetSound(1, "omo14b")
      repeat while soundBusy(1)
        nothing()
      end repeat
      set the volume of sound 2 to oldLevel
      set the MovieMouseClick of sprite(1) to 1
      go(#next)
    else
      set the MovieMouseClick of sprite(1) to 0
      apriMessaggio("m_omo07")
      return 1
    end if
  end if
end