home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / WormFeast.dxr / 00018.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  3.0 KB  |  141 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 exitFrame me
  61.   if (pTimer + 6) < the ticks then
  62.     pFrame = pFrame + 1
  63.     if pFrame > 2 then
  64.       pFrame = 1
  65.     end if
  66.     sprite(spriteNum).member = pName & string(pFrame)
  67.     pTimer = the ticks
  68.     if abs(sprite(spriteNum).locH - sprite(27).locH) > 55 then
  69.       pSpeed = pSpeed * -1
  70.       if pSpeed < 0 then
  71.         sprite(spriteNum).locZ = 2
  72.         pName = "left"
  73.       else
  74.         sprite(spriteNum).locZ = spriteNum
  75.         pName = "right"
  76.       end if
  77.     end if
  78.     pPositionX = pPositionX + pSpeed
  79.     sprite(spriteNum).locH = pPositionX
  80.   end if
  81. end
  82.  
  83. on reset me
  84.   pPositionX = sprite(spriteNum).locH
  85.   pTimer = the ticks
  86.   pFrame = 1
  87.   case spriteNum of
  88.     200:
  89.       pSpeed = 5
  90.       pName = "right"
  91.       sprite(spriteNum).locZ = spriteNum
  92.     201:
  93.       pSpeed = 5
  94.       pName = "right"
  95.       sprite(spriteNum).locZ = spriteNum
  96.     202:
  97.       pSpeed = -5
  98.       pName = "left"
  99.       sprite(spriteNum).locZ = 2
  100.     203:
  101.       pSpeed = -5
  102.       pName = "left"
  103.       sprite(spriteNum).locZ = 2
  104.     205:
  105.       pSpeed = 5
  106.       pName = "right"
  107.       sprite(spriteNum).locZ = spriteNum
  108.     206:
  109.       pSpeed = 5
  110.       pName = "right"
  111.       sprite(spriteNum).locZ = spriteNum
  112.     207:
  113.       pSpeed = -5
  114.       pName = "left"
  115.       sprite(spriteNum).locZ = 2
  116.     208:
  117.       pSpeed = -5
  118.       pName = "left"
  119.       sprite(spriteNum).locZ = 2
  120.     210:
  121.       pSpeed = 5
  122.       pName = "right"
  123.       sprite(spriteNum).locZ = spriteNum
  124.     211:
  125.       pSpeed = 5
  126.       pName = "right"
  127.       sprite(spriteNum).locZ = spriteNum
  128.     212:
  129.       pSpeed = -5
  130.       pName = "left"
  131.       sprite(spriteNum).locZ = 2
  132.     213:
  133.       pSpeed = -5
  134.       pName = "left"
  135.       sprite(spriteNum).locZ = 2
  136.   end case
  137.   sprite(spriteNum).loc = location
  138.   pPositionX = location[1]
  139.   updateStage()
  140. end
  141.