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

THAI: Update robinson point

Browse source
This commit is contained in:
Kenta420 2024-09-02 13:07:46 +07:00
parent d1b3bc91d7
commit cbf34cb2d6
2 changed files with 74 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

80
xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml
View file

@ -158,16 +158,16 @@
Var PointState[8] = 0 Var PointState[8] = 0
Var PointState[9] = 0 Var PointState[9] = 0
Var PointNameIndex[0] = -1 Var PointImage[0] = "/no_point.png"
Var PointNameIndex[1] = -1 Var PointImage[1] = "/no_point.png"
Var PointNameIndex[2] = -1 Var PointImage[2] = "/no_point.png"
Var PointNameIndex[3] = -1 Var PointImage[3] = "/no_point.png"
Var PointNameIndex[4] = -1 Var PointImage[4] = "/no_point.png"
Var PointNameIndex[5] = -1 Var PointImage[5] = "/no_point.png"
Var PointNameIndex[6] = -1 Var PointImage[6] = "/no_point.png"
Var PointNameIndex[7] = -1 Var PointImage[7] = "/no_point.png"
Var PointNameIndex[8] = -1 Var PointImage[8] = "/no_point.png"
Var PointNameIndex[9] = -1 Var PointImage[9] = "/no_point.png"
@ -337,61 +337,101 @@
If MenuPoint[0] = 1 Then If MenuPoint[0] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 0 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_1_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_1.png"
EndIf
EndIf EndIf
If MenuPoint[1] = 1 Then If MenuPoint[1] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 1 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_2_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_2.png"
EndIf
EndIf EndIf
If MenuPoint[2] = 1 Then If MenuPoint[2] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 2 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_3_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_3.png"
EndIf
EndIf EndIf
If MenuPoint[3] = 1 Then If MenuPoint[3] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 3 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_4_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_4.png"
EndIf
EndIf EndIf
If MenuPoint[4] = 1 Then If MenuPoint[4] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 4 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_5_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_5.png"
EndIf
EndIf EndIf
If MenuPoint[5] = 1 Then If MenuPoint[5] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 5 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_6_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_6.png"
EndIf
EndIf EndIf
If MenuPoint[6] = 1 Then If MenuPoint[6] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 6 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_7_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_7.png"
EndIf
EndIf EndIf
If MenuPoint[7] = 1 Then If MenuPoint[7] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 7 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_8_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_8.png"
EndIf
EndIf EndIf
If MenuPoint[8] = 1 Then If MenuPoint[8] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 8 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_9_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_9.png"
EndIf
EndIf EndIf
If MenuPoint[9] = 1 Then If MenuPoint[9] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1 Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1 Var PointState[CurrentIndexPoint] = 1
Var PointNameIndex[CurrentIndexPoint] = 9 If show_eng = "true" Then
Var PointImage[CurrentIndexPoint] = "/point_10_en.png"
Else
Var PointImage[CurrentIndexPoint] = "/point_10.png"
EndIf
EndIf EndIf
DEBUGVAR Seeker.selected_a_drink DEBUGVAR Seeker.selected_a_drink

87
xml/event/robinson_beauty/page_collect_point_robinson_beauty_3.xml
View file

@ -35,16 +35,6 @@
Var CheckCoupons = 0 Var CheckCoupons = 0
Var MakeDrinkState = 0 Var MakeDrinkState = 0
Var taobinImgPoint[0] = "/no_point.png"
Var taobinImgPoint[1]= "/no_point.png"
Var taobinImgPoint[2]= "/no_point.png"
Var taobinImgPoint[3]= "/no_point.png"
Var taobinImgPoint[4]= "/no_point.png"
Var taobinImgPoint[5]= "/no_point.png"
Var taobinImgPoint[6]= "/no_point.png"
Var taobinImgPoint[7]= "/no_point.png"
Var taobinImgPoint[8]= "/no_point.png"
Var PointCount = 0 Var PointCount = 0
DEBUGVAR PointState[0] DEBUGVAR PointState[0]
@ -56,96 +46,47 @@
DEBUGVAR PointState[6] DEBUGVAR PointState[6]
DEBUGVAR PointState[7] DEBUGVAR PointState[7]
DEBUGVAR PointState[8] DEBUGVAR PointState[8]
DEBUGVAR PointState[9]
Var PointNameIndex0 = PointNameIndex[0] Var taobinImgPoint[0] = PointImage[0]
Var PointNameIndex1 = PointNameIndex[1] Var taobinImgPoint[1] = PointImage[1]
Var PointNameIndex2 = PointNameIndex[2] Var taobinImgPoint[2] = PointImage[2]
Var PointNameIndex3 = PointNameIndex[3] Var taobinImgPoint[3] = PointImage[3]
Var PointNameIndex4 = PointNameIndex[4] Var taobinImgPoint[4] = PointImage[4]
Var PointNameIndex5 = PointNameIndex[5] Var taobinImgPoint[5] = PointImage[5]
Var PointNameIndex6 = PointNameIndex[6] Var taobinImgPoint[6] = PointImage[6]
Var PointNameIndex7 = PointNameIndex[7] Var taobinImgPoint[7] = PointImage[7]
Var PointNameIndex8 = PointNameIndex[8] Var taobinImgPoint[8] = PointImage[8]
If PointState[0] = 1 Then If PointState[0] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[0] = "/point_1_en.png"
Else
Var taobinImgPoint[0] = "/point_1.png"
EndIf
EndIf EndIf
If PointState[1] = 1 Then If PointState[1] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[1] = "/point_2_en.png"
Else
Var taobinImgPoint[1] = "/point_2.png"
EndIf
EndIf EndIf
If PointState[2] = 1 Then If PointState[2] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[2] = "/point_3_en.png"
Else
Var taobinImgPoint[2] = "/point_3.png"
EndIf
EndIf EndIf
If PointState[3] = 1 Then If PointState[3] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[3] = "/point_4_en.png"
Else
Var taobinImgPoint[3] = "/point_4.png"
EndIf
EndIf EndIf
If PointState[4] = 1 Then If PointState[4] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[4] = "/point_5_en.png"
Else
Var taobinImgPoint[4] = "/point_5.png"
EndIf
EndIf EndIf
If PointState[5] = 1 Then If PointState[5] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[5] = "/point_6_en.png"
Else
Var taobinImgPoint[5] = "/point_6.png"
EndIf
EndIf EndIf
If PointState[6] = 1 Then If PointState[6] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[6] = "/point_7_en.png"
Else
Var taobinImgPoint[6] = "/point_7.png"
EndIf
EndIf EndIf
If PointState[7] = 1 Then If PointState[7] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If show_eng = "true" Then
Var taobinImgPoint[7] = "/point_8_en.png"
Else
Var taobinImgPoint[7] = "/point_8.png"
EndIf
EndIf EndIf
If PointState[8] = 1 Then If PointState[8] = 1 Then
Var PointCount = PointCount + 1 Var PointCount = PointCount + 1
If MenuPoint[9] = 1 Then EndIf
If show_eng = "true" Then If PointState[9] = 1 Then
Var taobinImgPoint[8] = "/point_10_en.png" Var PointCount = PointCount + 1
Else
Var taobinImgPoint[8] = "/point_10.png"
EndIf
Else
If show_eng = "true" Then
Var taobinImgPoint[8] = "/point_9_en.png"
Else
Var taobinImgPoint[8] = "/point_9.png"
EndIf
EndIf
EndIf EndIf
Var PointDiff = 9 - PointCount Var PointDiff = 9 - PointCount
@ -176,7 +117,7 @@
EndIf EndIf
If PointCount = 9 Then If PointCount >= 9 Then
Var CloseBtnImg = PointRootDir + "/bn_random.png" Var CloseBtnImg = PointRootDir + "/bn_random.png"
EndIf EndIf