home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 25 / CDROM25.iso / lazer / fpwtdemo / Poster.dcr / Behaviors_39_GetItem.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  2.5 KB  |  99 lines
  1. global HAND_CURSOR, GRAB_CURSOR, MAX_FACE_PIECES, GRAB_CH, PREV_FACE_CH, NEXT_FACE_CH, grectPosterArea, gnNumPieces
  2.  
  3. on mouseEnter
  4.   cursor([HAND_CURSOR, HAND_CURSOR + 1])
  5. end
  6.  
  7. on mouseLeave
  8.   cursor(0)
  9. end
  10.  
  11. on mouseDown me
  12.   cursor([GRAB_CURSOR, GRAB_CURSOR + 1])
  13.   set nSound to PickupSound(me, 0)
  14.   set the mouseDownScript to "DontPassEvent"
  15.   FirstSticker(me, nSound)
  16.   repeat while OnPoster()
  17.     MidiLoop()
  18.     Stickers(me, nSound)
  19.   end repeat
  20.   set the member of sprite GRAB_CH to member "NullCast"
  21. end
  22.  
  23. on OnPoster
  24.   if inside(point(the mouseH, the mouseV), grectPosterArea) then
  25.     if rollOver(PREV_FACE_CH) or rollOver(NEXT_FACE_CH) then
  26.       return 0
  27.     else
  28.       return 1
  29.     end if
  30.   else
  31.     return 0
  32.   end if
  33. end
  34.  
  35. on FirstSticker me, nSound
  36.   set the member of sprite GRAB_CH to the member of sprite the spriteNum of me
  37.   set the loc of sprite GRAB_CH to point(the mouseH, the mouseV)
  38.   updateStage()
  39.   repeat while not (the mouseDown)
  40.     MidiLoop()
  41.     set the loc of sprite GRAB_CH to point(the mouseH, the mouseV)
  42.     updateStage()
  43.   end repeat
  44.   dontPassEvent()
  45.   repeat while the mouseDown
  46.     MidiLoop()
  47.     set the loc of sprite GRAB_CH to point(the mouseH, the mouseV)
  48.     updateStage()
  49.   end repeat
  50.   dontPassEvent()
  51.   if gnNumPieces < MAX_FACE_PIECES then
  52.     if OnPoster() then
  53.       PlaceSound(nSound)
  54.       AddToFace()
  55.     else
  56.       repeat while not (the mouseDown)
  57.         set the loc of sprite GRAB_CH to point(the mouseH, the mouseV)
  58.         updateStage()
  59.       end repeat
  60.       dontPassEvent()
  61.     end if
  62.   else
  63.     puppetSound(1, "sndMaxPieces")
  64.   end if
  65. end
  66.  
  67. on Stickers me, nSound
  68.   set the member of sprite GRAB_CH to the member of sprite the spriteNum of me
  69.   set the loc of sprite GRAB_CH to point(the mouseH, the mouseV)
  70.   updateStage()
  71.   repeat while not (the mouseDown) and OnPoster()
  72.     set the loc of sprite GRAB_CH to point(the mouseH, the mouseV)
  73.     updateStage()
  74.   end repeat
  75.   dontPassEvent()
  76.   if not OnPoster() then
  77.     set the member of sprite GRAB_CH to member "NullCast"
  78.     cursor([HAND_CURSOR, HAND_CURSOR + 1])
  79.   else
  80.     repeat while the mouseDown and OnPoster()
  81.       MidiLoop()
  82.       set the loc of sprite GRAB_CH to point(the mouseH, the mouseV)
  83.       updateStage()
  84.     end repeat
  85.     dontPassEvent()
  86.     if not OnPoster() then
  87.       set the member of sprite GRAB_CH to member "NullCast"
  88.       cursor([HAND_CURSOR, HAND_CURSOR + 1])
  89.     else
  90.       if gnNumPieces < MAX_FACE_PIECES then
  91.         PlaceSound(nSound)
  92.         AddToFace()
  93.       else
  94.         puppetSound(1, "sndMaxPieces")
  95.       end if
  96.     end if
  97.   end if
  98. end
  99.