\textsf{|\|\|\|\|\|\|\|\|\|\|\}

\textsf{------------------------------------------------------------------------}

$\textsf{Los geht's!}$

\textsf{In einem Parkhaus gibt es Stockwerke über und unter der Erde.\\Beachte die Durchsage (\phantom{Öj~~}).

$\textsf{Weiter}$

$\textsf{Zurück}$

$\textsf\bold{Nochmal!}$

$\textsf{Eingabefelder löschen}$

$\textsf{Lösung anzeigen}$

0123456789,. 

\textsf\bold{Bewege den Lift, indem du \underline{am Punkt ziehst.

\textsf\bold{Das Parkhaus ist zu klein geworden.\Es wird ein zweites Parkhaus gebaut. 

$\textsf{Neues Parkhaus bauen}$

\textsf{
\bold{Im neuen Parkhaus sind die Stockwerke anders beschriftet als im alten Parkhaus:\vphantom{g}}\\
\bullet Das Erdgeschoss wird mit 0 beschriftet.\\
\bullet Stockwerke unter dem Erdgeschoss werden mit einem ~~~~~~~~~~~~~~~~~~~~~ markiert.\\
\bullet Stockwerke über dem Erdgeschoss werden mit einem~~~~~~~~~~~~~~~~~~~~~ markiert.

sizebubble: 1.6
Fb = (1.300754569171626, -1.3407831399133363)
Fa = (1.1449382672621589, -0.9858763375887662)
step = 1 (slider from 1 to maxstep, step 1)
F = If(step ≤ 6, Fa, Fb)
F1 = Rotate(F + (0.8, 0), 40°, F)
DropDown7: {"$\textsf{Wähle aus!\vphantom{Öj}}$", "$\textsf{3. Obergeschoss.\vphantom{Öj}}$", "$\textsf{2. Obergeschoss.\vphantom{Öj}}$", "$\textsf{1. Obergeschoss.\vphantom{Öj}}$", "$\textsf{Erdgeschoss.\vphantom{Öj}}$", "$\textsf{1. Untergeschoss.\vphantom{Öj}}$", "$\textsf{2. Untergeschoss.\vphantom{Öj}}$", "$\textsf{3. Untergeschoss.\vphantom{Öj}}$", "$\textsf{4. Untergeschoss.\vphantom{Öj}}$"}
input7 = SelectedIndex(DropDown7)
correct7: input7 ≟ 6
DropDown8: {"$\textsf{Wähle aus!\vphantom{Öj}}$", "$\textsf{Stockwerk plus 3.\vphantom{Öj}}$", "$\textsf{Stockwerk plus 2.\vphantom{Öj}}$", "$\textsf{Stockwerk plus 1.\vphantom{Öj}}$", "$\textsf{Stockwerk 0.\phantom{Öj}}$", "$\textsf{Stockwerk minus 1.\vphantom{Öj}}$", "$\textsf{Stockwerk minus 2.\vphantom{Öj}}$", "$\textsf{Stockwerk minus 3.\vphantom{Öj}}$", "$\textsf{Stockwerk minus 4.\vphantom{Öj}}$"}
input8 = SelectedIndex(DropDown8)
correct8: input8 ≟ 6
DropDown6: {"$\textsf{Wähle aus!\vphantom{Öj}}$", "$\textsf{Stockwerk plus 3.\vphantom{Öj}}$", "$\textsf{Stockwerk plus 2.\vphantom{Öj}}$", "$\textsf{Stockwerk plus 1.\vphantom{Öj}}$", "$\textsf{Stockwerk 0.\phantom{Öj}}$", "$\textsf{Stockwerk minus 1.\vphantom{Öj}}$", "$\textsf{Stockwerk minus 2.\vphantom{Öj}}$", "$\textsf{Stockwerk minus 3.\vphantom{Öj}}$", "$\textsf{Stockwerk minus 4.\vphantom{Öj}}$"}
input6 = SelectedIndex(DropDown6)
correct6: input6 ≟ 2
DropDown5: {"$\textsf{Wähle aus!\vphantom{Öj}}$", "$\textsf{Plus\vphantom{Öj}}$", "$\textsf{Minus\vphantom{Öj}}$"}
input5 = SelectedIndex(DropDown5)
correct5: input5 ≟ 2
DropDown4: {"$\textsf{Wähle aus!\vphantom{Öj}}$", "$\textsf{Plus\vphantom{Öj}}$", "$\textsf{Minus\vphantom{Öj}}$"}
input4 = SelectedIndex(DropDown4)
correct4: input4 ≟ 3
DropDown3: {"$\textsf{Wähle aus!\vphantom{Öj}}$", "$\textsf{3. Obergeschoss.\vphantom{Öj}}$", "$\textsf{2. Obergeschoss.\vphantom{Öj}}$", "$\textsf{1. Obergeschoss.\vphantom{Öj}}$", "$\textsf{Erdgeschoss.\vphantom{Öj}}$", "$\textsf{1. Untergeschoss.\vphantom{Öj}}$", "$\textsf{2. Untergeschoss.\vphantom{Öj}}$", "$\textsf{3. Untergeschoss.\vphantom{Öj}}$", "$\textsf{4. Untergeschoss.\vphantom{Öj}}$"}
input3 = SelectedIndex(DropDown3)
correct3: input3 ≟ 8
heightlift = -1.07 (slider from -5 to 5)
heightstock: heightlift - 0.044
b = 8.33 (slider from -5 to 10, step 0.01)
a = 4.09 (slider from -5 to 10, step 0.01)
P1 = (-0.2450572373039567, -11.270560781091415)
P0: P1 + (a, b)
liftpoints1 = Sequence(P0 + (0, (m * heightstock)), m, 0, 7)
A = Point(liftpoints1)
stock1original = IndexOf(A, liftpoints1)
stock1: 4 - stock1original
Q0: P0 + (4.75, 0)
Q1: Q0 + (1.22, 0)
liftpoints2 = Sequence(Q1 + (0, (m * heightstock)), m, 0, 7)
C = Point(liftpoints2)
stock2original = IndexOf(C, liftpoints2)
stock2: 4 - stock2original
listNums1: {0, -2, 2, -3, 0, 0, 1, -4, 3, -1, 0, 0, 0}
num1: listNums1(step)
correct1: stock1 ≟ num1
num2: listNums1(step)
correct2: stock2 ≟ num2
G = Point(Line[Fb, xAxis])
G1 = Rotate(G + (0.8, 0), (180 + 40)°, G)
F3 = Point(Line[F1 + (0, sizebubble), xAxis])
widthlift: 0.93
resx: 825
resy: 800
maxstep: 10
showBtnLos = true
showBtnBack = false
showBtnNext = false
showBtnNochmal = false
listfixed: {true, correct1, correct1, correct1 ∧ correct3, false, correct4 ∧ correct5, correct2 ∧ correct1, correct2 ∧ correct1, correct1 ∧ correct2 ∧ correct6, correct1 ∧ correct2 ∧ correct7 ∧ correct8}
fixed: listfixed(step)
exnum = 1 (slider from 1 to maxexnum, step 1)
maxexnum: 10
input1 = NaN
input2 = NaN
attemptCount1 = 0
attemptCount2 = 0
showBtnSolution1 = false
showBtnSolution2: false
Eingabefeld1 = Textfield(input1)
Eingabefeld2 = Textfield(input2)
inputCorrect: Length[KeepIf[¬(temp ∈ TextToUnicode[erlaubteZeichen]), temp, TextToUnicode[Text[Eingabefeld1]]]] ≟ 0 ∧ Length[KeepIf[¬(temp ∈ TextToUnicode[erlaubteZeichen]), temp, TextToUnicode[Text[Eingabefeld2]]]] ≟ 0
P2 = Point(Line[P1, xAxis])
B = Point(Line[A, xAxis])
d1, f, g, h, i = Polygon(A, A + (widthlift, 0), A + (widthlift, (-heightlift)), A + (0, (-heightlift)))
lifttext1 = Join({Sequence[Text[(("\textsf\normalsize{" * ReplaceAll["" + (m) + ((". OG" * "")), "-", ""]) * "}"), (x(P0) + 1.6, ((-heightstock) * m) + y(P0) - 3.15), true, true, -0, 1], m, 1, 3], Sequence[Text[(("\textsf\normalsize{" * ReplaceAll["" + (m) + ((". UG" * "")), "-", ""]) * "}"), (x(P0) + 1.6, ((-heightstock) * m) + y(P0) - 3.2), true, true, -0, 1], m, -4, -1], Sequence[Text["\textsf\normalsize{EG}", (x(P0) + 1.86, ((-heightstock) * m) + y(P0) - 3.15), true, true, -0, 1], m, 0, 0]})
D = Point(Line[C, xAxis])
d2, c, j, k, l = Polygon(C, C + (widthlift, 0), C + (widthlift, (-heightlift)), C + (0, (-heightlift)))
farbig1: {Polygon[A, A + (2.24, 0), A + (2.24, (-heightstock)), A + (0, (-heightstock))]}
farbig2: {Translate[Polygon[C, C + (2.24, 0), C + (2.24, (-heightstock)), C + (0, (-heightstock))], Vector[Q1, Q0]]}
listStock1: {"4. Untergeschoss", "3. Untergeschoss", "2. Untergeschoss", "1. Untergeschoss", "Erdgeschoss", "1. Obergeschoss", "2. Obergeschoss", "3. Obergeschoss"}
E = (0.015306562530002815, -1.5435116386680312)
I = Point(Line[E, xAxis])
sizelautsprecher: 1
F2 = Rotate(F + (0.8, 0), (2 * 40°), F)
speechbubble1: {Polygon[F, F1, (x(F3), y(F1)), F3, (x(F2), y(F3)), F2]}
G2 = Rotate(G + (0.8, 0), (180 + (2 * 40))°, G)
J = Point(Line[G1 + (0, (-sizebubble) - 0.5), xAxis])
selectable1: step ∈ {4, 10} ∧ correct1
selectable2: step ∈ {9, 10} ∧ correct2
H = (4.156379980296343, 1.352659472207634)
startPosition = false
lifttext2 = Join({Sequence[Text[((("\textsf\normalsize{" * "+") * m) * "}"), (x(Q0) + 0.55, ((-heightstock) * m) + y(Q0) - 3.15), true, true, -0, 1], m, 1, 3], Sequence[Text[((("\textsf\normalsize{" * "--") * abs(m)) * "}"), (x(Q0) + 0.55, ((-heightstock) * m) + y(Q0) - 3.15), true, true, -0, 1], m, -4, -1], Sequence[Text["\textsf\normalsize{0}", (x(Q0) + 0.72, ((-heightstock) * m) + y(Q0) - 3.15), true, true, -0, 1], m, 0, 0]})
Text5: "\textsf\bold{Bewege den Lift " + (LaTeX[If[step ≥ 3, "nun ", ""]]) + "ins " + (LaTeX[abs(num1)]) + ". " + (LaTeX[If[num1 > 0, "OG", "UG"]]) + "."
K: (16.3887, 1.05448) + If[step ≟ 6, (0, -1.2), (0, 0)]
l1: {Translate[Polygon[(0, 0), (-100, 0), (-100, 100), (0, 100)], K]}
speechbubble1b: {Polygon[F, F1, (x(F3), y(F1)), F3, (x(F2), y(F3)), F2]}
speechbubble2: {Translate[Mirror[Polygon[F, F1, (x(F3), y(F1)), F3, (x(F2), y(F3)), F2], Line[F, yAxis]], Vector[F, G]]}
speechbubble2b: {Translate[Mirror[Polygon[F, F1, (x(F3), y(F1)), F3, (x(F2), y(F3)), F2], Line[F, yAxis]], Vector[F, G]]}
Text3: "\textsf{Der Lift befindet sich\\\\\\im \textcolor{" + (LaTeX[If[selectable2, "ffffff", ""]]) + "}{Stockwerk " + (LaTeX[If[stock2 > 0, "plus", If[stock2 < 0, "minus", ""]]]) + " " + (LaTeX[abs(stock2)]) + ".}"
Text9: "\textsf{\textsf{Der Lift befindet sich\\\\\\im \textcolor{" + (LaTeX[If[selectable1, "ffffff", ""]]) + "}{" + (LaTeX[Element[listStock1, 9 - stock1original]]) + ".}"
F4 = If(step > 1, (9.9009, 0.64103), (8.3, 0.64103))
speechbubble0: {Polygon[F, F1, (x(F4), y(F1)), F4, (x(F2), y(F4)), F2]}
speechbubble0b: {Polygon[F, F1, (x(F4), y(F1)), F4, (x(F2), y(F4)), F2]}
startPosition2 = false
Text8: "\textsf{\bold{Bewege den grauen Lift ins " + (LaTeX[abs(num1)]) + ". " + (LaTeX[If[num1 < 0, "UG", "OG"]]) + ".\\
Bewege den schwarzen Lift ins Stockwert " + (LaTeX[If[num2 > 0, "+", If[num2 < 0, "--", ""]]]) + "" + (LaTeX[abs(num2)]) + ".}"
Text2: "\textsf{Der Lift befindet sich im \textcolor{" + (LaTeX[If[selectable1, "ffffff", ""]]) + "}{" + (LaTeX[If[step ≟ 1, "Erdgeschoss", Element[listStock1, 9 - stock1original]]]) + ".}"

Tool: SpeechBubbleLeft
SpeechBubbleLeft(<Point>,<width>,<hight>)
Input: C, width, hight
Output: poly1

width: 5
hight: 2
C: (-2, 2)
BLLC: (x(C) + 0.2, y(C) + 1)
BLC = Rotate(BLLC, -40°, C)
BRC: (x(BLC) + width, y(BLC))
TLC: (x(BLLC), y(BLLC) + hight)
TRC: (x(BRC), y(TLC))
poly1, c, bllc, tlc, trc, brc, blc = Polygon(C, BLLC, TLC, TRC, BRC, BLC)

Tool: SpeechBubbleRight
SpeechBubbleRight(<Point>,<width>,<hight>)
Input: C, width, hight
Output: poly1

width: 5
hight: 2
C: (-2, 2)
BLLC: (x(C) - 0.2, y(C) + 1)
BLC = Rotate(BLLC, 40°, C)
BRC: (x(BLC) - width, y(BLC))
TLC: (x(BLLC), y(BLLC) + hight)
TRC: (x(BRC), y(TLC))
poly1, c, bllc, tlc, trc, brc, blc = Polygon(C, BLLC, TLC, TRC, BRC, BLC)