THAI: Add FreeFire menu

This commit is contained in:
Kenta420 2024-03-29 15:53:59 +07:00
parent ca1b40d2c1
commit 979ee777c1
37 changed files with 13718 additions and 5753 deletions

View file

@ -27,6 +27,8 @@
EndIf
Var Seeker.IsLineMember = 0
Var LipMaskOutofStock = 0
Var TintMeOutofStock = 0
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
@ -90,6 +92,18 @@
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
Var Seeker.IsAlreadyGetReward = Ext1c
Var LipMaskOutofStock = Ext1d
Var TintMeOutofStock = Ext1e
;DEBUG
;Var LipMaskOutofStock = 1
;Var TintMeOutofStock = 1
DEBUGVAR LipMaskOutofStock
DEBUGVAR TintMeOutofStock
If TaobinName = "" Then
Var Seeker.IsLineMember = 0
Else
@ -131,6 +145,27 @@
EndIf
EndIf
If LipMaskOutofStock = 1 Then
If TintMeOutofStock = 1 Then
SAVELOG "All reward out of stock skip to normal collect point."
WRITE_FILE "/mnt/sdcard/lipit_reward_out_of_stock" "1"
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
EndIf
Var Seeker.PointTaobinStr = ParamCP
Var Seeker.TNumberTaobinMember = TelephoneNumberX

View file

@ -163,6 +163,15 @@
Var var3 = "X"
Var randResultStr = rewardList[randResultInt]
If LipMaskOutofStock = 1 Then
Var randResultStr = "tint_me_healthy_balm"
EndIf
If TintMeOutofStock = 1 Then
Var randResultStr = "lip_mask_stick"
EndIf
If randResultStr = "lip_mask_stick" Then
Var rewardImage = DirImage + "/reward_lip_mask_stick.png"
Var CodeType = "126"