Encyklopedia Omnia/Planeta.iso/data/a_gen.dir/00022_nuvolaDragger.ls

Text File | 2000-11-14 | 1.4 KB | 56 lines

property nsIntersector, origLoc, draggedSprite

on beginSprite
  set draggedSprite to the currentSpriteNum
  set gNumErrori to 0
  set the cursor of sprite draggedSprite to [member "palmo", member "palmo_m"]
end

on tastoGiu
  set draggedSprite to the currentSpriteNum
  if the moveableSprite of sprite draggedSprite = 1 then
    set the cursor of sprite draggedSprite to [member "pugno", member "pugno_m"]
    set origLoc to the loc of sprite draggedSprite
  end if
end

on tastoSu
  if the moveableSprite of sprite draggedSprite = 1 then
    if sprite draggedSprite intersects sprite(nsIntersector) then
      set the cursor of sprite draggedSprite to 0
      set newLoc to the loc of sprite draggedSprite
      set the loc of sprite draggedSprite to newLoc
      set the moveableSprite of sprite draggedSprite to 0
      unloadMiaw("m_navig")
      updateStage()
      go(#next)
    else
      set gNumErrori to gNumErrori + 1
      set the cursor of sprite draggedSprite to [member "palmo", member "palmo_m"]
      set the loc of sprite draggedSprite to origLoc
      updateStage()
    end if
  end if
end

on mouseUp
  tastoSu()
end

on mouseDown
  tastoGiu()
end

on rightMouseUp
  tastoSu()
end

on rightMouseDown
  tastoGiu()
end

on getPropertyDescriptionList
  set p_list to [#nsIntersector: [#comment: "Sprite Intersector:", #format: #integer, #default: 16]]
  return p_list
end