ebbe.bass/gma3-song-tool
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

made bug fixed

Browse Source 
Signed-off-by: Ebbe Baß <ebbe.bass>
This commit is contained in:
Ebbe Baß
2024-10-30 01:22:51 +01:00
parent 1d687403ea
commit 0590848a73
1 changed files with 1 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Song tool.lua
+1 -10
View File
@@ -17,15 +17,12 @@ end
local song_name = ""
local song_bpm = 120
local song_page_num = 1
local rss = false
local reserved_sequences = 0
local main_sequence_location = 1
function CreatorMenu()
local inputs = {
{name = "Song Name", value = song_name, maxTextLength = 50},
{name = "BPM", value = tostring(song_bpm), whiteFilter = "0123456789"},
{name = "Page Number", value = tostring(song_page_num), whiteFilter = "0123456789"},
{name = "Main Sequence Location", value = main_sequence_location, whiteFilter = "0123456789"}
}
@@ -51,7 +48,6 @@ function CreatorMenu()
elseif resultTable.result == 1 then
local song_name = "Name"
local song_bpm = 60
local song_page_num = 1
local main_sequence_location = 1
for var_name, var_val in pairs(resultTable.inputs) do
@@ -59,20 +55,15 @@ function CreatorMenu()
song_name = var_val
elseif var_name == "BPM" then
song_bpm = tonumber(var_val)
elseif var_name == "Page Number" then
song_page_num = tonumber(var_val)
elseif var_name == "Main Sequence Location" then
main_sequence_location = tonumber(var_val)
end
end
Cmd('Store Sequence '..main_sequence_location..' "'..song_name..'"')
Cmd('Store Sequence '..main_sequence_location..' "'..song_name..'" /Overwrite')
Cmd('Store Sequence '..main_sequence_location..' Cue 1 "Start commands" /Overwrite')
Cmd([[Set Sequence ]]..main_sequence_location..[[ Cue 1 "Command" 'Select Sequence "]]..song_name..[["; Plugin "setSpeed" "1,]]..song_bpm..[["; Call Macro "Go to next song"']])
Cmd("Set Sequence "..main_sequence_location.." 'Appearance' 'Main'")
Cmd("Assign Sequence "..main_sequence_location.." at Page "..song_page_num..".101")
Cmd('Set Page '..song_page_num..'.101 Property "Key" "Go-"')
Cmd('Store Sequence '..main_sequence_no..' Cue 2 "Start programming from here"')
end
end