Remove admin requirement
This commit is contained in:
parent
530b943790
commit
b5f96ea7ff
15
Bot/Admin.fs
15
Bot/Admin.fs
@ -19,6 +19,10 @@ type InitEmbeds =
|
||||
| Armory = 5
|
||||
| Wallet = 6
|
||||
|
||||
type EnableDisable =
|
||||
| Enable = 0
|
||||
| Disable = 1
|
||||
|
||||
let handleGuildDownloadReady _ (event : GuildDownloadCompletedEventArgs) =
|
||||
task {
|
||||
let ( _ , guild ) = event.Guilds.TryGetValue(GuildEnvironment.guildId)
|
||||
@ -215,6 +219,11 @@ let pickRaffleWinners (ctx : IDiscordContext) =
|
||||
do! ctx.FollowUp builder
|
||||
} :> Task
|
||||
|
||||
let toggleRaffleAvailability enable (ctx : IDiscordContext) =
|
||||
task {
|
||||
do! Messaging.defer ctx
|
||||
} :> Task
|
||||
|
||||
let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
|
||||
let eventCtx = DiscordEventContext event :> IDiscordContext
|
||||
match event.Id with
|
||||
@ -271,10 +280,14 @@ type AdminBot() =
|
||||
[<Option("message-id", "The ID of the message with all the reactions")>] messageId : string) =
|
||||
enforceAdmin (DiscordInteractionContext ctx) (getUserInvitesFromReactions channel messageId)
|
||||
|
||||
[<SlashCommandPermissions(Permissions.Administrator)>]
|
||||
[<SlashCommand("admin-raffles-winners", "Get N Random Winners")>]
|
||||
member this.GetRaffleWinners (ctx : InteractionContext, [<Option("count", "How many winners to pick")>] count : int64) =
|
||||
enforceAdmin (DiscordInteractionContext ctx) (getRaffleWinners count)
|
||||
|
||||
// [<SlashCommand("admin-raffles-toggle", "Toggle availability of an item")>]
|
||||
// member this.ToggleRaffle (ctx : InteractionContext, [<Option("enabled", "Enable or Disable?")>] enable : EnableDisable) =
|
||||
// enforceAdmin (DiscordInteractionContext ctx) (toggleRaffleAvailability (enable = EnableDisable.Enable))
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user