home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / WormFeast.dxr / 00015.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  3.0 KB  |  140 lines
  1. property spriteNum, pSpeed, pName, pFrame, pTimer, pPositionX, location
  2.  
  3. on beginSprite me
  4.   pPositionX = sprite(spriteNum).locH
  5.   pTimer = the ticks
  6.   pFrame = 1
  7.   location = sprite(spriteNum).loc
  8.   case spriteNum of
  9.     200:
  10.       pSpeed = 5
  11.       pName = "right"
  12.       sprite(spriteNum).locZ = spriteNum
  13.     201:
  14.       pSpeed = 5
  15.       pName = "right"
  16.       sprite(spriteNum).locZ = spriteNum
  17.     202:
  18.       pSpeed = -5
  19.       pName = "left"
  20.       sprite(spriteNum).locZ = 2
  21.     203:
  22.       pSpeed = -5
  23.       pName = "left"
  24.       sprite(spriteNum).locZ = 2
  25.     205:
  26.       pSpeed = 5
  27.       pName = "right"
  28.       sprite(spriteNum).locZ = spriteNum
  29.     206:
  30.       pSpeed = 5
  31.       pName = "right"
  32.       sprite(spriteNum).locZ = spriteNum
  33.     207:
  34.       pSpeed = -5
  35.       pName = "left"
  36.       sprite(spriteNum).locZ = 2
  37.     208:
  38.       pSpeed = -5
  39.       pName = "left"
  40.       sprite(spriteNum).locZ = 2
  41.     210:
  42.       pSpeed = 5
  43.       pName = "right"
  44.       sprite(spriteNum).locZ = spriteNum
  45.     211:
  46.       pSpeed = 5
  47.       pName = "right"
  48.       sprite(spriteNum).locZ = spriteNum
  49.     212:
  50.       pSpeed = -5
  51.       pName = "left"
  52.       sprite(spriteNum).locZ = 2
  53.     213:
  54.       pSpeed = -5
  55.       pName = "left"
  56.       sprite(spriteNum).locZ = 2
  57.   end case
  58. end
  59.  
  60. on reset me
  61.   pPositionX = sprite(spriteNum).locH
  62.   pTimer = the ticks
  63.   pFrame = 1
  64.   case spriteNum of
  65.     200:
  66.       pSpeed = 5
  67.       pName = "right"
  68.       sprite(spriteNum).locZ = spriteNum
  69.     201:
  70.       pSpeed = 5
  71.       pName = "right"
  72.       sprite(spriteNum).locZ = spriteNum
  73.     202:
  74.       pSpeed = -5
  75.       pName = "left"
  76.       sprite(spriteNum).locZ = 2
  77.     203:
  78.       pSpeed = -5
  79.       pName = "left"
  80.       sprite(spriteNum).locZ = 2
  81.     205:
  82.       pSpeed = 5
  83.       pName = "right"
  84.       sprite(spriteNum).locZ = spriteNum
  85.     206:
  86.       pSpeed = 5
  87.       pName = "right"
  88.       sprite(spriteNum).locZ = spriteNum
  89.     207:
  90.       pSpeed = -5
  91.       pName = "left"
  92.       sprite(spriteNum).locZ = 2
  93.     208:
  94.       pSpeed = -5
  95.       pName = "left"
  96.       sprite(spriteNum).locZ = 2
  97.     210:
  98.       pSpeed = 5
  99.       pName = "right"
  100.       sprite(spriteNum).locZ = spriteNum
  101.     211:
  102.       pSpeed = 5
  103.       pName = "right"
  104.       sprite(spriteNum).locZ = spriteNum
  105.     212:
  106.       pSpeed = -5
  107.       pName = "left"
  108.       sprite(spriteNum).locZ = 2
  109.     213:
  110.       pSpeed = -5
  111.       pName = "left"
  112.       sprite(spriteNum).locZ = 2
  113.   end case
  114.   sprite(spriteNum).loc = location
  115.   pPositionX = location[1]
  116.   updateStage()
  117. end
  118.  
  119. on exitFrame me
  120.   if (pTimer + 6) < the ticks then
  121.     pFrame = pFrame + 1
  122.     if pFrame > 2 then
  123.       pFrame = 1
  124.     end if
  125.     sprite(spriteNum).member = pName & string(pFrame)
  126.     pTimer = the ticks
  127.     if abs(sprite(spriteNum).locH - sprite(26).locH) > 55 then
  128.       pSpeed = pSpeed * -1
  129.       if pSpeed < 0 then
  130.         sprite(spriteNum).locZ = 2
  131.         pName = "left"
  132.       else
  133.         sprite(spriteNum).locZ = spriteNum
  134.         pName = "right"
  135.       end if
  136.     end if
  137.     sprite(spriteNum).locH = sprite(spriteNum).locH + pSpeed
  138.   end if
  139. end
  140.