home *** CD-ROM | disk | FTP | other *** search
- on exitFrame
- global sSerie, nOrden, nTempo, nVolum, nCursor1, nMask1
- set the soundLevel to nVolum
- puppetSprite(1, 1)
- puppetSprite(4, 1)
- puppetSprite(8, 1)
- set the member of sprite 1 to member string(nOrden) of castLib sSerie
- set the member of sprite 4 to member string(nVolum) of castLib "Elementos graficos"
- set the member of sprite 8 to member string(nTempo / 60) of castLib "Elementos graficos"
- startTimer()
- repeat with xx in [5, 6, 9, 10, 11, 12]
- set the cursor of sprite xx to [nCursor1, nMask1]
- end repeat
- end
-