#alias addnewgag {#play {@sppath/general/misc/confman.wav} @vol;
#alarm 0@{decchar}100 {#say {This prompt allows one to add a string that they would like to be gagged either completely or just from the speach queue. In order to do this, please use the options below} VoiceOnly};
#pick {P:Creating a new gag|
What line are we gagging today? @newgag:setgagline|
What kind of the gagging method would you like? @gagmethod:setgagmethod|
What file is this going to be stored in? @gagfile:setgagfile|
I'm done and want to finish:pushnewgag|
I didn't mean to use this, please abort:#abort}}

#alias setgagline {
#alarm 0@{decchar}100 {#say {please enter the line that you would like to be  gagged, if parts of it are not static, E.G random numbers or words, replace this bit by an asterisc, *} VoiceOnly};
#prompt newgag {Enter the line here.};
addnewgag}

#alias setgagmethod {
#alarm 0@{decchar}100 {#say {please choose one of the methods below:} VoiceOnly};
#pick {P:Method?|
Omit the line from my speech queue but leave it in the output window:#var gagmethod voice|
Omit the line both from the output window and from my speech queue:#var gagmethod all};
addnewgag}
#alias setgagfile {
#alarm 0@{decchar}100 {#say {Due to VIPMud limitations, a file cannot exceed 32000 characters in length, this is why it is recommended to sort your gags into categories, so please choose from one of the files below:} VoiceOnly};
#pick {P:What file are we using today?|
Activity related gags:#var gagfile ActivityGags|
Ship Related Gags:#var gagfile ShipGags|
Miscellaneous gags:#var gagfile MiscGags|
Vehicle Related gags:#var gagfile VehicleGags};
addnewgag}

#alias pushnewgag {#if {%length(@gagfile)<1 or %length(@gagmethod)<1 or %length(@newgag)<1} {#alarm 1 {#say {you have not filled out all the required fields with rellivant information}; #play {@sppath/general/misc/boop.wav} @vol;#abort}} {
#file 3 {%CharInfo(MudName)/gags/@gagfile.set};
#forall {@newgag} {
#write 3 {~#trigger {%i} {~#gagline @gagmethod}}};
#close 3;
#unload {gags/@gagfile.set};
#load {gags/@gagfile.set};
#unvar gagmethod;#unvar newgag;#unvar gagfile;#alarm 1 {#say {Complete!}; #play {@sppath/general/misc/loadingfile.wav} @vol}}}

#alias miscgagtoggle {
#if {@MiscGags="disabled"} {#var MiscGags "enabled";#load {@scpath/gags/MiscGags.set}} {#var MiscGags "disabled";#unload {@scpath/gags/gags.set}}}
#alias vehiclegagtoggle {
#if {@VehicleGags="disabled"} {#var VehicleGags "enabled"; #unload {@scpath/gags/VehicleGags.set}} {#var VehicleGags "disabled";#load {@scpath/gags/VehicleGags.set}}}
#alias activitygagtoggle {
#if {@ActivityGags="disabled"} {#var ActivityGags "enabled";#load {@scpath/gags/ActivityGags.set}} {#var ActivityGags "disabled";#unload {@scpath/gags/ActivityGags.set}}}
#alias shipgagtoggle {
#if {@ShipGags="disabled"} {#var ShipGags "enabled";#load {@scpath/gags/ShipGags.set}} {#var ShipGags "disabled";#unload {@scpath/gags/ShipGags.set}}}
#alias gagconfig {#play {@sppath/general/misc/confman.wav} @vol;
#pick {P:Please select an option below|
Activity-related gags (@ActivityGags):activitygagtoggle|
Ship-related gags (@ShipGags):shipgagtoggle|
Vehicle-related gags (@VehicleGags):vehiclegagtoggle|
Misc Gags (@MiscGags):miscgagtoggle|
Open Activity gags file for editing:#edit {%CharInfo(MudName)/gags/ActivityGags.set}|
Open Vehicle gags file for editing:#edit {%CharInfo(MudName)/gags/VehicleGags.set}|
Open misc gags file for editing:#edit {%CharInfo(MudName)/gags/MiscGags.set}|
Open ship-related gags file for editing:#edit {%CharInfo(MudName)/gags/ShipGags.set}}}
#key {alt-f2} {gagconfig}