"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 Var BmiYear = "0/0/0/0/0/0/0/0/0/1" Var PointCrm = "pdpa1" Var GetScore = "" Var TelephoneNumber = TelephoneNumberX Var Seeker.TNumberTaobinMember = TelephoneNumber Var PointMaskState = "Invisible" Var CoffeePointStr = CoffeePoint DEBUGVAR TelephoneNumber DEBUGVAR TelephoneNumberX Var PointRootDir = "ROOT/taobin_project/image/event/jemila" If show_eng = "true" Then Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Var CloseBtnImg = PointRootDir + "/continue_en_btn.png" Else Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" Var CloseBtnImg = PointRootDir + "/continue_btn.png" EndIf Var CheckCoupons = 0 Var MakeDrinkState = 0 Var PointCount = 0 DEBUGVAR PointState[0] DEBUGVAR PointState[1] DEBUGVAR PointState[2] DEBUGVAR PointState[3] DEBUGVAR PointState[4] DEBUGVAR PointState[5] DEBUGVAR PointState[6] DEBUGVAR PointImage[0] DEBUGVAR PointImage[1] DEBUGVAR PointImage[2] DEBUGVAR PointImage[3] DEBUGVAR PointImage[4] DEBUGVAR PointImage[5] DEBUGVAR PointImage[6] DEBUGVAR PointName[0] DEBUGVAR PointName[1] DEBUGVAR PointName[2] DEBUGVAR PointName[3] DEBUGVAR PointName[4] DEBUGVAR PointName[5] DEBUGVAR PointName[6] If PointState[0] = 1 Then Var PointCount = PointCount + 1 EndIf If PointState[1] = 1 Then Var PointCount = PointCount + 1 EndIf If PointState[2] = 1 Then Var PointCount = PointCount + 1 EndIf If PointState[3] = 1 Then Var PointCount = PointCount + 1 EndIf If PointState[4] = 1 Then Var PointCount = PointCount + 1 EndIf If PointState[5] = 1 Then Var PointCount = PointCount + 1 EndIf If PointState[6] = 1 Then Var PointCount = PointCount + 1 EndIf Var PointDiff = 7 - PointCount If show_eng = "true" Then Var MemberText = "Your member status" Var MissionText = "Aura in every role" Var TaobinLevelDesc1 = "" + PointDiff Var TaobinLevelDesc1 = TaobinLevelDesc1 + " menus to win! Glowing item." Var TaobinLevelDesc2 = "Gather all 7 Tao Bin x Jemila menus to win!" Var subTitle_Y = 839 Var text8_X = 224 Else Var MemberText = "สถานะสมาชิก" Var MissionText = "ออร่าได้ทุกบทบาท" Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูที่จะได้กดสุ่มรางวัลสุด Exclusive" Var TaobinLevelDesc2 = "สะสมให้ครบ 7 เมนู Tao Bin x Jemila" Var subTitle_Y = 853 Var text8_X = 346 EndIf If PointCount >= 7 Then Var CloseBtnImg = PointRootDir + "/bn_random.png" EndIf Var CurrentPointSlot = newPointIndex + 1 Var UpdatePoint = 0 1000 Var CountDownBrewing = BREW_CNT Var ShowCountDownBrewing = CountDownBrewing Var Timeout = Timeout + 1 If Timeout > 10 Then Var CurrentPointCheck = "check" Var val3 = "X" AddData 53 TelephoneNumber CurrentPointSlot CurrentPointCheck val3 Var UpdatePoint = 1 EndIf TimerReset Refresh If UpdatePoint = 1 Then If Seeker.CodeChannel = 1 Then If Seeker.CollectPointMain = 1 Then GETACCEXT Param1 23 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Else GETACCEXT Param1 23 Open "ROOT/taobin_project/xml/page_collect_point_2.xml" EndIf EndIf Open "/media/bt/xml/security_alarm.xml" If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then Var MachineState_Result = 2 EndIf ;include="ROOT/taobin_project/inc/video.inc" 0 380 "ROOT/taobin_project/image/display_point/alpha.png" 158 665 Var( PointRootDir + "/bg_top.png" ) 158 1085 Var( PointRootDir + "/bg_bottom.png" ) 243 722 380 36 24 0x746253 KanitMediumTTF MemberText 243 850 360 48 32 0x746253 KanitMediumTTF MissionText 591 672 Var( PointRootDir + "/tao_jemila.png" ) ; 243 758 36 480 42 RobotoBold 0x513C2F TaobinName 243 815 14 100 RobotoRegular 0x746253 TNumberTaobinMemberXXX Telnum-mask-1 ; Header 247 902 48 56 56 RobotoBold 0xDE794E PointCount 247 970 20 500 30 RobotoBold 0xDE794E TaobinLevelDesc1 247 1001 20 600 RobotoBold 0x746253 TaobinLevelDesc2 201 1108 Var( PointRootDir + PointImage[0]) 373 1108 Var( PointRootDir + PointImage[1]) 547 1108 Var( PointRootDir + PointImage[2]) 722 1108 Var( PointRootDir + PointImage[3]) 287 1363 Var( PointRootDir + PointImage[4]) 462 1363 Var( PointRootDir + PointImage[5]) 638 1363 Var( PointRootDir + PointImage[6]) 192 1354 170 RobotoBold 14 0x000000 center-vertical-horizontal PointName[0] 367 1354 170 RobotoBold 14 0x000000 center-vertical-horizontal PointName[1] 542 1354 170 RobotoBold 14 0x000000 center-vertical-horizontal PointName[2] 717 1354 170 RobotoBold 14 0x000000 center-vertical-horizontal PointName[3] 281 1612 170 RobotoBold 14 0x000000 center-vertical-horizontal PointName[4] 456 1612 170 RobotoBold 14 0x000000 center-vertical-horizontal PointName[5] 631 1612 170 RobotoBold 14 0x000000 center-vertical-horizontal PointName[6] 403 1660 CloseBtnImg CloseBtnImg "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; goto lid straw If PointCount >= 7 Then If SELLONLINE = 1 Then Var CurrentPointCheck = "" Else Var CurrentPointCheck = "check" EndIf Var val3 = "X" AddData 53 TelephoneNumber CurrentPointSlot CurrentPointCheck val3 Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml" Else Var CurrentPointCheck = "check" Var val3 = "X" AddData 53 TelephoneNumber CurrentPointSlot CurrentPointCheck val3 Var UpdatePoint = 1 EndIf ; 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing Var PointState[0] = 1 Var PointState[1] = 1 Var PointState[2] = 1 Var PointState[3] = 1 Var PointState[4] = 1 Var PointState[5] = 1 Var PointState[6] = 1 Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_3.xml" If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" EndIf Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_3.xml"