home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / e_gen_pl.dir / 00005_IconDragger.ls < prev    next >
Encoding:
Text File  |  1999-06-27  |  2.1 KB  |  69 lines
  1. property nsIntersector, origLoc, draggedSprite, corretto, maxErrori, numEsatti
  2. global gNumErrori, gNumEsatti
  3.  
  4. on beginSprite
  5.   set draggedSprite to the currentSpriteNum
  6.   set the cursor of sprite draggedSprite to [member "palmo", member "palmo_m"]
  7. end
  8.  
  9. on mouseUp
  10.   tastoSu()
  11. end
  12.  
  13. on mouseDown
  14.   tastoGiu()
  15. end
  16.  
  17. on rightMouseUp
  18.   tastoSu()
  19. end
  20.  
  21. on rightMouseDown
  22.   tastoGiu()
  23. end
  24.  
  25. on tastoGiu
  26.   set draggedSprite to the currentSpriteNum
  27.   if the moveableSprite of sprite draggedSprite = 1 then
  28.     set the cursor of sprite draggedSprite to [member "pugno", member "pugno_m"]
  29.     set origLoc to the loc of sprite draggedSprite
  30.   end if
  31. end
  32.  
  33. on tastoSu
  34.   if the moveableSprite of sprite draggedSprite = 1 then
  35.     if sprite draggedSprite intersects sprite(nsIntersector) then
  36.       if corretto = #si then
  37.         puppetSound(1, "E_si")
  38.         set gNumEsatti to gNumEsatti + 1
  39.         set the cursor of sprite draggedSprite to 0
  40.         set newLoc to the loc of sprite draggedSprite
  41.         set the loc of sprite draggedSprite to newLoc
  42.         set the moveableSprite of sprite draggedSprite to 0
  43.         updateStage()
  44.         if gNumEsatti = numEsatti then
  45.           go(marker(2))
  46.         end if
  47.       else
  48.         puppetSound(1, "E_no")
  49.         set gNumErrori to gNumErrori + 1
  50.         set the cursor of sprite draggedSprite to [member "palmo", member "palmo_m"]
  51.         set the loc of sprite draggedSprite to origLoc
  52.         updateStage()
  53.         if gNumErrori > maxErrori then
  54.           go(#next)
  55.         end if
  56.       end if
  57.     else
  58.       set the cursor of sprite draggedSprite to [member "palmo", member "palmo_m"]
  59.       set the loc of sprite draggedSprite to origLoc
  60.       updateStage()
  61.     end if
  62.   end if
  63. end
  64.  
  65. on getPropertyDescriptionList
  66.   set p_list to [#nsIntersector: [#comment: "Sprite Intersector:", #format: #integer, #default: 9], #corretto: [#comment: "Esatto?", #format: #symbol, #range: [#si, #no], #default: #no], #maxErrori: [#comment: "Max errori:", #format: #integer, #default: 2], #numEsatti: [#comment: "Risposte esatte:", #format: #integer, #default: 2]]
  67.   return p_list
  68. end
  69.