home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / 0_home.dir / 00009_Script_goGenerators < prev    next >
Text File  |  2000-10-16  |  695b  |  26 lines
  1. property genId
  2. global gNSClicked, gCanClick, gPlayerList, gResumeFrame
  3.  
  4. on mouseUp
  5.   if (gCanClick) and (gNSClicked = the currentSpriteNum) then
  6.     set gResumeFrame = getProp(gPlayerList, genId)
  7.     if gResumeFrame < 0 then
  8.       -- percorso giα completato!
  9.       -- mostra la finestra di avvertimento: MANCA IL PSD!!!!
  10.       go to frame "giafatto"
  11.     else
  12.       -- vai al generator
  13.       sound stop 1
  14.       sound stop 2
  15.       go to movie (string(genId) & "_gen")
  16.     end if
  17.   end if
  18. end
  19.  
  20. on getPropertyDescriptionList
  21.   set d = [:]
  22.   addProp d, #genId, [#default: #a, #format: #symbol,¼
  23.   #range: [#a, #e, #f, #g, #s, #u], #comment: "Generator ID:"]
  24.   
  25.   return d
  26. end