THAI: Added Jemila promotion collect point and random reward

xml/event/jemila/page_collect_point_jemila_2.xml

@@ -0,0 +1,620 @@
+<Popup>
+<Cache> "Enable" </Cache>
+<Width> 1080 </Width>
+<Height> 1920 </Height>
+<Background> "0xeae6e1" </Background>
+<Volume> SoundVolume </Volume>
+
+<EventOpen>
+	; On open
+
+	Var Timeout = 0
+	SAVELOG UnitTestType
+
+	Var TaobinLevel = 0
+	Var Point2X = 0
+
+	Var Seeker.TaobinErrorNetwork = 0
+
+	 If show_eng = "true" Then 
+		Var DirImage = "ROOT/taobin_project/image/collectiing_en"
+		
+		Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
+	Else
+		Var DirImage = "ROOT/taobin_project/image/collectiing"
+
+		Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
+	EndIf
+
+    Var Seeker.IsLineMember = 0
+    Var JemilaDewyglowOutOfStock = 0
+    Var ColorChangingBlushOutOfStock = 0
+    Var CuraMDRandomOutOfStock = 0
+
+	If PayOfflineMode = 1 Then
+		Var Seeker.TaobinErrorNetwork = 1
+		Var Seeker.PointTaobinStr = ParamCP
+		Var TelephoneNumber = TelephoneNumberX
+		Var Seeker.TNumberTaobinMember= TelephoneNumber
+		Var CollectPointError = "collect"
+		Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"
+	EndIf
+		
+</EventOpen>                   
+<Timeout> 1000 </Timeout>
+<EventTimeout> 
+	Var CountDownBrewing = BREW_CNT
+
+	Var ShowCountDownBrewing = CountDownBrewing
+
+
+	Var Timeout = Timeout + 1
+	If Timeout > 30 Then
+      
+		
+			Var TaobinLevel = 0
+			Var CoffeePoint = 1 
+
+			Var Seeker.TaobinErrorNetwork = 1
+			Var Seeker.PointTaobinStr = ParamCP
+			
+			Var TelephoneNumber = TelephoneNumberX
+			
+			Var Seeker.TNumberTaobinMember= TelephoneNumber
+			Var CollectPointError = "collect"
+			Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"
+		
+	EndIf
+
+	TimerReset
+	Refresh
+</EventTimeout> 
+
+
+
+
+			
+<EventSecurity> 
+	Open "/media/bt/xml/security_alarm.xml" 
+</EventSecurity>
+
+<EventActionOk>
+		If Ext1a = "" Then
+			
+			Var Seeker.TaobinErrorNetwork = 1
+			Var Seeker.PointTaobinStr = ParamCP
+			Var TelephoneNumber = TelephoneNumberX
+			Var Seeker.TNumberTaobinMember = TelephoneNumber
+			Var CollectPointError = "collect"
+			Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"
+			
+		Else
+            Var TaobinName = Ext1b
+            Var TelephoneNumber = TelephoneNumberX
+            Var TNumberTaobinMemberXXX = TelephoneNumber
+            Var Seeker.IsAlreadyGetReward = Ext1c
+            Var JemilaDewyglowOutOfStock = Ext1x4
+            Var ColorChangingBlushOutOfStock = Ext1x5
+            Var CuraMDRandomOutOfStock = Ext1x6
+
+
+            DEBUGVAR JemilaDewyglowOutOfStock
+            DEBUGVAR ColorChangingBlushOutOfStock
+            DEBUGVAR CuraMDRandomOutOfStock
+
+            If TaobinName = "" Then
+                Var Seeker.IsLineMember = 0 
+            Else
+                If TaobinName = "-" Then
+                    Var Seeker.IsLineMember = 0
+                Else
+                    Var Seeker.IsLineMember = 1
+                EndIf
+            EndIf
+
+
+            If Seeker.IsLineMember = 0 Then
+                SAVELOG "Not Line Member open not member page."
+                Open "ROOT/taobin_project/xml/event/jemila/page_not_member.xml"
+            EndIf
+
+            If JemilaDewyglowOutOfStock = 1 Then
+                If ColorChangingBlushOutOfStock = 1 Then
+                    If CuraMDRandomOutOfStock = 1 Then
+                        SAVELOG "All reward is out of stock writing flag 1 -> jemila_reward_out_of_stock"
+                        WRITE_FILE "/mnt/sdcard/coffeevending/jemila_reward_out_of_stock" "1"
+                        
+                        SAVELOG "skip to normal collect point."
+                        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
+                EndIf
+            EndIf   
+
+            ;If Seeker.IsAlreadyGetReward = 1 Then
+            ;    SAVELOG "Already get reward skip to normal collect point."
+            ;    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
+
+            Var Seeker.PointTaobinStr = ParamCP
+            Var Seeker.TNumberTaobinMember = TelephoneNumberX
+
+            Var PointState[0] = 0
+            Var PointState[1] = 0
+            Var PointState[2] = 0
+            Var PointState[3] = 0
+            Var PointState[4] = 0
+            Var PointState[5] = 0
+            Var PointState[6] = 0
+
+            Var PointImage[0] = "/no_point.png"
+            Var PointImage[1] = "/no_point.png"
+            Var PointImage[2] = "/no_point.png"
+            Var PointImage[3] = "/no_point.png"
+            Var PointImage[4] = "/no_point.png"
+            Var PointImage[5] = "/no_point.png"
+            Var PointImage[6] = "/no_point.png"
+
+            Var PointName[0] = ""
+            Var PointName[1] = ""
+            Var PointName[2] = ""
+            Var PointName[3] = ""
+            Var PointName[4] = ""
+            Var PointName[5] = ""
+            Var PointName[6] = ""
+
+            If show_eng = "true" Then
+                Var MenuName[0] = "HONG'S DRAGON MILK"
+                Var MenuName[1] = "MUNIN'S FAVORITE DRINK"
+                Var MenuName[2] = "MUTA  DRINK"
+                Var MenuName[3] = "JAI RERNG QUITE FIZZY"
+                Var MenuName[4] = "PRAGLAIDAO WANT IT STRONG"
+                Var MenuName[5] = "GAOMART 'S MIRACLESK"
+                Var MenuName[6] = "PATRADA'S  GINGER"
+                Var MenuName[7] = "RAVEENA'S 7UP SODA"
+                Var MenuName[8] = "KWANUMA'S LIME"
+                Var MenuName[9] = "RAVINWORAGARN'S JASMINE"
+            Else
+                Var MenuName[0] = "หงส์ ดราก้อนมิลค์"
+                Var MenuName[1] = "มุนินทร์ดริ๊งก์"
+                Var MenuName[2] = "มุตตาดื่ม"
+                Var MenuName[3] = "ใจเริงซ่าพอตัว"
+                Var MenuName[4] = "ประกายดาวขอเข้ม ๆ"
+                Var MenuName[5] = "เกล้ามาศมหัศจรรย์"
+                Var MenuName[6] = "ภัทรลดาจิงเจอ"
+                Var MenuName[7] = "ราวีน่าเซเว่นอัพ"
+                Var MenuName[8] = "ขวัญอุมามะนาว"
+                Var MenuName[9] = "รวินทร์วรกานต์มะลิ"
+            EndIf
+
+
+
+            DEBUGVAR Ext1a
+            
+            SPLIT Ext1a "/" 1 MenuPoint[0]
+            SPLIT Ext1a "/" 2 MenuPoint[1]
+            SPLIT Ext1a "/" 3 MenuPoint[2]
+            SPLIT Ext1a "/" 4 MenuPoint[3]
+            SPLIT Ext1a "/" 5 MenuPoint[4]
+            SPLIT Ext1a "/" 6 MenuPoint[5]
+            SPLIT Ext1a "/" 7 MenuPoint[6]
+            SPLIT Ext1a "/" 8 MenuPoint[7]
+            SPLIT Ext1a "/" 9 MenuPoint[8]
+            SPLIT Ext1a "/" 10 MenuPoint[9]
+
+
+            INT MenuPoint[0]
+            INT MenuPoint[1]
+            INT MenuPoint[2]
+            INT MenuPoint[3]
+            INT MenuPoint[4]
+            INT MenuPoint[5]
+            INT MenuPoint[6]
+            INT MenuPoint[7]
+            INT MenuPoint[8]
+            INT MenuPoint[9]
+
+            DEBUGVAR MenuPoint[0]
+            DEBUGVAR MenuPoint[1]
+            DEBUGVAR MenuPoint[2]
+            DEBUGVAR MenuPoint[3]
+            DEBUGVAR MenuPoint[4]
+            DEBUGVAR MenuPoint[5]
+            DEBUGVAR MenuPoint[6]
+            DEBUGVAR MenuPoint[7]
+            DEBUGVAR MenuPoint[8]
+            DEBUGVAR MenuPoint[9]
+
+            ; Menu 1
+            If Seeker.selected_a_drink = "12-03-02-0075" Then
+                If MenuPoint[0] = 1 then
+                
+                Else
+                    Var MenuPoint[0] = 1
+                    Var newPointIndex = 0
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-03-03-0075" Then
+                If MenuPoint[0] = 1 then
+                
+                Else
+                    Var MenuPoint[0] = 1
+                    Var newPointIndex = 0
+                EndIf
+            EndIf
+
+
+            ; Menu 2
+            If Seeker.selected_a_drink = "12-05-02-0124" Then	
+               If MenuPoint[1] = 1 then
+                
+                Else
+                    Var MenuPoint[1] = 1
+                    Var newPointIndex = 1
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-05-03-0124" Then   
+               If MenuPoint[1] = 1 then
+                
+                Else
+                    Var MenuPoint[1] = 1
+                    Var newPointIndex = 1
+                EndIf
+            EndIf
+
+
+            ; Menu 3
+            If Seeker.selected_a_drink = "12-02-02-0068" Then	
+                If MenuPoint[2] = 1 then
+                
+                Else
+                    Var MenuPoint[2] = 1
+                    Var newPointIndex = 2
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-02-03-0068" Then   
+                If MenuPoint[2] = 1 then
+                
+                Else
+                    Var MenuPoint[2] = 1
+                    Var newPointIndex = 2
+                EndIf
+            EndIf
+
+
+            ; Menu 4
+            If Seeker.selected_a_drink = "12-05-02-0125" Then	
+               If MenuPoint[3] = 1 then
+                
+                Else
+                    Var MenuPoint[3] = 1
+                    Var newPointIndex = 3
+                EndIf
+            EndIf
+
+
+            ; Menu 5
+            If Seeker.selected_a_drink = "12-01-02-0075" Then	
+                If MenuPoint[4] = 1 then
+                
+                Else
+                    Var MenuPoint[4] = 1
+                    Var newPointIndex = 4
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-21-02-0075" Then   
+                If MenuPoint[4] = 1 then
+                
+                Else
+                    Var MenuPoint[4] = 1
+                    Var newPointIndex = 4
+                EndIf
+            EndIf
+
+
+            ; Menu 6
+            If Seeker.selected_a_drink = "12-03-02-0076" Then	
+                If MenuPoint[5] = 1 then
+                
+                Else
+                    Var MenuPoint[5] = 1
+                    Var newPointIndex = 5
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-03-03-0076" Then   
+                If MenuPoint[5] = 1 then
+                
+                Else
+                    Var MenuPoint[5] = 1
+                    Var newPointIndex = 5
+                EndIf
+            EndIf
+
+
+            ; Menu 7
+            If Seeker.selected_a_drink = "12-02-02-0069" Then	
+                If MenuPoint[6] = 1 then
+                
+                Else
+                    Var MenuPoint[6] = 1
+                    Var newPointIndex = 6
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-02-03-0069" Then   
+                If MenuPoint[6] = 1 then
+                
+                Else
+                    Var MenuPoint[6] = 1
+                    Var newPointIndex = 6
+                EndIf
+            EndIf
+
+
+            ; Menu 8
+            If Seeker.selected_a_drink = "12-05-02-0126" Then	
+                If MenuPoint[7] = 1 then
+                
+                Else
+                    Var MenuPoint[7] = 1
+                    Var newPointIndex = 7
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-05-03-0126" Then   
+                If MenuPoint[7] = 1 then
+                
+                Else
+                    Var MenuPoint[7] = 1
+                    Var newPointIndex = 7
+                EndIf
+            EndIf
+
+
+            ; Menu 9
+            If Seeker.selected_a_drink = "12-05-02-0127" Then	
+                If MenuPoint[8] = 1 then
+                
+                Else
+                    Var MenuPoint[8] = 1
+                    Var newPointIndex = 8
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-05-03-0127" Then   
+                If MenuPoint[8] = 1 then
+                
+                Else
+                    Var MenuPoint[8] = 1
+                    Var newPointIndex = 8
+                EndIf
+            EndIf
+
+
+            ; Menu 10
+            If Seeker.selected_a_drink = "12-02-02-0070" Then	
+                If MenuPoint[9] = 1 then
+                
+                Else
+                    Var MenuPoint[9] = 1
+                    Var newPointIndex = 9
+                EndIf
+            EndIf
+            If Seeker.selected_a_drink = "12-02-03-0070" Then   
+                If MenuPoint[9] = 1 then
+                
+                Else
+                    Var MenuPoint[9] = 1
+                    Var newPointIndex = 9
+                EndIf
+            EndIf
+
+
+            Var CurrentIndexPoint = -1
+
+            If MenuPoint[0] = 1 Then
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[0]
+                If newPointIndex = 0 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[1] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[1]
+                If newPointIndex = 1 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[2] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[2]
+                If newPointIndex = 2 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[3] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[3]
+                If newPointIndex = 3 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[4] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[4]
+                If newPointIndex = 4 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[5] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[5]
+                If newPointIndex = 5 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[6] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[6]
+                If newPointIndex = 6 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[7] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[7]
+                If newPointIndex = 7 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[8] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[8]
+                If newPointIndex = 8 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+            If MenuPoint[9] = 1 Then	
+                Var CurrentIndexPoint = CurrentIndexPoint + 1
+                Var PointState[CurrentIndexPoint] = 1
+                PointName[CurrentIndexPoint] = MenuName[9]
+                If newPointIndex = 9 Then
+                    Var PointImage[CurrentIndexPoint] = "/new_point.png"
+                Else    
+                    Var PointImage[CurrentIndexPoint] = "/point.png"
+                EndIf
+            EndIf
+
+
+
+            DEBUGVAR Seeker.selected_a_drink
+            DEBUGVAR newPointIndex
+
+            DEBUGVAR Seeker.PointTaobinStr
+            DEBUGVAR Seeker.TNumberTaobinMember
+
+            Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_3.xml" 
+		EndIf
+
+</EventActionOk>
+
+<EventActionError> 
+
+		Var Seeker.TaobinErrorNetwork = 1
+	
+		Var Seeker.PointTaobinStr = ParamCP
+		Var TelephoneNumber = TelephoneNumberX
+		Var Seeker.TNumberTaobinMember= TelephoneNumber
+		Var CollectPointError = "collect"
+		Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"
+	
+
+</EventActionError> 
+
+<EventMachine>
+	If MachineStage = "drink-success" Then
+		Var MachineState_Result = 1
+	EndIf
+
+	If MachineStage = "drink-failed" Then
+		Var MachineState_Result = 2
+	EndIf
+</EventMachine>
+
+
+
+<Image>
+<X> 178 </X>
+<Y> 680 </Y>
+<Filename> Var( DirImage + "/text20.png" ) </Filename>
+</Image>
+
+
+;include="ROOT/taobin_project/inc/video.inc"
+
+<Text>
+<X> 0 </X>
+<Y> 873 </Y>
+<Width> 1080 </Width>
+<Align> Center </Align>
+<Size> 62 </Size>
+<Font> RobotoBlack </Font>
+<Color> 0x513C2F </Color>
+<Value> TelephoneNumber </Value>
+<Format> Telnum-mask-1 </Format>
+</Text>
+
+
+;
+<Image>
+<X> 751 </X>
+<Y> 413 </Y>
+<Filename> IMG_CNT </Filename>
+</Image>
+;
+<Text>
+<X> XPosiShowCountDownBrew </X>
+<Y> 470 </Y>
+<Align> End </Align>
+<Width> 153 </Width>
+<Size> 88 </Size>
+<Font> RobotoBold </Font>
+<Color> 0x513C2F </Color>
+<Value> ShowCountDownBrewing </Value>
+</Text>
+
+
+</Popup>

xml/event/jemila/page_collect_point_jemila_3.xml

@@ -0,0 +1,490 @@
+<Popup>
+<Cache> "Enable" </Cache>
+<Width> 1080 </Width>
+<Height> 1920 </Height>
+<Background> "0xeae6e1" </Background>
+<Volume> SoundVolume </Volume>
+
+<EventOpen>
+	; 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
+
+</EventOpen>
+<Timeout> 1000 </Timeout>
+<EventTimeout> 
+
+	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
+</EventTimeout> 
+
+
+<EventActionError>
+
+</EventActionError>
+
+<EventActionOk>
+
+    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
+
+</EventActionOk>
+	
+<EventSecurity> 
+	Open "/media/bt/xml/security_alarm.xml" 
+</EventSecurity>
+
+
+<EventMachine>
+	If MachineStage = "drink-success" Then
+		Var MachineState_Result = 1
+	EndIf
+
+	If MachineStage = "drink-failed" Then
+		Var MachineState_Result = 2
+	EndIf
+</EventMachine>
+
+;include="ROOT/taobin_project/inc/video.inc"
+
+
+<Image>
+<X> 0 </X>
+<Y> 380 </Y>
+<Filename> "ROOT/taobin_project/image/display_point/alpha.png" </Filename>
+</Image>
+
+
+
+
+<Image>
+<X> 158 </X>
+<Y> 665 </Y>
+<Filename> Var( PointRootDir + "/bg_top.png" )</Filename>
+</Image>
+
+<Image>
+<X> 158 </X>
+<Y> 1085 </Y>
+<Filename> Var( PointRootDir + "/bg_bottom.png" )</Filename>
+</Image>
+
+<Text>
+<X> 243 </X>
+<Y> 722 </Y>
+<Width> 380 </Width>
+<Height> 36 </Height>
+<Size> 24 </Size>
+<Color> 0x746253 </Color>
+<Font> KanitMediumTTF </Font>
+<Value> MemberText </Value>
+</Text>
+
+
+<Text>
+<X> 243 </X>
+<Y> 850 </Y>
+<Width> 360 </Width>
+<Height> 48 </Height>
+<Size> 32 </Size>
+<Color> 0x746253 </Color>
+<Font> KanitMediumTTF </Font>
+<Value> MissionText </Value>
+</Text>
+
+
+<Image>
+<X> 591 </X>
+<Y> 672 </Y>
+<Filename> Var( PointRootDir + "/tao_jemila.png" )</Filename>
+</Image>
+;
+
+
+<Text>
+<X> 243 </X>
+<Y> 758 </Y>
+<Size> 36 </Size>
+<Width> 480 </Width>
+<Height> 42 </Height>
+<Font> RobotoBold </Font>
+<Color> 0x513C2F </Color>
+<Value> TaobinName </Value>
+</Text>
+
+<Text>
+<X> 243 </X>
+<Y> 815 </Y>
+<Size> 14 </Size>
+<Width> 100 </Width>
+<Font> RobotoRegular </Font>
+<Color> 0x746253 </Color>
+<Value> TNumberTaobinMemberXXX </Value>
+<Format> Telnum-mask-1 </Format>
+</Text>
+
+; Header
+<Text>
+<X> 247 </X>
+<Y> 902 </Y>
+<Size> 48 </Size>
+<Width> 56 </Width>
+<Height> 56 </Height>
+<Font> RobotoBold </Font>
+<Color> 0xDE794E </Color>
+<Value> PointCount </Value>
+</Text>
+
+<Text>
+<X> 247 </X>
+<Y> 970 </Y>
+<Size> 20 </Size>
+<Width> 500 </Width>
+<Height> 30 </Height>
+<Font> RobotoBold </Font>
+<Color> 0xDE794E </Color>
+<Value> TaobinLevelDesc1 </Value>
+</Text>
+
+<Text>
+<X> 247 </X>
+<Y> 1001 </Y>
+<Size> 20 </Size>
+<Width> 600 </Width>
+<Font> RobotoBold </Font>
+<Color> 0x746253 </Color>
+<Value> TaobinLevelDesc2 </Value>
+</Text>
+
+
+<Image>
+<X> 201 </X>
+<Y> 1108 </Y>
+<Filename> Var( PointRootDir +  PointImage[0]) </Filename>
+</Image>
+
+<Image>
+<X> 373 </X>
+<Y> 1108 </Y>
+<Filename> Var( PointRootDir +  PointImage[1]) </Filename>
+</Image>
+
+
+<Image>
+<X> 547 </X>
+<Y> 1108 </Y>
+<Filename> Var( PointRootDir +  PointImage[2]) </Filename>
+</Image>
+
+
+<Image>
+<X> 722 </X>
+<Y> 1108 </Y>
+<Filename> Var( PointRootDir +  PointImage[3]) </Filename>
+</Image>
+
+
+<Image>
+<X> 287 </X>
+<Y> 1363 </Y>
+<Filename> Var( PointRootDir +  PointImage[4]) </Filename>
+</Image>
+
+
+<Image>
+<X> 462 </X>
+<Y> 1363 </Y>
+<Filename> Var( PointRootDir +  PointImage[5]) </Filename>
+</Image>
+
+
+<Image>
+<X> 638 </X>
+<Y> 1363 </Y>
+<Filename> Var( PointRootDir +  PointImage[6]) </Filename>
+</Image>
+
+<Text>
+<X> 192 </X>
+<Y> 1354 </Y>
+<Width> 270 </Width>
+<Font> RobotoBold </Font>
+<Size> 14 </Size>
+<Color> 0x000000 </Color>
+<Align> Center </Align>
+<Value> PointName[0] </Value>
+</Text>
+
+<Text>
+<X> 367 </X>
+<Y> 1354 </Y>
+<Width> 270 </Width>
+<Font> RobotoBold </Font>
+<Size> 14 </Size>
+<Color> 0x000000 </Color>
+<Align> Center </Align>
+<Value> PointName[1] </Value>
+</Text>
+
+<Text>
+<X> 542 </X>
+<Y> 1354 </Y>
+<Width> 270 </Width>
+<Font> RobotoBold </Font>
+<Size> 14 </Size>
+<Color> 0x000000 </Color>
+<Align> Center </Align>
+<Value> PointName[2] </Value>
+</Text>
+
+<Text>
+<X> 717 </X>
+<Y> 1354 </Y>
+<Width> 270 </Width>
+<Font> RobotoBold </Font>
+<Size> 14 </Size>
+<Color> 0x000000 </Color>
+<Align> Center </Align>
+<Value> PointName[3] </Value>
+</Text>
+
+<Text>
+<X> 281 </X>
+<Y> 1612 </Y>
+<Width> 270 </Width>
+<Font> RobotoBold </Font>
+<Size> 14 </Size>
+<Color> 0x000000 </Color>
+<Align> Center </Align>
+<Value> PointName[4] </Value>
+</Text>
+
+<Text>
+<X> 456 </X>
+<Y> 1612 </Y>
+<Width> 270 </Width>
+<Font> RobotoBold </Font>
+<Size> 14 </Size>
+<Color> 0x000000 </Color>
+<Align> Center </Align>
+<Value> PointName[5] </Value>
+</Text>
+
+<Text>
+<X> 631 </X>
+<Y> 1612 </Y>
+<Width> 270 </Width>
+<Font> RobotoBold </Font>
+<Size> 14 </Size>
+<Color> 0x000000 </Color>
+<Align> Center </Align>
+<Value> PointName[6] </Value>
+</Text>
+
+<Button>
+<X> 403 </X>
+<Y> 1660 </Y>
+<Filename> CloseBtnImg </Filename>
+<FilenamePress> CloseBtnImg </FilenamePress>
+<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
+<Volume> SoundVolume </Volume>
+<EventClick> 
+	; 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
+
+</EventClick>
+</Button>
+
+
+;
+<Image>
+<X> 751 </X>
+<Y> 413 </Y>
+<Filename> IMG_CNT </Filename>
+</Image>
+;
+<Text>
+<X> XPosiShowCountDownBrew </X>
+<Y> 470 </Y>
+<Align> End </Align>
+<Width> 153 </Width>
+<Size> 88 </Size>
+<Font> RobotoBold </Font
+<Color> 0x513C2F </Color>
+<Value> ShowCountDownBrewing </Value>
+</Text>
+
+<EventUnitTest3>
+	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"
+</EventUnitTest3>
+
+<EventUnitTest4>
+	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"
+</EventUnitTest4>
+
+
+</Popup>

xml/event/jemila/page_collect_point_jemila_error.xml

@@ -0,0 +1,240 @@
+<Popup>
+<Cache> "Enable" </Cache>
+<Width> 1080 </Width>
+<Height> 1920 </Height>
+<Background> "0xeae6e1" </Background>
+<Volume> SoundVolume </Volume>
+
+<EventOpen>
+	; On open
+
+
+	Var Timeout = 0
+	SAVELOG show_eng
+
+
+	DEBUGVAR CollectPointError
+
+	Var DirImage = "ROOT/taobin_project/image/event/jemila"
+	Var ButtonImagePath = "ROOT/taobin_project/image/collectiing"
+
+	If CollectPointError = "collect" Then
+		If show_eng = "true" Then
+			Var text_fail = DirImage + "/text_fail_collect_en.png"
+		Else
+			Var text_fail = DirImage + "/text_fail_collect_th.png"
+		EndIf
+	EndIf
+
+	If CollectPointError = "random" Then
+		If show_eng = "true" Then
+			Var text_fail = DirImage + "/text_fail_send_reward_en.png"
+		Else
+			Var text_fail = DirImage + "/text_fail_send_reward_th.png"
+		EndIf
+	EndIf
+
+	Var newPointIndex = 0
+
+	; Menu 1
+	If Seeker.selected_a_drink = "12-03-02-0075" Then
+		Var newPointIndex = 0
+	EndIf
+	If Seeker.selected_a_drink = "12-03-03-0075" Then
+		Var newPointIndex = 0
+	EndIf
+
+
+	; Menu 2
+	If Seeker.selected_a_drink = "12-05-02-0124" Then
+		Var newPointIndex = 1
+	EndIf
+	If Seeker.selected_a_drink = "12-05-03-0124" Then
+		Var newPointIndex = 1
+	EndIf
+
+
+	; Menu 3
+	If Seeker.selected_a_drink = "12-02-02-0068" Then
+		Var newPointIndex = 2
+	EndIf
+	If Seeker.selected_a_drink = "12-02-03-0068" Then
+		Var newPointIndex = 2
+	EndIf
+
+
+	; Menu 4
+	If Seeker.selected_a_drink = "12-05-02-0125" Then
+		Var newPointIndex = 3
+	EndIf
+
+
+	; Menu 5
+	If Seeker.selected_a_drink = "12-01-02-0075" Then
+		Var newPointIndex = 4
+	EndIf
+	If Seeker.selected_a_drink = "12-21-02-0075" Then
+		Var newPointIndex = 4
+	EndIf
+
+
+	; Menu 6
+	If Seeker.selected_a_drink = "12-03-02-0076" Then
+		Var newPointIndex = 5
+	EndIf
+	If Seeker.selected_a_drink = "12-03-03-0076" Then
+		Var newPointIndex = 5
+	EndIf
+
+
+	; Menu 7
+	If Seeker.selected_a_drink = "12-02-02-0069" Then
+		Var newPointIndex = 6
+	EndIf
+	If Seeker.selected_a_drink = "12-02-03-0069" Then
+		Var newPointIndex = 6
+	EndIf
+
+
+	; Menu 8
+	If Seeker.selected_a_drink = "12-05-02-0126" Then
+		Var newPointIndex = 7
+	EndIf
+	If Seeker.selected_a_drink = "12-05-03-0126" Then
+		Var newPointIndex = 7
+	EndIf
+
+
+	; Menu 9
+	If Seeker.selected_a_drink = "12-05-02-0127" Then
+		Var newPointIndex = 8
+	EndIf
+	If Seeker.selected_a_drink = "12-05-03-0127" Then
+		Var newPointIndex = 8
+	EndIf
+
+	; Menu 10
+	If Seeker.selected_a_drink = "12-02-02-0070" Then
+		Var newPointIndex = 8
+	EndIf
+	If Seeker.selected_a_drink = "12-02-03-0070" Then
+		Var newPointIndex = 8
+	EndIf
+
+	Var CurrentPointSlot = newPointIndex + 1
+	Var CurrentPointCheck = "check"
+	Var val3 = "X"
+	AddData 53 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
+
+</EventOpen>
+<Timeout> 1000 </Timeout>
+<EventTimeout>
+
+	Var CountDownBrewing = BREW_CNT
+
+	Var ShowCountDownBrewing = CountDownBrewing
+
+	Var Timeout = Timeout + 1
+	If Timeout > 5 Then
+		Open "ROOT/taobin_project/xml/page_lid_straw.xml"
+	EndIf
+
+	TimerReset
+	Refresh
+</EventTimeout>
+
+<EventMachine>
+	If MachineStage = "drink-success" Then
+		Var MachineState_Result = 1
+	EndIf
+
+	If MachineStage = "drink-failed" Then
+		Var MachineState_Result = 2
+	EndIf
+</EventMachine>
+
+
+
+<Image>
+<X> 0 </X>
+<Y> 380 </Y>
+<Filename> Var( DirImage + "/fail_bg.png" ) </Filename>
+</Image>
+
+<Image>
+<X> 63 </X>
+<Y> 471 </Y>
+<Filename> Var( DirImage + "/fail_img.png") </Filename>
+</Image>
+
+<Image>
+<X> 28 </X>
+<Y> 1492 </Y>
+<Filename> text_fail </Filename>
+</Image>
+
+
+<Button>
+<X> 401 </X>
+<Y> 1771 </Y>
+<Filename> Var( ButtonImagePath + "/bn_confirm.png" ) </Filename>
+<FilenamePress> Var( ButtonImagePath + "/bn_confirm.png" ) </FilenamePress>
+<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
+<Volume> SoundVolume </Volume>
+<EventClick>
+	; goto lid straw
+
+
+	Open "ROOT/taobin_project/xml/page_lid_straw.xml"
+
+</EventClick>
+</Button>
+
+
+
+;include="ROOT/taobin_project/inc/video.inc"
+
+
+
+;
+<Image>
+<X> 751 </X>
+<Y> 413 </Y>
+<Filename> IMG_CNT </Filename>
+</Image>
+;
+<Text>
+<X> XPosiShowCountDownBrew </X>
+<Y> 470 </Y>
+<Align> End </Align>
+<Width> 153 </Width>
+<Size> 88 </Size>
+<Font> RobotoBold </Font>
+<Color> 0x513C2F </Color>
+<Value> ShowCountDownBrewing </Value>
+</Text>
+
+<EventSecurity>
+	Open "/media/bt/xml/security_alarm.xml"
+</EventSecurity>
+
+<EventUnitTest1>
+	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_error.xml"
+</EventUnitTest1>
+
+<EventUnitTest4>
+	If CollectPointError = "collect" then
+		Var CollectPointError = "random"
+	Else
+		Var CollectPointError = "collect"
+	EndIf
+
+	Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"
+</EventUnitTest4>
+
+</Popup>

xml/event/jemila/page_jemila_random.xml

@@ -0,0 +1,386 @@
+<Popup>
+    <Width> 1080 </Width>
+    <Height> 1920 </Height>
+    <Volume> SoundVolume </Volume>
+    ;<Background> "0xeae6e1" </Background>
+
+    <EventOpen>
+        Var Timeout = 0
+
+        Var DirImage = "ROOT/taobin_project/image/event/jemila"
+
+        Var MaxRandomIndex = 0
+        Var SelectNumber = 0
+
+        Var ShakeCount = 0
+
+        Var SelectingState = "Enable"
+        Var SelectedState = "Invisible"
+
+        Var SelectedRandomImg = ""
+
+        If JemilaDewyglowOutOfStock = 0 Then
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "jemila_dewyglow"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+        EndIf
+
+        If ColorChangingBlushOutOfStock = 0 Then
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "color_changing_blush"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+        EndIf
+
+        If CuraMDRandomOutOfStock = 0 Then
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+            Var rewardList[MaxRandomIndex] = "cura_md_random"
+            Var MaxRandomIndex = MaxRandomIndex + 1
+        EndIf
+
+        
+
+    </EventOpen>
+
+    <Timeout> 1000 </Timeout>
+    <EventTimeout>
+        DEBUGVAR Timeout
+
+        Var CountDownBrewing = BREW_CNT
+
+	    Var ShowCountDownBrewing = CountDownBrewing
+
+       If Timeout > 15 Then
+           SAVELOG "Timeout 15 second auto random for you"
+           Function 2
+       EndIf
+
+       If SelectedState = "Enable" Then
+            If Timeout > 4 Then
+                Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random_result.xml"
+            EndIf
+       EndIf
+
+       Var Timeout = Timeout + 1
+
+        TimerReset
+	    Refresh
+    </EventTimeout>
+
+
+;include="ROOT/taobin_project/inc/video.inc"
+
+
+    ; Background
+    <Image>
+        <X> 0 </X>
+        <Y> 380 </Y>
+        <Filename> Var( DirImage + "/random_bg.png") </Filename>
+    </Image>
+
+    <Image>
+        <X> 247 </X>
+        <Y> 698 </Y>
+        <State> SelectingState </State>
+        <Filename> Var( DirImage + "/random_select_effect.png") </Filename>
+    </Image>
+
+    <Image>
+        <X> 368 </X>
+        <Y> 625 </Y>
+        <State> SelectingState </State>
+        <Filename> Var( DirImage + "/random_select_img_1.png") </Filename>
+        <EventClick>
+            Var SelectedRandomImg = DirImage + "/random_open_img_1.png"
+            Function 2
+        </EventClick>
+    </Image>
+
+    <Image>
+        <X> 58 </X>
+        <Y> 1163 </Y>
+        <State> SelectingState </State>
+        <Filename> Var( DirImage + "/random_select_img_2.png") </Filename>
+        <EventClick>
+            Var SelectedRandomImg = DirImage + "/random_open_img_2.png"
+            Function 2
+        </EventClick>
+    </Image>
+
+    <Image>
+        <X> 668 </X>
+        <Y> 1151 </Y>
+        <State> SelectingState </State>
+        <Filename> Var( DirImage + "/random_select_img_3.png") </Filename>
+        <EventClick>
+            Var SelectedRandomImg = DirImage + "/random_open_img_3.png"
+            Function 2
+        </EventClick>
+    </Image>
+
+    <Image>
+        <X> 0 </X>
+        <Y> 380 </Y>
+        <State> SelectedState </State>
+        <Filename> SelectedRandomImg </Filename>
+    </Image>
+
+    <Function2>
+        ; Random coupon
+        Var randResultInt = 0
+        Var CodeType = ""
+
+        DEBUGVAR MaxRandomIndex
+        Random2 0 MaxRandomIndex randResultInt
+        DEBUGVAR randResultInt
+        Var randResultStr = rewardList[randResultInt] 
+        
+        If randResultStr = "jemila_dewyglow" Then
+            Var CodeType = "147"
+        EndIf
+
+        if randResultStr = "color_changing_blush" Then
+            Var CodeType = "148"
+        EndIf
+
+        If randResultStr = "cura_md_random" Then
+            Var CodeType = "149"
+        EndIf
+
+        Var SelectingState = "Invisible"
+        Var SelectedState = "Enable"
+
+        DEBUGVAR randResultInt
+        DEBUGVAR randResultStr
+        DEBUGVAR CodeType
+
+        Var Timeout = 0
+        Refresh
+    </Function2>
+
+
+    ;
+    <Image>
+    <X> 751 </X>
+    <Y> 413 </Y>
+    <Filename> IMG_CNT </Filename>
+    </Image>
+    ;
+    <Text>
+    <X> XPosiShowCountDownBrew </X>
+    <Y> 470 </Y>
+    <Align> End </Align>
+    <Width> 153 </Width>
+    <Size> 88 </Size>
+    <Font> RobotoBold </Font>
+    <Color> 0x513C2F </Color>
+    <Value> ShowCountDownBrewing </Value>
+    </Text>
+
+    <EventUnitTest1>
+        OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
+    </EventUnitTest1>
+
+    <EventUnitTest2>
+        Var show_eng = "false"
+        Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml"
+    </EventUnitTest2>
+
+    <EventUnitTest3>
+        Var show_eng = "true"
+        Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml"
+    </EventUnitTest3>
+
+    <EventUnitTest4>
+        Function 2
+    </EventUnitTest4>
+
+</Popup>

xml/event/jemila/page_jemila_random_result.xml

@@ -0,0 +1,147 @@
+<Popup>
+    <Cache> "Enable" </Cache>
+    <Width> 1080 </Width>
+    <Height> 1920 </Height>
+    <Volume> SoundVolume </Volume>
+    ;<Background> "0xeae6e1" </Background>
+
+    <EventOpen>
+        Var Timeout = 0
+
+        Var DirImage = "ROOT/taobin_project/image/event/jemila"
+
+        Var RewardBg = DirImage + "/reward_bg.png"
+
+        If CodeType = "147" Then
+            If show_eng = "true" Then
+                Var RewardText = DirImage + "/reward_1_name_en.png"
+            Else
+                Var RewardText = DirImage + "/reward_1_name_th.png"
+            EndIf
+            Var RewardImage = DirImage + "/reward_1.png"
+            Var RewardText_X = 157
+            Var RewardText_Y = 638
+            Var RewardImage_X = 110
+            Var RewardImage_Y = 871
+        EndIf
+
+        If CodeType = "148" Then
+            If show_eng = "true" Then
+                Var RewardText = DirImage + "/reward_2_name_en.png"
+                Var RewardText_X = 120
+                Var RewardText_Y = 638
+            Else
+                Var RewardText = DirImage + "/reward_2_name_th.png"
+                Var RewardText_X = 237
+                Var RewardText_Y = 638
+            EndIf
+            Var RewardImage = DirImage + "/reward_2.png"
+            Var RewardImage_X = 240
+            Var RewardImage_Y = 834
+        EndIf
+
+        If CodeType = "149" Then
+            If show_eng = "true" Then
+                Var RewardText = DirImage + "/reward_3_name_en.png"
+            Else
+                Var RewardText = DirImage + "/reward_3_name_th.png"
+            EndIf
+            Var RewardImage = DirImage + "/reward_3.png"
+            Var RewardText_X = 362
+            Var RewardText_Y = 638
+            Var RewardImage_X = 200
+            Var RewardImage_Y = 875
+        EndIf
+
+        Var CodeReward = CodeType
+        Var var2 = "X"
+        Var var3 = "X"
+        Var PhoneNum = TelephoneNumber
+        AddData 54 TelephoneNumber CodeReward var2 var3
+    </EventOpen>
+
+
+    <Timeout> 1000 </Timeout>
+    <EventTimeout>
+        DEBUGVAR Timeout
+
+        Var CountDownBrewing = BREW_CNT
+
+	    Var ShowCountDownBrewing = CountDownBrewing
+
+        If Timeout = 5 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
+       
+        Var Timeout = Timeout + 1
+        
+        TimerReset
+        Refresh
+    </EventTimeout>
+
+
+;include="ROOT/taobin_project/inc/video.inc"
+
+
+; Background
+    <Image>
+        <X> 0 </X>
+        <Y> 380 </Y>
+        <Filename> RewardBg </Filename>
+    </Image>
+
+    <Image> 
+        <X> RewardImage_X </X>
+        <Y> RewardImage_Y </Y>
+        <Filename> RewardImage </Filename>
+    </Image>
+    
+    <Image>
+        <X> RewardText_X </X>
+        <Y> RewardText_Y </Y>
+        <Filename> RewardText </Filename>
+    </Image>
+
+       ;
+    <Image>
+        <X> 751 </X>
+        <Y> 413 </Y>
+        <Filename> IMG_CNT </Filename>
+    </Image>
+    ;
+    <Text>
+        <X> XPosiShowCountDownBrew </X>
+        <Y> 470 </Y>
+        <Align> End </Align>
+        <Width> 153 </Width>
+        <Size> 88 </Size>
+        <Font> RobotoBold </Font>
+        <Color> 0x513C2F </Color>
+        <Value> ShowCountDownBrewing </Value>
+    </Text>
+
+    <EventUnitTest1>
+        OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
+    </EventUnitTest1>
+
+    <EventUnitTest2>
+        Var show_eng = "false"
+        Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml"
+    </EventUnitTest2>
+
+    <EventUnitTest3>
+        Var show_eng = "true"
+        Open "ROOT/taobin_project/xml/event/jemila/page_jemila_random.xml"
+    </EventUnitTest3>
+
+</Popup>

xml/event/jemila/page_not_member.xml

@@ -0,0 +1,75 @@
+<Popup>
+    <Cache> "Enable" </Cache>
+    <Width> 1080 </Width>
+    <Height> 1920 </Height>
+    <Volume> SoundVolume </Volume>
+    ;<Background> "0xeae6e1" </Background>
+
+    <EventOpen>
+        Var Timeout = 0
+
+        If show_eng = "true" Then
+            Var RegisterLineImg = "ROOT/taobin_project/image/event/jemila/not_member_en.png"
+            Var CloseBtn = "ROOT/taobin_project/image/event/jemila/bn_close_en.png"
+        Else
+            Var RegisterLineImg = "ROOT/taobin_project/image/event/jemila/not_member_th.png"
+            Var CloseBtn = "ROOT/taobin_project/image/event/jemila/bn_close_th.png"
+        EndIf
+    </EventOpen>
+
+
+    <Timeout> 1000 </Timeout>
+    <EventTimeout>
+        DEBUGVAR Timeout
+
+       If Timeout > 8 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
+       
+
+       Var Timeout = Timeout + 1
+
+        TimerReset
+	    Refresh
+    </EventTimeout>
+
+;include="ROOT/taobin_project/inc/video.inc"
+
+
+    <Image>
+        <X> 0 </X>
+        <Y> 478 </Y>
+        <Filename> RegisterLineImg </Filename>
+    </Image>
+
+    <Button>
+        <X> 393 </X>
+        <Y> 1796 </Y>
+        <Filename> CloseBtn </Filename>
+        <FilenamePress> CloseBtn </FilenamePress>
+        <EventClick>
+            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
+        </EventClick>
+    </Button>
+
+</Popup>

xml/page_collect_point_1.xml

@@ -129,6 +129,8 @@
 
 	DEBUGVAR RobinsonBeautyPro
 	DEBUGVAR FromRobinsonBeautyPro
+	DEBUGVAR JemilaPro
+	DEBUGVAR FromJemilaPro
 	
 	If Seeker.TNumberTaobinCredit = "" Then
 	
@@ -186,6 +188,20 @@
 						EndIf
 					EndIf
 				EndIf
+
+				If JemilaPro = 1 Then
+					If FromJemilaPro = 1 Then
+						If Seeker.CodeChannel = 1 Then
+							If Seeker.CollectPointPromotion = 1 Then
+								GETACCEXT TelephoneNumber 40
+								Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
+							EndIf
+						Else
+							GETACCEXT TelephoneNumber 40
+							Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
+						EndIf
+					EndIf
+				EndIf
 			EndIf
 
 			GETACCEXT Param1 23
@@ -237,6 +253,20 @@
 					EndIf
 				EndIf
 			EndIf
+
+			If JemilaPro = 1 Then
+				If FromJemilaPro = 1 Then
+					If Seeker.CodeChannel = 1 Then
+						If Seeker.CollectPointPromotion = 1 Then
+							GETACCEXT TelephoneNumber 40
+							Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
+						EndIf
+					Else
+						GETACCEXT TelephoneNumber 40
+						Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_2.xml"
+					EndIf
+				EndIf
+			EndIf
 		EndIf