Advertisement
Jousway

DUAL AFT

Nov 30th, 2016
179
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.46 KB | None | 0 0
  1. for i = 1,2 do
  2. --AFT Trail
  3. t[#t+1] = Def.ActorFrame{
  4.     Def.ActorFrameTexture{
  5.         Name = "Memory"..i,
  6.         InitCommand=function(self)
  7.             self:SetTextureName( "Memory"..i )
  8.             self:SetWidth( SCREEN_WIDTH )
  9.             self:SetHeight( SCREEN_HEIGHT )
  10.             self:EnableAlphaBuffer( true )
  11.             self:Create()
  12.         end,
  13.         -- Cannot call the second AFT's texture by name as it has not been created when this Sprite loads.
  14.         Def.Sprite{ Name = "Sprite", InitCommand=cmd(xy,SCREEN_CENTER_X+11.25*((i-1.5)),SCREEN_CENTER_Y), },
  15.     },
  16.     Def.ActorFrameTexture{
  17.         InitCommand=function(self)
  18.             self:SetTextureName( "Output"..i )
  19.             self:SetWidth( SCREEN_WIDTH )
  20.             self:SetHeight( SCREEN_HEIGHT )
  21.             self:EnableAlphaBuffer( true )
  22.             self:Create()
  23.             -- Set the first AFT's child's texture to this AFT's texture, now that it has been created.
  24.             self:GetParent():GetChild("Memory"..i):GetChild("Sprite"):SetTexture( self:GetTexture() )
  25.         end,
  26.         -- A sprite to draw the 'trail' with.
  27.         Def.Sprite{ Texture = "Memory"..i, InitCommand=cmd(Center;diffusealpha,.995;blend,1), },
  28.         Def.ActorProxy{
  29.             OnCommand=function(self)
  30.                 local oldfield;
  31.                 if SCREENMAN:GetTopScreen():GetName() == "ScreenEdit" then
  32.                     oldfield = SCREENMAN:GetTopScreen():GetChild("")[5]
  33.                 else
  34.                     oldfield = SCREENMAN:GetTopScreen():GetChild("PlayerP1")
  35.                 end
  36.                 self:SetTarget(oldfield)
  37.                 oldfield:visible(false)
  38.             end,
  39.         },
  40.     },
  41.     Def.Sprite{ Texture = "Output"..i, InitCommand=cmd(Center) },
  42. }--]]
  43. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement