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