home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00246.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  2.0 KB  |  61 lines
  1. on exitFrame
  2.   global mnv, ppl, foes, advance, soundspath, heart, fxpath, pwr
  3.   if getAt(mnv, 1) > 1 then
  4.     if the keyCode > 124 then
  5.       set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  6.       if the keyCode = 126 then
  7.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) - 17
  8.       else
  9.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  10.       end if
  11.       setAt(mnv, 1, getAt(mnv, 1) - 1)
  12.     else
  13.       if the keyCode > 122 then
  14.         set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  15.         if sprite(getAt(ppl, 1)).flipH = 1 then
  16.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  17.         else
  18.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  19.         end if
  20.         setAt(mnv, 1, getAt(mnv, 1) - 1)
  21.       else
  22.         set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  23.         setAt(mnv, 1, getAt(mnv, 1) - 1)
  24.       end if
  25.     end if
  26.   else
  27.     if the memberNum of sprite getAt(ppl, 1) < 82 then
  28.       set the member of sprite getAt(ppl, 1) to member(1, 2)
  29.     end if
  30.   end if
  31.   if (random(3) = 1) and (heart > 0) then
  32.     heart = heart - 1
  33.     set the locH of sprite 5 to 10 + random(560)
  34.     sprite(5).visible = 1
  35.   else
  36.     sprite(5).visible = 0
  37.   end if
  38.   if advance < 12 then
  39.     foes3(getAt(foes, 1), getAt(ppl, 2))
  40.     if heart < 7 then
  41.       foes3(getAt(foes, 2), getAt(ppl, 3))
  42.       foes3(getAt(foes, 3), getAt(ppl, 4))
  43.     end if
  44.   end if
  45.   if not soundBusy(4) then
  46.     sound playFile 4, fxpath & "psymus.aif"
  47.   end if
  48.   put getAt(pwr, 1) into field "power"
  49.   if getAt(pwr, 1) <= 0 then
  50.     go("dead")
  51.   end if
  52.   thrower(15, 5)
  53.   thrower(16, 6)
  54.   puppetSprite(31, 0)
  55.   if (sprite(41).visible = 1) and sprite getAt(ppl, 1) intersects 41 then
  56.     go("endstage3")
  57.   else
  58.     go(marker(0))
  59.   end if
  60. end
  61.