"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 DEBUGVAR SumCreditAmount If PayCreditChannel = "cash" Then Var SumCreditAmount = SumCreditAmount + CoinAmount Else INT CreditAmount DEBUGVAR CreditAmount Var SumCreditAmount = SumCreditAmount + CreditAmount EndIf Var SumCreditAmount = SumCreditAmount - PayAmountSubDiscount Var VendingCreditRemain = "" + SumCreditAmount Var SumCreditAmountStr !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow ) Var text_4 = "/text_4.png" ;inter-image If CountryName = "Malaysia" Then Var PayState3 = "Invisible" Var text_4 = "/text_4-MYR.png" EndIf ;inter-image If CountryName = "Indonesia" Then Var text_4 = "/text_4-IDR.png" EndIf If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" Else Var DirImage = "ROOT/taobin_project/image/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" EndIf If show_eng = "true" Then Var DirImage3 = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage3 = "ROOT/taobin_project/image/collectiing" EndIf If show_eng = "true" Then Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Else Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" EndIf Var FlagPayCredit = 1 1000 If FlagPayCredit = 1 Then Var FlagPayCredit = 0 If Seeker = "curr" Then DEBUGVAR "MakeDrinkV1" If New_Payment = 1 Then __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID EndIf MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 Else Var TxRef1 = "" CreateTxRef1 TxRef1 Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf Var Seeker.StoreCreditFlag = 1 EndIf Var Timeout = Timeout + 1 If Timeout > 3 Then Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf TimerReset Refresh Open "/media/bt/xml/security_alarm.xml" ;include="ROOT/taobin_project/inc/video.inc" 70 741 Var( DirImage + "/PaymentSuccess.png" ) 252 1053 Var( DirImage + text_4 ) 0 1123 120 Center 1080 KanitRegularTTF 0xDE794E SumCreditAmountStr