[THAI] Added Jemila promotion

This commit is contained in:
Kenta420 2024-09-23 18:01:18 +07:00
commit 46897fb739
70 changed files with 5317 additions and 2755 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 394 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 745 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 191 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 206 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 198 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 10 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 824 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 138 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 98 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 84 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 71 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 42 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 30 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 257 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 584 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 338 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 762 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 24 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 19 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 27 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 24 KiB

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View file

@ -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 = Ext1d
Var ColorChangingBlushOutOfStock = Ext1e
Var CuraMDRandomOutOfStock = Ext1f
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
Var 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
Var 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
Var 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
Var 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
Var 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
Var 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
Var 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
Var 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
Var 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
Var 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>

View file

@ -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> 170 </Width>
<Font> RobotoBold </Font>
<Size> 14 </Size>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </Align>
<Value> PointName[0] </Value>
</Text>
<Text>
<X> 367 </X>
<Y> 1354 </Y>
<Width> 170 </Width>
<Font> RobotoBold </Font>
<Size> 14 </Size>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </Align>
<Value> PointName[1] </Value>
</Text>
<Text>
<X> 542 </X>
<Y> 1354 </Y>
<Width> 170 </Width>
<Font> RobotoBold </Font>
<Size> 14 </Size>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </Align>
<Value> PointName[2] </Value>
</Text>
<Text>
<X> 717 </X>
<Y> 1354 </Y>
<Width> 170 </Width>
<Font> RobotoBold </Font>
<Size> 14 </Size>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </Align>
<Value> PointName[3] </Value>
</Text>
<Text>
<X> 281 </X>
<Y> 1612 </Y>
<Width> 170 </Width>
<Font> RobotoBold </Font>
<Size> 14 </Size>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </Align>
<Value> PointName[4] </Value>
</Text>
<Text>
<X> 456 </X>
<Y> 1612 </Y>
<Width> 170 </Width>
<Font> RobotoBold </Font>
<Size> 14 </Size>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </Align>
<Value> PointName[5] </Value>
</Text>
<Text>
<X> 631 </X>
<Y> 1612 </Y>
<Width> 170 </Width>
<Font> RobotoBold </Font>
<Size> 14 </Size>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </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>

View file

@ -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>

View file

@ -0,0 +1,394 @@
<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 = ""
Var SelectedRandomX = 0
Var SelectedRandomY = 0
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"
Var SelectedRandomX = 163
Var SelectedRandomY = 662
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"
Var SelectedRandomX = 279
Var SelectedRandomY = 653
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"
Var SelectedRandomX = 108
Var SelectedRandomY = 712
Function 2
</EventClick>
</Image>
<Image>
<X> SelectedRandomX </X>
<Y> SelectedRandomY </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>

View file

@ -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>

View file

@ -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>

View file

@ -6915,7 +6915,7 @@ Sugar, Biscof" </Value>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png"
@ -6988,7 +6988,7 @@ Sugar, Biscof" </Value>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ(อเมริกาโน)" </Value> <Value> "อเมริกาโน" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>
@ -7170,7 +7170,7 @@ Sugar, Biscof" </Value>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png"
@ -7243,7 +7243,7 @@ Sugar, Biscof" </Value>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ(อเมริกาโน)" </Value> <Value> "อเมริกาโน" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>

View file

@ -6915,7 +6915,7 @@ Sugar, Biscof" </Value>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png"
@ -6988,7 +6988,7 @@ Sugar, Biscof" </Value>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ(อเมริกาโน)" </Value> <Value> "อเมริกาโน" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>
@ -7170,7 +7170,7 @@ Sugar, Biscof" </Value>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png"
@ -7243,7 +7243,7 @@ Sugar, Biscof" </Value>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ(อเมริกาโน)" </Value> <Value> "อเมริกาโน" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>

View file

@ -218,7 +218,8 @@ If BoxID = 105005 Then
Var PassionMintPro = 0 Var PassionMintPro = 0
Var MomCocoaPro = 0 Var MomCocoaPro = 0
Var MomCocoaProDiscountEnable = 0 Var MomCocoaProDiscountEnable = 0
Var RobinsonBeautyPro = 1 Var RobinsonBeautyPro = 0
Var JemilaPro = 1
EndIf EndIf
If BoxID = 172331 Then If BoxID = 172331 Then
@ -358,6 +359,12 @@ Else
EndIf EndIf
If CollagenPowderEnable = "true" Then
Else
Var JemilaPro = 0
EndIf
Var CurrentMainVideoTemp = 0 Var CurrentMainVideoTemp = 0
@ -365,7 +372,6 @@ DEBUGVAR FreePowerup
; Control collect promotion point behavior ; Control collect promotion point behavior
Var New_Payment = 0 Var New_Payment = 0
Var NewFlowPaymentCode = 0 Var NewFlowPaymentCode = 0

View file

@ -272,6 +272,11 @@
else: else:
from_robinson_beauty = False from_robinson_beauty = False
if current_file_name == "page_catalog_group_pro_jemila.skt":
from_jemila = True
else:
from_jemila = False
#print ("######################################################################################################") #print ("######################################################################################################")
idx_of_eng = 2 idx_of_eng = 2
out_xml('<FrameScroll> \r\n') out_xml('<FrameScroll> \r\n')
@ -616,6 +621,9 @@
if from_robinson_beauty: if from_robinson_beauty:
out_xml( '\t\tVar FromRobinsonBeautyPro = 1 \r\n') out_xml( '\t\tVar FromRobinsonBeautyPro = 1 \r\n')
if from_jemila:
out_xml( '\t\tVar FromJemilaPro = 1 \r\n')
out_xml( '\t\t\r\n') out_xml( '\t\t\r\n')
out_xml( '\t\t'+ button_add_string +'\r\n') out_xml( '\t\t'+ button_add_string +'\r\n')
@ -1258,6 +1266,9 @@
if from_robinson_beauty: if from_robinson_beauty:
out_xml( '\t\tVar FromRobinsonBeautyPro = 1 \r\n') out_xml( '\t\tVar FromRobinsonBeautyPro = 1 \r\n')
if from_jemila:
out_xml( '\t\tVar FromJemilaPro = 1 \r\n')
out_xml( '\t\t\r\n') out_xml( '\t\t\r\n')
out_xml( '\t\t\r\n') out_xml( '\t\t\r\n')

View file

@ -660,6 +660,10 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/next_drink.m4a"
EndIf
; Play Sound #zone ; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then If SoundBackToSchoolEnable = 1 Then

View file

@ -208,6 +208,7 @@
STRCONTAIN "1216" MaterialAvailable CoconutSyrupEnable STRCONTAIN "1216" MaterialAvailable CoconutSyrupEnable
STRCONTAIN "1042" MaterialAvailable CocoaPowderEnable STRCONTAIN "1042" MaterialAvailable CocoaPowderEnable
STRCONTAIN "1037" MaterialAvailable 7UpSyrupEnable STRCONTAIN "1037" MaterialAvailable 7UpSyrupEnable
STRCONTAIN "1052" MaterialAvailable CollagenPowderEnable
;Var AppFastEnable = "false" ;Var AppFastEnable = "false"
If AppFastEnable = "true" Then If AppFastEnable = "true" Then

View file

@ -779,6 +779,10 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/next_drink.m4a"
EndIf
; Play Sound #zone ; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then If SoundBackToSchoolEnable = 1 Then

View file

@ -80,6 +80,11 @@
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/taobin_sawade.m4a"
EndIf
Play PlaySoundLag Play PlaySoundLag
Var DirImageCart = "ROOT/taobin_project/image/cart_th" Var DirImageCart = "ROOT/taobin_project/image/cart_th"

View file

@ -39,7 +39,7 @@
Var block_index_override = 0 Var block_index_override = 0
Var block_index_move = 0 Var block_index_move = 0
</Script> </Script>
; menu_new_list 66 ; menu_new_list 67
; ==================> Len = 17 ; ==================> Len = 17
; 12-01-01-0001 - - ; 12-01-01-0001 - -
<Block> <Block>
@ -2090,7 +2090,7 @@ ESPRESSO" </Value>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png"
@ -2163,7 +2163,7 @@ ESPRESSO" </Value>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ(อเมริกาโน)" </Value> <Value> "อเมริกาโน" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>
@ -2343,7 +2343,7 @@ ESPRESSO" </Value>
<OverlayImage> xmlpro( 12-21-01-0003, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage> <OverlayImage> xmlpro( 12-21-01-0003, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png"
@ -2416,7 +2416,7 @@ ESPRESSO" </Value>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ(อเมริกาโน)" </Value> <Value> "อเมริกาโน" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>
@ -2578,6 +2578,513 @@ ESPRESSO" </Value>
<Value> text_unavailable </Value> <Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align> <Align> center-vertical-horizontal </Align>
</Text> </Text>
</Block>
; ==================> Len = 12
; 12-01-01-0081 12-01-02-0081 -
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-01-01-0081.Button,12-01-02-0081.Button,$Sum12010100811201020081) </State>
<Button>
<State> $Sum12010100811201020081 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_hot_blackcoffee.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_hot_blackcoffee.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_hot_blackcoffee.png" </FilenameDisable>
<OverlayImage> xmlpro( 12-01-01-0081, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi2.png") </OverlayImage>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
Var NameDrink = "STRONG COFFEE"
Var NameDrinkTH = "กาแฟดำ"
Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Dark shot Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_blackcoffee.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $12-01-01-0081.Price
Var PriceD2 = $12-01-02-0081.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "12-01-01-0081"
Var PD_CODE2 = "12-01-02-0081"
Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = $12-01-01-0081.Button
Var PD_STAGE_2 = $12-01-02-0081.Button
Var PD_STAGE_3 = "Disable2"
Var OverlayMenuFilter !assigned xmlpro( 12-01-01-0081, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi2.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-01-02-0081"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "12-01-01-0081"
Else
Topping "Load" "-"
EndIf
EndIf
Var menu_name_eng_hot = $12-01-01-0081.NameE
Var menu_desc_eng_hot = $12-01-01-0081.descriptionE
Var menu_name_thai_hot = $12-01-01-0081.Name
Var menu_desc_thai_hot = $12-01-01-0081.description
Var menu_name_eng_cold = $12-01-02-0081.NameE
Var menu_desc_eng_cold = $12-01-02-0081.descriptionE
Var menu_name_thai_cold = $12-01-02-0081.Name
Var menu_desc_thai_cold = $12-01-02-0081.description
Var menu_name_eng_blender = $##-##-##-####.NameE
Var menu_desc_eng_blender = $##-##-##-####.descriptionE
Var menu_name_thai_blender = $##-##-##-####.Name
Var menu_desc_thai_blender = $##-##-##-####.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "กาแฟดำ" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ และน้ำ " </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "STRONG COFFEE" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Dark shot Espresso, Water" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> $12-01-01-0081.Button </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-01-01-0081.Button </State>
<Value> StringFmt( $12-01-01-0081.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> $12-01-02-0081.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-01-02-0081.Button </State>
<Value> StringFmt( $12-01-02-0081.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 180 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitRegularTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
If $Sum12010100811201020081 = "Disable" Then
Var ice_tab_process_show = "Disable"
Else
Var ice_tab_process_show = "Enable"
EndIf
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum12010100811201020081 = "Disable" Then
STRCONTAIN "ERR" $12-01-01-0081.TAG tag1_is_disable
STRCONTAIN "ERR" $12-01-02-0081.TAG tag2_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum12010100811201020081 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block>
; 12-21-01-0081 12-21-02-0081 -
<Block>
<MarginLeft> 33 </MarginLeft>
<MarginTop> 22 </MarginTop>
<Width> 225 </Width>
<Height> 296 </Height>
<State> Flag( 12-21-01-0081.Button,12-21-02-0081.Button,$Sum12210100811221020081) </State>
<Button>
<State> $Sum12210100811221020081 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_hot_blackcoffee.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_hot_blackcoffee.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_hot_blackcoffee.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<OverlayImage> xmlpro( 12-21-01-0081, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi2.png") </OverlayImage>
<EventOnClick>
Var NameDrink = "STRONG COFFEE"
Var NameDrinkTH = "กาแฟดำ"
Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Dark shot Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_blackcoffee.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $12-21-01-0081.Price
Var PriceD2 = $12-21-02-0081.Price
Var PriceD3 = $-.Price
Var PD_CODE1 = "12-21-01-0081"
Var PD_CODE2 = "12-21-02-0081"
Var PD_CODE3 = "##-##-##-####"
Var PD_STAGE_1 = $12-21-01-0081.Button
Var PD_STAGE_2 = $12-21-02-0081.Button
Var PD_STAGE_3 = "Disable2"
Var OverlayMenuFilter !assigned xmlpro( 12-21-01-0081, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_pic_%s_posi2.png")
DEBUGVAR OverlayMenuFilter
Var SelectCountDrinkType = 0
Var DefaultDrinkType = 0
If PD_STAGE_1 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 1
EndIf
If PD_STAGE_2 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 2
EndIf
If PD_STAGE_3 = "Enable" Then
Var SelectCountDrinkType = SelectCountDrinkType + 1
Var DefaultDrinkType = 3
EndIf
If PD_STAGE_2 = "Enable" Then
Topping "Load" "12-21-02-0081"
Else
If PD_STAGE_1 = "Enable" Then
Topping "Load" "12-21-01-0081"
Else
Topping "Load" "-"
EndIf
EndIf
Var menu_name_eng_hot = $12-21-01-0081.NameE
Var menu_desc_eng_hot = $12-21-01-0081.descriptionE
Var menu_name_thai_hot = $12-21-01-0081.Name
Var menu_desc_thai_hot = $12-21-01-0081.description
Var menu_name_eng_cold = $12-21-02-0081.NameE
Var menu_desc_eng_cold = $12-21-02-0081.descriptionE
Var menu_name_thai_cold = $12-21-02-0081.Name
Var menu_desc_thai_cold = $12-21-02-0081.description
Var menu_name_eng_blender = $##-##-##-####.NameE
Var menu_desc_eng_blender = $##-##-##-####.descriptionE
Var menu_name_thai_blender = $##-##-##-####.Name
Var menu_desc_thai_blender = $##-##-##-####.description
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var SelectDrinkType = 0
Open "ROOT/taobin_project/xml/page_topping_select5.xml"
</EventOnClick>
</Button>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 24 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showthaiText </State>
<Value> "กาแฟดำ" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showthaiText </State>
<Value> "กาแฟ และน้ำ " </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 164 </Y>
<Size> 22 </Size>
<Width>220</Width>
<Mode> "multi2" </Mode>
<Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color>
<State> showengText </State>
<Value> "STRONG COFFEE" </Value>
</Text>
<Text>
<X> 16 </X>
<Y> 220 </Y>
<Size> 14 </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<State> showengText </State>
<Value> "Dark shot Espresso, Water" </Value>
</Text>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "option_deactive.png" ) </Filename>
</Image>
<Image>
<X> 16 </X>
<Y> 264 </Y>
<State> $12-21-01-0081.Button </State>
<Filename> Var( DirImage2 + "hot.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "hot_db.png" ) </FilenameDisable>
</Image>
<Text>
<X> 50 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-21-01-0081.Button </State>
<Value> StringFmt( $12-21-01-0081.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "cold.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "cold_db.png" ) </FilenameDisable>
<State> $12-21-02-0081.Button </State>
</Image>
<Text>
<X> 115 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> $12-21-02-0081.Button </State>
<Value> StringFmt( $12-21-02-0081.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 146 </X>
<Y> 264 </Y>
<Filename> Var( DirImage2 + "blend.png" ) </Filename>
<FilenameDisable> Var( DirImage2 + "blend_db.png" ) </FilenameDisable>
<State> "Invisible" </State>
</Image>
<Text>
<X> 183 </X>
<Y> TextPriceMenuY </Y>
<Size> TextPriceMenuSize </Size>
<Width>220</Width>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<ColorDisable> 0xEAE6E1 </ColorDisable>
<State> "Invisible" </State>
<Value> StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) </Value>; test
</Text>
<Image>
<X> 81 </X>
<Y> 264 </Y>
<State>
eval(
If ICE_PROCESS_STATUS = 2 Then
If $Sum12210100811221020081 = "Disable" Then
Var ice_tab_process_show = "Disable"
Else
Var ice_tab_process_show = "Enable"
EndIf
Else
Var ice_tab_process_show = "Invisible"
EndIf
Var return = ice_tab_process_show
)
</State>
<Filename> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" </FilenameDisable>
</Image>
<Image>
<X> 49 </X>
<Y> 117 </Y>
<State>
eval(
If $Sum12210100811221020081 = "Disable" Then
STRCONTAIN "ERR" $12-21-01-0081.TAG tag1_is_disable
STRCONTAIN "ERR" $12-21-02-0081.TAG tag2_is_disable
STRCONTAIN "ERR" $##-##-##-####.TAG tag3_is_disable
Var return = "Invisible"
If tag1_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag2_is_disable = "true" Then
Var return = "Enable"
EndIf
If tag3_is_disable = "true" Then
Var return = "Enable"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
</Image>
<Text>
<X> 84 </X>
<Y> 266 </Y>
<Size> 10 </Size>
<Font> OpunMediumTTF </Font>
<Color> 0xDE794E </Color>
<State> ice_tab_process_show </State>
<Value> ice_show_open </Value>
</Text>
<Text>
<X> 48 </X>
<Y> 116 </Y>
<Size> 32 </Size>
<Width>128</Width>
<Height>64</Height>
<Font> MITRegularTTF </Font>
<Color> 0x5A5A5A </Color>
<Mode> "disable-show" </Mode>
<State> $Sum12210100811221020081 </State>
<Value> text_unavailable </Value>
<Align> center-vertical-horizontal </Align>
</Text>
</Block> </Block>
; ==================> Len = 17 ; ==================> Len = 17
; 12-01-01-0013 - - ; 12-01-01-0013 - -

View file

@ -55,7 +55,7 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ (อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำร้อน (อเมริกาโน)" Var DrinkDescriptionTH = "กาแฟ และน้ำร้อน (อเมริกาโน)"
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no_Healthy.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no_Healthy.png"
@ -128,8 +128,7 @@
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ <Value> "อเมริกาโน" </Value>
(อเมริกาโน)" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>
@ -310,7 +309,7 @@
<OverlayImage> xmlpro( 12-21-01-1003, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage> <OverlayImage> xmlpro( 12-21-01-1003, "ROOT/taobin_project/image/menu_overlay_set/button_overlay_%s_posi1.png") </OverlayImage>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ (อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำร้อน (อเมริกาโน)" Var DrinkDescriptionTH = "กาแฟ และน้ำร้อน (อเมริกาโน)"
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no_Healthy.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no_Healthy.png"
@ -383,8 +382,7 @@
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ <Value> "อเมริกาโน" </Value>
(อเมริกาโน)" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>

File diff suppressed because it is too large Load diff

View file

@ -5936,7 +5936,7 @@ Sugar, Biscof" </Value>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png"
@ -6009,7 +6009,7 @@ Sugar, Biscof" </Value>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ(อเมริกาโน)" </Value> <Value> "อเมริกาโน" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>
@ -6191,7 +6191,7 @@ Sugar, Biscof" </Value>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOnClick> <EventOnClick>
Var NameDrink = "AMERICANO" Var NameDrink = "AMERICANO"
Var NameDrinkTH = "กาแฟดำ(อเมริกาโน)" Var NameDrinkTH = "อเมริกาโน"
Var DrinkDescriptionTH = "กาแฟ และน้ำ " Var DrinkDescriptionTH = "กาแฟ และน้ำ "
Var DrinkDescription = "Espresso, Water" Var DrinkDescription = "Espresso, Water"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png" Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_america_no.png"
@ -6264,7 +6264,7 @@ Sugar, Biscof" </Value>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>
<Color> 0x322B26 </Color> <Color> 0x322B26 </Color>
<State> showthaiText </State> <State> showthaiText </State>
<Value> "กาแฟดำ(อเมริกาโน)" </Value> <Value> "อเมริกาโน" </Value>
</Text> </Text>
<Text> <Text>
<X> 16 </X> <X> 16 </X>

View file

@ -129,6 +129,8 @@
DEBUGVAR RobinsonBeautyPro DEBUGVAR RobinsonBeautyPro
DEBUGVAR FromRobinsonBeautyPro DEBUGVAR FromRobinsonBeautyPro
DEBUGVAR JemilaPro
DEBUGVAR FromJemilaPro
If Seeker.TNumberTaobinCredit = "" Then If Seeker.TNumberTaobinCredit = "" Then
@ -186,6 +188,20 @@
EndIf EndIf
EndIf 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 EndIf
GETACCEXT Param1 23 GETACCEXT Param1 23
@ -237,6 +253,20 @@
EndIf EndIf
EndIf 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 EndIf

View file

@ -277,6 +277,10 @@
Else Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/drinkfinish.m4a"
EndIf
Play PlaySoundLag Play PlaySoundLag
EndIf EndIf
EndIf EndIf

View file

@ -505,6 +505,10 @@
Else Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/drinkfinish.m4a"
EndIf
Play PlaySoundLag Play PlaySoundLag
EndIf EndIf
EndIf EndIf

View file

@ -179,6 +179,10 @@
Var DirImage = "ROOT/taobin_project/image/page_payment" Var DirImage = "ROOT/taobin_project/image/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3" Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/payment.m4a"
EndIf
; Play Sound #zone ; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then If SoundBackToSchoolEnable = 1 Then

View file

@ -872,9 +872,8 @@
; Play Sound #zone ; Play Sound #zone
If FromJemilaPro = 1 Then
If LipitPro = 1 Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/select_level.m4a"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/lipit/select_level.wav"
EndIf EndIf
Play PlaySoundLag Play PlaySoundLag