home *** CD-ROM | disk | FTP | other *** search
/ Champak 48 / cdrom_image.iso / Games / rollerrush / game.dcr / Internal_16_ICanFlash.ls < prev    next >
Encoding:
Text File  |  2007-10-01  |  1.0 KB  |  52 lines
  1. property normState, flashState, pSpeed, sd, spriteNum, pFlashing, skipframe
  2.  
  3. on beginSprite me
  4.   sd = sprite(spriteNum)
  5.   sd.memberNum = normState
  6.   pFlashing = 0
  7.   skipframe = 0
  8. end
  9.  
  10. on setnorm me, nor, mover
  11.   sd.memberNum = nor
  12.   normState = nor
  13.   flashState = mover
  14. end
  15.  
  16. on Flashy me
  17.   if pFlashing then
  18.     return 
  19.   end if
  20.   pFlashing = 1
  21.   skipframe = 0
  22. end
  23.  
  24. on FlashOff me
  25.   pFlashing = 0
  26.   sd.memberNum = normState
  27.   skipframe = 0
  28. end
  29.  
  30. on update me
  31.   if pFlashing then
  32.     if skipframe = pSpeed then
  33.       if sd.memberNum = normState then
  34.         sd.memberNum = flashState
  35.       else
  36.         sd.memberNum = normState
  37.       end if
  38.       skipframe = 1
  39.     else
  40.       skipframe = skipframe + 1
  41.     end if
  42.   end if
  43. end
  44.  
  45. on getPropertyDescriptionList
  46.   vPDList = [:]
  47.   setaProp(vPDList, #normState, [#comment: "Normal Membernum:", #format: #integer, #default: 0])
  48.   setaProp(vPDList, #flashState, [#comment: "Flash Membernum:", #format: #integer, #default: 0])
  49.   setaProp(vPDList, #pSpeed, [#comment: "Flash Speed:", #format: #integer, #default: 0])
  50.   return vPDList
  51. end
  52.