home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM da Folhinha / cdrom-folhinha.ISO / hq.dir / 00024.ls < prev    next >
Encoding:
Text File  |  1997-04-07  |  1.1 KB  |  46 lines
  1. on keyUp
  2.   global autor, pagina
  3.   set ke to the keyCode
  4.   if (ke = 124) or (ke = 123) then
  5.     if ke = 124 then
  6.       set pagina to pagina + 1
  7.     else
  8.       set pagina to pagina - 1
  9.     end if
  10.     if pagina > 20 then
  11.       set pagina to 1
  12.     end if
  13.     if pagina < 1 then
  14.       set pagina to 20
  15.     end if
  16.     set the castNum of sprite 6 to 200 + ((autor - 1) * 20) + (pagina - 1)
  17.     set the locV of sprite 6 to 232
  18.     set the locH of sprite (9 + pagina) to 16 + ((pagina - 1) * 32)
  19.     set the castNum of sprite 30 to 240 + pagina
  20.     set the locH of sprite 30 to 16 + ((pagina - 1) * 32)
  21.     updateStage()
  22.   end if
  23. end
  24.  
  25. on exitFrame
  26.   global teclado, aparece
  27.   set rr to 0
  28.   if (the mouseV < 23) and (aparece = 1) then
  29.     set teclado to 0
  30.   end if
  31.   if (the mouseV < 23) or (teclado = 53) then
  32.     set the locV of sprite 8 to 37
  33.     set the locH of sprite 8 to 320
  34.     updateStage()
  35.     set aparece to 1
  36.     set rr to 2
  37.   end if
  38.   if rr = 0 then
  39.     set aparece to 0
  40.     set teclado to 0
  41.     set the locV of sprite 8 to -30
  42.     set the locH of sprite 8 to -324
  43.   end if
  44.   go(marker(0))
  45. end
  46.