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