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

Condense further

Browse Source
This commit is contained in:
Joseph Ferano 2022-06-24 12:31:17 +07:00
parent b56457e25d
commit 977e70d97d
1 changed files with 31 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
Bot/Embeds.fs
View File

@ -128,49 +128,39 @@ let responseSuccessfulHack (hacker : PlayerData) (target : PlayerData) totalTake
.AsEphemeral(true) .AsEphemeral(true)
let responseSuccessfulHack2 successful (hacker : PlayerData) (target : PlayerData) (hackerMember : DiscordMember) (targetMember : DiscordMember) totalTaken bonus (hack : HackItem) = let responseSuccessfulHack2 successful (hacker : PlayerData) (target : PlayerData) (hackerMember : DiscordMember) (targetMember : DiscordMember) totalTaken bonus (hack : HackItem) =
let earnedMoney = totalTaken > 0<GBT> let hackerEmbed =
if successful then
let e =
DiscordEmbedBuilder()
.WithAuthor($"✅ {hacker.Name} Hack Successful!" , iconUrl = hackerMember.AvatarUrl)
.WithColor(DiscordColor.Green)
.AddField("Strength", $"{hacker.Stats.Strength.Amount} 💪", true)
.AddField($"Hacked", $"`{totalTaken} 💰$GBT`", true)
if bonus > 0<GBT> then e.AddField($"Strength Bonus", $"`{bonus} 💰$GBT`", true) |> ignore
e.AddField("New $GBT Balance", $"`💰` {hacker.Bank} ⋙ `💰` {hacker.Bank + totalTaken} `(+{totalTaken} $GBT)`", true)
else
DiscordEmbedBuilder()
.WithAuthor(name = $"❌ {hacker.Name} Hack Failed!" , iconUrl = hackerMember.AvatarUrl)
.AddField("Strength", $"{hacker.Stats.Strength.Amount} 💪", true)
.AddField("New $GBT Balance", $"`💰` {hacker.Bank} ⋙ `💰` {hacker.Bank - totalTaken} `(-{totalTaken} $GBT)`", true)
.WithColor(DiscordColor.Red)
let title = if successful then $"✅ {hacker.Name} Hacked Successful!" else $"❌ {target.Name} Hack Failed!" let defenderEmbed =
if successful then
DiscordEmbedBuilder()
.WithAuthor(name = target.Name , iconUrl = targetMember.AvatarUrl)
.AddField("Strength", $"{target.Stats.Strength.Amount} 💪", true)
.AddField("New $GBT Balance", $"`💰` {target.Bank} ⋙ `💰` {target.Bank - totalTaken} `(-{totalTaken} $GBT)`", true)
.WithColor(DiscordColor.Red)
else
DiscordEmbedBuilder()
.WithAuthor(name = target.Name , iconUrl = targetMember.AvatarUrl)
.AddField("Strength", $"{target.Stats.Strength.Amount} 💪", true)
.AddField($"Extracted", $"`{totalTaken} 💰$GBT`", true)
.AddField("New $GBT Balance", $"`💰` {target.Bank} ⋙ `💰` {target.Bank + totalTaken} `(+{totalTaken} $GBT)`", true)
.WithColor(DiscordColor.Green)
let embed1 = DiscordMessageBuilder().AddEmbeds([ hackerEmbed ; defenderEmbed ] |> List.map (fun e -> e.Build()))
DiscordEmbedBuilder()
.WithColor(DiscordColor.Blurple)
.WithTitle(title)
if successful then
if earnedMoney then embed1.AddField($"Total Hacked", $"`{totalTaken} 💰$GBT`", true) |> ignore
else
if earnedMoney then embed1.AddField($"Defender Extracted", $"`{totalTaken} 💰$GBT`", true) |> ignore
if bonus > 0<GBT> then embed1.AddField("Bonus", $"`{bonus}` 💰$GBT", true) |> ignore
let h = ( hacker.Name , hackerMember.AvatarUrl )
let t = ( target.Name , targetMember.AvatarUrl )
let winner = if successful then h else t
let loser = if successful then t else h
let winnerEmbed =
DiscordEmbedBuilder()
.WithAuthor(name = fst winner , iconUrl = snd winner)
.WithColor(DiscordColor.Green)
let loserEmbed =
DiscordEmbedBuilder()
.WithAuthor(name = fst loser , iconUrl = snd loser)
.WithColor(DiscordColor.Red)
let h = ( hacker.Stats.Strength.Amount , hacker.Bank )
let t = ( target.Stats.Strength.Amount , target.Bank )
let winner = if successful then h else t
let loser = if successful then t else h
winnerEmbed.AddField("Strength", $"{fst winner} 💪", true) |> ignore
winnerEmbed.AddField("New $GBT Balance", $"`💰` {snd winner} ⋙ `💰` {(snd winner) + totalTaken} `(+{totalTaken} $GBT)`", true) |> ignore
loserEmbed.AddField("Strength", $"{fst loser} 💪", true) |> ignore
loserEmbed.AddField("New $GBT Balance", $"`💰` {snd loser} ⋙ `💰` {(snd loser) - totalTaken} `(-{totalTaken} $GBT)`", true) |> ignore
let embeds =
if successful
then [ embed1 ; winnerEmbed ; loserEmbed ] |> List.map (fun e -> e.Build())
else [ embed1 ; loserEmbed ; winnerEmbed ] |> List.map (fun e -> e.Build())
DiscordMessageBuilder().AddEmbeds(embeds)
let responseCreatedShield (shield : ShieldItem) = let responseCreatedShield (shield : ShieldItem) =
let embed = DiscordEmbedBuilder().WithImageUrl(shield.ImageUrl) let embed = DiscordEmbedBuilder().WithImageUrl(shield.ImageUrl)