1080 1312 "ROOT/image3/background2.png" "ROOT/sounds/selectSugar.wav" SoundVolume
; On open
TopView "hide"
Var Timeout = 0
Var SweetState1 = "PressForever"
Var SweetState2 = "Enable"
Var SweetState3 = "Enable"
Var SweetState4 = "Enable"
Var SweetState5 = "Enable"
Var SweetState6 = "Enable"
Var SweetChoosed = "ไม่หวาน"
SAVELOG toppingID1Default
SAVELOG toppingID2Default
If NHaveDrink = "false" Then
Var SweetChoosed = ""
Open "ROOT/xml/page_page3.xml"
EndIf
Var topping1 = toppingID1Default
Var topping2 = toppingID2Default
If toppingID1Default = "2" Then
Var SweetState1 = "Enable"
Var SweetState2 = "PressForever"
Var SweetState3 = "Enable"
Var SweetState4 = "Enable"
Var SweetState5 = "Enable"
Var SweetState6 = "Enable"
Var Timeout = 0
Var SweetChoosed = "หวานน้อย"
Var SelectSugarID = 2
EndIf
If toppingID1Default = "3" Then
Var SweetState1 = "Enable"
Var SweetState2 = "Enable"
Var SweetState3 = "PressForever"
Var SweetState4 = "Enable"
Var SweetState5 = "Enable"
Var SweetState6 = "Enable"
Var Timeout = 0
Var SweetChoosed = "หวานพอดี"
Var SelectSugarID = 3
EndIf
If toppingID1Default = "4" Then
Var SweetState1 = "Enable"
Var SweetState2 = "Enable"
Var SweetState3 = "Enable"
Var SweetState4 = "PressForever"
Var SweetState5 = "Enable"
Var SweetState6 = "Enable"
Var Timeout = 0
Var SweetChoosed = "หวานมาก"
Var SelectSugarID = 4
EndIf
If toppingID2Default = "29" Then
Var hotStatelevel1 = "Enable"
Var hotStatelevel2 = "Enable"
Var hotStatelevel3 = "PressForever"
EndIf
If toppingID2Default = "28" Then
Var hotStatelevel1 = "Enable"
Var hotStatelevel2 = "PressForever"
Var hotStatelevel3 = "Enable"
EndIf
If toppingID2Default = "27" Then
Var hotStatelevel1 = "PressForever"
Var hotStatelevel2 = "Enable"
Var hotStatelevel3 = "Enable"
EndIf
Var sugar_y_posi = 702
Var hot_y_posi = 852
Var blend_y_posi0 = 402
Var blend_y_posi1 = blend_y_posi0 + 100
Var blend_y_posi2 = blend_y_posi1 + 100
Var BNSub0 = "ROOT/image3/BN_" + SelectDrink
Var BNSub0 = BNSub0 + ".png"
Var BPSub0 = "ROOT/image3/BP_" + SelectDrink
Var BPSub0 = BPSub0 + ".png"
If SubMenuProductCode1 = "-" Then
Var BNSub1 = ""
Var BPSub1 = ""
Else
Var BNSub1 = "ROOT/image3/BN_" + SubMenuProductCode1
Var BNSub1 = BNSub1 + ".png"
Var BPSub1 = "ROOT/image3/BP_" + SubMenuProductCode1
Var BPSub1 = BPSub1 + ".png"
EndIf
If SubMenuProductCode2 = "-" Then
Var BNSub2 = ""
Var BPSub2 = ""
Else
Var BNSub2 = "ROOT/image3/BN_" + SubMenuProductCode2
Var BNSub2 = BNSub2 + ".png"
Var BPSub2 = "ROOT/image3/BP_" + SubMenuProductCode2
Var BPSub2 = BPSub2 + ".png"
EndIf
Var SubSelectStg0 = "PressForever"
Var SubSelectStg1 = "Enable"
Var SubSelectStg2 = "Enable"
Var SubSelectStg3 = "Enable"
2000
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/xml/page_board.xml"
EndIf
TimerReset
Refresh