Seeker Complete V.1

This commit is contained in:
miggaze 2022-01-11 13:41:12 +07:00
parent 2c24414402
commit 6a5c13f5c2
18 changed files with 150 additions and 31 deletions

View file

@ -8,9 +8,15 @@
Var ActionOKCase = 0
Var Seeker = "curr"
If PayCredit = 0 Then
CoinBack
EndIf
Var TimeoutWaitPay = 10
Var PayReference = ""
Var PayType = ""
@ -270,7 +276,7 @@
EndIf
If waitAckPay = 2 Then
If Timeout > 10 Then
If Timeout > TimeoutWaitPay Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
@ -356,6 +362,7 @@
;EndIf
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var Timeout = 5
Var ActionOKCase = 1
@ -400,6 +407,7 @@
;EndIf
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var Timeout = 5
Var ActionOKCase = 1
@ -429,6 +437,9 @@
Var DEE = PayDetail
PAYEXT SVT ACC VendingTSIDTmp DEE
CoinBack
Var ActionOKCase = 1
If Seeker.CodeChannel = 0 Then
@ -437,6 +448,7 @@
EndIf
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var Timeout = 5
@ -445,6 +457,12 @@
EndIf
EndIf
If MachineState_Result = 1 Then
;Var MachineState_Result = 2
EndIf
If MachineState_Result = 1 Then
If waitAckPay = 0 Then
@ -481,7 +499,7 @@
Var PayDetail = PayDetail + NOBONUS
;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
If GetFreeFromError = 1 Then
Var Seeker.CodeChannel = 1
@ -547,6 +565,9 @@
EndIf
PAYEXT SVT ACC VendingTSIDTmp DEE
CoinBack
EndIf