home *** CD-ROM | disk | FTP | other *** search
/ Undercover - Rock on Multimedia 2 / UNDERCOVER2.BIN / main.dir / 00516_Script_516 < prev    next >
Text File  |  1996-01-27  |  9KB  |  251 lines
  1. on updateLists
  2.   cursor 4
  3.   global selectionChanged
  4.   if selectionChanged then
  5.     set selectionChanged = false
  6.     global gStyle, gGenre, gEra, gPlace
  7.     delete field "artist_list"
  8.     delete field "title_list"
  9.     
  10.     global gArtists, gTitles, gRecNums
  11.     set gArtists = ""
  12.     set gTitles = ""
  13.     set gRecNums = ""
  14.     put DBCount() into nrecs
  15.     set full_list_required = false
  16.     if nrecs > 0 then
  17.       
  18.       if gstyle = "NONE" then
  19.         if ggenre = "NONE" then
  20.           if gera = "NONE" then
  21.             if gplace = "NONE" then
  22.               set full_list_required = true
  23.               --              set i = 1
  24.               --              repeat while i <= nrecs
  25.               --                dbGo(i)
  26.               --                addNextRec
  27.               --                set i = i + 1
  28.               --              end repeat
  29.             else
  30.               global gPlaceIndex
  31.               DBSelectIndex (gPlaceIndex)
  32.               dbSeek (gplace)
  33.               repeat while DBGetFieldByName ("PLACE") = gplace
  34.                 addNextRec
  35.                 put dbskip(1) into dbResult
  36.                 if dbResult < 0 then
  37.                   exit repeat
  38.                 end if
  39.               end repeat
  40.             end if
  41.           else
  42.             if gplace = "NONE" then
  43.               global gEraIndex
  44.               DBSelectIndex (gEraIndex)
  45.               dbSeek (gera)
  46.               repeat while DBGetFieldByName ("ERA") = gera
  47.                 addNextRec
  48.                 put dbskip(1) into dbResult
  49.                 if dbResult < 0 then
  50.                   exit repeat
  51.                 end if
  52.               end repeat
  53.             else
  54.               global gEraIndex
  55.               DBSelectIndex (gEraIndex)
  56.               dbSeek (gera)
  57.               repeat while DBGetFieldByName ("ERA") = gera
  58.                 if DBGetFieldByName ("PLACE") = gplace then addNextRec
  59.                 put dbskip(1) into dbResult
  60.                 if dbResult < 0 then
  61.                   exit repeat
  62.                 end if
  63.               end repeat
  64.             end if
  65.           end if
  66.         else --ggenre <> NONE
  67.           if gera = "NONE" then
  68.             if gplace = "NONE" then
  69.               global gGenreIndex
  70.               DBSelectIndex (gGenreIndex)
  71.               dbSeek (ggenre)
  72.               repeat while DBGetFieldByName ("GENRE") = ggenre
  73.                 addNextRec
  74.                 put dbskip(1) into dbResult
  75.                 if dbResult < 0 then
  76.                   exit repeat
  77.                 end if
  78.               end repeat
  79.             else
  80.               global gGenreIndex
  81.               DBSelectIndex (gGenreIndex)
  82.               dbSeek (ggenre)
  83.               repeat while DBGetFieldByName ("GENRE") = ggenre
  84.                 if DBGetFieldByName ("PLACE") = gplace then addNextRec
  85.                 put dbskip(1) into dbResult
  86.                 if dbResult < 0 then
  87.                   exit repeat
  88.                 end if
  89.               end repeat
  90.             end if
  91.           else
  92.             if gplace = "NONE" then
  93.               global gGenreIndex
  94.               DBSelectIndex (gGenreIndex)
  95.               dbSeek (ggenre)
  96.               repeat while DBGetFieldByName ("GENRE") = ggenre
  97.                 if DBGetFieldByName ("ERA") = gera then addNextRec
  98.                 put dbskip(1) into dbResult
  99.                 if dbResult < 0 then
  100.                   exit repeat
  101.                 end if
  102.               end repeat
  103.             else
  104.               global gGenreIndex
  105.               DBSelectIndex (gGenreIndex)
  106.               dbSeek (ggenre)
  107.               repeat while DBGetFieldByName ("GENRE") = ggenre
  108.                 if DBGetFieldByName ("ERA") = gera and DBGetFieldByName ("PLACE") = gplace then addNextRec
  109.                 put dbskip(1) into dbResult
  110.                 if dbResult < 0 then
  111.                   exit repeat
  112.                 end if
  113.               end repeat
  114.             end if
  115.           end if
  116.         end if
  117.       else  --gstyle <> NONE
  118.         if ggenre = "NONE" then
  119.           if gera = "NONE" then
  120.             if gplace = "NONE" then
  121.               global gStyleIndex
  122.               DBSelectIndex (gStyleIndex)
  123.               put dbSeek (gstyle), dbcurrrecnum(), DBGetFieldByName ("STYLE")
  124.               repeat while DBGetFieldByName ("STYLE") = gstyle
  125.                 addNextRec
  126.                 put dbskip(1) into dbResult
  127.                 if dbResult < 0 then
  128.                   exit repeat
  129.                 end if
  130.                 put dbresult, dbcurrrecnum(), DBGetFieldByName ("STYLE")
  131.               end repeat
  132.             else
  133.               global gStyleIndex
  134.               DBSelectIndex (gStyleIndex)
  135.               dbSeek (gstyle)
  136.               repeat while DBGetFieldByName ("STYLE") = gstyle
  137.                 if DBGetFieldByName ("PLACE") = gplace then addNextRec
  138.                 put dbskip(1) into dbResult
  139.                 if dbResult < 0 then
  140.                   exit repeat
  141.                 end if
  142.               end repeat
  143.             end if
  144.           else
  145.             if gplace = "NONE" then
  146.               global gStyleIndex
  147.               DBSelectIndex (gStyleIndex)
  148.               dbSeek (gstyle)
  149.               repeat while DBGetFieldByName ("STYLE") = gstyle
  150.                 if DBGetFieldByName ("ERA") = gera then addNextRec
  151.                 put dbskip(1) into dbResult
  152.                 if dbResult < 0 then
  153.                   exit repeat
  154.                 end if
  155.               end repeat
  156.             else
  157.               global gStyleIndex
  158.               DBSelectIndex (gStyleIndex)
  159.               dbSeek (gstyle)
  160.               repeat while DBGetFieldByName ("STYLE") = gstyle
  161.                 if DBGetFieldByName ("ERA") = gera and DBGetFieldByName ("PLACE") = gplace then addNextRec
  162.                 put dbskip(1) into dbResult
  163.                 if dbResult < 0 then
  164.                   exit repeat
  165.                 end if
  166.               end repeat
  167.             end if
  168.           end if
  169.         else --ggenre <> NONE
  170.           if gera = "NONE" then
  171.             if gplace = "NONE" then
  172.               global gStyleIndex
  173.               DBSelectIndex (gStyleIndex)
  174.               dbSeek (gstyle)
  175.               repeat while DBGetFieldByName ("STYLE") = gstyle
  176.                 if DBGetFieldByName ("GENRE") = ggenre then addNextRec
  177.                 put dbskip(1) into dbResult
  178.                 if dbResult < 0 then
  179.                   exit repeat
  180.                 end if
  181.               end repeat
  182.             else
  183.               global gStyleIndex
  184.               DBSelectIndex (gStyleIndex)
  185.               dbSeek (gstyle)
  186.               repeat while DBGetFieldByName ("STYLE") = gstyle
  187.                 if DBGetFieldByName ("GENRE") = ggenre and DBGetFieldByName ("PLACE") = gplace then addNextRec
  188.                 put dbskip(1) into dbResult
  189.                 if dbResult < 0 then
  190.                   exit repeat
  191.                 end if
  192.               end repeat
  193.             end if
  194.           else
  195.             if gplace = "NONE" then
  196.               global gStyleIndex
  197.               DBSelectIndex (gStyleIndex)
  198.               dbSeek (gstyle)
  199.               repeat while DBGetFieldByName ("STYLE") = gstyle
  200.                 if DBGetFieldByName ("GENRE") = ggenre and DBGetFieldByName ("ERA") = gera then addNextRec
  201.                 put dbskip(1) into dbResult
  202.                 if dbResult < 0 then
  203.                   exit repeat
  204.                 end if
  205.               end repeat
  206.             else
  207.               global gStyleIndex
  208.               DBSelectIndex (gStyleIndex)
  209.               dbSeek (gstyle)
  210.               repeat while DBGetFieldByName ("STYLE") = gstyle
  211.                 if DBGetFieldByName ("GENRE") = ggenre and DBGetFieldByName ("ERA") = gera and DBGetFieldByName ("PLACE") = gplace then addNextRec
  212.                 put dbskip(1) into dbResult
  213.                 if dbResult < 0 then
  214.                   exit repeat
  215.                 end if
  216.               end repeat
  217.             end if
  218.           end if
  219.         end if
  220.       end if
  221.       
  222.     end if --nrecs > 0
  223.     
  224.     if full_list_required then
  225.       put