pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

oatmilk

Browse source
This commit is contained in:
wanlop run 2023-10-03 13:36:53 +07:00
commit f07a926f25
63 changed files with 1407 additions and 309 deletions
Download patch file Download diff file Expand all files Collapse all files

131
xml/event/pepween/page_collect_point_pro_pepween_2.xml
View file

@ -158,46 +158,125 @@
Var PopweenPointNewIndex = 0
If Seeker.ProductCode = "12-99-05-0053" Then
Var PopweenPointNewIndex = 0
If Seeker.selected_a_drink = "12-99-05-0053" Then
If PopweenPointState[0] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 0
EndIf
Var PopweenPointState[0] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0054" Then
Var PopweenPointNewIndex = 1
If Seeker.selected_a_drink = "12-99-05-0054" Then
If PopweenPointState[1] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 1
EndIf
Var PopweenPointState[1] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0055" Then
Var PopweenPointNewIndex = 2
If Seeker.selected_a_drink = "12-99-05-0055" Then
If PopweenPointState[2] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 2
EndIf
Var PopweenPointState[2] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0057" Then
Var PopweenPointNewIndex = 3
If Seeker.selected_a_drink = "12-99-05-0057" Then
If PopweenPointState[3] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 3
EndIf
Var PopweenPointState[3] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0058" Then
Var PopweenPointNewIndex = 4
If Seeker.selected_a_drink = "12-99-05-0058" Then
If PopweenPointState[4] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 4
EndIf
Var PopweenPointState[4] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0059" Then
Var PopweenPointNewIndex = 5
If Seeker.selected_a_drink = "12-99-05-0059" Then
If PopweenPointState[5] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 5
EndIf
Var PopweenPointState[5] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0060" Then
Var PopweenPointNewIndex = 6
If Seeker.selected_a_drink = "12-99-05-0060" Then
If PopweenPointState[6] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 6
EndIf
Var PopweenPointState[6] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0061" Then
Var PopweenPointNewIndex = 7
If Seeker.selected_a_drink = "12-99-05-0061" Then
If PopweenPointState[7] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 7
EndIf
Var PopweenPointState[7] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0062" Then
Var PopweenPointNewIndex = 8
If Seeker.selected_a_drink = "12-99-05-0062" Then
If PopweenPointState[8] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 8
EndIf
Var PopweenPointState[8] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0064" Then
Var PopweenPointNewIndex = 9
If Seeker.selected_a_drink = "12-99-05-0064" Then
If PopweenPointState[9] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 9
EndIf
Var PopweenPointState[9] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0065" Then
Var PopweenPointNewIndex = 10
If Seeker.selected_a_drink = "12-99-05-0065" Then
If PopweenPointState[10] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 10
EndIf
Var PopweenPointState[10] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0056" Then
Var PopweenPointNewIndex = 11
If Seeker.selected_a_drink = "12-99-05-0056" Then
If PopweenPointState[11] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 11
EndIf
Var PopweenPointState[11] = 1
EndIf
If Seeker.ProductCode = "12-99-05-0066" Then
Var PopweenPointNewIndex = 11
If Seeker.selected_a_drink = "12-99-03-0066" Then
If PopweenPointState[12] = 1 Then
Var PopweenPointNewIndex = ""
Else
Var PopweenPointNewIndex = 12
EndIf
Var PopweenPointState[12] = 1
EndIf
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR PopweenPointNewIndex
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
If TaobinPDPA = 0 Then

386
xml/event/pepween/page_collect_point_pro_pepween_3.xml
View file

@ -20,6 +20,7 @@
;Add after pay
Var PointMaskState = "Invisible"
Var showRandomBtnState = "Invisible"
Var CoffeePointStr = CoffeePoint
@ -42,31 +43,6 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
Var ThaiTextState = "Enable"
EndIf
Var CoffeePointTmp = CoffeePoint
;If CoffeePoint > 12 Then
; Var Timeout = 18
; Var CoffeePointTmp = 13
;EndIf
If CoffeePoint < 17 Then
Var CoffeePointTmp = 1
Else
Var CoffeePointTmp = CoffeePoint - 17
EndIf
Var PointDiff = 13 - CoffeePointTmp
If show_eng = "true" Then
Var TaobinLevelDesc1 = "You're just " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " menu item away from unlocking a Secret graveyard prize."
Var TaobinLevelDesc2 = "Collect all 13 horrifying menus now!"
Else
Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูที่จะเปิดล็อคความน่าสะพรึง"
Var TaobinLevelDesc2 = "สะสมให้ครบ 13 เมนูแสนอร่อยปนความสยองตอนนี้เลย!"
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
@ -102,33 +78,33 @@
Var taobinImgPoint[11] = "/skull_active.png"
Var taobinImgPoint[12] = "/skull_active.png"
Var taobinTextPoint[0].Thai = "พระจันทร์สีเลือด"
Var taobinTextPoint[1].Thai = "สุภาพสตรีสีขาว"
Var taobinTextPoint[2].Thai = "เสียงดนตรีตอนตี 3"
Var taobinTextPoint[3].Thai = "พยาบาทชาติที่แล้ว"
Var taobinTextPoint[4].Thai = "ท่านเคาท์เขย่าขวัญ"
Var taobinTextPoint[5].Thai = "ห้องเชือดหมายเลข 13"
Var taobinTextPoint[6].Thai = "ค่ำคืนคอยหลอน"
Var taobinTextPoint[7].Thai = "แม่ชีไร้หัว"
Var taobinTextPoint[8].Thai = "คุณยายท้ายหมู่บ้าน"
Var taobinTextPoint[9].Thai = "อาถรรพ์คืนวันพุธ"
Var taobinTextPoint[10].Thai = "ล้า ท้า หลอน"
Var taobinTextPoint[11].Thai = "หมอกควันแห่งความมืด"
Var taobinTextPoint[12].Thai = "ดิน 7 ป่าช้า"
Var taobinTextPointTH[0] = "พระจันทร์สีเลือด"
Var taobinTextPointTH[1] = "สุภาพสตรีสีขาว"
Var taobinTextPointTH[2] = "เสียงดนตรีตอนตี 3"
Var taobinTextPointTH[3] = "พยาบาทชาติที่แล้ว"
Var taobinTextPointTH[4] = "ท่านเคาท์เขย่าขวัญ"
Var taobinTextPointTH[5] = "ห้องเชือดหมายเลข 13"
Var taobinTextPointTH[6] = "ค่ำคืนคอยหลอน"
Var taobinTextPointTH[7] = "แม่ชีไร้หัว"
Var taobinTextPointTH[8] = "คุณยายท้ายหมู่บ้าน"
Var taobinTextPointTH[9] = "อาถรรพ์คืนวันพุธ"
Var taobinTextPointTH[10] = "ล้า ท้า หลอน"
Var taobinTextPointTH[11] = "หมอกควันแห่งความมืด"
Var taobinTextPointTH[12] = "ดิน 7 ป่าช้า"
Var taobinTextPoint[0].Eng = "Red Moon"
Var taobinTextPoint[1].Eng = "White Lady"
Var taobinTextPoint[2].Eng = "Mysterious music box"
Var taobinTextPoint[3].Eng = "Haunted Haze"
Var taobinTextPoint[4].Eng = "The dark lord"
Var taobinTextPoint[5].Eng = "Room no.13"
Var taobinTextPoint[6].Eng = "Haunted Harvest"
Var taobinTextPoint[7].Eng = "Cursed Coffee"
Var taobinTextPoint[8].Eng = "The Haunting Hag of village"
Var taobinTextPoint[9].Eng = "Midnight's Enigma"
Var taobinTextPoint[10].Eng = "Unbelievers' Demise"
Var taobinTextPoint[11].Eng = "Haunted Haze"
Var taobinTextPoint[12].Eng = "7 Haunted Woods"
Var taobinTextPointEN[0] = "Red Moon"
Var taobinTextPointEN[1] = "White Lady"
Var taobinTextPointEN[2] = "Mysterious music box"
Var taobinTextPointEN[3] = "Haunted Haze"
Var taobinTextPointEN[4] = "The dark lord"
Var taobinTextPointEN[5] = "Room no.13"
Var taobinTextPointEN[6] = "Haunted Harvest"
Var taobinTextPointEN[7] = "Cursed Coffee"
Var taobinTextPointEN[8] = "The Haunting Hag of village"
Var taobinTextPointEN[9] = "Midnight's Enigma"
Var taobinTextPointEN[10] = "Unbelievers' Demise"
Var taobinTextPointEN[11] = "Haunted Haze"
Var taobinTextPointEN[12] = "7 Haunted Woods"
Var taobinTextColorPoint[0] = "0xFFFFFF"
Var taobinTextColorPoint[1] = "0xFFFFFF"
@ -144,50 +120,84 @@
Var taobinTextColorPoint[11] = "0xFFFFFF"
Var taobinTextColorPoint[12] = "0xFFFFFF"
Var PepweenPoint = 0
If PopweenPointState[0] = 1 Then
Var taobinP1 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[1] = 1 Then
Var taobinP2 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[2] = 1 Then
Var taobinP3 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[3] = 1 Then
Var taobinP4 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[4] = 1 Then
Var taobinP5 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[5] = 1 Then
Var taobinP6 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[6] = 1 Then
Var taobinP7 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[7] = 1 Then
Var taobinP8 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[8] = 1 Then
Var taobinP9 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[9] = 1 Then
Var taobinP10 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[10] = 1 Then
Var taobinP11 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[11] = 1 Then
Var taobinP12 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointState[12] = 1 Then
Var taobinP13 = "Enable"
Var PepweenPoint = PepweenPoint + 1
EndIf
If PopweenPointNewIndex >= 0 Then
Var taobinImgPoint[PopweenPointNewIndex] = "/skull_active_new.png"
Var taobinTextColorPoint[PopweenPointNewIndex] = "0xE97A13"
If PopweenPointNewIndex = "" Then
; Nothing
Else
If PopweenPointNewIndex >= 0 Then
Var taobinImgPoint[PopweenPointNewIndex] = "/skull_active_new.png"
Var taobinTextColorPoint[PopweenPointNewIndex] = "0xE97A13"
EndIf
EndIf
Var PointDiff = 13 - PepweenPoint
If show_eng = "true" Then
Var TaobinLevelDesc1 = "You're just " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " menu item away from unlocking a Secret graveyard prize."
Var TaobinLevelDesc2 = "Collect all 13 horrifying menus now!"
Else
Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูที่จะเปิดล็อคความน่าสะพรึง"
Var TaobinLevelDesc2 = "สะสมให้ครบ 13 เมนูแสนอร่อยปนความสยองตอนนี้เลย!"
EndIf
If PepweenPoint = 13 Then
Var showRandomBtnState = "Enable"
EndIf
If Seeker = "curr" Then
@ -196,15 +206,8 @@
Var CheckCouponState = "Disable"
EndIf
Var CurrentPointSlot = "10"
Var CurrentPointCheck = ""
Var val3 = "X"
AddData 35 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
; Var CodeType = "114"
; Var val2 = "X"
; Var val3 = "X"
; AddData 36 TelephoneNumber CodeType val2 val3
Var CurrentPointSlot = PopweenPointNewIndex + 1
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -216,24 +219,11 @@
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
If CoffeePoint > 29 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
If Seeker.FromConsent = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
If PromotionIDCurrentOrder > 1 Then
Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If Timeout > 10 Then
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 35 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -243,46 +233,11 @@
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If CheckCoupons = 1 Then
Var MakeDrinkState = 1
Var CouponPage = 1
Var CouponInfo1 = Ext1a
Var CouponInfo2 = Ext1b
Var CouponInfo3 = Ext1c
Var CouponInfo4 = Ext1d
Var CouponInfo5 = Ext1e
Var CouponInfo6 = Ext1f
Var CouponInfo7 = Ext1g
Var CouponInfo8 = Ext1h
Var CouponInfo9 = Ext1i
Var CouponInfo10 = Ext1j
Var TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 13
Var CheckCoupons = 2
Else
If CheckCoupons = 2 Then
Var TaobinCredit = Ext1b
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
EndIf
</EventActionOk>
<EventMachine>
If MachineStage = "drink-success" Then
@ -364,6 +319,7 @@
<Button>
<X> 423 </X>
<Y> 1660 </Y>
<State> showRandomBtnState </State>
<Filename> Var( DirImage + "/bn_random.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_random.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -371,6 +327,14 @@
<EventClick>
; goto lid straw
If SELLONLINE = 1 Then
Var CurrentPointCheck = ""
Else
Var CurrentPointCheck = "check"
EndIf
Var val3 = "X"
AddData 35 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Open "ROOT/taobin_project/xml/event/pepween/page_pepween_random.xml"
</EventClick>
@ -409,7 +373,7 @@
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeePointRank </Value>
<Value> PepweenPoint </Value>
</Text>
<Text>
@ -445,7 +409,7 @@
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeePointRank </Value>
<Value> PepweenPoint </Value>
</Text>
<Text>
@ -575,131 +539,287 @@
<Text>
<X> 239 </X>
<Y> 1244 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[0] </Color>
<Value> taobinTextPoint[0] </Value>
<Value> taobinTextPointTH[0] </Value>
</Text>
<Text>
<X> 250 </X>
<Y> 1244 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[0] </Color>
<Value> taobinTextPointEN[0] </Value>
</Text>
<Text>
<X> 374 </X>
<Y> 1244 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[1] </Color>
<Value> taobinTextPoint[1] </Value>
<Value> taobinTextPointTH[1] </Value>
</Text>
<Text>
<X> 382 </X>
<Y> 1244 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[1] </Color>
<Value> taobinTextPointEN[1] </Value>
</Text>
<Text>
<X> 498 </X>
<Y> 1244 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[2] </Color>
<Value> taobinTextPoint[2] </Value>
<Value> taobinTextPointTH[2] </Value>
</Text>
<Text>
<X> 485 </X>
<Y> 1244 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 150 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[2] </Color>
<Value> taobinTextPointEN[2] </Value>
</Text>
<Text>
<X> 635 </X>
<Y> 1244 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[3] </Color>
<Value> taobinTextPoint[3] </Value>
<Value> taobinTextPointTH[3] </Value>
</Text>
<Text>
<X> 644 </X>
<Y> 1244 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[3] </Color>
<Value> taobinTextPointEN[3] </Value>
</Text>
<Text>
<X> 765 </X>
<Y> 1244 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[4] </Color>
<Value> taobinTextPoint[4] </Value>
<Value> taobinTextPointTH[4] </Value>
</Text>
<Text>
<X> 775 </X>
<Y> 1244 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[4] </Color>
<Value> taobinTextPointEN[4] </Value>
</Text>
<Text>
<X> 227 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 105 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[5] </Color>
<Value> taobinTextPoint[5] </Value>
<Value> taobinTextPointTH[5] </Value>
</Text>
<Text>
<X> 370 </X>
<X> 250 </X>
<Y> 1388 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 105 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[5] </Color>
<Value> taobinTextPointEN[5] </Value>
</Text>
<Text>
<X> 375 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[6] </Color>
<Value> taobinTextPoint[6] </Value>
<Value> taobinTextPointTH[6] </Value>
</Text>
<Text>
<X> 368 </X>
<Y> 1388 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[6] </Color>
<Value> taobinTextPointEN[6] </Value>
</Text>
<Text>
<X> 521 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[7] </Color>
<Value> taobinTextPoint[7] </Value>
<Value> taobinTextPointTH[7] </Value>
</Text>
<Text>
<X> 508 </X>
<Y> 1388 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[7] </Color>
<Value> taobinTextPointEN[7] </Value>
</Text>
<Text>
<X> 634 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[8] </Color>
<Value> taobinTextPoint[8] </Value>
<Value> taobinTextPointTH[8] </Value>
</Text>
<Text>
<X> 634 </X>
<Y> 1388 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[8] </Color>
<Value> taobinTextPointEN[8] </Value>
</Text>
<Text>
<X> 769 </X>
<Y> 1388 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[9] </Color>
<Value> taobinTextPoint[9] </Value>
<Value> taobinTextPointTH[9] </Value>
</Text>
<Text>
<X> 764 </X>
<Y> 1388 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[9] </Color>
<Value> taobinTextPointEN[9] </Value>
</Text>
<Text>
<X> 246 </X>
<Y> 1530 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[10] </Color>
<Value> taobinTextPoint[10] </Value>
<Value> taobinTextPointTH[10] </Value>
</Text>
<Text>
<X> 246 </X>
<Y> 1530 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[10] </Color>
<Value> taobinTextPointEN[10] </Value>
</Text>
<Text>
<X> 355 </X>
<Y> 1530 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 110 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[11] </Color>
<Value> taobinTextPoint[11] </Value>
<Value> taobinTextPointTH[11] </Value>
</Text>
<Text>
<X> 375 </X>
<Y> 1530 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 110 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[11] </Color>
<Value> taobinTextPointEN[11] </Value>
</Text>
<Text>
<X> 515 </X>
<Y> 1530 </Y>
<State> ThaiTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[12] </Color>
<Value> taobinTextPoint[12] </Value>
<Value> taobinTextPointTH[12] </Value>
</Text>
<Text>
<X> 500 </X>
<Y> 1530 </Y>
<State> EngTextState </State>
<Size> 12 </Size>
<Width> 100 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[12] </Color>
<Value> taobinTextPointEN[12] </Value>
</Text>
;

53
xml/event/pepween/page_collect_point_pro_pepween_error.xml
View file

@ -22,6 +22,53 @@
Var ShowEngText = "Invisible"
EndIf
Var PopweenPointNewIndex = 0
If Seeker.selected_a_drink = "12-99-05-0053" Then
Var PopweenPointNewIndex = 0
EndIf
If Seeker.selected_a_drink = "12-99-05-0054" Then
Var PopweenPointNewIndex = 1
EndIf
If Seeker.selected_a_drink = "12-99-05-0055" Then
Var PopweenPointNewIndex = 2
EndIf
If Seeker.selected_a_drink = "12-99-05-0057" Then
Var PopweenPointNewIndex = 3
EndIf
If Seeker.selected_a_drink = "12-99-05-0058" Then
Var PopweenPointNewIndex = 4
EndIf
If Seeker.selected_a_drink = "12-99-05-0059" Then
Var PopweenPointNewIndex = 5
EndIf
If Seeker.selected_a_drink = "12-99-05-0060" Then
Var PopweenPointNewIndex = 6
EndIf
If Seeker.selected_a_drink = "12-99-05-0061" Then
Var PopweenPointNewIndex = 7
EndIf
If Seeker.selected_a_drink = "12-99-05-0062" Then
Var PopweenPointNewIndex = 8
EndIf
If Seeker.selected_a_drink = "12-99-05-0064" Then
Var PopweenPointNewIndex = 9
EndIf
If Seeker.selected_a_drink = "12-99-05-0065" Then
Var PopweenPointNewIndex = 10
EndIf
If Seeker.selected_a_drink = "12-99-05-0056" Then
Var PopweenPointNewIndex = 11
EndIf
If Seeker.selected_a_drink = "12-99-03-0066" Then
Var PopweenPointNewIndex = 12
EndIf
Var CurrentPointSlot = PopweenPointNewIndex + 1
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 35 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -32,12 +79,6 @@
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
If PromotionIDCurrentOrder > 1 Then
Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf

125
xml/event/pepween/page_pepween_random.xml
View file

@ -168,6 +168,31 @@
; Send to server
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
If UserCouponReward = "dis30" Then
Var CodeType = "115"
EndIf
If UserCouponReward = "dis50" Then
Var CodeType = "116"
EndIf
If UserCouponReward = "dis100" Then
Var CodeType = "114"
EndIf
; Empty Random
;If CodeType = "" Then
; ; TODO: Handle just in case
;Else
;
;EndIf
AddData 36 TelephoneNumber CodeType var2 var3
Open "ROOT/taobin_project/xml/event/pepween/page_pepween_result.xml"
</EventOnClick>
</Button>
@ -189,6 +214,31 @@
; Send to server
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
If UserCouponReward = "dis30" Then
Var CodeType = "115"
EndIf
If UserCouponReward = "dis50" Then
Var CodeType = "116"
EndIf
If UserCouponReward = "dis100" Then
Var CodeType = "114"
EndIf
; Empty Random
;If CodeType = "" Then
; ; TODO: Handle just in case
;Else
;
;EndIf
AddData 36 TelephoneNumber CodeType var2 var3
Open "ROOT/taobin_project/xml/event/pepween/page_pepween_result.xml"
</EventOnClick>
</Button>
@ -210,6 +260,31 @@
; Send to server
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
If UserCouponReward = "dis30" Then
Var CodeType = "115"
EndIf
If UserCouponReward = "dis50" Then
Var CodeType = "116"
EndIf
If UserCouponReward = "dis100" Then
Var CodeType = "114"
EndIf
; Empty Random
;If CodeType = "" Then
; ; TODO: Handle just in case
;Else
;
;EndIf
AddData 36 TelephoneNumber CodeType var2 var3
Open "ROOT/taobin_project/xml/event/pepween/page_pepween_result.xml"
</EventOnClick>
</Button>
@ -231,6 +306,31 @@
; Send to server
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
If UserCouponReward = "dis30" Then
Var CodeType = "115"
EndIf
If UserCouponReward = "dis50" Then
Var CodeType = "116"
EndIf
If UserCouponReward = "dis100" Then
Var CodeType = "114"
EndIf
; Empty Random
;If CodeType = "" Then
; ; TODO: Handle just in case
;Else
;
;EndIf
AddData 36 TelephoneNumber CodeType var2 var3
Open "ROOT/taobin_project/xml/event/pepween/page_pepween_result.xml"
</EventOnClick>
</Button>
@ -252,6 +352,31 @@
; Send to server
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
If UserCouponReward = "dis30" Then
Var CodeType = "115"
EndIf
If UserCouponReward = "dis50" Then
Var CodeType = "116"
EndIf
If UserCouponReward = "dis100" Then
Var CodeType = "114"
EndIf
; Empty Random
;If CodeType = "" Then
; ; TODO: Handle just in case
;Else
;
;EndIf
AddData 36 TelephoneNumber CodeType var2 var3
Open "ROOT/taobin_project/xml/event/pepween/page_pepween_result.xml"
</EventOnClick>
</Button>

25
xml/event/pepween/page_pepween_result.xml
View file

@ -29,35 +29,16 @@
<EventTimeout>
DEBUGVAR Timeout
If PayOfflineMode = 1 Then
Var ServerRespond = 0
Var CouponResponeFailed = 1
EndIf
If Timeout > 60 Then
If Timeout > 5 Then
; Check and return Error
Var CouponResponeFailed = 1
Open "ROOT/taobin_project/xml/event/pepween/page_pepween_error.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Var Timeout = Timeout + 1
TimerReset
</EventTimeout>
<EventActionOk>
If CouponResponeFailed = 0 Then
; TODO:
;Open "ROOT/taobin_project/xml/event/pepween/page_pepween_error.xml"
EndIf
</EventActionOk>
<EventActionError>
; TODO: open coupon send error page
If CouponResponeFailed = 1 Then
Open "ROOT/taobin_project/xml/event/pepween/page_pepween_error.xml"
EndIf
</EventActionError>
<Video>
<X> 0 </X>

7
xml/event/script_common_for_open_promotion_xml.ev
View file

@ -5,6 +5,13 @@ DEBUGVAR PayOfflineMode
; zone promote
If OpenFromPageBoard = 1 Then
If PepweenEnable = 1 Then
Var BigButtonEnable = "Enable"
OpenInst 2 "ROOT/taobin_project/xml/event/promotion_pepween.xml"
Var OpenFromPageBoard = 0
EndIf
If TamatianEnable = 1 Then
Var BigButtonEnable = "Enable"

8
xml/event/tricker.ev
View file

@ -41,6 +41,8 @@ Var TamatianEnable = 0
; September 9 - 16
Var MayDayRunEnable = 0
; Enable Milk Choice Vegan
Var MilkChoiceVeganEnable = 0
If SystemDateMonthInt = 9 Then
If SystemDateDayInt > 5 Then
@ -80,6 +82,11 @@ If SystemDateMonthInt = 10 Then
Var PepweenEnable = 1
EndIf
If SystemDateDayInt >= 13 Then
If SystemDateDayInt <= 24 Then
Var MilkChoiceVeganEnable = 1
EndIf
EndIf
EndIf
DEBUGVAR PepweenEnable
@ -189,6 +196,7 @@ EndIf
If InternationalEnable = 1 Then
Var MilkChoiceVeganEnable = 0
Var GameEnableFromTrickerEv = 0
Var TamatianEnable = 0
Var MayDayRunEnable = 0