"Enable" 1080 1920 "0xeae6e1" SoundVolume Var CamFlag = 0 Var CamCount = 0 Var Timeout = 0 Var ShutterResult = "-" Var AdultFlag = 1 If AdultFlag = 1 Then Var AdultFlag = 0 DEBUGVAR SystemDate Var sdate = "" Var sdate = SystemDate Var sdateday = "" Var sdatemonth = "" Var sdateyear = "" SPLIT sdate "/" 1 sdateday SPLIT sdate "/" 2 sdatemonth SPLIT sdate "/" 3 sdateyear INT sdateday INT sdatemonth INT sdateyear Var AdultState = "Enable" Var AdultState1 = "Enable" Var countAdultS2 = 0 Var AdultFlag2 = 1 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 CameraCount = 1 Then EndIf Var IDBirthdate = "" Var LivenessResult = "" Var CountDownDelayReadCardID = 5 DEBUGVAR CameraCount ;STOPCARDID Var LivenessShowString = "" Var CameraStage = "Invisible" Var IDcardStage = "Enable" Var IDcardStageText = "Enable" Var load_gif_stage = "Invisible" Var IDcardTextStatus = "โปรดเสียบบัตรประชาชน \nเพื่อดำเนินการต่อ" Var LivenessRestartCount = 0 Var FailTrickCount = 0 Var FailState = "Invisible" Var FullQuotaState = "Invisible" Var StepGetServer = 0 Var Cid = 29 Var PointCrm = "2" Var GetScore = "1" Var IDNumx = "2640100003053" ;AddData Cid TelephoneNumber IDNumx PointCrm GetScore ; Reset Var IDNum = "" DEBUGVAR Ext1a DEBUGVAR Ext1b DEBUGVAR Ext1c ; example If StepGetServer = 1 Then If Ext1a = "ok" Then If LegitAge = "true" Then Open "ROOT/taobin_project/xml/page_payment.xml" Else Var load_gif_stage = "Invisible" Var FailState = "Enable" EndIf Else ; Error Var load_gif_stage = "Invisible" Var FullQuotaState = "Enable" EndIf EndIf Refresh ; If StepGetServer = 1 Then ; If Ext1a = "ok" Then ; Var ChildrenFree = 1 ; Open "ROOT/taobin_project/xml/page_payment.xml" ; Else ; If Ext1a = "limit" Then ; Var load_gif_stage = "Invisible" ; Var FailState = "Enable" ; Var img_popup16 = "/img_popup16-3.png" ; WRITE_FILE "/mnt/sdcard/oreo_for_free_limit" "true" ; Else ; Var load_gif_stage = "Invisible" ; Var FailState = "Enable" ; Var img_popup16 = "/img_popup16-2.png" ; EndIf ; Refresh ; EndIf ; EndIf ; handle quota full ; response smth Var FullQuotaState = "Enable" Refresh DEBUGVAR IDCardStatus DEBUGVAR IDCardReady DEBUGVAR IDCardData DEBUGVAR IDBirthdate DEBUGVAR IDFullNameEng If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "START" Then Var load_gif_stage = "Enable" Var IDcardStageText = "Invisible" Var FailState = "Invisible" ;Var img_popup16 = "/img_popup16-1.png" RefreshAll Var Timeout = 90 EndIf EndIf EndIf If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "ERROR" Then Var load_gif_stage = "Invisible" Var IDcardStageText = "Enable" Var IDcardTextStatus = "อ่านบัตรไม่ได้" Var FailState = "Enable" ; If show_eng = "true" Then Var img_popup16 = "ROOT/taobin_project/image/event/powerup_free_1/powerup_error_en.png" Else Var img_popup16 = "ROOT/taobin_project/image/event/powerup_free_1/powerup_error.png" EndIf Refresh EndIf EndIf EndIf If IDCardStatus = "ERROR" Then Var load_gif_stage = "Invisible" Var IDcardStageText = "Enable" Var IDcardTextStatus = "อ่านบัตรไม่ได้" Var FailState = "Enable" If show_eng = "true" Then Var img_popup16 = "ROOT/taobin_project/image/event/powerup_free_1/powerup_error_en.png" Else Var img_popup16 = "ROOT/taobin_project/image/event/powerup_free_1/powerup_error.png" EndIf Refresh EndIf If IDCardStatus = "ERROR" Then If IDCardReady = "ERROR" Then If IDCardData = "ERROR" Then Var FailState = "Invisible" EndIf EndIf EndIf If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "DONE" Then ;Var birthDate = IDBirthdate Var StrYear = "" Var StrMon = "" Var StrDay = "" SUBSTRING IDBirthdate 0 4 StrYear SUBSTRING IDBirthdate 4 6 StrMon SUBSTRING IDBirthdate 6 8 StrDay INT StrYear INT StrMon INT StrDay Var Adult7 = 0 Var Adult15 = 0 DEBUGVAR StrYear DEBUGVAR StrMon DEBUGVAR StrDay DEBUGVAR sdatemonth DEBUGVAR sdateday Var sdateyear = sdateyear + 543 Var AgeNumber = sdateyear - StrYear DEBUGVAR AgeNumber If AgeNumber >= 18 Then ; TODO: check quota --- AddData; Wait for new add num Var LegitAge = "true" DEBUGVAR IDNum If IDNum = "" Then Else GETACCEXT IDNum 33 Var StepGetServer = 1 EndIf EndIf EndIf EndIf EndIf 1000 DEBUGVAR IDCardStatus DEBUGVAR IDCardReady DEBUGVAR IDCardData DEBUGVAR IDBirthdate DEBUGVAR CountDownDelayReadCardID DEBUGVAR ShutterResult DEBUGVAR IDCardState DEBUGVAR load_gif_stage DEBUGVAR img_popup16 DEBUGVAR IDNum DEBUGVAR LegitAge If IDBirthdate = "" Then Var CountDownDelayReadCardID = CountDownDelayReadCardID - 1 If CountDownDelayReadCardID = 0 Then READCARDID Var CountDownDelayReadCardID = 600 EndIf EndIf DEBUGVAR Timeout Var Timeout = Timeout + 1 If Timeout > 120 Then Open "ROOT/taobin_project/xml/page_catalog2.xml" EndIf If IDCardState = "PRESENT" Then If IDCardStatus = "ERROR" Then Var load_gif_stage = "Invisible" Var IDcardStageText = "Enable" Var IDcardTextStatus = "อ่านบัตรไม่ได้อะ" Refresh EndIf EndIf Refresh TimerReset ;include="ROOT/taobin_project/inc/video.inc" ; back 19 420 "ROOT/taobin_project/image/page2/bn_back_arrow.png" "ROOT/taobin_project/image/page2/bn_back_arrow.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog2.xml" ; TODO: fix filename path, change dir image 75 493 eval( If show_eng = "true" Then Var return = "Invisible" Else Var return = "Enable" EndIf ) "ROOT/taobin_project/image/event/powerup_free_1/insert_id_card.png" 75 493 eval( If show_eng = "true" Then Var return = "Enable" Else Var return = "Invisible" EndIf ) "ROOT/taobin_project/image/event/powerup_free_1/insert_id_card_en.png" 358 1769 "Enable" Var( DirImage + "/bn_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog2.xml" 360 1373 FailState Var( DirImage + "/bn_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog2.xml" 0 380 load_gif_stage "ROOT/taobin_project/image/page_payment/alpha.png" 0 380 FailState "ROOT/taobin_project/image/page_payment/alpha.png" 249 751 load_gif_stage Var( DirImage + "/img_popup15.png" ) 249 751 FailState eval( If show_eng = "true" Then Var return = "ROOT/taobin_project/image/event/powerup_free_1/powerup_error_en.png" Else Var return = "ROOT/taobin_project/image/event/powerup_free_1/powerup_error.png" EndIf ) 350 1370 FailState Var( DirImage + "/bn_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog2.xml" ; Full Quota 0 380 FullQuotaState "ROOT/taobin_project/image/page_payment/alpha.png" 249 751 FullQuotaState eval( If show_eng = "true" Then Var return = "ROOT/taobin_project/image/event/powerup_free_1/powerup_quota_full_en.png" Else Var return = "ROOT/taobin_project/image/event/powerup_free_1/powerup_quota_full.png" EndIf ) 350 1370 FullQuotaState Var( DirImage + "/bn_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var RoadShow = "" Open "ROOT/taobin_project/xml/page_catalog2.xml" 440 988 load_gif_stage "ROOT/taobin_project/image/page_payment/loading.gif" Var IDCardStatus = "OK" Var IDCardReady = "OK" Var IDCardData = "START" EventEvaluate "EventIDCard" Var IDBirthdate = 25271014 Var IDCardStatus = "OK" Var IDCardReady = "OK" Var IDCardData = "DONE" EventEvaluate "EventIDCard" Var Param1 = "" Var Param2 = "" Var Param3 = "" Var TestIDNum = "1104500029416" Var DefaultTel = "0899999999" AddData 44 DefaultTel TestIDNum Param1 Param2 GETACCEXT TestIDNum 33