home *** CD-ROM | disk | FTP | other *** search
/ PC Open 22 / pcopen22.iso / SuperCap / data / CITTA.DXR / 00400.ls < prev    next >
Encoding:
Text File  |  1998-05-18  |  1.8 KB  |  56 lines
  1. on mouseDown
  2.   global citta, n
  3.   put EMPTY into field "nota2"
  4.   UpArrowPressed(17)
  5.   if the top of sprite 8 = 364 then
  6.     set n to integer(n - 1)
  7.     if n = 0 then
  8.       set n to 12
  9.     end if
  10.     set k to the number of lines in field ("cap" & citta & n)
  11.     put line 1 to k of field "numbis" into field "num"
  12.     put field ("cap" & citta & n) into field "cap"
  13.     put field ("nome" & citta & n) into field "nome"
  14.     put field ("tipo" & citta & n) into field "tipo"
  15.     put field ("nota" & citta & n) into field "nota"
  16.     put field ("nota1" & citta & n) into field "nota1"
  17.     set the locV of sprite 5 to 377
  18.     set the locV of sprite 7 to 364
  19.     set the locV of sprite 8 to 364
  20.     set the locV of sprite 9 to 364
  21.     set the locV of sprite 10 to 364
  22.     set the locV of sprite 11 to 364
  23.     endscroll()
  24.     initScroll(3, 4, 5, 6, 7, 11)
  25.   end if
  26. end
  27.  
  28. on rightMouseDown
  29.   global citta, n
  30.   if the rightMouseDown then
  31.     put EMPTY into field "nota2"
  32.     UpArrowPressed(136)
  33.     if the top of sprite 8 = 364 then
  34.       set n to integer(n - 1)
  35.       if n = 0 then
  36.         set n to 12
  37.       end if
  38.       set k to the number of lines in field ("cap" & citta & n)
  39.       put line 1 to k of field "numbis" into field "num"
  40.       put field ("cap" & citta & n) into field "cap"
  41.       put field ("nome" & citta & n) into field "nome"
  42.       put field ("tipo" & citta & n) into field "tipo"
  43.       put field ("nota" & citta & n) into field "nota"
  44.       put field ("nota1" & citta & n) into field "nota1"
  45.       set the locV of sprite 5 to 377
  46.       set the locV of sprite 7 to 364
  47.       set the locV of sprite 8 to 364
  48.       set the locV of sprite 9 to 364
  49.       set the locV of sprite 10 to 364
  50.       set the locV of sprite 11 to 364
  51.       endscroll()
  52.       initScroll(3, 4, 5, 6, 7, 11)
  53.     end if
  54.   end if
  55. end
  56.