Encyklopedia Omnia/Planeta.iso/data/a_gen.dir/00057_catenaDragger.ls

Text File | 2000-11-14 | 1.6 KB | 60 lines

property nsIntersector, origLoc, draggedSprite, corretto, maxErrori
global gNumErrori

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) and (corretto = #si) then
      set the cursor of sprite draggedSprite to 0
      set the loc of sprite draggedSprite to nsIntersector
      set the moveableSprite of sprite draggedSprite to 0
      updateStage()
      puppetSound(2, "Subping")
      go(marker(2))
    else
      puppetSound(1, "H_si")
      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()
      if gNumErrori > maxErrori then
        go(#next)
      end if
    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], #corretto: [#comment: "Esatto?", #format: #symbol, #range: [#si, #no], #default: #no], #maxErrori: [#comment: "Max errori:", #format: #integer, #default: 2]]
  return p_list
end