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

Delays and text

Browse Source
This commit is contained in:
Joseph Ferano 2022-03-10 22:56:20 +07:00
parent 40be1fe481
commit 746dcbbc87
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Bot/Embeds.fs
View File

@ -140,7 +140,7 @@ let getAchievementEmbed rewards description achievement =
.WithColor(DiscordColor.Gold) .WithColor(DiscordColor.Gold)
// .AddField("Achievement", $"🏆 {achievement}") // .AddField("Achievement", $"🏆 {achievement}")
.AddField("Achievement", $"{achievement}", true) .AddField("Achievement", $"{achievement}", true)
.AddField("Rewards", rewards |> String.concat "\n", true) .AddField("Gifts", rewards |> String.concat "\n", true)
// TODO: Once we add another achievement, fix this // TODO: Once we add another achievement, fix this
.WithImageUrl("https://s10.gifyu.com/images/MasterTraining_Degenz.gif")) .WithImageUrl("https://s10.gifyu.com/images/MasterTraining_Degenz.gif"))
.AsEphemeral(true) .AsEphemeral(true)

8
Bot/Games/Trainer.fs
View File

@ -98,11 +98,11 @@ let handleDefense (ctx : IDiscordContext) =
let playerName = tokens.[4] let playerName = tokens.[4]
let embed = Embeds.responseCreatedShield defaultShield let embed = Embeds.responseCreatedShield defaultShield
do! ctx.FollowUp embed |> Async.AwaitTask do! ctx.FollowUp embed |> Async.AwaitTask
do! Async.Sleep 2000 do! Async.Sleep 1000
do! sendMessage' $"Ok, good, let me make sure that worked.\n\nI'll try to **hack** you now with **{defaultHack.Item.Name}**" do! sendMessage' $"Ok, good, let me make sure that worked.\n\nI'll try to **hack** you now with **{defaultHack.Item.Name}**"
do! Async.Sleep 3000 do! Async.Sleep 3000
do! sendMessage' $"❌ HACKING FAILED!\n\n{playerName} defended hack from <@{Sensei.Id}>!" do! sendMessage' $"❌ HACKING FAILED!\n\n{playerName} defended hack from <@{Sensei.Id}>!"
do! Async.Sleep 2000 do! Async.Sleep 1500
do! sendFollowUpMessageWithButton ctx (handleDefenseMsg defaultHack.Item.Name) do! sendFollowUpMessageWithButton ctx (handleDefenseMsg defaultHack.Item.Name)
} |> Async.StartAsTask :> Task } |> Async.StartAsTask :> Task
@ -168,7 +168,7 @@ I'm also going to give you some **TEMPORARY SHIELDS** until you buy your own.
They will **ONLY** protect you from hacks for **{BeginnerProtectionHours} hrs**... They will **ONLY** protect you from hacks for **{BeginnerProtectionHours} hrs**...
To finish your training and collect all your **GIFTS**, To finish your training and collect all your **GIFTS**,
type the /arsenal command NOW""" type the `/arsenal` command NOW"""
let! completed = DbService.checkHasAchievement player.DiscordId TrainerAchievement let! completed = DbService.checkHasAchievement player.DiscordId TrainerAchievement
if not completed then if not completed then
@ -215,7 +215,7 @@ let handleArsenal (ctx : IDiscordContext) = PlayerInteractions.executePlayerActi
do! Async.Sleep 2000 do! Async.Sleep 2000
let rewards = [ $"{defaultHack.Item.Name} Hack" ; $"{defaultShield.Item.Name} Shield" ; $"{CurrencyGift} 💰$GBT"] let rewards = [ $"{defaultHack.Item.Name} Hack" ; $"{defaultShield.Item.Name} Shield" ; $"{CurrencyGift} 💰$GBT"]
let embed = Embeds.getAchievementEmbed rewards "You completed the Training Dojo and collected some rewards." TrainerAchievement let embed = Embeds.getAchievementEmbed rewards "You completed the Training Dojo and collected some gifts." TrainerAchievement
do! ctx.FollowUp(embed) |> Async.AwaitTask do! ctx.FollowUp(embed) |> Async.AwaitTask
let role = ctx.GetGuild().GetRole(GuildEnvironment.roleTrainee) let role = ctx.GetGuild().GetRole(GuildEnvironment.roleTrainee)