620 lines
No EOL
19 KiB
XML
620 lines
No EOL
19 KiB
XML
<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> |