home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / f_panel.dir / 00014_Script_toggleBehavior < prev    next >
Text File  |  2000-11-09  |  1KB  |  33 lines
  1. property function, index
  2. global gValueList, gIndiceCategoria, gFirstListedParam, gExactList
  3.  
  4. on mouseUp
  5.   -- aggiorna gValueList, se il tasto Φ attivo
  6.   set p = "c" & string(gIndiceCategoria) & "p" & string(index+gFirstListedParam-1)
  7.   if voidP(getaProp(gValueList, p)) then exit
  8.   puppetSound 1, "switch"
  9.   setProp gValueList, p, function
  10.   
  11.   if function = #On then
  12.     set ledLoc = value(line index of the text of field "LedPosOn")
  13.   else
  14.     set ledLoc = value(line index of the text of field "LedPosOff")
  15.   end if
  16.   
  17.   set ns = 30 + index - 1
  18.   
  19.   set the loc of sprite ns to ledLoc
  20.   updateStage
  21.   
  22.   -- controlla se la lista Φ esatta
  23.   if gValueList = gExactList then go "OK"
  24. end
  25.  
  26. on getPropertyDescriptionList
  27.   set p_list = [#function:[#comment:"Funzione:",¼
  28.                 #format: #string, #default: #On, #range: [#On, #Off]],¼
  29.                 #index:[#comment:"Numero del parametro:",¼
  30.                 #format: #integer, #default: 0, #range: 1,4]]
  31.   
  32.   return p_list
  33. end