pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

DO songkan

Browse source
This commit is contained in:
kong 2023-03-24 23:55:55 +07:00
parent 7a41166f22
commit 644657be88
28 changed files with 437 additions and 323 deletions
Download patch file Download diff file Expand all files Collapse all files

55
xml/eventopen_menu.ev Normal file
View file

@ -0,0 +1,55 @@
; 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