home *** CD-ROM | disk | FTP | other *** search
/ PC Open 22 / pcopen22.iso / SuperCap / data / CITTA.DXR / 00390_movie.ls < prev    next >
Encoding:
Text File  |  1998-05-18  |  2.2 KB  |  107 lines
  1. on cerca1
  2.   global n, citta
  3.   cursor(4)
  4.   set the cursor of sprite 39 to 4
  5.   set the cursor of sprite 42 to 4
  6.   set vNome to char 1 of field "Cerca"
  7.   if vNome = "A" then
  8.     set n to 1
  9.   end if
  10.   if vNome = "B" then
  11.     set n to 1
  12.   end if
  13.   if vNome = "C" then
  14.     set n to 1
  15.   end if
  16.   if vNome = "D" then
  17.     set n to 1
  18.   end if
  19.   if vNome = "E" then
  20.     set n to 2
  21.   end if
  22.   if vNome = "F" then
  23.     set n to 2
  24.   end if
  25.   if vNome = "G" then
  26.     set n to 2
  27.   end if
  28.   if vNome = "H" then
  29.     set n to 2
  30.   end if
  31.   if vNome = "J" then
  32.     set n to 2
  33.   end if
  34.   if vNome = "I" then
  35.     set n to 2
  36.   end if
  37.   if vNome = "K" then
  38.     set n to 2
  39.   end if
  40.   if vNome = "L" then
  41.     set n to 2
  42.   end if
  43.   if vNome = "M" then
  44.     set n to 2
  45.   end if
  46.   if vNome = "N" then
  47.     set n to 3
  48.   end if
  49.   if vNome = "O" then
  50.     set n to 3
  51.   end if
  52.   if vNome = "P" then
  53.     set n to 3
  54.   end if
  55.   if vNome = "Q" then
  56.     set n to 3
  57.   end if
  58.   if vNome = "R" then
  59.     set n to 3
  60.   end if
  61.   if vNome = "S" then
  62.     set n to 3
  63.   end if
  64.   if vNome = "T" then
  65.     set n to 3
  66.   end if
  67.   if vNome = "U" then
  68.     set n to 3
  69.   end if
  70.   if vNome = "V" then
  71.     set n to 3
  72.   end if
  73.   if vNome = "W" then
  74.     set n to 3
  75.   end if
  76.   if vNome = "Z" then
  77.     set n to 3
  78.   end if
  79.   put field ("cap" & citta & n) into field "cap"
  80.   put field ("nome" & citta & n) into field "nome"
  81.   put field ("tipo" & citta & n) into field "tipo"
  82.   put field ("nota" & citta & n) into field "nota"
  83.   put field ("nota1" & citta & n) into field "nota1"
  84.   set nLines to the lineCount of member "NOME"
  85.   set vNome to field "cerca"
  86.   set nC to the number of chars in vNome
  87.   repeat with y = 1 to nLines
  88.     if chars(line y of field "NOME", 1, nC) = vNome then
  89.       exit repeat
  90.       next repeat
  91.     end if
  92.     nothing()
  93.   end repeat
  94.   set the locV of sprite 5 to 371
  95.   set the locV of sprite 7 to 364
  96.   set the locV of sprite 8 to 364
  97.   set the locV of sprite 9 to 364
  98.   set the locV of sprite 10 to 364
  99.   set the locV of sprite 11 to 364
  100.   endscroll()
  101.   initScroll(3, 4, 5, 6, 7, 11)
  102.   ScrollDown((y * 17) - 17)
  103.   set the cursor of sprite 39 to 1
  104.   set the cursor of sprite 42 to [the number of member "dito", the number of member "ditonero"]
  105.   cursor(-1)
  106. end
  107.