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

AUS: add vanilla animation & THAI: promotion nam hom coconut

Browse source
This commit is contained in:
Kenta420 2024-05-17 11:19:10 +07:00
parent 0231aac6ed
commit 21674c413f
49 changed files with 19538 additions and 7246 deletions
Download patch file Download diff file Expand all files Collapse all files

175
xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml
View file

@ -266,86 +266,6 @@
DEBUGVAR MenuPoint[11]
DEBUGVAR MenuPoint[12]
Var CurrentIndexPoint = -1
If MenuPoint[0] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[0]
EndIf
If MenuPoint[1] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[1]
EndIf
If MenuPoint[2] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[2]
EndIf
If MenuPoint[3] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[3]
EndIf
If MenuPoint[4] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[4]
EndIf
If MenuPoint[5] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[5]
EndIf
If MenuPoint[6] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[6]
EndIf
If MenuPoint[7] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[7]
EndIf
If MenuPoint[8] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[8]
EndIf
If MenuPoint[9] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[9]
EndIf
If MenuPoint[10] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[10]
EndIf
If MenuPoint[11] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[11]
EndIf
If MenuPoint[12] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[12]
EndIf
; Menu 1
If Seeker.selected_a_drink = "12-01-02-0068" Then
If MenuPoint[0] = 1 then
@ -578,6 +498,86 @@
EndIf
EndIf
Var CurrentIndexPoint = -1
If MenuPoint[0] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[0]
EndIf
If MenuPoint[1] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[1]
EndIf
If MenuPoint[2] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[2]
EndIf
If MenuPoint[3] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[3]
EndIf
If MenuPoint[4] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[4]
EndIf
If MenuPoint[5] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[5]
EndIf
If MenuPoint[6] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[6]
EndIf
If MenuPoint[7] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[7]
EndIf
If MenuPoint[8] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[8]
EndIf
If MenuPoint[9] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[9]
EndIf
If MenuPoint[10] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[10]
EndIf
If MenuPoint[11] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[11]
EndIf
If MenuPoint[12] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[12]
EndIf
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR newPointIndex
@ -621,20 +621,7 @@
</Image>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
;include="ROOT/taobin_project/inc/video.inc"
<Text>
<X> 0 </X>

315
xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_3.xml
View file

@ -28,8 +28,12 @@
If show_eng = "true" Then
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Var CloseBtnImg = PointRootDir + "/continue_en_btn.png"
Var RandomBtnImg = PointRootDir + "/random_btn_en.png"
Else
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
Var CloseBtnImg = PointRootDir + "/continue_btn.png"
Var RandomBtnImg = PointRootDir + "/random_btn.png"
EndIf
Var CheckCoupons = 0
@ -48,38 +52,6 @@
Var PointCount = 0
If show_eng = "true" Then
Var taobinTextPoint[0] = "Hat Yai\nBeach coconut"
Var taobinTextPoint[1] = "Bangsaen\nBeach Coconut"
Var taobinTextPoint[2] = "Jomtien\nBeach Coconut"
Var taobinTextPoint[3] = "Nang Ram\nBeach Coconut"
Var taobinTextPoint[4] = "Glass Sand\nBeach Coconut"
Var taobinTextPoint[5] = "Mae Pim\nBeach Coconut"
Var taobinTextPoint[6] = "Moonlight\nBeach Coconut"
Var taobinTextPoint[7] = "Pattaya\nBeach Coconut"
Var taobinTextPoint[8] = "Suan Son\nBeach Coconut"
Var taobinTextPoint[9] = "Laem Sing\nBeach Coconut"
Var taobinTextPoint[10] = "Toem Rak\nBeach Coconut"
Var taobinTextPoint[11] = "Long\nBeach Coconut"
Var taobinTextPoint[12] = "Hat\nBeach Coconut"
Else
Var taobinTextPoint[0] = "มะพร้าวหาดใหญ่(มาก)"
Var taobinTextPoint[1] = "มะพร้าวหาดบางแสน\n(ห้า)"
Var taobinTextPoint[2] = "มะพร้าวหาดจอมเทียน\n(พรรษา)"
Var taobinTextPoint[3] = "มะพร้าวหาดนางรำ\n(สวย)"
Var taobinTextPoint[4] = "มะพร้าวหาดทรายแก้ว\n(มังกร)"
Var taobinTextPoint[5] = "มะพร้าวหาดแม่พิมพ์\n(ดีด)"
Var taobinTextPoint[6] = "มะพร้าวหาดแสงจันทร์\n(ไรอะ)"
Var taobinTextPoint[7] = "มะพร้าวหาดพัทยา\n(พารา)"
Var taobinTextPoint[8] = "มะพร้าวหาดสวนสน\n(ใจไหม)"
Var taobinTextPoint[9] = "มะพร้าวหาดแหลมสิง\n(หไกรภพ)"
Var taobinTextPoint[10] = "มะพร้าวหาดเติมรัก(ฉันทำไม)"
Var taobinTextPoint[11] = "มะพร้าวหาดยาว\n(ไปยาวไป)"
Var taobinTextPoint[12] = "มะพร้าวหาด(ใกล้ฉัน)"
EndIf
Var taobinTextColorPoint[0] = "0x000000"
Var taobinTextColorPoint[1] = "0x000000"
Var taobinTextColorPoint[2] = "0x000000"
@ -243,14 +215,8 @@
EndIf
</EventMachine>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
@ -259,9 +225,6 @@
</Image>
;
<Image>
@ -364,188 +327,184 @@
<Image>
<X> 243 </X>
<Y> 1147 </Y>
<X> 234 </X>
<Y> 1113 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[0]) </Filename>
</Image>
<Text>
<X> 234 </X>
<Y> 1252 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[0] </Color>
<Value> PointState[0].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 378 </X>
<Y> 1147 </Y>
<X> 388 </X>
<Y> 1113 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[1]) </Filename>
</Image>
<Text>
<X> 388 </X>
<Y> 1252 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[1] </Color>
<Value> PointState[1].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 513 </X>
<Y> 1147 </Y>
<X> 542 </X>
<Y> 1113 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[2]) </Filename>
</Image>
<Text>
<X> 542 </X>
<Y> 1252 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[2] </Color>
<Value> PointState[2].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 647 </X>
<Y> 1147 </Y>
<X> 696 </X>
<Y> 1113 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[3]) </Filename>
</Image>
<Text>
<X> 696 </X>
<Y> 1252 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[3] </Color>
<Value> PointState[3].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 782 </X>
<Y> 1147 </Y>
<X> 76 </X>
<Y> 1295 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[4]) </Filename>
</Image>
<Text>
<X> 76 </X>
<Y> 1434 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[4] </Color>
<Value> PointState[4].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 243 </X>
<Y> 1338 </Y>
<X> 388 </X>
<Y> 1295 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[5]) </Filename>
</Image>
<Text>
<X> 388 </X>
<Y> 1434 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[5] </Color>
<Value> PointState[5].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 378 </X>
<Y> 1338 </Y>
<X> 542 </X>
<Y> 1295 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[6]) </Filename>
</Image>
<Text>
<X> 542 </X>
<Y> 1434 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[6] </Color>
<Value> PointState[6].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 513 </X>
<Y> 1338 </Y>
<X> 696 </X>
<Y> 1295 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[7]) </Filename>
</Image>
<Text>
<X> 696 </X>
<Y> 1434 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[7] </Color>
<Value> PointState[7].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 647 </X>
<Y> 1338 </Y>
<X> 388 </X>
<Y> 1477 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[8]) </Filename>
</Image>
<Text>
<X> 388 </X>
<Y> 1616 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[8] </Color>
<Value> PointState[8].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 782 </X>
<Y> 1338 </Y>
<X> 542 </X>
<Y> 1477 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[9]) </Filename>
</Image>
<Text>
<X> 216 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[0] </Color>
<Value> taobinTextPoint[0] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 352 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[1] </Color>
<Value> taobinTextPoint[1] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 488 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[2] </Color>
<Value> taobinTextPoint[2] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 624 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[3] </Color>
<Value> taobinTextPoint[3] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 760 </X>
<Y> 1256 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[4] </Color>
<Value> taobinTextPoint[4] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 216 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[5] </Color>
<Value> taobinTextPoint[5] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 352 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[6] </Color>
<Value> taobinTextPoint[6] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 488 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[7] </Color>
<Value> taobinTextPoint[7] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 624 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<Color> taobinTextColorPoint[8] </Color>
<Value> taobinTextPoint[8] </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Text>
<X> 760 </X>
<Y> 1451 </Y>
<Size> 12 </Size>
<Width> 123 </Width>
<Font> KanitRegularTTF </Font>
<X> 542 </X>
<Y> 1616 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[9] </Color>
<Value> taobinTextPoint[9] </Value>
<Value> PointState[9].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Button>
<X> 423 </X>
<Y> 1660 </Y>
<State> showRandomBtnState </State>
<Filename> Var( PointRootDir + "/bn_random.png" )</Filename>
<FilenamePress> Var( PointRootDir + "/bp_random.png" )</FilenamePress>
<Filename> RandomBtnImg </Filename>
<FilenamePress> RandomBtnImg </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -569,8 +528,8 @@
<X> 610 </X>
<Y> 1660 </Y>
<State> showCloseBtnState </State>
<Filename> Var( PointRootDir + "/bn_close.png" )</Filename>
<FilenamePress> Var( PointRootDir + "/bp_close.png" )</FilenamePress>
<Filename> CloseBtnImg </Filename>
<FilenamePress> CloseBtnImg </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

186
xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_error.xml
View file

@ -45,61 +45,127 @@
Var newPointIndex = 0
;; Point 1
;If Seeker.selected_a_drink = "12-03-03-0046" Then
; Var newPointIndex = 0
;EndIf
;
;; Point 2
;If Seeker.selected_a_drink = "12-03-03-0047" Then
; Var newPointIndex = 1
;EndIf
;
;; Point 3
;If Seeker.selected_a_drink = "12-99-05-0063" Then
; Var newPointIndex = 2
;EndIf
;
;; Point 4
;If Seeker.selected_a_drink = "12-03-02-0040" Then
; Var newPointIndex = 3
;EndIf
;
;; Point 5
;If Seeker.selected_a_drink = "12-05-03-0063" Then
; Var newPointIndex = 4
;EndIf
;
;; Point 6
;If Seeker.selected_a_drink = "12-05-02-0080" Then
; Var newPointIndex = 5
;EndIf
;
;; Point 7
;If Seeker.selected_a_drink = "12-02-03-0053" Then
; Var newPointIndex = 6
;EndIf
;
;; Point 8
;If Seeker.selected_a_drink = "12-03-02-0041" Then
; Var newPointIndex = 7
;EndIf
;
;; Point 9
;If Seeker.selected_a_drink = "12-02-02-0056" Then
; Var newPointIndex = 8
;EndIf
;
;; Point 10
;If Seeker.selected_a_drink = "12-05-03-0064" Then
; Var newPointIndex = 9
;EndIf
;
;
;Var CurrentPointSlot = newPointIndex + 1
;Var CurrentPointCheck = "check"
;Var val3 = "X"
;AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
; Menu 1
If Seeker.selected_a_drink = "12-01-02-0068" Then
Var newPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-21-02-0068" Then
Var newPointIndex = 0
EndIf
; Menu 2
If Seeker.selected_a_drink = "12-05-03-0092" Then
Var newPointIndex = 1
EndIf
; Menu 3
If Seeker.selected_a_drink = "12-03-02-0058" Then
Var newPointIndex = 2
EndIf
If Seeker.selected_a_drink = "12-03-03-0058" Then
Var newPointIndex = 2
EndIf
; Menu 4
If Seeker.selected_a_drink = "12-03-02-0059" Then
Var newPointIndex = 3
EndIf
If Seeker.selected_a_drink = "12-03-03-0059" Then
Var newPointIndex = 3
EndIf
; Menu 5
If Seeker.selected_a_drink = "12-02-02-0060" Then
Var newPointIndex = 4
EndIf
If Seeker.selected_a_drink = "12-02-03-0060" Then
Var newPointIndex = 4
EndIf
; Menu 6
If Seeker.selected_a_drink = "12-02-02-0061" Then
Var newPointIndex = 5
EndIf
If Seeker.selected_a_drink = "12-02-03-0061" Then
Var newPointIndex = 5
EndIf
; Menu 7
If Seeker.selected_a_drink = "12-02-02-0062" Then
Var newPointIndex = 6
EndIf
If Seeker.selected_a_drink = "12-02-03-0062" Then
Var newPointIndex = 6
EndIf
; Menu 8
If Seeker.selected_a_drink = "12-02-02-0063" Then
Var newPointIndex = 7
EndIf
If Seeker.selected_a_drink = "12-02-03-0063" Then
Var newPointIndex = 7
EndIf
; Menu 9
If Seeker.selected_a_drink = "12-02-02-0064" Then
Var newPointIndex = 8
EndIf
If Seeker.selected_a_drink = "12-02-03-0064" Then
Var newPointIndex = 8
EndIf
; Menu 10
If Seeker.selected_a_drink = "12-02-02-0065" Then
Var newPointIndex = 9
EndIf
If Seeker.selected_a_drink = "12-02-03-0065" Then
Var newPointIndex = 9
EndIf
; Menu 11
If Seeker.selected_a_drink = "12-05-02-0090" Then
Var newPointIndex = 10
EndIf
; Menu 12
If Seeker.selected_a_drink = "12-05-02-0091" Then
Var newPointIndex = 11
EndIf
If Seeker.selected_a_drink = "12-05-03-0091" Then
Var newPointIndex = 11
EndIf
; Menu 13
If Seeker.selected_a_drink = "12-05-02-0093" Then
Var newPointIndex = 12
EndIf
Var CurrentPointSlot = newPointIndex + 1
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
</EventOpen>
<Timeout> 1000 </Timeout>
@ -169,14 +235,8 @@
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
;include="ROOT/taobin_project/inc/video.inc"
;

30
xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml
View file

@ -218,26 +218,30 @@
Var randResultStr = rewardList[randResultInt]
If randResultStr = "lip_mask_stick" Then
Var rewardImage = DirImage + "/reward_lip_mask_stick.png"
Var CodeType = "126"
EndIf
if randResultStr = "tint_me_healthy_balm" Then
Var rewardImage = DirImage + "/reward_tint_me_healthy_blam.png"
Var CodeType = "127"
EndIf
If randResultStr = "super_set" Then
Var rewardImage = DirImage + "/reward_happy_lip_set.png"
Var CodeType = "128"
Var CodeType = "130"
EndIf
if randResultStr = "balance_essence_toner" Then
Var CodeType = "131"
EndIf
If randResultStr = "cleansing_gel" Then
Var CodeType = "132"
EndIf
If randResultStr = "tumble_bottle" Then
Var CodeType = "133"
EndIf
If randResultStr = "clear_gel" Then
Var CodeType = "134"
EndIf
DEBUGVAR randResultInt
DEBUGVAR randResultStr
DEBUGVAR CodeType
DEBUGVAR rewardImage
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random_result.xml"
</Function2>

22
xml/event/nam_hom_coconut/page_nam_hom_coconut_random_result.xml
View file

@ -10,35 +10,35 @@
Var DirImage = "ROOT/taobin_project/image/event/nam_hom_coconut/random"
If CodeType = "123" Then
If CodeType = "130" Then
Var RewardText = DirImage + "/super_set_reward_text.png"
Var RewardImage = DirImage + "/super_set_reward.png"
Var RewardImage_X = 27
Var RewardImage_Y = 876
EndIf
If CodeType = "123" Then
If CodeType = "131" Then
Var RewardText = DirImage + "/balance_essence_toner_reward_text.png"
Var RewardImage = DirImage + "/balance_essence_toner_reward.png"
Var RewardImage_X = 328
Var RewardImage_Y = 843
EndIf
If CodeType = "123" Then
If CodeType = "132" Then
Var RewardText = DirImage + "/cleansing_gel_reward_text.png"
Var RewardImage = DirImage + "/cleansing_gel_reward.png"
Var RewardImage_X = 270
Var RewardImage_Y = 833
EndIf
If CodeType = "123" Then
If CodeType = "133" Then
Var RewardText = DirImage + "/tumble_bottle_reward_text.png"
Var RewardImage = DirImage + "/tumble_bottle_reward.png"
Var RewardImage_X = 148
Var RewardImage_Y = 608
EndIf
If CodeType = "123" Then
If CodeType = "134" Then
Var RewardText = DirImage + "/clear_gel_reward_text.png"
Var RewardImage = DirImage + "/clear_gel_reward.png"
Var RewardImage_X = 445
@ -49,9 +49,21 @@
Var CodeReward = CodeType
Var var2 = "X"
Var var3 = "X"
Var PhoneNum = TelephoneNumber
AddData 38 TelephoneNumber CodeReward var2 var3
GETACCEXT PhoneNum 34
</EventOpen>
<EventActionOk>
If Ext1a = "" Then
Else
Var NamHomCoconutRewardRemain = Ext1a
DEBUGVAR NamHomCoconutRewardRemain
EndIf
</EventActionOk>
<Timeout> 1000 </Timeout>
<EventTimeout>

968
xml/event/promotion_energy_drink_1_bath.xml
View file

File diff suppressed because it is too large Load diff

12268
xml/event/triple_promotion_nam_hom_coconut_and_energy_drink_1_bath_and_wednesday_melon.xml Normal file
View file

File diff suppressed because it is too large Load diff