home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Cubed.dxr / 00004_Hiker.ls next >
Encoding:
Text File  |  2002-01-25  |  1.1 KB  |  30 lines
  1. property pAnimBounce, pTimeLoop, spriteNum
  2. global gLine1, gLine2, gLine3, gLine4, gLine5, gLine6, gLine7, gHikerX, gHikerY, gUp, gMoveBady, gJumpSpeed, gPaused, gPlayerUpRight, gPlayerUpLeft, gPlayerDownRight, gPlayerDownLeft
  3.  
  4. on exitFrame
  5.   if gPaused = 0 then
  6.     if (gPlayerUpRight = 0) and (gPlayerUpLeft = 0) and (gPlayerDownLeft = 0) and (gPlayerDownRight = 0) then
  7.       if keyPressed(126) and keyPressed(124) then
  8.         if ((gHikerY = 7) and (gHikerX < 7)) or ((gHikerY = 6) and (gHikerX < 6)) or ((gHikerY = 5) and (gHikerX < 5)) or ((gHikerY = 4) and (gHikerX < 4)) or ((gHikerY = 3) and (gHikerX < 3)) or ((gHikerY = 2) and (gHikerX < 2)) then
  9.           gPlayerUpRight = 1
  10.         end if
  11.       end if
  12.       if keyPressed(126) and keyPressed(123) then
  13.         if gHikerX > 1 then
  14.           gPlayerUpLeft = 1
  15.         end if
  16.       end if
  17.       if keyPressed(125) and keyPressed(124) then
  18.         if gHikerY < 7 then
  19.           gPlayerDownRight = 1
  20.         end if
  21.       end if
  22.       if keyPressed(125) and keyPressed(123) then
  23.         if gHikerY < 7 then
  24.           gPlayerDownLeft = 1
  25.         end if
  26.       end if
  27.     end if
  28.   end if
  29. end
  30.