home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / circuits.dxr / 00026_dropZones.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  1.2 KB  |  48 lines
  1. property spriteNum, wired, Mydevice, testMode, pPower
  2. global dropZones, gSeries
  3.  
  4. on beginSprite me
  5.   pPower = 0
  6.   wired = 0
  7.   testMode = 0
  8.   append(dropZones, spriteNum)
  9. end
  10.  
  11. on myItem me, theItem
  12.   sprite(spriteNum).member = theItem
  13.   Mydevice = member(theItem).name
  14.   wired = 1
  15. end
  16.  
  17. on mouseUp me
  18.   if (Mydevice = "swi") and wired and testMode then
  19.     sendAllSprites(#testCircuit, spriteNum)
  20.   end if
  21. end
  22.  
  23. on testCircuit me, spNum
  24.   testMode = 1
  25.   pPower = pPower = 0
  26.   case Mydevice of
  27.     "mot", "bel", "buz":
  28.       if sprite(spNum).loc[1] > sprite(spriteNum).loc[1] then
  29.         pPower = 1
  30.       end if
  31.       sprite(spriteNum).member = Mydevice & [EMPTY, "_on"][1 + pPower]
  32.       sendSprite(spriteNum + 4, #robotItem, pPower)
  33.     "lit":
  34.       if sprite(spNum).loc[1] > sprite(spriteNum).loc[1] then
  35.         pPower = 1
  36.       end if
  37.       if gSeries then
  38.         sprite(spriteNum).member = Mydevice & [EMPTY, "_onS"][1 + pPower]
  39.       else
  40.         sprite(spriteNum).member = Mydevice & [EMPTY, "_on"][1 + pPower]
  41.       end if
  42.       sendSprite(spriteNum + 4, #robotItem, pPower)
  43.     "swi":
  44.       sprite(spriteNum).member = Mydevice & ["_off", EMPTY][1 + pPower]
  45.       sendSprite(34, #showtryme, spriteNum)
  46.   end case
  47. end
  48.