"Enable" 1080 1920 "0xeae6e1" SoundVolume
Var MovieTicketIndex = 0
If MovieTicketUnavailable = 0 Then
Random2 1 14 MovieTicketIndex
EndIf
Var DiscountIndex = 0
If DiscountUnavailable = 0 Then
; for garantee not same index with movie
If MovieTicketIndex > 6 Then
Random2 1 6 DiscountIndex
Else
Random2 7 14 DiscountIndex
EndIf
EndIf
Var GhostSet = 0
Random2 1 5 GhostSet
Var DirImage = "ROOT/taobin_project/image/event/halloween/ghosts/"
Var DirGhostImage = DirImage + "set_"
Var DirGhostImage = DirGhostImage + GhostSet
If GhostSet = 1 Then
Var ghost1_X = 35
Var ghost1_Y = 972
Var ghost2_X = 729
Var ghost2_Y = 1268
Var ghost3_X = 38
Var ghost3_Y = 1645
Var ghost4_X = 430
Var ghost4_Y = 493
Var ghost5_X = 211
Var ghost5_Y = 733
Var ghost6_X = 800
Var ghost6_Y = 984
Var ghost7_X = 771
Var ghost7_Y = 1695
Var ghost8_X = 367
Var ghost8_Y = 911
Var ghost9_X = 386
Var ghost9_Y = 1466
Var ghost10_X = 674
Var ghost10_Y = 743
Var ghost11_X = 86
Var ghost11_Y = 472
Var ghost12_X = 859
Var ghost12_Y = 507
Var ghost13_X = 199
Var ghost13_Y = 1268
EndIf
If GhostSet = 2 Then
Var ghost1_X = 151
Var ghost1_Y = 1610
Var ghost2_X = 757
Var ghost2_Y = 1593
Var ghost3_X = 709
Var ghost3_Y = 1430
Var ghost4_X = 507
Var ghost4_Y = 1023
Var ghost5_X = 373
Var ghost5_Y = 458
Var ghost6_X = 206
Var ghost6_Y = 859
Var ghost7_X = 132
Var ghost7_Y = 1393
Var ghost8_X = 836
Var ghost8_Y = 784
Var ghost9_X = 746
Var ghost9_Y = 451
Var ghost10_X = 63
Var ghost10_Y = 510
Var ghost11_X = 384
Var ghost11_Y = 1303
Var ghost12_X = 54
Var ghost12_Y = 1095
Var ghost13_X = 744
Var ghost13_Y = 1101
EndIf
If GhostSet = 3 Then
Var ghost1_X = 70
Var ghost1_Y = 451
Var ghost2_X = 48
Var ghost2_Y = 1383
Var ghost3_X = 441
Var ghost3_Y = 1405
Var ghost4_X = 402
Var ghost4_Y = 932
Var ghost5_X = 308
Var ghost5_Y = 1162
Var ghost6_X = 735
Var ghost6_Y = 456
Var ghost7_X = 693
Var ghost7_Y = 1675
Var ghost8_X = 740
Var ghost8_Y = 822
Var ghost9_X = 615
Var ghost9_Y = 1117
Var ghost10_X = 811
Var ghost10_Y = 1389
Var ghost11_X = 346
Var ghost11_Y = 466
Var ghost12_X = 54
Var ghost12_Y = 1095
Var ghost13_X = 75
Var ghost13_Y = 788
EndIf
If GhostSet = 4 Then
Var ghost1_X = 380
Var ghost1_Y = 459
Var ghost2_X = 441
Var ghost2_Y = 1422
Var ghost3_X = 103
Var ghost3_Y = 1363
Var ghost4_X = 749
Var ghost4_Y = 491
Var ghost5_X = 87
Var ghost5_Y = 781
Var ghost6_X = 44
Var ghost6_Y = 1633
Var ghost7_X = 875
Var ghost7_Y = 1169
Var ghost8_X = 155
Var ghost8_Y = 1068
Var ghost9_X = 777
Var ghost9_Y = 760
Var ghost10_X = 385
Var ghost10_Y = 889
Var ghost11_X = 787
Var ghost11_Y = 1441
Var ghost12_X = 576
Var ghost12_Y = 1080
Var ghost13_X = 68
Var ghost13_Y = 454
EndIf
1000
Var GameTimeout = GameTimeout - 1
DEBUGVAR GameTimeout
If GameTimeout < 0 Then
If DiscountUnavailable = 0 Then
Var RewardType = "discount_timeout"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
Else
Open "ROOT/taobin_project/xml/event/halloween/thank_you.xml"
EndIf
EndIf
TimerReset
Refresh
;include="ROOT/taobin_project/inc/video.inc"
0 380 Var( DirImage + "game_bg.png" )
; ============== Ghosts =====================
; ============== End Ghosts =================
SAVELOG "Press ghost!!!"
DEBUGVAR SelectedGhostNum
DEBUGVAR MovieTicketIndex
If SelectedGhostNum = MovieTicketIndex Then
Var RewardType = "movie_ticket"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
Else
If SelectedGhostNum = DiscountIndex Then
Var RewardType = "discount"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
EndIf
EndIf
If GameTimeout < 0 Then
If DiscountUnavailable = 0 Then
Var RewardType = "discount_timeout"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
Else
Open "ROOT/taobin_project/xml/event/halloween/thank_you.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/event/halloween/page_try_again.xml"
EndIf
914 380 165 100
KanitRegularTTF
100 0xFFFFFF center-vertical-horizontal GameTimeout
Open "ROOT/taobin_project/xml/event/halloween/game.xml"