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

DO

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

183
xml/page_brewing3.xml
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>