This commit is contained in:
kong 2023-09-14 14:49:27 +07:00
parent 2eff6b654b
commit 4709c5c3e8
7 changed files with 132 additions and 125 deletions

View file

@ -1,6 +1,6 @@
; Thailand
;DEBUGVAR SystemDateMonthInt
;DEBUGVAR SystemDateDayInt
@ -158,6 +158,21 @@ If BoxID = 33170 Then
EndIf
Var adver_brewing_video_full_file_name = ""
DEBUGVAR TamatianEnable
If TamatianEnable = 1 Then
If BrewingAdvPlayfileSize = "" Then
GetFileSizeK "taobin_project/video/event_2.mp4" BrewingAdvPlayfileSize
EndIf
DEBUGVAR BrewingAdvPlayfileSize
If BrewingAdvPlayfileSize = 23054056 Then
Var adver_brewing_video_full_file_name = "ROOT/taobin_project/video/event_2.mp4"
EndIf
DEBUGVAR adver_brewing_video_full_file_name
EndIf
If InternationalEnable = 1 Then
Var GameEnableFromTrickerEv = 0

View file

@ -14,6 +14,7 @@
SAVELOG "page_brewing3.xml"
DEBUGVAR MachineStage
Var PictureFileTextDesctionState = "Enable"
If CART_COUNT >= 1 Then
@ -409,6 +410,7 @@
DEBUGVAR SelectMenuBetweenBrewEnable1
DEBUGVAR SelectMenuBetweenBrewEnable2
Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1
; echo 1 > /mnt/sdcard/game_enable
@ -1286,6 +1288,7 @@
If MachineState_Result > 0 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Var SelectMenuBetweenBrewEnable1Text = "Invisible"
EndIf
If SelectMenuBetweenBrewEnable1 = "Enable" Then
@ -1313,6 +1316,7 @@
; animation video loop
If AnimationOn = "true" Then
If adver_brewing_playing = 1 Then
DEBUGVAR adver_brewing_play_index
@ -1356,88 +1360,111 @@
If adver_brewing_count_down = 0 Then
Var adver_brewing_play_index = 0
Var adver_brewing_playing = 0
If adver_brewing_video_full_file_name = "" Then
Var adver_brewing_playing = 0
Else
Var adver_brewing_playing = 2
EndIf
EndIf
EndIf
Else
Var CountUpBrewing = CountUpBrewing + 1
;CampaignEnable
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If PreviseStepVideo = SlotVideo Then
;SAVELOG SlotVideo
Else
Var PreviseStepVideo = SlotVideo
;SAVELOG PreviseStepVideo
;SAVELOG SlotVideo
;SAVELOG CountUpBrewing
;Var CountDownVideoTime = CountDownVideoTimeReload
Var StepVideo = SlotVideo + 2
;SAVELOG StepVideo
If StepVideo = 1 Then
Var videoID = VideoID1
EndIf
If StepVideo = 2 Then
Var videoID = VideoID2
EndIf
If StepVideo = 3 Then
Var videoID = VideoID3
EndIf
If StepVideo = 4 Then
Var videoID = VideoID4
EndIf
If StepVideo = 5 Then
Var videoID = VideoID5
EndIf
If StepVideo = 6 Then
Var videoID = VideoID6
EndIf
If StepVideo = 7 Then
Var videoID = VideoID7
EndIf
If StepVideo = 8 Then
Var videoID = VideoID8
EndIf
If StepVideo = 9 Then
Var videoID = VideoID9
EndIf
;SAVELOG videoID
If videoID = 0 Then
If adver_brewing_playing = 2 Then
DEBUGVAR adver_brewing_video_full_file_name
If adver_brewing_video_full_file_name = "" Then
Var adver_brewing_playing = 0
Else
If videoID = "---" Then
Var VideoPlayFile = adver_brewing_video_full_file_name
Var PictureFile = brew_txt2
Var PictureFileTextDesctionState = "Invisible"
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1Text = "Invisible"
EndIf
Else
Var CountUpBrewing = CountUpBrewing + 1
;CampaignEnable
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If PreviseStepVideo = SlotVideo Then
;SAVELOG SlotVideo
Else
Var PreviseStepVideo = SlotVideo
;SAVELOG PreviseStepVideo
;SAVELOG SlotVideo
;SAVELOG CountUpBrewing
;Var CountDownVideoTime = CountDownVideoTimeReload
Var StepVideo = SlotVideo + 2
;SAVELOG StepVideo
If StepVideo = 1 Then
Var videoID = VideoID1
EndIf
If StepVideo = 2 Then
Var videoID = VideoID2
EndIf
If StepVideo = 3 Then
Var videoID = VideoID3
EndIf
If StepVideo = 4 Then
Var videoID = VideoID4
EndIf
If StepVideo = 5 Then
Var videoID = VideoID5
EndIf
If StepVideo = 6 Then
Var videoID = VideoID6
EndIf
If StepVideo = 7 Then
Var videoID = VideoID7
EndIf
If StepVideo = 8 Then
Var videoID = VideoID8
EndIf
If StepVideo = 9 Then
Var videoID = VideoID9
EndIf
;SAVELOG videoID
If videoID = 0 Then
Else
If videoID = "---" Then
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
Var VideoPlayFile = VideoPlayFile + videoID
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Else
Var PictureFile = PicturePath
Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + videoID
Var PictureFile = PictureFile + PictureEnd
DEBUGVAR VideoPlayFile
DEBUGVAR PictureFile
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
Var VideoPlayFile = VideoPlayFile + videoID
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Var PictureFile = PicturePath
Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + videoID
Var PictureFile = PictureFile + PictureEnd
DEBUGVAR VideoPlayFile
DEBUGVAR PictureFile
EndIf
EndIf
EndIf
EndIf
EndIf
; CampaignEnable
EndIf
; AnimationOn = true
If IgnoreNetCore = "true" Then
@ -1603,11 +1630,19 @@
EndIf
</EventChangeStatus>
<Image>
<X> 60 </X>
<Y> 1290 </Y>
<State> PictureFileTextDesctionState" </State>
<Filename> PictureFile</Filename>
</Image>
<Video>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080</Width>
<Height> 840 </Height>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
@ -1624,22 +1659,14 @@
<Image>
<X> 60 </X>
<Y> 1290 </Y>
;<State> NoLangObjectShow </State>
<State> "Enable" </State>
<Filename> PictureFile</Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 1655 </Y>
<State> SelectMenuBetweenBrewEnable1 </State>
<State> SelectMenuBetweenBrewEnable1Text </State>
<Filename> text_next_order </Filename>
<Image>
</Image>
<Text>
<X> 0 </X>
<Y> 1655 </Y>

View file

@ -6633,9 +6633,9 @@ AMERICANO" </Value>
<State> Flag( 12-01-01-0050.Button,12-01-02-0050.Button,$Sum12010100501201020050) </State>
<Button>
<State> $Sum12010100501201020050 </State>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_hot_americano_light_chopin.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_hot_americano_light_chopin.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_hot_americano_light_chopin.png" </FilenameDisable>
<Filename> "ROOT/taobin_project/image/page_drink_n//bn_hot_americano_light_opus_one.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_drink_press_n//bn_hot_americano_light_opus_one.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/page_drink_disable_n2//bn_hot_americano_light_opus_one.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOnClick>
@ -6643,7 +6643,7 @@ AMERICANO" </Value>
Var NameDrinkTH = "อเมริกาโน OPUS ONE"
Var DrinkDescriptionTH = "กาแฟคั่วอ่อน โน๊ต: เยลลี่องุ่น แอ๊ปเปิ้ลพาย มิ้น"
Var DrinkDescription = "Light Roast. Note: Grape Jelly, Apple Pie, Walnut, Mint."
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_americano_light_chopin.png"
Var PictureDrink = "ROOT/taobin_project/image/page_drink_picture2_n/" + "bn_hot_americano_light_opus_one.png"
Var OpenFromXML = CurrentXMLFileName2
Var PriceD1 = $12-01-01-0050.Price
Var PriceD2 = $12-01-02-0050.Price