home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Data.dxr / Internal_41_TextAnimation+Sound.ls < prev    next >
Encoding:
Text File  |  2003-07-28  |  3.5 KB  |  89 lines
  1. property spriteNum, myTextAnim, myBlinkCursor, myBlinkStart, myBlinkEnd, myBlink, myTempo
  2. global myTACounter, myOldTempo
  3.  
  4. on beginSprite me
  5.   myTACounter = 1
  6.   myOldTempo = the frameTempo
  7.   puppetTempo(myTempo)
  8.   sprite(me.spriteNum).member.text = EMPTY
  9. end
  10.  
  11. on endSprite me
  12.   puppetTempo(myOldTempo)
  13.   sprite(me.spriteNum).member.text = EMPTY
  14.   myTACounter = VOID
  15.   myOldTempo = VOID
  16. end
  17.  
  18. on exitFrame me
  19.   puppetTempo(myTempo)
  20.   TAnim(me)
  21. end
  22.  
  23. on TAnim me
  24.   if myTACounter <= ((2 * myBlinkStart) + (2 * myBlink * myTextAnim.char.count) + (2 * myBlinkEnd)) then
  25.     if (myTACounter <= (2 * myBlinkStart)) and (myBlinkStart <> 0) then
  26.       if (myTACounter mod 2) <> 0 then
  27.         TA = EMPTY
  28.       else
  29.         TA = myBlinkCursor
  30.       end if
  31.     else
  32.       if myTACounter <= ((2 * myBlinkStart) + (2 * myBlink * myTextAnim.char.count)) then
  33.         RandomKeySound()
  34.         myCharTextPos = (myTACounter - (2 * myBlinkStart)) / (2 * myBlink)
  35.         if (myTACounter mod 2) <> 0 then
  36.           TA = myTextAnim.char[1..myCharTextPos]
  37.         else
  38.           TA = myTextAnim.char[1..myCharTextPos] && myBlinkCursor
  39.         end if
  40.       else
  41.         if (myTACounter mod 2) <> 0 then
  42.           TA = myTextAnim && EMPTY
  43.         else
  44.           TA = myTextAnim && myBlinkCursor
  45.         end if
  46.       end if
  47.     end if
  48.     sprite(me.spriteNum).member.text = TA
  49.     myTACounter = myTACounter + 1
  50.     go(the frame)
  51.   end if
  52. end
  53.  
  54. on RandomKeySound
  55.   if not soundBusy(2) then
  56.     keySoundName = "key" & random(7)
  57.     AudioInt(keySoundName)
  58.   end if
  59. end
  60.  
  61. on isOKToAttach me, aSpriteType, aSpriteNum
  62.   case aSpriteType of
  63.     #graphic:
  64.       case sprite(aSpriteNum).member.type of
  65.         #bitmap, #flash, #vectorShape:
  66.           return 0
  67.         #text:
  68.           return 1
  69.       end case
  70.     #script:
  71.       return 0
  72.   end case
  73. end
  74.  
  75. on getPropertyDescriptionList
  76.   if the currentSpriteNum = 0 then
  77.     exit
  78.   end if
  79.   return [#myTextAnim: [#comment: "Text animacie", #format: #string, #default: EMPTY], #myBlinkCursor: [#comment: "Znak urcujuci blikajuci kurzor", #format: #string, #default: "_"], #myBlinkStart: [#comment: "Pocet blikani kurzora na zaciatku", #format: #integer, #default: 2, #range: [#min: 0, #max: 10]], #myBlinkEnd: [#comment: "Pocet blikani kurzora na konci", #format: #integer, #default: 4, #range: [#min: 0, #max: 10]], #myBlink: [#comment: "Pocet blikani kurzora pri kazdom znaku textu", #format: #integer, #default: 2, #range: [#min: 0, #max: 10]], #myTempo: [#comment: "Rychlost animacie", #format: #integer, #default: 15, #range: [#min: 1, #max: 120]]]
  80. end
  81.  
  82. on getBehaviorTooltip
  83.   return "Vytvorenie animacie simulujuce pisanie textu v terminali.     Cize postupne pisnaie znakov a blikanie kurzora"
  84. end
  85.  
  86. on getBehaviorDescription
  87.   return "ANIMACIA TEXTOVEHO POLA - Simulacia terminalu" & RETURN & RETURN & "Behavior sa chyti a pusti nad spritom v Score." & "Sprite musi byt text alebo pole a font farbu a velkost sa urci v danom membrovi." & RETURN & RETURN & "POVOLENE TYPY MEMBROV:" & RETURN & "text a field" & RETURN & RETURN & "PARAMETRE:" & RETURN & "* Text animacie - text ktory sa bude animovat" & RETURN & "* Znak urcujuci blikajuci kurzor - znak ktory bude blikat a bude urcovat kurzor terminalu" & RETURN & "* Pocet blikani kurzora na zaciatku - kolkokrat zablika kurzor pred zaciatkom pisania textu" & RETURN & "* Pocet blikani kurzora na konci - kolkokrat zablika kurzor po napisani textu" & RETURN & "* Pocet blikani kurzora pri kazdom znaku textu - kolkokrat zablika kurzor pri pisani textu" & RETURN & "* Rychlost animacie - rychlost animacie. pocet snimkov za sekundu rozsah od 1 do 120"
  88. end
  89.