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

Copy

Browse Source
This commit is contained in:
Joseph Ferano 2022-04-21 15:02:10 +07:00
parent 08bdcdd7c6
commit 181980e395
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Bot/Games/SlotMachine.fs
View File

@ -277,8 +277,10 @@ let spin multiplier (ctx : IDiscordContext) =
embed.Color <- DiscordColor.Green
embed.Description <- $"You WIN `💰` **{prizeWithMultiplier}** GBT 🎉"
embed.AddField("Bet", $"{playAmount}", true) |> ignore
embed.AddField("Jackpot Rake", $"{multiplier}", true) |> ignore
embed.AddField("Prize", $"{prizeWithMultiplier}", true) |> ignore
addGBTField embed prizeWithMultiplier
do! incrementJackpot multiplier |> Async.Ignore
return "WON" , prizeWithMultiplier
| Some (Jackpot) ->
let! jackpot = getJackpotAmount ()
@ -295,6 +297,7 @@ let spin multiplier (ctx : IDiscordContext) =
embed.Description <- $"You LOST `💰` **{playAmount}** $GBT 😭"
embed.Color <- DiscordColor.Red
embed.AddField("Bet", $"{playAmount}", true) |> ignore
embed.AddField("Jackpot Rake", $"{multiplier}", true) |> ignore
addGBTField embed -playAmount
return "LOST" , 0<GBT>
}
@ -374,7 +377,7 @@ let sendEmbed channel (message : DiscordMessage option) = async {
let embed = DiscordEmbedBuilder()
embed.Title <- "Degenz Slot Machine"
embed.ImageUrl <- "https://s7.gifyu.com/images/ezgif.com-gif-maker-268ecb6e4d28bd55a0.gif"
embed.Description <- "Want to try your luck? When you lose the Jackpot goes up!"
embed.Description <- "Try Your Hand at a Game of SLOTS!\nEvery Spin Adds to The JACKPOT!\nGood luck Degenz ✊"
let! jackpot = getJackpotAmount ()
embed.Title <- $"CURRENT JACKPOT: `{jackpot} 💰 $GBT`"
@ -404,7 +407,7 @@ let sendEmbedWithLoop (channel : DiscordChannel) =
| [] -> sendEmbed channel None
| msg::_ -> async.Return (Some msg)
while true do
do! Async.Sleep 60000
do! Async.Sleep 10000
do! sendEmbed channel (message) |> Async.Ignore
} |> Async.Start