home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme3.dxr / Internal_25_precedente.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.3 KB  |  51 lines

  1. property pFrame1, pFrame2
  2.  
  3. on getPropertyDescriptionList
  4.   propertyDescriptionList = [#pFrame1: [#comment: "Indicare in qual frame si trova il tasto" & RETURN & "Marker SCHEDA", #format: #boolean, #default: 0], #pFrame2: [#comment: "Marker ARTICOLO", #format: #boolean, #default: 0]]
  5.   return propertyDescriptionList
  6. end
  7.  
  8. on mouseUp me
  9.   global gID, gMaxID, gQuadro, gpittore, gElencoOpere, gAccessoScheda, gScheggia
  10.   if gElencoOpere <> 0 then
  11.     if getOne(gElencoOpere, gQuadro) <> 0 then
  12.       tmp = getOne(gElencoOpere, gQuadro)
  13.       if tmp = 1 then
  14.         tmp = count(gElencoOpere)
  15.       else
  16.         tmp = tmp - 1
  17.       end if
  18.       gQuadro = getAt(gElencoOpere, tmp)
  19.       tema = char 1 of gQuadro
  20.       tema = "theme" & tema
  21.       gID = char 3 to 4 of gQuadro
  22.       gID = integer(gID)
  23.       go("scheda", tema)
  24.     end if
  25.   else
  26.     if the doubleClick then
  27.       exit
  28.     end if
  29.     if gID = 2 then
  30.       sprite(50).visible = 0
  31.     end if
  32.     if gID = gMaxID then
  33.       sprite(51).visible = 1
  34.     end if
  35.     gID = gID - 1
  36.     if pFrame1 = 1 then
  37.       preparascheda()
  38.       go("scheda")
  39.     end if
  40.     if pFrame2 = 1 then
  41.       gAccessoScheda = #normale
  42.       go("article")
  43.     end if
  44.   end if
  45.   gScheggia = "off"
  46.   sound stop 1
  47.   if the frame < 20 then
  48.     sprite(43).member = member("TastiOpere5")
  49.   end if
  50. end
  51.