home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Data.dxr / Internal_12_BitmapAnim.ls < prev    next >
Encoding:
Text File  |  2003-07-28  |  2.2 KB  |  58 lines
  1. property spriteNum, myStartNum, myEndNum, myTempo
  2. global myBACounter, myOldTempo, myBasicName
  3.  
  4. on beginSprite me
  5.   myBACounter = myStartNum
  6.   myBasicName = sprite(me.spriteNum).member.name.char[1..sprite(me.spriteNum).member.name.char.count - string(myStartNum).char.count]
  7.   myOldTempo = the frameTempo
  8.   puppetTempo(myTempo)
  9. end
  10.  
  11. on endSprite me
  12.   puppetTempo(myOldTempo)
  13.   myBACounter = VOID
  14.   myOldTempo = VOID
  15. end
  16.  
  17. on exitFrame me
  18.   if (myStartNum = 0) or (myEndNum = 0) or (myEndNum <= myStartNum) then
  19.     alert("Zle zadane cisla bitmap")
  20.     halt()
  21.   end if
  22.   if myBACounter <= myEndNum then
  23.     puppetTempo(myTempo)
  24.     sprite(me.spriteNum).member = myBasicName & string(myBACounter)
  25.     myBACounter = myBACounter + 1
  26.     go(the frame)
  27.   end if
  28. end
  29.  
  30. on isOKToAttach me, aSpriteType, aSpriteNum
  31.   case aSpriteType of
  32.     #graphic:
  33.       case sprite(aSpriteNum).member.type of
  34.         #bitmap:
  35.           return 1
  36.         #text, #flash, #vectorShape:
  37.           return 0
  38.       end case
  39.     #script:
  40.       return 0
  41.   end case
  42. end
  43.  
  44. on getPropertyDescriptionList
  45.   if the currentSpriteNum = 0 then
  46.     exit
  47.   end if
  48.   return [#myStartNum: [#comment: "Cislo prvej bitmapy v animacii", #format: #integer, #default: 1], #myEndNum: [#comment: "Cislo poslednej bitmapy v animacii", #format: #integer, #default: 2], #myTempo: [#comment: "Rychlost animacie", #format: #integer, #default: 15, #range: [#min: 1, #max: 120]]]
  49. end
  50.  
  51. on getBehaviorTooltip
  52.   return "Vytvorenie animacie bitmap meniacich sa snimok po snimku."
  53. end
  54.  
  55. on getBehaviorDescription
  56.   return "ANIMACIA BITMAP - snimok po snimku" & RETURN & RETURN & "Behavior sa chyti a pusti nad spritom v Score." & "Sprite musi byt bitmapa a musi mat meno zlozene z nazvu + cisla." & "Rovnaky system mena maju aj vsetky ostatne bitmapy tvoriace animaciu" & RETURN & RETURN & "POVOLENE TYPY MEMBROV:" & RETURN & "bitmap" & RETURN & RETURN & "PARAMETRE:" & RETURN & "* Cislo prvej bitmapy v animacii - cislo ktoje je v nazve prvej bitmapy (napr. bitmapa1)" & RETURN & "* Cislo poslednej bitmapy v animacii - cislo ktoje je v nazve poslednej bitmapy (napr. bitmapa37)" & RETURN & "* Rychlost animacie - rychlost animacie. pocet snimkov za sekundu rozsah od 1 do 120"
  57. end
  58.