home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Data.dxr / Internal_11_TextAnim.ls < prev    next >
Encoding:
Text File  |  2003-07-28  |  3.3 KB  |  80 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.   myTACounter = VOID
  14.   myOldTempo = VOID
  15. end
  16.  
  17. on exitFrame me
  18.   puppetTempo(myTempo)
  19.   TAnim(me)
  20. end
  21.  
  22. on TAnim me
  23.   if myTACounter <= ((2 * myBlinkStart) + (2 * myBlink * myTextAnim.char.count) + (2 * myBlinkEnd)) then
  24.     if (myTACounter <= (2 * myBlinkStart)) and (myBlinkStart <> 0) then
  25.       if (myTACounter mod 2) <> 0 then
  26.         TA = EMPTY
  27.       else
  28.         TA = myBlinkCursor
  29.       end if
  30.     else
  31.       if myTACounter <= ((2 * myBlinkStart) + (2 * myBlink * myTextAnim.char.count)) then
  32.         myCharTextPos = (myTACounter - (2 * myBlinkStart)) / (2 * myBlink)
  33.         if (myTACounter mod 2) <> 0 then
  34.           TA = myTextAnim.char[1..myCharTextPos]
  35.         else
  36.           TA = myTextAnim.char[1..myCharTextPos] && myBlinkCursor
  37.         end if
  38.       else
  39.         if (myTACounter mod 2) <> 0 then
  40.           TA = myTextAnim && EMPTY
  41.         else
  42.           TA = myTextAnim && myBlinkCursor
  43.         end if
  44.       end if
  45.     end if
  46.     sprite(me.spriteNum).member.text = TA
  47.     myTACounter = myTACounter + 1
  48.     go(the frame)
  49.   end if
  50. end
  51.  
  52. on isOKToAttach me, aSpriteType, aSpriteNum
  53.   case aSpriteType of
  54.     #graphic:
  55.       case sprite(aSpriteNum).member.type of
  56.         #bitmap, #flash, #vectorShape:
  57.           return 0
  58.         #text:
  59.           return 1
  60.       end case
  61.     #script:
  62.       return 0
  63.   end case
  64. end
  65.  
  66. on getPropertyDescriptionList
  67.   if the currentSpriteNum = 0 then
  68.     exit
  69.   end if
  70.   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: 3, #range: [#min: 0, #max: 10]], #myBlinkEnd: [#comment: "Pocet blikani kurzora na konci", #format: #integer, #default: 5, #range: [#min: 0, #max: 10]], #myBlink: [#comment: "Pocet blikani kurzora pri kazdom znaku textu", #format: #integer, #default: 1, #range: [#min: 0, #max: 10]], #myTempo: [#comment: "Rychlost animacie", #format: #integer, #default: 15, #range: [#min: 1, #max: 120]]]
  71. end
  72.  
  73. on getBehaviorTooltip
  74.   return "Vytvorenie animacie simulujuce pisanie textu v terminali.     Cize postupne pisnaie znakov a blikanie kurzora"
  75. end
  76.  
  77. on getBehaviorDescription
  78.   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"
  79. end
  80.