home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00098_RECORRIDO + OBJETO 1.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  836 b   |  41 lines
  1. on exitFrame
  2.   global Tabcajas, num_caja, objeto_nik
  3.   set num_caja to 11
  4.   if getAt(Tabcajas, num_caja) then
  5.     pon_cursor(1, 3)
  6.   else
  7.     cursor(-1)
  8.   end if
  9.   if objeto_nik then
  10.     cursor(-1)
  11.     go(label("CONSOLADOR" & objeto_nik))
  12.   end if
  13.   go(the frame)
  14. end
  15.  
  16. on keyDown
  17.   if the keyCode = 124 then
  18.     puppetSprite(23, 1)
  19.     set the castNum of sprite 23 to 2103
  20.     derecha()
  21.   else
  22.     if the keyCode = 123 then
  23.       puppetSprite(22, 1)
  24.       set the castNum of sprite 22 to 2104
  25.       izquierda()
  26.     else
  27.       if the keyCode = 126 then
  28.         puppetSprite(20, 1)
  29.         set the castNum of sprite 20 to 2102
  30.         adelante()
  31.       else
  32.         if the keyCode = 125 then
  33.           puppetSprite(21, 1)
  34.           set the castNum of sprite 21 to 2101
  35.           atras()
  36.         end if
  37.       end if
  38.     end if
  39.   end if
  40. end
  41.