Here is the dumbed down version:
Dim Banner as xpBaseObject
Dim BlueBKG(2) as xpBaseObject
Dim FullImage as xpBaseObject
Dim OverlayImage as xpBaseObject
Dim Bullet(5) as xpBaseObject
Dim BulletText(5) as xpTextObject
Dim BannerText(2) as xpTextObject
Dim BannerGroup as xpBaseObject
Dim BulletGroup as xpBaseObject
Dim BlackTrans as xpBaseObject
Dim b as Short
Dim y as Double
Dim l as Long
Dim i as Integer
Self.GetObjectByName("BANNER", Banner)
Self.GetObjectByName("BLUE BKG1", BlueBKG(1))
Self.GetObjectByName("BLUE BKG2", BlueBKG(2))
Self.GetObjectByName("FULL IMAGE", FullImage)
Self.GetObjectByName("OVERLAY IMAGE", OverlayImage)
Self.GetObjectByName("BANNER GROUP", BannerGroup)
Self.GetObjectByName("BULLET GROUP", BulletGroup)
Self.GetObjectByName("TITLE BANNER TEXT", BannerText(1))
Self.GetObjectByName("BANNER TEXT 2", BannerText(2))
Self.GetObjectByName("BLACK TRANSPARENT", BlackTrans)
b = 0
' Banner set up
If BannerText(1).LineCount = 1 then
BannerText(1).visible = true
BannerText(2).visible = false
Else
BannerText(2).text = BannerText(1).text
BannerText(1).visible = false
BannerText(2).visible = true
End if
If BannerText(1).Text = "" then
BannerGroup.visible = false
End if
' Bullets set up
For i = 1 to 5
Self.GetObjectByName("BULLET " & (i), Bullet(i))
Self.GetObjectByName("BULLET TEXT " & (i), BulletText(i))
If BulletText(i).Text = "" then
Bullet(i).visible = false
Else
Bullet(i).visible = true
b = b + 1
End if
Next i
BulletText(1).posY = 774.07
BulletText(2).posY = -130.50
BulletText(3).posY = -130.50
BulletText(4).posY = -130.50
BulletText(5).posY = -130.50
' Bullet Line Counts
For i = 1 to 4
If BulletText(i).linecount > 1 then
l = BulletText(i).linecount
BulletText(i + 1).posY = BulletText(i + 1).posY - (40 * (l - 1))
End if
Next i
' Total number of lines
l = BulletText(1).linecount + BulletText(2).linecount + BulletText(3).linecount + BulletText(4).linecount + BulletText(5).linecount
For i = 1 to 5
If BulletText(i).Text = "" then
l = l - 1
End if
Next i
' squishing for too many total lines
l = l + b - 1
If l > 11 then
l = ((l - 11) * 5)
Y = BulletText(1).posY
BulletText(1).posY = Y + l
For i = 2 to 5
Y = BulletText(i).posY
BulletText(i).posY = Y + l
Next i
End if
Y = BulletText(1).posY
If BannerText(1).Text = ""
Y = BulletText(1).posY
BulletText(1).posY = Y + 80
End if
if b = 0 then
BlackTrans.visible = false
else
BlackTrans.visible = true
end if
#XPression