1080
1920
SoundVolume
Var Timeout = 0
Var ImageDir = "ROOT/taobin_project/image/event/happy_trios/"
If show_eng = "true" Then
Var Image = ImageDir + "send_code_pending_en.png"
Else
Var Image = ImageDir + "send_code_pending_th.png"
EndIf
Var CodeIsSended = 0
DEBUGVAR Image
DEBUGVAR TelephoneNumber
Var Param1 = "152"
Var Param2 = ""
Var Param3 = ""
AddData 43 TelephoneNumber Param1 Param2 Param3
1000
Var Timeout = Timeout + 1
If Timeout > 5 Then
If CodeIsSended = 1 Then
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
Var Timeout = 0
EndIf
EndIf
TimerReset
Refresh
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
Open "/media/bt/xml/security_alarm.xml"
If Ext1a = "ok" Then
If show_eng = "true" Then
Var Image = ImageDir + "send_code_complate_en.png"
Else
Var Image = ImageDir + "send_code_complate_th.png"
EndIf
Var CodeIsSended = 1
Else
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
EndIf
Var Timeout = 0
Refresh
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
Var Timeout = 0
Refresh
;include="ROOT/taobin_project/inc/video.inc"
0
380
"ROOT/taobin_project/image/collectiing/alpha.png"
158
607
Image