taobin_project/xml/event/happy_trios/page_sending_discount_code.xml

153 lines
No EOL
4.1 KiB
XML

<Popup>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
Var ImageDir = "ROOT/taobin_project/image/event/happy_trios/"
If show_eng = "true" Then
Var Image = ImageDir + "send_code_pending_en.png"
Else
Var Image = ImageDir + "send_code_pending_th.png"
EndIf
Var CodeIsSended = 0
DEBUGVAR Image
DEBUGVAR TelephoneNumber
Var Param1 = "152"
Var Param2 = ""
Var Param3 = ""
AddData 43 TelephoneNumber Param1 Param2 Param3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 5 Then
If CodeIsSended = 1 Then
If CoffeePoint >= 28 Then
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
Var Timeout = 0
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If Ext1a = "ok" Then
If show_eng = "true" Then
Var Image = ImageDir + "send_code_complate_en.png"
Else
Var Image = ImageDir + "send_code_complate_th.png"
EndIf
Var CodeIsSended = 1
Else
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
EndIf
Var Timeout = 0
Refresh
</EventActionOk>
<EventActionError>
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
If show_eng = "true" Then
Var Image = ImageDir + "send_code_fail_en.png"
Else
Var Image = ImageDir + "send_code_fail_th.png"
EndIf
Var Timeout = 0
Refresh
</EventActionError>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 607 </Y>
<Filename> Image </Filename>
</Image>
</Popup>