JosephFerano/discord-bot-game
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'dev' into staging

Browse Source
This commit is contained in:
Joseph Ferano 2022-04-19 13:33:03 +07:00
commit 657e899026
2 changed files with 183 additions and 147 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Bot/Bot.fs
View File

@ -15,7 +15,7 @@ let guild = GuildEnvironment.guildId
let hackerBattleConfig = DiscordConfiguration() let hackerBattleConfig = DiscordConfiguration()
let storeConfig = DiscordConfiguration() let storeConfig = DiscordConfiguration()
let stealConfig = DiscordConfiguration() //let stealConfig = DiscordConfiguration()
let inviterConfig = DiscordConfiguration() let inviterConfig = DiscordConfiguration()
let slotsConfig = DiscordConfiguration() let slotsConfig = DiscordConfiguration()
let adminConfig = DiscordConfiguration() let adminConfig = DiscordConfiguration()
@ -28,8 +28,8 @@ hackerBattleConfig.Intents <- DiscordIntents.All
storeConfig.TokenType <- TokenType.Bot storeConfig.TokenType <- TokenType.Bot
storeConfig.Intents <- DiscordIntents.All storeConfig.Intents <- DiscordIntents.All
stealConfig.TokenType <- TokenType.Bot //stealConfig.TokenType <- TokenType.Bot
stealConfig.Intents <- DiscordIntents.All //stealConfig.Intents <- DiscordIntents.All
inviterConfig.TokenType <- TokenType.Bot inviterConfig.TokenType <- TokenType.Bot
inviterConfig.Intents <- DiscordIntents.All inviterConfig.Intents <- DiscordIntents.All
@ -42,28 +42,28 @@ adminConfig.Intents <- DiscordIntents.All
hackerBattleConfig.Token <- GuildEnvironment.tokenHackerBattle hackerBattleConfig.Token <- GuildEnvironment.tokenHackerBattle
storeConfig.Token <- GuildEnvironment.tokenStore storeConfig.Token <- GuildEnvironment.tokenStore
stealConfig.Token <- GuildEnvironment.tokenSteal //stealConfig.Token <- GuildEnvironment.tokenSteal
inviterConfig.Token <- GuildEnvironment.tokenInviter inviterConfig.Token <- GuildEnvironment.tokenInviter
slotsConfig.Token <- GuildEnvironment.tokenSlots slotsConfig.Token <- GuildEnvironment.tokenSlots
adminConfig.Token <- GuildEnvironment.tokenAdmin adminConfig.Token <- GuildEnvironment.tokenAdmin
let hackerBattleBot = new DiscordClient(hackerBattleConfig) let hackerBattleBot = new DiscordClient(hackerBattleConfig)
let storeBot = new DiscordClient(storeConfig) let storeBot = new DiscordClient(storeConfig)
let stealBot = new DiscordClient(stealConfig) //let stealBot = new DiscordClient(stealConfig)
let inviterBot = new DiscordClient(inviterConfig) let inviterBot = new DiscordClient(inviterConfig)
let slotsBot = new DiscordClient(slotsConfig) let slotsBot = new DiscordClient(slotsConfig)
let adminBot = new DiscordClient(adminConfig) let adminBot = new DiscordClient(adminConfig)
let hackerCommands = hackerBattleBot.UseSlashCommands() let hackerCommands = hackerBattleBot.UseSlashCommands()
let storeCommands = storeBot.UseSlashCommands() let storeCommands = storeBot.UseSlashCommands()
let stealCommands = stealBot.UseSlashCommands() //let stealCommands = stealBot.UseSlashCommands()
let inviterCommands = inviterBot.UseSlashCommands() let inviterCommands = inviterBot.UseSlashCommands()
let slotsCommands = slotsBot.UseSlashCommands() let slotsCommands = slotsBot.UseSlashCommands()
let adminCommands = adminBot.UseSlashCommands() let adminCommands = adminBot.UseSlashCommands()
hackerCommands.RegisterCommands<HackerBattle.HackerGame>(guild); hackerCommands.RegisterCommands<HackerBattle.HackerGame>(guild);
storeCommands.RegisterCommands<Store.Store>(guild); storeCommands.RegisterCommands<Store.Store>(guild);
stealCommands.RegisterCommands<Thief.StealGame>(guild); //stealCommands.RegisterCommands<Thief.StealGame>(guild);
inviterCommands.RegisterCommands<InviteTracker.Inviter>(guild); inviterCommands.RegisterCommands<InviteTracker.Inviter>(guild);
//slotsCommands.RegisterCommands<SlotMachine.SlotMachine>(guild); //slotsCommands.RegisterCommands<SlotMachine.SlotMachine>(guild);
adminCommands.RegisterCommands<Admin.AdminBot>(guild) adminCommands.RegisterCommands<Admin.AdminBot>(guild)
@ -71,10 +71,11 @@ adminCommands.RegisterCommands<Admin.AdminBot>(guild)
hackerBattleBot.add_ComponentInteractionCreated(AsyncEventHandler(HackerBattle.handleButtonEvent)) hackerBattleBot.add_ComponentInteractionCreated(AsyncEventHandler(HackerBattle.handleButtonEvent))
hackerBattleBot.add_MessageCreated(AsyncEventHandler(HackerBattle.handleMessageCreated)) hackerBattleBot.add_MessageCreated(AsyncEventHandler(HackerBattle.handleMessageCreated))
storeBot.add_ComponentInteractionCreated(AsyncEventHandler(Store.handleStoreEvents)) storeBot.add_ComponentInteractionCreated(AsyncEventHandler(Store.handleStoreEvents))
stealBot.add_ComponentInteractionCreated(AsyncEventHandler(Thief.handleStealButton)) //stealBot.add_ComponentInteractionCreated(AsyncEventHandler(Thief.handleStealButton))
inviterBot.add_GuildMemberAdded(AsyncEventHandler(InviteTracker.handleGuildMemberAdded)) inviterBot.add_GuildMemberAdded(AsyncEventHandler(InviteTracker.handleGuildMemberAdded))
inviterBot.add_ComponentInteractionCreated(AsyncEventHandler(InviteTracker.handleButtonEvent)) inviterBot.add_ComponentInteractionCreated(AsyncEventHandler(InviteTracker.handleButtonEvent))
slotsBot.add_ComponentInteractionCreated(AsyncEventHandler(SlotMachine.handleSpin)) slotsBot.add_ComponentInteractionCreated(AsyncEventHandler(SlotMachine.handleButton))
slotsBot.add_GuildDownloadCompleted(AsyncEventHandler(SlotMachine.handleGuildDownloadCompleted))
adminBot.add_GuildDownloadCompleted(AsyncEventHandler(Admin.handleGuildDownloadReady)) adminBot.add_GuildDownloadCompleted(AsyncEventHandler(Admin.handleGuildDownloadReady))
let asdf (_ : DiscordClient) (event : DSharpPlus.EventArgs.InteractionCreateEventArgs) = let asdf (_ : DiscordClient) (event : DSharpPlus.EventArgs.InteractionCreateEventArgs) =

311
Bot/Games/SlotMachine.fs
View File

@ -1,42 +1,39 @@
module Degenz.SlotMachine module Degenz.SlotMachine
open System open System
open System.IO
open System.Threading.Tasks open System.Threading.Tasks
open DSharpPlus open DSharpPlus
open DSharpPlus.Entities open DSharpPlus.Entities
open DSharpPlus.EventArgs open DSharpPlus.EventArgs
open Degenz.Messaging open Degenz.Messaging
open Degenz.Types open Degenz.Types
open Npgsql.FSharp
type SlotSymbol = { type SlotSymbol = {
index : int index : int
emojiName : string
reel1Count : int reel1Count : int
reel2Count : int reel2Count : int
reel3Count : int reel3Count : int
} }
let BigBrother = { index = 0 ; reel1Count = 1 ; reel2Count = 1 ; reel3Count = 1 } let BigBrother = { index = 0 ; reel1Count = 1 ; reel2Count = 1 ; reel3Count = 1 ; emojiName = "bigbrother" }
let Eye = { index = 1 ; reel1Count = 3 ; reel2Count = 2 ; reel3Count = 1 } let Eye = { index = 1 ; reel1Count = 3 ; reel2Count = 2 ; reel3Count = 1 ; emojiName = "aneye" }
let Obey = { index = 2 ; reel1Count = 2 ; reel2Count = 2 ; reel3Count = 2 } let Obey = { index = 2 ; reel1Count = 2 ; reel2Count = 2 ; reel3Count = 2 ; emojiName = "obey" }
let AnonMask = { index = 3 ; reel1Count = 1 ; reel2Count = 5 ; reel3Count = 8 } let AnonMask = { index = 3 ; reel1Count = 1 ; reel2Count = 2 ; reel3Count = 4 ; emojiName = "anonmask" }
let Ramen = { index = 5 ; reel1Count = 5 ; reel2Count = 5 ; reel3Count = 4 } let Ramen = { index = 5 ; reel1Count = 3 ; reel2Count = 3 ; reel3Count = 1 ; emojiName = "ramen" }
let Sushi = { index = 4 ; reel1Count = 7 ; reel2Count = 3 ; reel3Count = 3 } let Sushi = { index = 4 ; reel1Count = 3 ; reel2Count = 2 ; reel3Count = 2 ; emojiName = "sushi" }
let Pizza = { index = 6 ; reel1Count = 2 ; reel2Count = 6 ; reel3Count = 0 } let Pizza = { index = 6 ; reel1Count = 2 ; reel2Count = 4 ; reel3Count = 0 ; emojiName = "pizza" }
let Alcohol = { index = 7 ; reel1Count = 1 ; reel2Count = 1 ; reel3Count = 1 } let Alcohol = { index = 7 ; reel1Count = 1 ; reel2Count = 1 ; reel3Count = 1 ; emojiName = "alcohol" }
//let Circuit = { index = 0 ; reel1Count = 0 ; reel2Count = 0 ; reel3Count = 4 } let Circuit = { index = 0 ; reel1Count = 0 ; reel2Count = 0 ; reel3Count = 2 ; emojiName = "circuitboard" }
//let OldTv = { index = 9 ; reel1Count = 1 ; reel2Count = 1 ; reel3Count = 1 } let OldTv = { index = 9 ; reel1Count = 1 ; reel2Count = 2 ; reel3Count = 2 ; emojiName = "oldtv" }
//let Pills = { index = 10 ; reel1Count = 1 ; reel2Count = 1 ; reel3Count = 1 } let Pills = { index = 10 ; reel1Count = 2 ; reel2Count = 1 ; reel3Count = 2 ; emojiName = "pills" }
//let Rat = { index = 11 ; reel1Count = 1 ; reel2Count = 1 ; reel3Count = 1 } let Rat = { index = 11 ; reel1Count = 2 ; reel2Count = 1 ; reel3Count = 1 ; emojiName = "rat" }
//let symbols = [ BigBrother ; Eye ; Obey ; AnonMask ; Sushi ; Ramen ; Pizza ; Alcohol ; Circuit ; OldTv ; Pills ; Rat ] let symbols = [ BigBrother ; Eye ; Obey ; AnonMask ; Sushi ; Ramen ; Pizza ; Alcohol ; Circuit ; OldTv ; Pills ; Rat ]
let symbols = [ BigBrother ; Eye ; Obey ; AnonMask ; Sushi ; Ramen ; Pizza ; Alcohol ] //let symbols = [ BigBrother ; Eye ; Obey ; AnonMask ; Sushi ; Ramen ; Pizza ; Alcohol ]
let getReel fn = List.fold (fun acc elem -> List.replicate (fn elem) elem.index @ acc) [] symbols |> List.toArray let getReel fn = List.fold (fun acc elem -> (List.replicate (fn elem) elem) @ acc) [] symbols |> List.toArray
let reel1 = getReel (fun s -> s.reel1Count)
let reel2 = getReel (fun s -> s.reel2Count)
let reel3 = getReel (fun s -> s.reel3Count)
type Prize = type Prize =
| Money of int<GBT> | Money of int<GBT>
@ -47,16 +44,51 @@ type Slot =
| Any | Any
let prizeTable = let prizeTable =
[ Symbol BigBrother , Symbol BigBrother , Symbol BigBrother , Jackpot [| Symbol BigBrother , Symbol BigBrother , Symbol BigBrother , Jackpot
Symbol Eye , Symbol Eye , Symbol Eye , Money 2000<GBT> Symbol Eye , Symbol Eye , Symbol Eye , Money 500<GBT>
Symbol Eye , Symbol Eye , Symbol Obey , Money 2000<GBT> Symbol Eye , Symbol Eye , Symbol Obey , Money 500<GBT>
Symbol AnonMask , Symbol AnonMask , Symbol AnonMask , Money 500<GBT> Symbol AnonMask , Symbol AnonMask , Symbol AnonMask , Money 250<GBT>
Symbol AnonMask , Symbol AnonMask , Symbol Eye , Money 500<GBT> Symbol AnonMask , Symbol AnonMask , Symbol Eye , Money 250<GBT>
Symbol Ramen , Symbol Ramen , Symbol Ramen , Money 250<GBT> Symbol Ramen , Symbol Ramen , Symbol Ramen , Money 100<GBT>
Symbol Ramen , Symbol Ramen , Symbol Eye , Money 250<GBT> Symbol Ramen , Symbol Ramen , Symbol Eye , Money 100<GBT>
Symbol Sushi , Symbol Sushi , Any , Money 100<GBT> Symbol Sushi , Symbol Sushi , Any , Money 50<GBT>
Symbol Pizza , Any , Any , Money 50<GBT> ] Symbol Pizza , Any , Any , Money 20<GBT> |]
let totalPerReel (reel : SlotSymbol -> int) = List.sumBy reel symbols
let calculateOdds prizeIndex =
match prizeTable.[prizeIndex] with
| Symbol s1 , Symbol s2 , Symbol s3 , _ -> s1.reel1Count * s2.reel2Count * s3.reel3Count
| Symbol s1 , Symbol s2 , Any , _ -> s1.reel1Count * s2.reel2Count * totalPerReel (fun s -> s.reel3Count)
| Symbol s1 , Any , Any , _ -> s1.reel1Count * totalPerReel (fun s -> s.reel2Count) * totalPerReel (fun s -> s.reel3Count)
| _ -> 0
let getTotalCombinations () =
(List.sumBy (fun s -> s.reel1Count) symbols)
* (List.sumBy (fun s -> s.reel2Count) symbols)
* (List.sumBy (fun s -> s.reel3Count) symbols)
let getOddsForPrize prizeIndex =
let odds = calculateOdds prizeIndex
let total = getTotalCombinations ()
$"{odds} in {total }"
//getOddsForPrize 0
//getOddsForPrize 1
//getOddsForPrize 5
//getOddsForPrize 8
let getTotalWaysOfWinning () =
[0..prizeTable.Length - 1]
|> List.sumBy calculateOdds
//totalPerReel (fun s -> s.reel1Count)
//totalPerReel (fun s -> s.reel2Count)
//totalPerReel (fun s -> s.reel3Count)
let reel1 = getReel (fun s -> s.reel1Count)
let reel2 = getReel (fun s -> s.reel2Count)
let reel3 = getReel (fun s -> s.reel3Count)
let slots = let slots =
[| "https://s7.gifyu.com/images/aneye.png" [| "https://s7.gifyu.com/images/aneye.png"
@ -82,111 +114,63 @@ let slots =
// "https://s7.gifyu.com/images/ramen08336d448018c98f.png" // "https://s7.gifyu.com/images/ramen08336d448018c98f.png"
// "https://s7.gifyu.com/images/rat14f65f54f0d75036.png" |] // "https://s7.gifyu.com/images/rat14f65f54f0d75036.png" |]
let slotEmojis = let slotEmojiNames =
[| "<:sushi:>" [| "sushi"
"<:pizza:>" "bigbrother"
"<:ramen:>" "pizza"
"<:circuitboard:>" "ramen"
"<:obey:>" "circuitboard"
"<:pills:>" "obey"
"<:oldtv:>" "pills"
"<:rat:>" "oldtv"
"<:aneye:>" "rat"
"<:anon:>" |] "aneye"
"alcohol"
let slotsImages = "anonmask" |]
[| "./images/anonmask.png"
"./images/circuitboard.png"
"./images/aneye.png"
"./images/obey.png"
"./images/oldtv.png"
"./images/pills.png"
"./images/pizza.png"
"./images/ramen.png"
"./images/rat.png"
"./images/bigbrother.png"
"./images/alcohol.png"
"./images/sushi.png" |]
// |> Array.map (fun path -> ( Path.GetFileNameWithoutExtension(path) , File.OpenRead(path) ))
let payTable = [| |]
let PlayPrice = 5<GBT> let PlayPrice = 5<GBT>
let twoOfAKindPrize = 100<GBT>
let threeOfAKindPrize = 1000<GBT>
let sleepTime = 1500 let sleepTime = 1500
let mutable guildEmojis : Map<string, DiscordEmoji> option = None
let mutable anyEmoji : DiscordEmoji option = None
let spinEmbeds (results : int array) (ctx : IDiscordContext) = let getJackpotAmount () =
async { GuildEnvironment.connectionString
let itx = ctx.GetInteraction() |> Sql.connect
|> Sql.query "SELECT stock FROM item WHERE symbol = 'JACKPOT'"
|> Sql.executeRowAsync (fun read -> (read.int "price") * 1<GBT>)
let builder = DiscordFollowupMessageBuilder() let incrementJackpot amount =
GuildEnvironment.connectionString
|> Sql.connect
|> Sql.parameters [ ( "amount" , Sql.int (int amount) ) ]
|> Sql.query "UPDATE item SET stock = stock + @amount WHERE symbol = 'JACKPOT'"
|> Sql.executeNonQueryAsync
builder.Content <- "Spinning!" let spinEmojis (results : SlotSymbol array) (ctx : IDiscordContext) =
builder.IsEphemeral <- true
let e1 = DiscordEmbedBuilder().WithImageUrl(slots.[results[0]])
let e2 = DiscordEmbedBuilder().WithImageUrl(slots.[results[1]])
let e3 = DiscordEmbedBuilder().WithImageUrl(slots.[results[2]])
let! followUp = itx.CreateFollowupMessageAsync(builder) |> Async.AwaitTask
do! Async.Sleep sleepTime
let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().AddEmbeds([ e1.Build() ])) |> Async.AwaitTask
do! Async.Sleep sleepTime
let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().AddEmbeds([ e1.Build() ; e2.Build() ])) |> Async.AwaitTask
do! Async.Sleep sleepTime
let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().AddEmbeds([ e1.Build() ; e2.Build() ; e3.Build() ])) |> Async.AwaitTask
do! Async.Sleep sleepTime
let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().AddEmbeds([ e1.Build() ; e2.Build() ; e3.Build() ])) |> Async.AwaitTask
return ()
}
let spinEmojis (results : int array) (ctx : IDiscordContext) =
async { async {
let itx = ctx.GetInteraction() let itx = ctx.GetInteraction()
let emojis = ctx.GetGuild().Emojis |> Seq.map (fun kvp -> kvp.Value) |> Seq.toArray
let builder = DiscordFollowupMessageBuilder() let builder = DiscordFollowupMessageBuilder()
builder.Content <- "Spinning!" builder.Content <- "Spinning!"
builder.IsEphemeral <- true builder.IsEphemeral <- true
let! followUp = itx.CreateFollowupMessageAsync(builder) |> Async.AwaitTask let! followUp = itx.CreateFollowupMessageAsync(builder) |> Async.AwaitTask
do! Async.Sleep sleepTime match guildEmojis with
let content = $"{Formatter.Emoji(emojis.[results.[0]])}" | Some emojis ->
let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().WithContent(content)) |> Async.AwaitTask let e1 = Formatter.Emoji(emojis.[results.[0].emojiName])
do! Async.Sleep sleepTime let e2 = Formatter.Emoji(emojis.[results.[1].emojiName])
let content = $"{Formatter.Emoji(emojis.[results.[0]])}{Formatter.Emoji(emojis.[results.[1]])}" let e3 = Formatter.Emoji(emojis.[results.[2].emojiName])
let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().WithContent(content)) |> Async.AwaitTask do! Async.Sleep sleepTime
do! Async.Sleep sleepTime let content = $"{e1}"
let content = $"{Formatter.Emoji(emojis.[results.[0]])}{Formatter.Emoji(emojis.[results.[1]])}{Formatter.Emoji(emojis.[results.[2]])}" let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().WithContent(content)) |> Async.AwaitTask
let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().WithContent(content)) |> Async.AwaitTask do! Async.Sleep sleepTime
let content = $"{e1}{e2}"
return () let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().WithContent(content)) |> Async.AwaitTask
} do! Async.Sleep sleepTime
let content = $"{e1}{e2}{e3}"
let spinFiles (results : int array) (ctx : IDiscordContext) = let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder().WithContent(content)) |> Async.AwaitTask
async { return ()
let itx = ctx.GetInteraction() | None -> return ()
let builder = DiscordFollowupMessageBuilder()
builder.Content <- "Spinning!"
builder.IsEphemeral <- true
let! followUp = itx.CreateFollowupMessageAsync(builder) |> Async.AwaitTask
// do! Async.Sleep sleepTime
// let ( name , stream ) = slotsImages.[results.[0]]
// let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder()
// .AddFile(name + "1.png", stream)) |> Async.AwaitTask
// do! Async.Sleep sleepTime
// let ( name , stream ) = slotsImages.[results.[1]]
// let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder()
// .AddFile(name + "2.png", stream)) |> Async.AwaitTask
// do! Async.Sleep sleepTime
// let ( name , stream ) = slotsImages.[results.[2]]
// let! _ = itx.EditFollowupMessageAsync(followUp.Id, DiscordWebhookBuilder()
// .AddFile(name + "3.png", stream)) |> Async.AwaitTask
return ()
} }
let spin spinType (ctx : IDiscordContext) = let spin spinType (ctx : IDiscordContext) =
@ -196,50 +180,103 @@ let spin spinType (ctx : IDiscordContext) =
let prize = let prize =
prizeTable prizeTable
|> List.tryPick (fun (s1,s2,s3,prize) -> |> Array.tryPick (fun (s1,s2,s3,prize) ->
match s1 , s2 , s3 with match s1 , s2 , s3 with
| Symbol s1' , Symbol s2' , Symbol s3' when s1'.index = symbols.[0] && s2'.index = symbols.[1] && s3'.index = symbols.[2] -> Some prize | Symbol s1' , Symbol s2' , Symbol s3' when s1'.index = symbols.[0].index && s2'.index = symbols.[1].index && s3'.index = symbols.[2].index -> Some prize
| Symbol s1' , Symbol s2' , Any when s1'.index = symbols.[0] && s2'.index = symbols.[1] -> Some prize | Symbol s1' , Symbol s2' , Any when s1'.index = symbols.[0].index && s2'.index = symbols.[1].index -> Some prize
| Symbol s1' , Any , Any when s1'.index = symbols.[0] -> Some prize | Symbol s1' , Any , Any when s1'.index = symbols.[0].index -> Some prize
| _ -> None) | _ -> None)
match spinType with match spinType with
| "Embeds" -> do! spinEmbeds symbols ctx
| "Emojis" -> do! spinEmojis symbols ctx | "Emojis" -> do! spinEmojis symbols ctx
| "Files" -> do! spinFiles symbols ctx // | "Files" -> do! spinFiles symbols ctx
| _ -> () | _ -> ()
do! Async.Sleep 2000
let builder = DiscordFollowupMessageBuilder() let builder = DiscordFollowupMessageBuilder()
builder.IsEphemeral <- true builder.IsEphemeral <- true
let embed4 = DiscordEmbedBuilder() let embed4 = DiscordEmbedBuilder()
embed4.Title <- "Slot Machine" embed4.Title <- "Results"
match prize with match prize with
| Some (Money amount) -> | Some (Money amount) ->
do! DbService.updatePlayerCurrency twoOfAKindPrize player |> Async.Ignore do! DbService.updatePlayerCurrency amount player |> Async.Ignore
embed4.Description <- $"You win {amount} GBT!" embed4.ImageUrl <- "https://s7.gifyu.com/images/youwin.png"
embed4.Description <- $"You win **{amount}** GBT!"
| Some (Jackpot) -> | Some (Jackpot) ->
embed4.ImageUrl <- "https://s7.gifyu.com/images/jackpot2ac30c9823f6a91c.png"
embed4.Description <- $"YOU HIT THE JACKPOT!!!" embed4.Description <- $"YOU HIT THE JACKPOT!!!"
| None -> | None ->
do! DbService.updatePlayerCurrency -PlayPrice player |> Async.Ignore do! DbService.updatePlayerCurrency -PlayPrice player |> Async.Ignore
builder.Content <- "Better luck next time! You paid 1 $GBT" do! incrementJackpot PlayPrice |> Async.AwaitTask |> Async.Ignore
embed4.Description <- $"Better luck next time! You paid {PlayPrice} $GBT"
let button1 = DiscordButtonComponent(ButtonStyle.Success, $"spin", $"Spin Again {PlayPrice} $GBT") :> DiscordComponent
let button2 = DiscordButtonComponent(ButtonStyle.Success, $"prizes", $"Show Prizes") :> DiscordComponent
builder.AddComponents [| button1 ; button2 |] |> ignore
builder.AddEmbed(embed4) |> ignore builder.AddEmbed(embed4) |> ignore
do! ctx.FollowUp(builder) |> Async.AwaitTask |> Async.Ignore do! ctx.FollowUp(builder) |> Async.AwaitTask |> Async.Ignore
return () return ()
}) })
let handleSpin (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = let handlePrizeTable (ctx : IDiscordContext) =
task {
do! Messaging.defer ctx
let embed = DiscordEmbedBuilder()
match guildEmojis , anyEmoji with
| Some emojis , Some any ->
let folder acc elem =
let s1,s2,s3,prize = elem
let prizeTxt =
match prize with
| Money m -> $"**{m}** $GBT"
| Jackpot -> $"**🎉JACKPOT🎉**"
let line =
match s1 , s2 , s3 with
| Symbol s1' , Symbol s2' , Symbol s3' ->
$"{Formatter.Emoji(emojis.[s1'.emojiName])}{Formatter.Emoji(emojis.[s2'.emojiName])}{Formatter.Emoji(emojis.[s3'.emojiName])}"
| Symbol s1' , Symbol s2' , Any ->
$"{Formatter.Emoji(emojis.[s1'.emojiName])}{Formatter.Emoji(emojis.[s2'.emojiName])}{Formatter.Emoji(any)}"
| Symbol s1' , Any , Any ->
$"{Formatter.Emoji(emojis.[s1'.emojiName])}{Formatter.Emoji(any)}{Formatter.Emoji(any)}"
| _ -> ""
$"{acc}\n{line} ⠀⠀｜⠀⠀ {prizeTxt}"
let! jackpot = getJackpotAmount ()
let rows = Array.fold folder "" prizeTable
embed.Color <- DiscordColor.Green
embed.Title <- "Degenz Slots Prize Table"
embed.Description <- $"Current Jackpot At: **{jackpot}** $GBT\n\n**Combo** ⠀⠀⠀⠀⠀⠀⠀ **Prize**\n{rows}"
let builder = DiscordFollowupMessageBuilder()
builder.IsEphemeral <- true
do! ctx.FollowUp(builder.AddEmbed(embed))
| _ , _ -> return ()
} :> Task
let handleButton (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) =
let ctx = DiscordEventContext event let ctx = DiscordEventContext event
task { task {
match event.Id with match event.Id with
| "spin-embeds" -> do! spin "Embeds" ctx | "spin" -> do! spin "Emojis" ctx
| "spin-emojis" -> do! spin "Emojis" ctx | "prizes" -> do! handlePrizeTable ctx
| "spin-files" -> do! spin "Files" ctx
| _ -> | _ ->
printfn "Wrong Spin ID" printfn "Wrong Spin ID"
return () return ()
} :> Task } :> Task
let handleGuildDownloadCompleted (_ : DiscordClient) (event : GuildDownloadCompletedEventArgs) =
task {
let ( result , guild ) = event.Guilds.TryGetValue(GuildEnvironment.guildId)
guildEmojis <-
guild.Emojis
|> Seq.map (fun kvp -> kvp.Value) |> Seq.toArray
|> Seq.filter (fun de -> Array.contains de.Name slotEmojiNames)
|> Seq.distinctBy (fun de -> de.Name)
|> Seq.map (fun de -> ( de.Name , de ))
|> Map.ofSeq
|> Some
anyEmoji <- guild.Emojis |> Seq.tryPick (fun kvp -> if kvp.Value.Name = "any" then Some kvp.Value else None)
return ()
} :> Task
let sendInitialEmbed (ctx : IDiscordContext) = let sendInitialEmbed (ctx : IDiscordContext) =
async { async {
try try
@ -252,10 +289,8 @@ let sendInitialEmbed (ctx : IDiscordContext) =
builder.AddEmbed(embed) |> ignore builder.AddEmbed(embed) |> ignore
let button1 = DiscordButtonComponent(ButtonStyle.Success, $"spin-embeds", $"Spin Embeds {PlayPrice} $GBT") :> DiscordComponent let button1 = DiscordButtonComponent(ButtonStyle.Success, $"spin", $"Spin {PlayPrice} $GBT") :> DiscordComponent
let button2 = DiscordButtonComponent(ButtonStyle.Success, $"spin-emojis", $"Spin Emojis {PlayPrice} $GBT") :> DiscordComponent let button2 = DiscordButtonComponent(ButtonStyle.Success, $"prizes", $"Show Prizes") :> DiscordComponent
// let button3 = DiscordButtonComponent(ButtonStyle.Success, $"spin-files", $"Spin Files 10 $GBT") :> DiscordComponent
// builder.AddComponents [| button1 ; button2 ; button3 |] |> ignore
builder.AddComponents [| button1 ; button2 |] |> ignore builder.AddComponents [| button1 ; button2 |] |> ignore
do! GuildEnvironment.botClientSlots.Value.SendMessageAsync(channel, builder) do! GuildEnvironment.botClientSlots.Value.SendMessageAsync(channel, builder)
|> Async.AwaitTask |> Async.AwaitTask