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

THAI: Added Jemila sound

Browse source
This commit is contained in:
Kenta420 2024-09-22 00:27:03 +07:00
parent bfbaac6752
commit e454479817
25 changed files with 3461 additions and 2887 deletions
Download patch file Download diff file Expand all files Collapse all files

188
xml/event/jemila/page_collect_point_jemila_2.xml
View file

@ -16,9 +16,9 @@
Var Seeker.TaobinErrorNetwork = 0
If show_eng = "true" Then
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"
@ -39,10 +39,10 @@
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"
EndIf
</EventOpen>
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
@ -50,52 +50,52 @@
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var TaobinLevel = 0
Var CoffeePoint = 1
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>
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_error.xml"
Else
Var TaobinName = Ext1b
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
Var Seeker.IsAlreadyGetReward = Ext1c
Var JemilaDewyglowOutOfStock = Ext1x4
Var ColorChangingBlushOutOfStock = Ext1x5
Var CuraMDRandomOutOfStock = Ext1x6
Var JemilaDewyglowOutOfStock = Ext1d
Var ColorChangingBlushOutOfStock = Ext1e
Var CuraMDRandomOutOfStock = Ext1f
DEBUGVAR JemilaDewyglowOutOfStock
@ -103,7 +103,7 @@
DEBUGVAR CuraMDRandomOutOfStock
If TaobinName = "" Then
Var Seeker.IsLineMember = 0
Var Seeker.IsLineMember = 0
Else
If TaobinName = "-" Then
Var Seeker.IsLineMember = 0
@ -123,7 +123,7 @@
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
@ -138,7 +138,7 @@
EndIf
EndIf
EndIf
EndIf
EndIf
;If Seeker.IsAlreadyGetReward = 1 Then
; SAVELOG "Already get reward skip to normal collect point."
@ -209,7 +209,7 @@
DEBUGVAR Ext1a
SPLIT Ext1a "/" 1 MenuPoint[0]
SPLIT Ext1a "/" 2 MenuPoint[1]
SPLIT Ext1a "/" 3 MenuPoint[2]
@ -247,7 +247,7 @@
; 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
@ -255,7 +255,7 @@
EndIf
If Seeker.selected_a_drink = "12-03-03-0075" Then
If MenuPoint[0] = 1 then
Else
Var MenuPoint[0] = 1
Var newPointIndex = 0
@ -264,17 +264,17 @@
; Menu 2
If Seeker.selected_a_drink = "12-05-02-0124" Then
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 Seeker.selected_a_drink = "12-05-03-0124" Then
If MenuPoint[1] = 1 then
Else
Var MenuPoint[1] = 1
Var newPointIndex = 1
@ -283,17 +283,17 @@
; Menu 3
If Seeker.selected_a_drink = "12-02-02-0068" Then
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 Seeker.selected_a_drink = "12-02-03-0068" Then
If MenuPoint[2] = 1 then
Else
Var MenuPoint[2] = 1
Var newPointIndex = 2
@ -302,9 +302,9 @@
; Menu 4
If Seeker.selected_a_drink = "12-05-02-0125" Then
If Seeker.selected_a_drink = "12-05-02-0125" Then
If MenuPoint[3] = 1 then
Else
Var MenuPoint[3] = 1
Var newPointIndex = 3
@ -313,17 +313,17 @@
; Menu 5
If Seeker.selected_a_drink = "12-01-02-0075" Then
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 Seeker.selected_a_drink = "12-21-02-0075" Then
If MenuPoint[4] = 1 then
Else
Var MenuPoint[4] = 1
Var newPointIndex = 4
@ -332,17 +332,17 @@
; Menu 6
If Seeker.selected_a_drink = "12-03-02-0076" Then
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 Seeker.selected_a_drink = "12-03-03-0076" Then
If MenuPoint[5] = 1 then
Else
Var MenuPoint[5] = 1
Var newPointIndex = 5
@ -351,17 +351,17 @@
; Menu 7
If Seeker.selected_a_drink = "12-02-02-0069" Then
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 Seeker.selected_a_drink = "12-02-03-0069" Then
If MenuPoint[6] = 1 then
Else
Var MenuPoint[6] = 1
Var newPointIndex = 6
@ -370,17 +370,17 @@
; Menu 8
If Seeker.selected_a_drink = "12-05-02-0126" Then
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 Seeker.selected_a_drink = "12-05-03-0126" Then
If MenuPoint[7] = 1 then
Else
Var MenuPoint[7] = 1
Var newPointIndex = 7
@ -389,17 +389,17 @@
; Menu 9
If Seeker.selected_a_drink = "12-05-02-0127" Then
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 Seeker.selected_a_drink = "12-05-03-0127" Then
If MenuPoint[8] = 1 then
Else
Var MenuPoint[8] = 1
Var newPointIndex = 8
@ -408,17 +408,17 @@
; Menu 10
If Seeker.selected_a_drink = "12-02-02-0070" Then
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 Seeker.selected_a_drink = "12-02-03-0070" Then
If MenuPoint[9] = 1 then
Else
Var MenuPoint[9] = 1
Var newPointIndex = 9
@ -431,109 +431,109 @@
If MenuPoint[0] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[0]
Var PointName[CurrentIndexPoint] = MenuName[0]
If newPointIndex = 0 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[1] = 1 Then
If MenuPoint[1] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[1]
Var PointName[CurrentIndexPoint] = MenuName[1]
If newPointIndex = 1 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[2] = 1 Then
If MenuPoint[2] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[2]
Var PointName[CurrentIndexPoint] = MenuName[2]
If newPointIndex = 2 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[3] = 1 Then
If MenuPoint[3] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[3]
Var PointName[CurrentIndexPoint] = MenuName[3]
If newPointIndex = 3 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[4] = 1 Then
If MenuPoint[4] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[4]
Var PointName[CurrentIndexPoint] = MenuName[4]
If newPointIndex = 4 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[5] = 1 Then
If MenuPoint[5] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[5]
Var PointName[CurrentIndexPoint] = MenuName[5]
If newPointIndex = 5 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[6] = 1 Then
If MenuPoint[6] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[6]
Var PointName[CurrentIndexPoint] = MenuName[6]
If newPointIndex = 6 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[7] = 1 Then
If MenuPoint[7] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[7]
Var PointName[CurrentIndexPoint] = MenuName[7]
If newPointIndex = 7 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[8] = 1 Then
If MenuPoint[8] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[8]
Var PointName[CurrentIndexPoint] = MenuName[8]
If newPointIndex = 8 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
If MenuPoint[9] = 1 Then
If MenuPoint[9] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
PointName[CurrentIndexPoint] = MenuName[9]
Var PointName[CurrentIndexPoint] = MenuName[9]
If newPointIndex = 9 Then
Var PointImage[CurrentIndexPoint] = "/new_point.png"
Else
Else
Var PointImage[CurrentIndexPoint] = "/point.png"
EndIf
EndIf
@ -546,23 +546,23 @@
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_3.xml"
Open "ROOT/taobin_project/xml/event/jemila/page_collect_point_jemila_3.xml"
EndIf
</EventActionOk>
<EventActionError>
<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>
</EventActionError>
<EventMachine>
If MachineStage = "drink-success" Then