THAI: Update Robinson promotion

xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml

@@ -92,25 +92,24 @@
             Var TelephoneNumber = TelephoneNumberX
             Var TNumberTaobinMemberXXX = TelephoneNumber
             Var Seeker.IsAlreadyGetReward = Ext1c
-            Var SetAPlusOutOfStock = Ext1d
+            Var LustrousOutOfStock = Ext1x4
-            Var SetAOutOfStock = Ext1e
+            Var LipTintOilOutOfStock = Ext1x5
-            Var CleansingGelOutOfStock = Ext1f
+            Var BlushAndLipOutOfStock = Ext1x6
-            Var TumbleBottleOutOfStock = Ext1g
+            Var RandomOutOfStock = Ext1x7
-            Var ClearGelOutOfStock = Ext1h
+            Var CalvinKleinOutOfStock = Ext1x8
-            Var E_GiftCard100BathOutOfStock = Ext1i
+            Var DoubleSerumOutOfStock = Ext1x9
-            Var ClearGel4mlOutOfStock = Ext1j
+            Var SetAOutOfStock = Ext1x10
-
+            Var SetAPlusOutOfStock = Ext1x11
-            
-
-            Var E_GiftCard100BathOutOfStock = 1
-            Var TumbleBottleOutOfStock = 1
 
 
-            DEBUGVAR SuperSetOutOfStock
+            DEBUGVAR LustrousOutOfStock
-            DEBUGVAR BalanceEssenceTonerOutOfStock
+            DEBUGVAR LipTintOilOutOfStock
-            DEBUGVAR CleansingGelOutOfStock
+            DEBUGVAR BlushAndLipOutOfStock
-            DEBUGVAR TumbleBottleOutOfStock
+            DEBUGVAR RandomOutOfStock
-            DEBUGVAR ClearGelOutOfStock
+            DEBUGVAR CalvinKleinOutOfStock
+            DEBUGVAR DoubleSerumOutOfStock
+            DEBUGVAR SetAOutOfStock
+            DEBUGVAR SetAPlusOutOfStock
 
             If TaobinName = "" Then
                 Var Seeker.IsLineMember = 0 
@@ -143,38 +142,6 @@
                 EndIf
             EndIf
 
-            If SuperSetOutOfStock = 1 Then
-                If BalanceEssenceTonerOutOfStock = 1 Then
-                    If CleansingGalOutOfStock = 1 Then
-                        If TumbleBottleOutOfStock = 1 Then
-                            If ClearGalOutOfStock = 1 Then
-                                If E_GiftCard100BathOutOfStock = 1 Then
-                                    If ClearGel4mlOutOfStock = 1 Then
-                                        SAVELOG "All reward out of stock skip to normal collect point."
-
-                                        WRITE_FILE "/mnt/sdcard/robinson_beauty_reward_out_of_stock" "1"
-
-                                        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
-                        EndIf
-                    EndIf
-                EndIf
-            EndIf
-
-
-
             Var Seeker.PointTaobinStr = ParamCP
             Var Seeker.TNumberTaobinMember = TelephoneNumberX
 

xml/event/robinson_beauty/page_collect_point_robinson_beauty_3.xml

@@ -70,73 +70,73 @@
 	If PointState[0] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[0] = "/point1.png"
+            Var taobinImgPoint[0] = "/point_1_en.png"
         Else
-            Var taobinImgPoint[0] = "/point1_en.png"
+		    Var taobinImgPoint[0] = "/point_1.png"
         EndIf
 	EndIf
 	If PointState[1] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[1] = "/point2.png"
+            Var taobinImgPoint[1] = "/point_2_en.png"
         Else
-            Var taobinImgPoint[1] = "/point2_en.png"
+		    Var taobinImgPoint[1] = "/point_2.png"
         EndIf
 	EndIf
 	If PointState[2] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[2] = "/point3.png"
+            Var taobinImgPoint[2] = "/point_3_en.png"
         Else
-            Var taobinImgPoint[2] = "/point3_en.png"
+		    Var taobinImgPoint[2] = "/point_3.png"
         EndIf
 	EndIf
 	If PointState[3] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[3] = "/point4.png"
+            Var taobinImgPoint[3] = "/point_4_en.png"
         Else
-            Var taobinImgPoint[3] = "/point4_en.png"
+		    Var taobinImgPoint[3] = "/point_4.png"
         EndIf
 	EndIf
 	If PointState[4] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[4] = "/point5.png"
+            Var taobinImgPoint[4] = "/point_5_en.png"
         Else
-            Var taobinImgPoint[4] = "/point5_en.png"
+		    Var taobinImgPoint[4] = "/point_5.png"
         EndIf
 	EndIf
 	If PointState[5] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[5] = "/point6.png"
+            Var taobinImgPoint[5] = "/point_6_en.png"
         Else
-            Var taobinImgPoint[5] = "/point6_en.png"
+		    Var taobinImgPoint[5] = "/point_6.png"
         EndIf
 	EndIf
 	If PointState[6] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[6] = "/point7.png"
+            Var taobinImgPoint[6] = "/point_7_en.png"
         Else
-            Var taobinImgPoint[6] = "/point7_en.png"
+		    Var taobinImgPoint[6] = "/point_7.png"
         EndIf
 	EndIf
 	If PointState[7] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[7] = "/point8.png"
+            Var taobinImgPoint[7] = "/point_8_en.png"
         Else
-            Var taobinImgPoint[7] = "/point8_en.png"
+		    Var taobinImgPoint[7] = "/point_8.png"
         EndIf
 	EndIf
 	If PointState[8] = 1 Then
 		Var PointCount = PointCount + 1
         If show_eng = "true" Then
-		    Var taobinImgPoint[8] = "/point9.png"
+            Var taobinImgPoint[8] = "/point_9_en.png"
         Else
-            Var taobinImgPoint[8] = "/point9_en.png"
+		    Var taobinImgPoint[8] = "/point_9.png"
         EndIf
 	EndIf
 
@@ -146,7 +146,8 @@
 		Var MemberText = "YOUR GORGEOUS STATUS"
         Var MissionText = "SIP, SAVOR, GLOW!"
 
-		Var TaobinLevelDesc1 = PointDiff + " menus to win! Beauty gift from Robinson Beauty."
+		Var TaobinLevelDesc1 = "" + PointDiff
+		Var TaobinLevelDesc1 = TaobinLevelDesc1 + " menus to win! Beauty gift from Robinson Beauty."
 		Var TaobinLevelDesc2 = "Gather all 9 Tao Bin x Robinson Beauty menus to win!"
 
 		Var subTitle_Y = 839
@@ -185,7 +186,7 @@
 
 	
 
-	;Var Timeout = Timeout + 1
+	Var Timeout = Timeout + 1
 	If Timeout > 10 Then
 		Var CurrentPointCheck = "check"
 		Var val3 = "X"
@@ -351,68 +352,68 @@
 
 <Image>
 <X> 237 </X>
-<Y> 1058 </Y>
+<Y> 1089 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[0]) </Filename>
 </Image>
 
 <Image>
 <X> 440 </X>
-<Y> 1058 </Y>
+<Y> 1089 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[1]) </Filename>
 </Image>
 
 
 <Image>
 <X> 642 </X>
-<Y> 1058 </Y>
+<Y> 1089 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[2]) </Filename>
 </Image>
 
 
 <Image>
 <X> 237 </X>
-<Y> 1267 </Y>
+<Y> 1271 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[3]) </Filename>
 </Image>
 
 
 <Image>
 <X> 440 </X>
-<Y> 1267 </Y>
+<Y> 1271 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[4]) </Filename>
 </Image>
 
 
 <Image>
 <X> 642 </X>
-<Y> 1267 </Y>
+<Y> 1271 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[5]) </Filename>
 </Image>
 
 
 <Image>
 <X> 237 </X>
-<Y> 1449 </Y>
+<Y> 1453 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[6]) </Filename>
 </Image>
 
 
 <Image>
 <X> 440 </X>
-<Y> 1449 </Y>
+<Y> 1453 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[7]) </Filename>
 </Image>
 
 
 <Image>
 <X> 642 </X>
-<Y> 1449 </Y>
+<Y> 1453 </Y>
 <Filename> Var( PointRootDir +  taobinImgPoint[8]) </Filename>
 </Image>
 
 
 <Button>
-<X> 352 </X>
+<X> 403 </X>
 <Y> 1660 </Y>
 <Filename> CloseBtnImg </Filename>
 <FilenamePress> CloseBtnImg </FilenamePress>
@@ -429,7 +430,7 @@
         Var val3 = "X"
         AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
 
-        Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
+        Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml"
     Else
         Var CurrentPointCheck = "check"
         Var val3 = "X"

xml/event/robinson_beauty/page_collect_point_robinson_beauty_error.xml

@@ -103,7 +103,7 @@
 
 	Var ShowCountDownBrewing = CountDownBrewing
 
-	;Var Timeout = Timeout + 1
+	Var Timeout = Timeout + 1
 	If Timeout > 5 Then
 		Open "ROOT/taobin_project/xml/page_lid_straw.xml"
 	EndIf

xml/event/robinson_beauty/page_robinson_beauty_random.xml

@@ -144,7 +144,7 @@
             Var MaxRandomIndex = MaxRandomIndex + 1
         EndIf
 
-        If randomOutOfStock = 0 Then
+        If RandomOutOfStock = 0 Then
             Var rewardList[MaxRandomIndex] = "random"
             Var MaxRandomIndex = MaxRandomIndex + 1
             Var rewardList[MaxRandomIndex] = "random"
@@ -267,7 +267,7 @@
        EndIf    
        
 
-       ;Var Timeout = Timeout + 1
+       Var Timeout = Timeout + 1
 
         TimerReset
 	    Refresh
@@ -290,15 +290,15 @@
         <X> 412 </X>
         <Y> 798 </Y>
         <State> SelectingState </State>
-        <Filename> Var( DirImage + "/random_fotune_cookie.png") </Filename>
+        <Filename> Var( DirImage + "/random_fortune_cookie.png") </Filename>
         <EventClick>
-            If ShakeCount <= 5 Then
+
-                Var ShakeCount = ShakeCount + 1
+            Var ShakeCount = ShakeCount + 1
-            Else
+
+            If ShakeCount >= 3 Then
                 Random2 1 9 SelectNumber
                 Function 2
             EndIf
-            Refresh
         </EventClick>
         <Animation>
             <Style> "shake-image" </Style>
@@ -319,105 +319,6 @@
         <Filename> Var( DirImage + "/random_text.png") </Filename>
     </Image>
 
-;   <Image>
-;       <X> 573 </X>
-;       <Y> 932 </Y>
-;       <Width> 40 </Width>
-;       <Height> 72 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 1
-;           Function 2
-;       </EventClick>
-;   </Image>
-;
-;   <Image>
-;       <X> 460 </X>
-;       <Y> 944 </Y>
-;       <Width> 37 </Width>
-;       <Height> 41 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 2
-;           Function 2
-;       </EventClick>
-;   </Image>
-;
-;   <Image>
-;       <X> 593 </X>
-;       <Y> 1056 </Y>
-;       <Width> 37 </Width>
-;       <Height> 68 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 3
-;           Function 2
-;       </EventClick>
-;   </Image>
-;
-;   <Image>
-;       <X> 525 </X>
-;       <Y> 979 </Y>
-;       <Width> 39 </Width>
-;       <Height> 68 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 4
-;           Function 2
-;       </EventClick>
-;   </Image>
-;
-;   <Image>
-;       <X> 445 </X>
-;       <Y> 1101 </Y>
-;       <Width> 40 </Width>
-;       <Height> 68 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 5
-;           Function 2
-;       </EventClick>
-;   </Image>
-;
-;   <Image>
-;       <X> 634 </X>
-;       <Y> 989 </Y>
-;       <Width> 38 </Width>
-;       <Height> 72 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 6
-;           Function 2
-;       </EventClick>
-;   </Image>
-;
-;   <Image>
-;       <X> 495 </X>
-;       <Y> 1051 </Y>
-;       <Width> 40 </Width>
-;       <Height> 67 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 7
-;           Function 2
-;       </EventClick>
-;   </Image>
-;
-;   <Image>
-;       <X> 506 </X>
-;       <Y> 907 </Y>
-;       <Width> 38 </Width>
-;       <Height> 65 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 8
-;           Function 2
-;       </EventClick>
-;   </Image>
-;
-;   <Image>
-;       <X> 412 </X>
-;       <Y> 993 </Y>
-;       <Width> 41 </Width>
-;       <Height> 70 </Height>
-;       <EventClick> 
-;           Var SelectNumber = 9
-;           Function 2
-;       </EventClick>
-;   </Image>
-
     <Function2>
         ; Random coupon
         Var randResultInt = 0
@@ -426,6 +327,7 @@
         DEBUGVAR MaxRandomIndex
         If MaxRandomIndex > 0 Then
             Random2 0 MaxRandomIndex randResultInt
+            DEBUGVAR randResultInt
             Var randResultStr = rewardList[randResultInt] 
         Else
             Var randResultStr = "discount_50"
@@ -473,7 +375,7 @@
             Random2 1 9 SelectNumber
         EndIf
 
-        Var SelectedNumberImage = DirImage + "random_"
+        Var SelectedNumberImage = DirImage + "/random_"
         Var SelectedNumberImage = SelectedNumberImage + SelectNumber
         Var SelectedNumberImage = SelectedNumberImage + ".png"
 
@@ -521,4 +423,8 @@
         Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml"
     </EventUnitTest3>
 
+    <EventUnitTest4>
+        Function 2
+    </EventUnitTest4>
+
 </Popup>

xml/event/robinson_beauty/page_robinson_beauty_random_result.xml

@@ -10,7 +10,7 @@
 
         Var DirImage = "ROOT/taobin_project/image/event/robinson_beauty"
 
-        Var RewardBg = DirImage + "/bg_reward.png"
+        Var RewardBg = DirImage + "/reward_bg.png"
 
         If CodeType = "137" Then
             Var RewardText = DirImage + "/reward_lustrous_lipstick_name.png"
@@ -91,7 +91,7 @@
             Var RewardText_Y = 725
             Var RewardImage_X = 137
             Var RewardImage_Y = 748
-            Var RewardBg = DirImage + "/bg_reward_no_line.png"
+            Var RewardBg = DirImage + "/reward_bg_no_line.png"
         EndIf
 
         Var CodeReward = CodeType

xml/page_collect_point_1.xml

@@ -395,14 +395,24 @@
 			EndIf
 		EndIf
 
-		If PepweenCollectPoint = 0 Then
+		If RobinsonBeautyPro = 1 Then
-			GETACCEXT TelephoneNumber 31
+			If FromRobinsonBeautyPro = 1 Then
-			Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"  
+				If Seeker.CodeChannel = 1 Then
-		Else
+					If Seeker.CollectPointPromotion = 1 Then
-			GETACCEXT Param1 23
+						GETACCEXT TelephoneNumber 32
-			Open "ROOT/taobin_project/xml/page_collect_point_2.xml"  
+						Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
+					EndIf
+				Else
+					GETACCEXT TelephoneNumber 32
+					Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
+				EndIf
+			EndIf
 		EndIf
 
+
+		GETACCEXT Param1 23
+		Open "ROOT/taobin_project/xml/page_collect_point_2.xml"  
+
 	EndIf
 
 	Var Tel_Confirm_Flag = 1
@@ -941,15 +951,24 @@
 				EndIf
 			EndIf
 
-			If PepweenCollectPoint = 0 Then
+			If RobinsonBeautyPro = 1 Then
-				GETACCEXT TelephoneNumber 31
+				If FromRobinsonBeautyPro = 1 Then
-				Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"  
+					If Seeker.CodeChannel = 1 Then
-			Else
+						If Seeker.CollectPointPromotion = 1 Then
-				GETACCEXT Param1 23
+							GETACCEXT TelephoneNumber 32
-				;Open "ROOT/taobin_project/xml/page_catalog.xml"  
+							Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
-				Open "ROOT/taobin_project/xml/page_collect_point_2.xml"  
+						EndIf
+					Else
+						GETACCEXT TelephoneNumber 32
+						Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
+					EndIf
+				EndIf
 			EndIf
 
+			GETACCEXT Param1 23
+			;Open "ROOT/taobin_project/xml/page_catalog.xml"  
+			Open "ROOT/taobin_project/xml/page_collect_point_2.xml"  
+
 		Else 
 
 			If show_eng = "true" Then