; 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