55 lines
1,016 B
Text
55 lines
1,016 B
Text
|
|
|
|
; Original
|
|
;Var SoundThaiIndex = 0
|
|
; north
|
|
;Var SoundThaiIndex = 1
|
|
; northeast
|
|
;Var SoundThaiIndex = 2
|
|
; south
|
|
;Var SoundThaiIndex = 3
|
|
|
|
;Var SongkranEnable = 0
|
|
|
|
If BoxID = 173149 Then
|
|
Var SongkranEnable = 1
|
|
EndIf
|
|
If BoxID = 172527 Then
|
|
Var SongkranEnable = 1
|
|
EndIf
|
|
If BoxID = 172644 Then
|
|
Var SongkranEnable = 1
|
|
EndIf
|
|
If BoxID = 200001 Then
|
|
Var SongkranEnable = 1
|
|
EndIf
|
|
|
|
If SongkranEnable = 1 Then
|
|
|
|
If SoundThaiIndex = 0 Then
|
|
Var SoundThaiIndex = 1
|
|
Else
|
|
If SoundThaiIndex = 1 Then
|
|
Var SoundThaiIndex = 2
|
|
Else
|
|
If SoundThaiIndex = 2 Then
|
|
Var SoundThaiIndex = 3
|
|
Else
|
|
Var SoundThaiIndex = 0
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
Else
|
|
Var SongkranEnable = 0
|
|
Var $12-01-02-0054.Button = "Inivisble"
|
|
Var $12-01-02-0053.Button = "Inivisble"
|
|
Var $12-02-02-0043.Button = "Inivisble"
|
|
Var $12-02-02-0044.Button = "Inivisble"
|
|
Var $12-03-02-0026.Button = "Inivisble"
|
|
Var $12-05-02-0055.Button = "Inivisble"
|
|
Var $12-05-02-0056.Button = "Inivisble"
|
|
EndIf
|
|
|
|
DEBUGVAR SongkranEnable
|
|
DEBUGVAR SoundThaiIndex
|
|
|