<img src=https://ldxly.co.uk/images/Choco_logo.png width="35%">\
(set:$name to (prompt:"Enter your name: ", ""))\
|box1)[[ <!-- DEFAULT STYLE-->\
|timetotype1>[\
<!-- dynamic sentences-->\
(set: $typewriterText to "Welcome " + $name + ". Its your first day of your new role as Global Learning Architect at Willy Wonka's Chocolate Factory.
You are about to review your 30-60-90 plan when Willy Wonka himself walks into your office.") \
<!--YOUR CUSTOM TEXT--> \
(set: $typewriterPos to 1)
|typewriterOutput>[]\
|typer1>[ <!-- this restarts per-character -->\
(live: $typingspeed)[(stop:)\
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]\
(set: $typewriterPos to it + 1)\
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->\
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)\
<!--INSTER POST-TYPING EVENT HERE-->\
[[Tell me more]]\
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|box1)[[ <!-- DEFAULT STYLE-->
{ |timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "You can tell Mr. Wonka is agitated and before you can even say 'Hello', he starts to explain, 'Today is the first day of production for the ‘Golden Ticket’ WONKA Bars campaign.
") <!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[What is the Golden Ticket campaign?]]
]
(else:)[(rerun:?typer1)]
]]] }
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|box1)[ [ <!-- DEFAULT STYLE-->
{ |timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
The ‘Golden ticket’ campaign consists of packing Golden Tickets inside five lucky WONKA bars. The finders of the 5 Gold Tickets will be rewarded with a tour of the factory, a lifetime supply of chocolate and one of the 5 winners with the strongest moral character will be selected to take over the factory once Mr. Wonka retires!
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[Mr. Wonka continues]]
]
(else:)[(rerun:?typer1)]
]]] }
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
You invite Amrit, the director of operations to your office.
You walk to the whiteboard and write ‘5 Whys’, root cause analysis.
With Amrit’s help you know that to find the root cause of the incident you need to start with identifying the problem.
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[Offer Amrit a coffee and ask them to walk you through what happened]]
or
[[Review employment file of machine operator]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]<img src=https://ldxly.co.uk/images/emoji_sad.png width="25%">
|box1)[
[ <!-- DEFAULT STYLE-->
{=|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
You know there seems to be a larger issue here that has nothing to do with the machine operator themselves. Maybe you should find out more about the situation first…
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[TRY AGAIN->What do you do next?]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
You then ask Amrit, why the details of the campaign were not communicated to the Operator?
Amrit explains that it wasn’t a case of the machine operator not knowing how many Golden tickets needed to be sent out, but rather that they couldn’t tell the difference from the Golden Tickets and the regular coupons that are usually wrapped up with the WONKA Bars!
Puzzling answer… What do you do next?
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[Question further about the confusion over labeling]]
OR
[[Demand that Amrit gets back to work]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]<img src=https://ldxly.co.uk/images/emoji_sad.png width="25%">
|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
Don’t you want to get to the bottom of this?
Letting go of the Machine Operator won’t solve the problem. The nature of the issue seems to go a little further than just a small oversight. Perhaps you need some more information…
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[TRY AGAIN->Offer Amrit a coffee and ask them to walk you through what happened]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|text1>[You ponder for a moment… Why weren’t the Golden Tickets (link-show:"labelled",?text2) ?]
|text2)[(hide:?text1)When you ask Amrit, he admited that the operations team that received the labels stored them in the wrong location at the operations centre. As a result the machine operators didn't have the updated (link-show:"labels",?text3).]
|text3)[(hide:?text2)This definitely should not have happened, but you still feel like you haven’t got the clear picture. You continue asking (link-show:"why", ?text4).]
|text4)[(hide:?text3)
Why did the machine operator not spot the error? Amrit explains, the machine operator wasn’t familiar with the updated standard operating procedures.
[[Review current training]] or
[[Solved. Have all employees repeat mandatory training]] ]<img src=https://ldxly.co.uk/images/emoji_sad.png width="25%">
|box1)[
[ <!-- DEFAULT STYLE-->
{= |timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
Don’t you want to get to the bottom of this?
You still would not have identified the root cause of the problem. What if it happens again? How do you fix the current situation? Perhaps there is yet more to learn…
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[TRY AGAIN->Question further about the confusion over labeling]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
In the LMS, you see the machine operator was trained two years ago as part of their onboarding but in the last two years, the machine operator has had no further training or sign-off process.
Wonka’s has innovated its systems to keep relevant and there weren’t the same regulations needed to assess machine operators as there are now.
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[Collate your findings]]
OR
[[No more analysis needed. Develop a new curriculum]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]<img src=https://ldxly.co.uk/images/emoji_sad.png width="25%">
|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
To find the root cause you are going to have to dig a little deeper. Whilst some retraining may be necessary for select individuals, that is not the solution to the current issue at hand. Besides, who knows if the training actually covered how to perform the role properly? Is there anything else you need to know?
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[TRY AGAIN->Review current training]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|text1>[Still infront of the whiteboard, you say, “We have identified that the main problem is that we do not know how many winners there are. What do you think the root cause of the (link-show: "incident ",?text2) is?”]
|text2)[(hide:?text1)Amrit responds, “I think the root cause of the incident is a lack of understanding and adherence to procedures and processes amongst several teams in the (link-show: "production ",?text3) line.]
|text3)[(hide:?text2)Amrit adds, “Additionally, the training we have is outdated and insufficient. You agree with Amrit and ask, ‘Are there any more issues you can think of?”
[[Consider alternative / additional causes]]
[[The Machine Operator must be penalised]] ]<img src=https://ldxly.co.uk/images/emoji_sad.png width="25%">
|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
To find the root cause you are going to have to dig a little deeper.
The training curriculum is certainly outdated, however that course of action only solves one of several problems. Perhaps you need to review the full picture of the situation.
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[TRY AGAIN->Collate your findings]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
You think for a minute and review the notes on the white board behind you.
“I think you are right Amrit”, you respond, “- but I would also add the fact that there was an issue with the tickets not be labelled.”
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[Explain using the whiteboard]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]<img src=https://ldxly.co.uk/images/emoji_sad.png width="25%">
|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
You have identified a number of causes of the problem at hand. Next, it is necessary to develop solutions. Justice can be served later, and it may not even need the Machine Operator to be penalized!
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[TRY AGAIN->Consider alternative / additional causes]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|text1>[You write, ‘SOLUTION’, on the whiteboard before turning to thank Amrit for being so open and discussing the incident in detail. This allows us to see where we can make some improvements to the production process. On the whiteboard, you
(link-show:"write",?text2) the following:]
|text2)[(hide:?text1) Implement daily stand-up meetings to promote collaboration between marketing and operations teams, via digital video platforms (link-show:"and",?text3)...]
|text3)[(hide:?text2)Redesign the Machine Operators work area to ensure campaign products such as tickets are kept in a separate dedicated location and re-evaluate the production (link-show:"process",?text4).]
|text4)[(hide:?text3) Include a training assessment and annual refresher training (link-show:"sign off",?text5).]
|text5)[(hide:?text4)
[[Amrit concludes]]]
|text1>[All staff on the factory floor will be check-in with the Floor Manager on duty at the start of their shift to ensure any updates and understanding of the (link-show:"process ",?text2)for that day.]
|text2)[(hide:?text1)You share that you will send out a memo for a staff meeting to explain what happened and what we are doing to (link-show: "improve",?text3).]
|text3)[(hide:?text2)Once the meeting has been called, perhaps we’ll have a better understanding of how many tickets went out and attempt to reformat our campaign to work with the situation at hand.
All is well again; the show must (link-show: "go on!",?text4)]
|text4)[ (hide:?text3)[[Why were the 5 Why's Important?]] ]|box1)[
{= [ <!-- DEFAULT STYLE-->
|timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
The 5 Why’s were important in discovering the root cause of the incident because:
It shows a thorough, balanced, and objective investigation has been completed with the appropriate outcomes and changes put in place.
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
(color: #ffc107)[[''Click here to write your review.'']<a1|]
[(click: ?a1)+(replace: ?a1)[(put: (prompt: "Would you use the 5 Why's?", "") into $opinion)
(color: #FFFFFF)[Review - (live: 0.1s)[$opinion]]]]
]
(else:)[(rerun:?typer1)]
]]]
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]|box1)[[ <!-- DEFAULT STYLE-->
{ |timetotype1>[
<!-- dynamic sentences-->
(set: $typewriterText to "
Still looking agitated, Mr. Wonka sits down and explains that one of the machine operators didn't track the number of Golden Tickets he included in the WONKA bars.
It is highly likely there are more than 5 tickets that went out.
Mr. Wonka looks straight at you and says : You, I need your help.
")
<!--YOUR CUSTOM TEXT-->
(set: $typewriterPos to 1)
|typewriterOutput>[]
|typer1>[ <!-- this restarts per-character -->
(live: $typingspeed)[(stop:)
(append: ?typewriterOutput)[(print: $typewriterText's $typewriterPos)]
(set: $typewriterPos to it + 1)
(set:$typingspeed to (random: 1, 60)) <!-- PER-CHARACTER granular speed! -->
(if: $typewriterPos is $typewriterText's length + 1)[(stop:)
<!--INSTER POST-TYPING EVENT HERE-->
[[Use the 5 Why's framework to analyse the problem->What do you do next?]]
OR
[[Speak with machine operator->Speak with machine operator]]
]
(else:)[(rerun:?typer1)]
]]] }
]<!--this is the blur-->
]
(after: 2s)[(show: ?box1)]