vdayအတြက္ရည္ရြယ္လုပ္ထားတာေလး

vdayအတြက္ရည္ရြယ္လုပ္ထားတာေလး

SetActivityTitle("သိပ္ခ်စ္ေနလို႔ပါ")
SetActivityColor(0,cred)

SetActivityBackground("AssetsDir","chit.jpg")
AddLabel("l1",30*x,30*y,60*x,8*y,"")
SetText("l1","")
AniText1 = "ျဖဴစင္ဝင္းပ"
SetTextColor("l1",cred)
SetTextSize("l1",21)
AniPoa = 0
SetTimer1Enabled(true)
SetTimer1Interval(400)

AddLabel("l2",30*x,38*y,60*x,8*y,"")
SetText("l2","")
AniText2 = "လွပေက်ာ့ရွင္း"
SetTextColor("l2",cred)
SetTextSize("l2",21)
AniPob = 0
SetTimer2Enabled(false)
SetTimer2Interval(400)

AddLabel("l3",30*x,45*y,60*x,8*y,"")
SetText("l3","")
AniText3 = "လွယမင္းေလးရယ္မင္းကို"
SetTextColor("l3",cred)
SetTextSize("l3",21)
AniPoc = 0
SetTimer3Enabled(false)
SetTimer3Interval(400)
AddLabel("l4",30*x,52*y,60*x,8*y,"")
SetText("l4","")
AniText4 = "ကိုခ်စ္တယ္...."
SetTextColor("l4",cred)
SetTextSize("l4",21)
AniPoc = 0
SetTimer4Enabled(false)
SetTimer4Interval(400)

Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub

Sub Timer1_Tick
AniPoa = AniPoa + 1
a = StartString2(AniText1,0,AniPoa)
SetText("l1",a)
if AniPoa >StringLength(AniText1) -1 then
AniPoa = 0
SetTimer1Enabled(false)
SetTimer2Enabled(true)
End If
End Sub

Sub Timer2_Tick

AniPob = AniPob + 1
c = StartString2(AniText2,0,AniPob)
SetText("l2",c)
if AniPob >StringLength(AniText2) -1 then
AniPob = 0
SetTimer2Enabled(false)
SetTimer3Enabled(true)
End If
End Sub

Sub Label_Click(Who)
End Sub

Sub Timer3_Tick
AniPoc = AniPoc + 1
e = StartString2(AniText3,0,AniPoc)
SetText("l3",e)
if AniPoc >StringLength(AniText3) -1 then
AniPoc = 0
SetTimer3Enabled(false)
SetTimer4Enabled(true)
End If
End Sub

Sub Timer4_Tick
AniPoc = AniPoc + 1
f = StartString2(AniText4,0,AniPoc)
SetText("l4",f)
if AniPoc >StringLength(AniText4) -1 then
AniPoc = 0
SetTimer4Enabled(false)
SetTimer5enabled(true)
SetTimer5Interval(1)
end if
End Sub

Sub Label_Click(Who)
End Sub

Sub Timer5_Tick
End Sub