Le_Royaume_Poudingue/Aventura Versions/AventuraV-0,28.bide

2482 lines
200 KiB
Plaintext

#Program name: INDEX
#Password: <no password>
'Le programme Index est le programme à lancer.'
'Il est la base sur laquelle le jeu sera posé.'
Prog "TI"
'Title screen'
Do
Prog "MA"
0 -> Tθmin
1 -> Tθmax
Do
Cls
Graph(X,Y)=(1 + {2 + 7T, 9, 9 - 3T, 5 - 3T, 2} + 10(U - 1), 10(V - 1) + {3, 3 + 6T, 9 + 3T, 12 - 3T, 9 - 6T
G And H => Graph(X,Y)=(3 + 10(G - 1) + {2 + 2T, 1 + 4T, 0, 1, 2, 3, 4, 5, 6}, 4 + 10(H - 1) + {8, 7, 6 - 2T, 6 - 6T, 1 + 4T, 6 - 5T, 1 + 4T, 6 - 6T, 6 - 2T
Do
GetKey -> W
LpWhile Not W
U + (W = 27) - (W = 38) -> A
V + (W = 28) - (W = 37) -> B
If U != A Or V != B : Then If B > 6 :Then
1 -> V : Isz J : Break
IfEnd
If B < 1 :Then
6 -> V : Dsz J : Break
IfEnd
If A > 11 :Then
1 -> U : Isz I : Break
IfEnd
If A < 1 :Then
11 -> U : Dsz I : Break
IfEnd
If 1 = StrCmp("A﹣", StrMid(Str 2, A + 11(B - 1), 1
Then A -> U
B -> V
IfEnd
IfEnd
If StrCmp(StrMid(Str 2, U + 11(V - 1), 1), "0") :Then
StrMid(Str 2, U + 11(V - 1), 1) -> Str 5
If Not StrCmp(Str 5, "6")
Then  - N(1 - 2Not (Int 10Frac ( / (N + 1 -> 
Int 10Frac ( / (N + 1
Text 29, 44, StrMid("ClicCloc", 1 + 5Ans, 6)
While GetKey
WhileEnd
While Not GetKey
WhileEnd
{0, 0, 1 -> List 3
IfEnd
If Not StrCmp(Str 5, "7") Or Not StrCmp(Str 5, "8") :Then
{0, 0, 1 -> List 3
Dsz K
'a
Break
IfEnd
If Not StrCmp(Str 5, "9") :Then
{0, 0, 1 -> List 3
Isz K
'a
Break
IfEnd
If Not StrCmp(Str 5, "A") :Then
{0, 0, 1 -> List 3
ReP θ -> I
ImP θ -> J
Break
IfEnd
IfEnd
If W = 77 :Then
If StrCmp(StrMid(Str 2, U + 11V, 1), "Z-") = 1 And StrCmp(StrMid(Str 2, U + 11V, 1), "e-") = -1 :Then
Prog "DH"
Prog "DI"
If A :Then
Prog "CO"
Break
IfEnd
IfEnd
If Not StrCmp(StrMid(Str 2, U + 11V, 1), "f") :Then
List 5
File 2
List Ans -> List 1
I -> List 2[1
J -> List 2[2
K -> List 2[3
 -> List 2[4
R -> List 2[5
File 1
"" -> Str 4
"Partie sauvegardee.Continuer ?|{Que Caltos te benisse.}[QUIT]" -> Str 5
Prog "DI"
IfEnd
If Not StrCmp(StrMid(Str 2, U + 11V, 1), "g")
Then "" -> Str 4
"Vous etes gueri !" -> Str 5
Prog "DI"
2 -> List 5[3
Cls
Prog "S"
StoPict 4
BG-Pict 4
IfEnd
IfEnd
If W = 48 :Then
Prog "ME"
Break
IfEnd
If W = 78 : Then Prog "MO"
Break
IfEnd
If G And H :Then
G -> A
H -> B
If U != A :Then
U > A => Isz A
U < A => Dsz A
Else
V < B => Dsz B
V > B => Isz B
IfEnd
If 1 = StrCmp("A﹣", StrMid(Str 2, A + 11(B - 1), 1 :Then
A -> G
B -> H
IfEnd
If U = G And V = H :Then
0 -> A
Prog "CO"
ClrList 7
ClrList 6
Break
IfEnd
IfEnd
LpWhile 1
LpWhile 1
#End of part
#Program name: AN
#Password: <no password>
Int List 6[1 -> D
D = 0 => "Rongeur rapide et malade" -> Str 5
D = 1 => "Souvent apprivoise" -> Str 5
D = 2 => "Oh, un chapeau ! Trop mignon.." -> Str 5
D = 3 => "Rongeur temeraire" -> Str 5
D = 4 => "Rare. Murmure hiinuuux.." -> Str 5
D = 5 => "Un Poudingue mort de tristesse" -> Str 5
D = 6 => "Sape et plonge ses proies dans le noir" -> Str 5
D = 7 => "Etre mystique vide" -> Str 5
D = 8 => "Incarnation spirituelle d'un mage" -> Str 5
D = 10 => "Symbiose d'un insecte et d'une fleur"-> Str 5
D = 11 => "Serpent squelettique"-> Str 5
D = 12 => "Fee aux ailes froides"-> Str 5
D = 13 => "Fee aux ailes ardentes"-> Str 5
D = 14 => "Brutal. Tres brutal. BEAUCOUP TROP BRUTAL" -> Str 5
D = 15 => "Plante reputee pour ses aromes" -> Str 5
D = 16 => "Plus violente que d'habitude." -> Str 5
D = 17 => "Créature aquatique planante" -> Str 5
D = 18 => "Creature immobile" -> Str 5
"" -> Str 7
Int List 6[2
For Int log (Abs Ans + Not Ans) -> C To 0 Step ﹣1
10Frac (Int (Abs Int List 6[2]﹣C) / 10
Str 7 + StrMid("0" + Str 3, Ans + 1, 1) -> Str 7
Next
Str 4 + " Nv." + Str 7 + " : " + Str 5 + "." -> Str 5
Prog "T"
"Sorts : " -> Str 5
For 0->A To StrLen(Str 8)/2-1
Str 5 + " " + StrMid(Str 8, 1 + 2A, 2) -> Str 5
Next
Prog "T"
Str 1 + " : P _, V _, T _" -> Str 5
For 7 -> A To 9
4(List 5[A] - 1
MOD(Abs Ans, 3 -> B
StrLeft(Str 5, StrSrc(Str 5, "_") - 1) + StrMid("--=+++", 4List 5[A] - 1, B + Not B) + StrRight(Str 5, StrLen(Str 5) - StrSrc(Str 5, "_")) -> Str 5
Next
Prog "T"
#End of part
#Program name: AT
#Password: <no password>
'Programme contenant les attaques.'
'Exemple ' "2A-3Eff(D|Tenebres" -> Str 7
'PVTSB sera codé par 12345.
'Caractères utilisables ' =!=<>←->↑↓◀ ▶#▲▼▸=>■□
Do
"11(0|Echec critique..." -> Str 7
D = 1 => "1F(1|Cogne" -> Str 7
D = 71 => "1H-2Poi(B|Croque venin" -> Str 7
D = 99 => "1X-4Eff+3Sur(6|Enfer cataclysmique" -> Str 7
D = 9 => "1F-5Bru(C|Crematoire" -> Str 7
D = 90 => "1U+9...(1|Casse crane" -> Str 7
D = 31 =>"18+8Rag-0Idi(1|Brutalite" -> Str 7
D = 72 => "1H-2Bru(B|Crocs rouges" -> Str 7
D = 2 => "2E(3|Rafale" -> Str 7
D = 86 =>"2K-1Eff(E|Retour de l'hirondelle" -> Str 7
D = 32 =>"2C+3Hat/332(3|Barrage" -> Str 7
D = 41 =>"26-7Poi/302(D|Gaz toxique" -> Str 7
D = 65 =>"2A/465(H|Taillade" -> Str 7
D = 64 =>"5+7Ton/865(7|Qui vive" -> Str 7
D = 73 =>"1H-2Gel(B|Crocs bleus" -> Str 7
D = 03 => "3E(2|Estoc" -> Str 7
D = 37 => "3C(5|GNU is not ta mere" -> Str 7
D = 33 => "3F-5Eff(5|Tenebres" -> Str 7
D = 85 => "3E+2Hat/586(E|Fleche" -> Str 7
D = 59 => "3F(H|Coup de grace" -> Str 7
D = 50 => "39-5Deb(A|Choc mental" -> Str 7
D = 91 => "3U+9...(9|Noirceur" -> Str 7
D = 27 => "3D-4Gel(2|Pointe gel" -> Str 7
D = 4 => "4E(4|Premiers soins" -> Str 7
D = 95 => "4S-3Poi(4|Potion d'urgence" -> Str 7
D = 15 => "48+6Sur-0Deb(7|Dynamisme" -> Str 7
D = 11 => "5+9Rag(7|Rage" -> Str 7
D = 12 => "5+9Hat(7|Hate" -> Str 7
D = 13 => "5+9Mac(7|Machinations" -> Str 7
D = 98 => "5+9Ber(7|Fureur noire" -> Str 7
D = 5 => "5+9...-9.../404(4|Purge" -> Str 7
D = 21 => "5-9Eff(8|Effroi" -> Str 7
D = 22 => "5-9Glu(8|Glue" -> Str 7
D = 23 => "5-9Idi(8|Idiotie" -> Str 7
D = 40 => "5-8Poi(D|Venin" -> Str 7
D = 25 => "5+7...-8Gel/222(A|Eclat azur" -> Str 7
Exp(StrLeft(Str 7, 1)) -> Q
'E = Lanceur F = Cible. E peut égaler F. E = 0 pour le joueur, 1 pour le monstre (attention avec L ne pas confondre)
1 - L -> E
StrSrc(Str 7, "+") -> A
MOD(L + (Q = 4) + (Q = 5 And A), 2 -> F
If L :Then
1 - (Q = 4) - (Q = 5 And A) -> F
Do
Text 58, 21 + 65F, "▲"
Text 58, 85 - 65F, " "
Do
GetKey
LpWhile Not Ans
Ans = 77 => Break
MOD(F + (Ans = 27) - (Ans = 38), 2 -> F
LpWhile 1
IfEnd
Not L => Str 4 -> Str 5
L => Str 1 -> Str 5
Str 5 + " lance " + StrRight(Str 7, StrLen(Str 7) - StrSrc(Str 7, "|")) + " !" -> Str 5
Prog "T"
For 0 -> C To 1
StrSrc(Str 7, StrMid("-+", 1 + C, 1)) -> S
If S : Then Exp(StrMid(Str 7, S + 1, 1)) >= RanInt#(0, 9) => Prog "ST"
IfEnd
Next
StrSrc(Str 3, StrMid(Str 7, 1 + StrSrc(Str 7, "("), 1)) -> A
65F + 15 -> B
If A = 1 : Then For -2 -> C To 2
Text 40 + 2C², B + 2 - 4C, ""
Text 40 + 2C², B + 18 + 4C, ""
Next
IfEnd
If A = 2 : Then For 0 -> C To 6
Text 47, B + 3C, "=-"
Next
IfEnd
If A = 3 : Then For 0 -> C To 20
Text 39 + RanInt#(1, 20), B + RanInt#(1, 20), ""
Next
IfEnd
If A = 4 : Then For 0 -> C To 5
Text 50 - 3C, B + RanInt#(5, 20), "+"
Next
IfEnd
If A = 5 : Then For 47 -> C To 1 Step -2
SketchThick Horizontal C
Next
IfEnd
If A = 6 : Then "La terre tremble..." -> Str 5
Prog "T"
BG-None
For 1 -> C To 20
Cls
11 + MOD(C, 2
RclPict Ans
Next
"... et les tombes chantent !" -> Str 5
Prog "T"
If StrSrc(Str 2, "θ") :Then
BG-Pict 9
Else
BG-Pict 8
IfEnd
IfEnd
If A = 7
Then For 1 -> C To 3
Text 50 - 3C, B, "▲"
Next
IfEnd
If A = 8
Then For 1 -> C To 3
Text 41 + 3C, B, " "
Text 41 + 3C, B, "▼"
Next
IfEnd
If A = 9
Then ViewWindow -64,64,0,-32,32,0,1,5,.1
SketchThick Graph r=-20(θ/2)*(cos θ)*tan (9θ
IfEnd
If A = 10
Then ViewWindow -64,64,0,-32,32,0,0,2π,π/4
SketchBroken Graph r={2,4,7,12,16,18,25tan θ, 36tan θ
IfEnd
If A >= 11 And A <= 17
Then 0->Tθmin
1-> Tθmax
RclPict 4
'Crocs
If A = 11
Then Graph(X,Y)=(B+{16-T, 15-2T, 14-4T, 11-2T, 12-8T, 9-T, 7-T, 3+2T, 2+T, 1-T, T, 7-5T, 8+6T, 16-T, 15-2T, 12-T, 10-T, 8-T, 5+T, 4-4T, T, 3-T}, 3+{9-2T, 9-T, 10+T, 9+2T, 11, 9+T, 9+T, 10-T, 10-2T, 9, 9-2T, T, T, 2+2T, 2+T, 2T, 1+T, 1+T, 2-T, 3T, 2+2T, 3-T
IfEnd
'Flammes
If A = 12
Then For 1->C To 6
RanInt#(0,30
Graph(X,Y)=(B+Ans+{3-2T, 2+T, 4, 2, 1, 0}, 4C+{T, 8-5T, 1+3T, 5-3T, 2+4T, 5-3T
Next
IfEnd
'Poison
If A = 13
Then For 0->C To 3
RanInt#(0,25
Graph(X,Y)=(Ans +B+{1+2T, 1+3T, 3T, 4, 1, 0}, 10+4C+{4T, 4-T, 1-T, 1+2T, 3-T, 2+T
Next
IfEnd
'Hirondelle
If A = 14
Then Graph(X,Y)=(B+{3T, 3+2T, 8-2T, 9+6T, 16+5T, 18+5T, 26, 21+4T, 25-4T, 15+3T, 17+7T, 19+3T, 17+3T, 21+4T, 24, 25}, 5+{15-3T, 12-9T, 1+T, 0, 1+2T, 1+7T, 6+10T, 4+5T, 8-5T, 8+2T, 10+T, 7+3T, 7+3T, 10+4T, 9+3T, 10+3T
IfEnd
'Slash
If A = 17
Then Graph(X,Y)=(B+{21T, 22+4T, 21+5T, 20+T, 20-2T, 18-3T, 15, 15-6T, 9-6T}, 3+{21-21T, 15T, 4+11T, 20-15T, 20-13T, 8+7T, 9+6T, 11+3T, 14+5T
IfEnd
IfEnd
E + 5 -> E
F + 5 -> F
If Q < 5 :Then
P <= 0 => RanInt#(-1,1) + StrSrc(Str 3, StrMid(Str 7, 2, 1)) -> P
D = 37 => P + RanInt#(-5,10) -> P
D = 59 And List F[3<50 => P + 10 -> P
If Q < 4 :Then
4 + MOD(Q + 1, 3
- PList E[3 + Q] * List E[6 + Q] / (List F[Ans] * List F[3 + Ans -> P
{1, .75, 1.4, 1.4, 1, .75, .75, 1.4, 1, 1, 1, 1
List Ans[Q - 3 + 30Frac List F[1 -> A
Int AP -> P
Else
2P + RanInt#(0, 3 -> P
2 < P + List F[3 => 2 - List F[3 -> P
1 -> A
IfEnd
P + List F[3 -> List F[3
F = 5 => Str 1 -> Str 5
F = 6 => Str 4 -> Str 5
P >= 0 => Str 5 + " gagne " -> Str 5
P < 0 => Str 5 + " perd " -> Str 5
For Int log (Abs P + Not P) -> C To 0 Step ﹣1
10Frac (Int (Abs P﹣C) / 10)
Str 5 + StrMid("0" + Str 3, Ans + 1, 1) -> Str 5
Next
Str 5 + "% de vitalite" -> Str 5
A > 1 => Str 5 + " !!!" -> Str 5
A < 1 => Str 5 + "." -> Str 5
A = 1 => Str 5 + " !" -> Str 5
P = 0 => "Aucun effet." -> Str 5
Prog "T"
IfEnd
5+Not L -> A
List A[0 -> Str 5
If Not StrCmp("Poi", StrMid(Str 5, 6, 3))
Then List A[3
If Ans > 4
Then Ans - 4 -> List A[3
Else 1 -> List A[3
IfEnd
A = 5 => Str 1 -> Str 5
A = 6 => Str 4 -> Str 5
Str 5 + " souffre du poison!" -> Str 5
Prog "T"
IfEnd
"Tour suivant !" -> Str 5
0 -> D
0 -> P
StrSrc(Str 7, "/") -> S
S And Exp(StrMid(Str 7, S + 1, 1)) >= RanInt#(0, 9) And 0 < List F[3 => Exp(StrMid(Str 7, S + 2, 2)) -> D
D => "Ce n'est pas fini !" -> Str 5
Prog "T"
LpWhile D
#End of part
#Program name: CO
#Password: <no password>
'Programme de combat.'
{0, 2, 2, 0, 0, 0, 1, 1, 1 -> List 6
0 -> A~D
1 -> L~M
0 -> P
For 7 -> B To 9
1 -> List 5[B
Next
"A..._..." -> List 5[0
"B..._..." -> List 6[0
If Not A :Then
R = 1 => "012I0" -> Str 5
R = 2 => "4ACFGDA" -> Str 5
R = 3 => "3CHH5" -> Str 5
R = 6 => "15678BI" -> Str 5
RanInt#(1, StrLen(Str 5
StrSrc(Str 3, StrMid(Str 5, Ans, 1)) -> M
If I = 24 And J = 23 And K = -2
Then 1 -> D
0 -> M
IfEnd
If I = 28 And J = 21 And K = -1
Then 1 -> D
14 -> M
IfEnd
'Calcul provisoire du niveau.
Int (1.5R
3D + RanInt#(Ans, Ans + 3) -> List 6[2
Not M Or M = 3 => {8, 7.02, 5.03, 8.06, 12.14, 14.16, 18.16, 20.14, 21.15, 26.15, 27.14, 27.11, 26.1, 25.11, 25.13, 21.13, 22.12, 22.09, 20.07, 9, 4.06, 6.04, 8.04, 8.03, 13.03, 12.02, 13.01, 17.06, 18.05, 21.05, 20.07, 9, 10.05, 11.06 -> List 7
If Not M :Then
"Rat maladif_242|08" -> Str 5
"0212" -> Str 8
IfEnd
M = 1 Or M = 2 => {12.02, 4.02, 3.08, 11.08, 13.03, 15.05, 15.08, 14.09, 9, 14.05, 12.03, 3.03, 12.04, 9, 3.04, 11.05, 12.07, 11.09, 4.09, 5.1, 10.1, 9.07, 9, 3.05, 7.05, 7.1, 5.07 -> List 7
If M = 1 :Then
"Noiraude_333|10" -> Str 5
"000173" -> Str 8
IfEnd
If M = 2 :Then
Augment(List 7, {9, 10.1, 7.17, 5.1, 10.1 -> List 7
"Noidraule_334|11" -> Str 5
"0313" -> Str 8
IfEnd
If M = 3 :Then
Augment(List 7, {9,7.04, 6.03, 9, 13.1, 15.13, 9, 16.08, 19.10 -> List 7
"Rataupenu_675|25" -> Str 5
"01021571" -> Str 8
IfEnd
If M = 4 :Then
{9.07, 18.07, 18.05, 20.04, 18.02, 9.02, 7.04, 8.05, 10.04, 17.04, 18.05, 18.09, 9.09, 9.06, 9, 13.1, 14.11, 12.12, 13.15, 14.12 -> List 7
"Cake_22F|28" -> Str 5
"0037" -> Str 8
IfEnd
If M = 5 :Then
{23.02, 11.02, 22.03, 10.03, 10.13, 13.17, 11.13, 11.04, 12.04, 13.15, 12.13, 9, 21.04, 17.16, 20.04, 15.17, 19.04, 16.11, 16.17, 14.1, 14.17, 9, 13.09, 16.09, 18.04, 15.08, 17.04, 14.08, 14.04, 16.04, 14.07 -> List 7
"Hurleur_8CA|14" -> Str 5
"21023305" -> Str 8
IfEnd
If M = 6 :Then
{23.02, 10.02, 20.03, 11.03, 19.04, 18.06, 18.18, 17.05, 17.19, 16.05, 18.05, 9, 14.09, 14.04, 12.04, 12.06, 9, 11.08, 10.17, 11.2, 17.19, 11.19, 11.12, 12.15, 18.16, 13.16, 13.11, 13.18, 15.13, 16.18, 13.18, 16.16 -> List 7
"Goule_7AD|15" -> Str 5
"223371" -> Str 8
IfEnd
If M = 7 :Then
{5.01, 4.15, 7.12, 9, 8.08, 5.12, 7.06, 9, 8.03, 8.08, 5.09, 5.16, 8.13, 10.14, 11.08, 9, 9.14, 6.16, 10.15, 8.17, 6.17, 7.18, 7.24, 5.24, 3.21, 3.18, 5.19, 8.21, 8.23, 4.23, 4.19, 5.2, 2.18 -> List 7
"Hollow_CCD|20" -> Str 5
"135091" -> Str 8
IfEnd
If M = 8
Then {10.22, 12.19, 13.04, 10.08, 7.01, 6.08, 4.03, 4.14, 2.12, 2.16, 5.19, 6.2, 8.16, 6.21, 9.19, 6.17, 5.17, 9.18, 7.15, 5.15, 9, 6.18, 6.21, 7.22, 9.22 -> List 7
"Hulot_4DB|12" -> Str 5
"500586" -> Str 8
IfEnd
If M = 10
Then {15.01, 22.09, 21.17, 21.1, 18.07, 19.04, 16.01, 17, 22.01, 18.05, 21.09, 20.15, 18.11, 12.11, 11.12, 11.15, 8.18, 5.18, 2.15, 9, 11.19, 9, 8.24, 10.22, 20.23, 22.21, 21.13, 18.14, 12.15, 13.16, 14.2, 16.21, 16.2, 19.2, 21.17, 9, 10.25, 12.23, 8.19, 7.19 -> List 7
"Morosfleur_466|11" -> Str 5
"044003" -> Str 8
IfEnd
If M = 11
Then {2.15, 8.18, 8.19, 14.2, 16.17, 16.16, 11.14, 11.11, 7.07, 5.06, 5.03, 6.02, 17.02, 9, 12.13, 12.11, 7.06, 6.06, 6.03, 18.03, 18.05, 17.06, 9, 8.06, 12.1, 10.14, 8.12, 8.13, 6.12, 6.13, 4.12, 4.13, 3.14, 9, 11.17, 9.16, 11.16 -> List 7
"Serdent_CA7|15" -> Str 5
"737172"->Str 8
IfEnd
M = 12 Or M = 13 => {8.17, 5.08, 5.04, 6.03, 9, 9.04, 7.06, 8.15, 7.11, 10.17, 9.17, 9.13, 10.16, 9 -> List 7
If M = 12
Then Augment(List 7,{14.16, 24.19, 11.12, 21.13, 16.14, 9, 12.16, 7.21, 11.12, 6.15, 5.16, 13.14 -> List 7
"Fee Gel_338|09"-> Str 5
"250527"-> Str 8
IfEnd
If M = 13
Then Augment(List 7, {14.13, 16.1, 18.1, 17.12, 18.13, 20.14, 19.15, 20.17, 22.15, 23.16, 21.19, 18.19, 13.14, 9.21, 7.2, 5.18, 7.16, 8.17, 5.13, 6.12, 8.13, 9.14, 11.14 -> List 7
"Fee Feu_833|08"-> Str 5
"091131"-> Str 8
IfEnd
If M = 14
Then {15.07, 15.04, 13.03, 7.03, 6.04, 7.05, 12.05, 13.06, 12.15, 11.16, 7.16, 6.15, 5.06, 6.06, 6.1, 7.1, 8.06, 8.15, 10.06, 10.15, 12.07, 12.1, 12.06, 9, 5.04, 2.07, 2.1, 3.11, 1.11, 1.15, 3.14, 3.13, 2.13, 2.16, 3.16, 6.19, 9.2, 13.2, 18.15, 19.12, 18.07, 16.05, 9, 15.1, 17.11, 14.14, 16.14, 14.13, 15.12, 14.12 -> List 7
"Devoreur_GBE|65"-> Str 5
"4171729890"-> Str 8
IfEnd
M = 15 Or M = 16 => {10.13, 10.08, 8.06, 7.02, 8.01, 9, 8.12, 9, 4.12, 9, 6.09, 9, 5.19, 9.14, 8.16, 10.18, 9, 7.19, 7.15, 3.18, 5.15, 5.18, 2.13, 3.06, 1.04, 1.03, 5.06, 5.03, 6.02, 9, 1.17, 4.15, 7.15, 6.17, 9 -> List 7
If M = 15
Then "Alraune_999|09" -> Str 5
"01004164" -> Str 8
IfEnd
If M = 16
Then "Alraune_F99|17" -> Str 5
"11319890" -> Str 8
Augment(List 7, {5.11, 9, 7.11, 9, 5.09, 7.09 -> List 7
IfEnd
If M = 17
Then {1.11, 9.03, 15.02, 13.03, 17.04, 21.08, 25.12, 26.15, 23.11, 24.13, 23.12, 19.13, 16.16, 12.16, 9.15, 6.12, 7.09, 3.1, 9, 20.05, 21.07, 21.05, 9, 3.03, 9.06, 4.04, 8.07, 6.07, 11.06, 13.08, 13.1, 11.12, 9.12, 7.1, 10.09, 10.1, 11.09, 10.08 -> List 7
"Carpoiseau_ADB|14" -> Str 5
"258685" -> Str 8
IfEnd
If M = 18
Then {1.21, 3.12, 10.03, 7.01, 11.04, 11.17, 14.21, 9.18, 9.17, 6.18, 4.17, 2.2, 9, 5.13, 9, 7.15, 9, 4.15, 3.14, 4.09, 4.07, 3.04, 1.04, 9.03, 9.12, 10.04, 10.15, 8.04, 5.08, 7.04, 4.05, 8.11, 8.07, 6.09, 6.1 -> List 7
"Statue_613|14" -> Str 5
"002331" -> Str 8
IfEnd
D => "Gros " + Str 5 -> Str 5
Else
O -> M
If M :Then
{.1, 5.03 -> List 7
"333|20" -> Str 5
"001" -> Str 8
IfEnd
Str 4 + "_" + Str 5 -> Str 5
M +  -> M
IfEnd
ReP M + .1RanInt#(1, 4 -> List 6[1
Not ImP M => StrLeft(Str 5, StrSrc(Str 5, "_") - 1) + " " + StrMid("RgeBluVrtNeu", 30Frac List 6[1] - 2, 3) -> Str 4
For 1 -> A To 3
5 + .1List 6[2] * (3(10Frac List 6[1] = A) + StrSrc(Str 3, StrMid(Str 5, StrSrc(Str 5, "_") + A, 1)) -> List 6[3 + A
D => Int (1.25*List 6[3+A -> List 6[3+A
Next
'La ligne suivante rajoute le taux d'xp donné par le monstre, en pourcentage (cohabite avec le niveau qui se trouve dans la partie entière)'
.01Exp(StrMid(Str 5, 1 + StrSrc(Str 5, "|"), 2)) + List 6[2 -> List 6[2
Prog "SK"
Augment(15 + List 4, 80 + List 7) -> List 7
ClrList 4
If StrSrc(Str 2, "θ") :Then
BG-Pict 9
Else
BG-Pict 8
IfEnd
1 -> Tθmin
Dim List 7 -> Tθmax
Graph(X,Y)=(Int List 7[T], 2Frac List 7[T
StoPict 4
Str 4 + " apparait !" -> Str 5
Not ImP M => "Un " + Str 5 -> Str 5
Prog "T"
Do
For 1 -> L To 0 Step -1
If L
Then Str 1 + ", a toi de jouer !" -> Str 5
Prog "T"
Do
GetKey -> W
W = 39 => Prog "AN"
If W = 68 :Then
Not Z -> Z
"OPTN pour voircacher PV" -> Str 5
Prog "T"
IfEnd
LpWhile W = 39 Or 9 != MOD(W, 10
If W = 29 :Then
Str 1 + " prend la fuite !" -> Str 5
Prog "T"
Return
IfEnd
W <= 79 And W >= 49 => 8 - Int (W / 10 -> D
Prog "MI"
Else
StrLen(Str 8) / 2
RanInt#(1,Ans
Exp(StrMid(Str 8, 2Ans - 1, 2)) -> D
IfEnd
Prog "AT"
0 >= List 5[3] Or 0 >= List 6[3
Ans => Break
Next
Ans => Break
LpWhile 1
0 >= List 5[3 => Prog "GO"
Prog "VI"
#End of part
#Program name: CR
#Password: <no password>
"Aventura, V -0.28 By Drak 09﹣2018 Un immense merci a Planete Casio !"◢
#End of part
#Program name: DH
#Password: <no password>
"" -> Str 4
"..." -> Str 5
List 5[13 -> A
If O = 1
Then "Le Roi" -> Str 4
"Du nouveau, NA ?" -> Str 5
3 = A => "Bonjour, NA. Je veux te confier une mission. Trouve et neutralise le repaire des resistants, ennemis du royaume. Parle a Cecil, il te donnera des pistes. Je te recompenserai !»19"-> Str 5
99 = A => "De retour, NA ? Alors, qu'as-tu trouve ?...Vaincu un ver ?θJe me fiche de cela, NA !Transmets cette missive a Camil, au Lac, pour poursuivre ta mission.»31"-> Str 5
IfEnd
If O = 2
Then "Cecil" -> Str 4
"Bonjour,θEX.Connaissez-vous le sort 95 ? Il peut vous sauver la mise." ->Str 5
1 = A => "Halte.Une audience ?SM ne recoit que les guerriers de valeur, EX. Allez plutot chasser ce rongeur au SS2, puis revenez !»12"-> Str 5
3 = A => "Pas mal, pour le rat. Votre nom ?...NA, je vous laisse voir SM."-> Str 5
9 = A => "NA, les choses vont devenir serieuses. Commencez vos recherches a la foret, au sud du chateau.Bonne chance !»21"-> Str 5
IfEnd
If O = 3
Then "Henz" -> Str 4
"Salut NA ! N'oublie pas le sort 04pour te soigner." -> Str 5
Not A => "Bienvenue, NA ! Tu es enfin arrive !SM t'attend avec impatience. Tes succes au sein de la Guilde ont fait parler de toi !»11"-> Str 5
IfEnd
If O = 4
Then "Massena" -> Str 4
"J'aime SM, et j'aime les nouilles !Et toi ?|{Trop cool ! Eh, tu connais les sorts 11, 12 et 13 ? Essaie !}[Oh.]" -> Str 5
IfEnd
O = 5 => "Bois a la fontaine pour te soigner et prie a la statue pour sauvegarder !" -> Str 5
O = 6 => "Il y a un gros rat en bas. Mais il faut y activer un bouton pour ouvrir cette porte ! Quelle poisse." -> Str 5
If O = 8
Then "Camil" -> Str 4
"NA, ton nom est repandu dans la Guilde ! Moi, je suis nouveau. Mais je sais me servir du sort 64 !"-> Str 5
A < 2 => "Halte, on ne passe pas !" -> Str 5
A = 199 => "...Une missive de SM en personne ? Tu peux passer ! Par contre, l'entree du temple est scellee. Je ne sais pas comment y acceder." -> Str 5
IfEnd
If O = 14
Then "Sara" -> Str 4
"Kesske tu m'veux ? Des infos ?Peuh, trouve le vieux, il t'aidera peut-etre." -> Str 5
IfEnd
If O = 20
Then "Lightmare" -> Str 4
"Es-tu un EX ?|{Il y a un fosse pas loin. Tu peux toujours y plonger...Et te blesser gravement.}[Je ne te crois pas.]" -> Str 5
IfEnd
If O = 21
Then "Fauss" -> Str 4
"Bonjour, EX.Prends garde aux créatures qui rodent ici.Le sort 91 est dangereux !" -> Str 5
IfEnd
If O = 22
Then "Phoenix" -> Str 4
"Laissez-moi, EX." -> Str 5
A = 299 => "Vous voulez aller au temple ?Je peux ouvrir l'entree, seulement si vous ne faites pas n'importe quoi.C'est clair ?|{Entendu. Tenez.»33}[Partez.]" -> Str 5
IfEnd
If O = 23
Then "Sage" -> Str 4
A = 19 => "Qui est-ce ?Oh, je vois. SM vous envoie.J'ai besoin de vous. Il y a un monstre nuisible dans ces ruines. Terrassez-le. Trouvez d'abord le bouton pour ouvrir le passage. Nous parlerons ensuite.»22" -> Str 5
A = 29 => "Alors ?" -> Str 5
A = 39 => "Merci.Le repaire des resistants n'est pas ici. Allez au lac Clement et explorez le temple, vous y comprendrez peut-etre le sens de votre mission." -> Str 5
IfEnd
If O = 24
Then "Drak" -> Str 4
"Excellent ! Bravo !Desole, mais c'est ici que s'arrete la premier version de ce jeu.Aimes-tu ce jeu?|{C'est vrai ? Fantastique ! N'hesite pas a laisser un test ou un commentaire !}[Et pourtant, tu y as joue longtemps ! Tss !]" -> Str 5
IfEnd
For 0->B To 2
While StrSrc(Str 5, StrMid("NAEXSM", 1+2B,2))
Not B => Str 1 -> Str 7
B = 1 => "Explorateur" -> Str 7
B = 2 => "Sa Majeste" -> Str 7
StrSrc(Str 5, StrMid("NAEXSM", 1+2B,2))
StrMid(Str 5, 1, Ans-1)+ Str 7 + StrMid(Str 5, Ans +2) -> Str 5
WhileEnd
Next
#End of part
#Program name: DI
#Password: <no password>
'Programme de dialogue'
StrSrc(Str 5, "»") != 0
For 2 -> A To 16 + 47Ans Step 2
SketchThick F-Line 2, A, 113, A
A = 16 => 52 -> A
Next
Do
If Not StrCmp(StrLeft(Str 5, 4), "QUIT")
Then ClrText
Stop
IfEnd
For 0 -> A To 2
Text 49 + Int 3.5A, 2, " "
Next
1 -> D
0 -> B
Str 4 + ": " + Str 5 -> Str 5
For 0 -> C To 1
For 1 -> X To 4
StrSrc(StrMid(Str 5, D, 26), StrMid("|»θ", X, 1)) -> B
B => Break
Next
Not B => 0 -> X
X => StrLeft(Str 5, B + D - 2) + " " + StrMid(Str 5, B + D) -> Str 5
If Not X :Then
For 2 -> B To 27
StrSrc(StrMid(Str 5, D), " ", B + 1) -> A
A >= 27 => Break
Next
IfEnd
For MOD(B, 2) -> A To B Step 2
Text 50 + 6C, 3, StrMid(Str 5, D, A)
Next
D + A -> D
If X = 2 :Then
Exp(StrMid(Str 5, D, 1)) -> A
Exp(StrMid(Str 5, D + 1, 1)) -> B
Int (MOD(List 5[13], A) / (A - 1
B > Ans => List 5[13] - Ans(A - 1) + B(A - 1 -> List 5[13
D + 2 -> D
IfEnd
If X = 1 :Then
Text 56, 40, "Non Oui"
While 1
Text 56, 33 + 30X, "->"
Text 56, 33 + 30Not X, " "
Do
GetKey -> W
LpWhile Not W
W = 27 Or W = 38 => Not X -> X
W = 77 => Break
WhileEnd
Isz X
StrRight(Str 5, StrLen(Str 5) - D) -> Str 5
StrSrc(Str 5, StrMid("[{", X, 1)) + 1
StrMid(Str 5, Ans, StrSrc(Str 5, StrMid("]}", X, 1)) - Ans) + "" + StrMid(Str 5, StrSrc(Str 5, "]") + 1) -> Str 5
0 -> D
4 -> X
IfEnd
X = 4 => Break
Next
Dsz D
Do
GetKey -> W
LpWhile Not W
If StrLen(Str 5) <= D :Then
Break
Else
StrRight(Str 5, StrLen(Str 5) - D) -> Str 5
IfEnd
LpWhile 1
0 -> A
#End of part
#Program name: DR
#Password: <no password>
'Programme "Draw" => sous-Programme chargé de dessiner les sprites de la map.'
Cls
{9 -> List 2
Text 29, 56 - 2StrLen(Str 6), Str 6
For 1 -> D To 42
StrMid(Str 3, D, 1 -> Str 5
StrSrc(Str 2, Str 5, 1 -> A
If A
Then Prog "SP"
Do
1 + 10MOD(A - 1, 11 -> X
2 + 10Int ((A - 1) / 11 -> Y
Augment(List 2, List 1 + X + Y -> List 2
StrSrc(Str 2, Str 5, A + 1 -> A
LpWhile A
IfEnd
Next
1 -> Tθmin
Dim List 2 -> Tθmax
Graph(X,Y)=(ReP List 2[T], ImP List 2[T
ClrList 1
ClrList 2
#End of part
#Program name: GO
#Password: <no password>
Str 1 + " ne peut plus endurer les blessures !" -> Str 5
Prog "T"
For 1 -> A To 32 Step 2
SketchThick Horizontal 63 - A
SketchThick Horizontal A
Next
Text 26, 44, "Game Over"
Stop
#End of part
#Program name: HC
#Password: <no password>
0 -> N~O
"->X->X" -> Str 2
If K = -2
Then If J = 23
Then I = 24 ⇒ "θ4Z6X4->5πX|13﹣﹣4->74﹣Y4->74Y﹣X4->54X605" -> Str 2
IfEnd
If J = 24
Then I = 24 ⇒ "θ4060X->5X0﹣﹣0X->5X0﹣00X->5X00﹣0Xf->3gX0605" -> Str 2
IfEnd
If J = 25
Then I = 24 ⇒ "θ4Z|12600XX4XX00﹣﹣->9﹣Y->46{1->5﹣->3X0X->3605" -> Str 2
I = 25 ⇒ "θ4Z6->7X0﹣﹣->89﹣Y->9Y﹣->7X0605" -> Str 2
IfEnd
If J = 26
Then I = 24 ⇒ "θ446->9﹣﹣->9﹣Y->4π->44﹣->96Z5" -> Str 2
I = 25 ⇒ "θ4Z6->9﹣﹣->9﹣4->4π->4Y﹣->96Z5" -> Str 2
IfEnd
IfEnd
If K = -1
Then If J = 18
Then I = 27 ⇒ "θ4Z6->9﹣﹣->3X9X->3﹣Y->9Y﹣->9605" -> Str 2
IfEnd
If J = 19
Then I = 27 ⇒ "θ406->34X{1->4﹣﹣->9﹣Y->9Y->4π->5605" -> Str 2
I = 39 ⇒ "θ4Z644->7﹣﹣->9﹣Y->444->3Y﹣0b(O0X9X0f46Z5" -> Str 2
IfEnd
If J = 20
Then I = 23 ⇒ "θ4Z6->9﹣TGF->7﹣00D->7YJHS9->5b(D6Z5" -> Str 2
I = 24 ⇒ "θ4Z6->9﹣﹣->4g->4﹣Y->A﹣->3c(N0f->36Z{15" -> Str 2
I = 25 ⇒ "θ4Z6->3X0X->3﹣﹣->9﹣->59->4Y﹣->3X0X->36Z5" -> Str 2
I = 27 ⇒ "θ406->8W﹣﹣->740﹣Y->8WY﹣6{1->86Z5" -> Str 2
IfEnd
If J = 21
Then I = 24 ⇒ "θ446->9﹣﹣->9﹣Y|22->74X0﹣->96Z5" -> Str 2
I = 25 ⇒ "θ4Z60XX->3XX0﹣﹣->9﹣->B﹣0XX->3XX06Z5" -> Str 2
I = 26 ⇒ "θ4Z60XX->3XX0﹣﹣->9﹣->B﹣0XX->3XX06Z5" -> Str 2
I = 27 ⇒ "θ4Z60XX->3XX0﹣﹣->9﹣->B﹣0XX->3XX06Z5" -> Str 2
I = 28 ⇒ "θ4Z6->3WW->4﹣﹣->740﹣4->7π4|23W﹣W->64W6Z5" -> Str 2
IfEnd
If J = 25
Then I = 23 ⇒ "θ4Z6->9﹣﹣9->8﹣Y->A﹣->96Z5" -> Str 2
I = 24 ⇒ "θ4Z6->9﹣﹣->9﹣4->94﹣->96Z5" -> Str 2
I = 25 ⇒ "θ4Z6->7X0﹣﹣->9﹣->97Y﹣->7X06Z5" -> Str 2
IfEnd
IfEnd
If K = 0
Then If J = 16
Then I = 35 ⇒ "->DTHHHHHHHH00D->AD->3f->6JGG5GGGGG->4B5B->4" -> Str 2
I = 36 ⇒ "»3B->AHHHHHHHHHE->AC->6APN->3CBGGGGGGGGGV->BB" -> Str 2
IfEnd
If J = 17
Then I = 35 ⇒ "->4B5B->8T5E->7TS0C->7D00C->7DXd(8|31C->7D00C->4" -> Str 2
IfEnd
If J = 18
Then I = 23 ⇒ "00D->AD0MLP->6D0NKRLLLL00D0N->8D0N->8D0N->6" -> Str 2
I = 24 ⇒ "->MLLLLLLLLLLL->5π->8KK0KK->E" -> Str 2
I = 25 ⇒ "->MLLLLLLLLLLL->5π->8KK0KK->E" -> Str 2
I = 26 ⇒ "->MLLLLLLLLLLL->5π->8KK0KK->E" -> Str 2
I = 27 ⇒ "->FMLP->4LLLLQ7RLLLL->8W->AW->AK00" -> Str 2
I = 32 ⇒ "KKKKKKKKKKK0X2->52X00X->7X00X->7X00XX00d(M00XX0X->9X" -> Str 2
I = 35 ⇒ "->3D00C->7D00C->7D00C400BD0π11111->3JGGVB3->B" -> Str 2
I = 36 ⇒ "0THHHHHE30D->51111﹣D->5C311->4πC->3﹣JGG5GGV->6﹣5﹣->5" -> Str 2
I = 37 ⇒ "3B5B﹣11111111111B4B5->X" -> Str 2
I = 38 ⇒ "3B5B﹣11111111111B4B5->X" -> Str 2
I = 39 ⇒ "«34THE->4111110C->44J5V->8B5B->8B5B->4MLLLL3LLLLP" -> Str 2
IfEnd
If J = 19
Then I = 23 ⇒ "0BD0N->8D0NK->7D0N->8D0N->8D0N00KKK->3D0N->6" -> Str 2
I = 24 ⇒ "->EKKKKKWW->3K->6WK00W0W0KK->5K00K00KKK->3K0K00K00" -> Str 2
I = 25 ⇒ "->CKKK0KKK->3K->3K->3K->4K00πK0K00KK0WKK00K->6K00K->3" -> Str 2
I = 26 ⇒ "->TUGGG->42g2IHHH->4KKK->F" -> Str 2
I = 27 ⇒ "->8K->AK00GGGG5GGGGGGHHHH5HHHHHH->8K->AK00" -> Str 2
I = 32 ⇒ "X2->8XX2->9X2->9X2->9XKKg->3f->3LLLLLLLLLLL" -> Str 2
I = 33 ⇒ "K0KK0KC->5K00K0C->AC4->611111->6C4LLLLLPC->4 " -> Str 2
I = 34 ⇒ "->MB5B4111111111113B4B﹣﹣->B" -> Str 2
I = 35 ⇒ "->MB5B4111111111113B4B﹣﹣->B" -> Str 2
I = 36 ⇒ "->3B5B->8T5HHE->33D->3C3111100π11113JGGGV3->B" -> Str 2
I = 37 ⇒ "->MB5B4111111111113B4B﹣﹣->B" -> Str 2
I = 38 ⇒ "->MBBTHHHE->411100πC->4﹣﹣D00WCB->5JGG5V->4" -> Str 2
I = 39 ⇒ "«4θ406->9﹣﹣->4WW->3﹣Y->4X|33->4W﹣00WX7X->36Z5" -> Str 2
IfEnd
If J = 20
Then I = 23 ⇒ "00D0N->7BD0N->6L3LLQ->6GGF->AD7->6K00D->8" -> Str 2
I = 24 ⇒ "->3K2K00K->5K0K00K->AπK->CKKKKKKKKKKK->B" -> Str 2
I = 25 ⇒ "->4K00K->7K0K->7K->3K->6KX7XK->3KK00KKK->F" -> Str 2
I = 26 ⇒ "->E222->OKK00KK->4d(K->E" -> Str 2
I = 27 ⇒ "->8K->92K->4K->58K->82W->4K->5K->AK00" -> Str 2
IfEnd
If J = 21
Then I = 23 ⇒ "0BD->ADKKK->7D->AD->9BD->3KKK->4D->8" -> Str 2
I = 24 ⇒ "->CK0KKKKK0K->6π->9222->5K0KKKKK0K->C" -> Str 2
I = 25 ⇒ "->CK0KKKKK0K->6π->9222->5K0KKKKK0K->C" -> Str 2
I = 26 ⇒ "->EKKKKK0K0022->IK00πKKKKK0K->9K00" -> Str 2
I = 27 ⇒ "->8K->AW->9WK00KKKWMLLLLLL->4N->AN->6" -> Str 2
IfEnd
If J = 22
Then I = 23 ⇒ "00D->AD00222->5D->3π->6D->ADK->3KKKK00D0KKK->4" -> Str 2
I = 24 ⇒ "->X->5f->5UGGGGGGFKKKC->6D->3" -> Str 2
I = 25 ⇒ "->EKKKKK->Ib(E->6KKKK->3KKKK->4K0K->4" -> Str 2
I = 26 ⇒ "->8K->AK->7π0K->6WK4W0K00KKKK0W->G" -> Str 2
IfEnd
If J = 23
Then I = 25 ⇒ "»2->4K0K->8K0K->7K0AaG|210K->7K2K->5KKK->3KKK0K->9K" -> Str 2
I = 33 ⇒ "XXXXXXXXXXXX->AX->AX->840X->4π->3X0X->A" -> Str 2
I = 34 ⇒ "XXXXXXXXXXX->N2->3π->3200X->3X->3X->C" -> Str 2
I = 35 ⇒ "XXXXXXXXXXX->N2->3π->3200X->3X->3X->C" -> Str 2
I = 36 ⇒ "XXXXXXXXXXX->AX->AX04->8X0X->8X->AX" -> Str 2
IfEnd
If J = 24
Then I = 23 ⇒ "0DKKWKWKKKK0D->AD->3π->6D->AJGGGGGGGGG->B" -> Str 2
I = 24 ⇒ "KKKKKKKKKKK->XGGGGGGGGGGG->B" -> Str 2
I = 25 ⇒ "»1K->9K->Qe(34->5GGGGG5GGGGG->4﹣5﹣->4" -> Str 2
I = 26 ⇒ "KKKKKKKKKKK->XGGGGGGGGGGG->B" -> Str 2
I = 27 ⇒ "KKKKKKKKKKK->G4π->FGGF->AD->8" -> Str 2
I = 28 ⇒ "»1KKKKKKKKK->9X3->8111->7X3->7K->AW->3" -> Str 2
I = 29 ⇒ "»62020202020265111111111116520202020202->B" -> Str 2
I = 30 ⇒ "»62020202020265111111111116520202020202->B" -> Str 2
I = 31 ⇒ "»62020202020265111111111116520202020202->B" -> Str 2
I = 32 ⇒ "2->A5X5111111111115X﹣c(Lf﹣﹣200﹣->I" -> Str 2
I = 33 ⇒ "X->820X->8X01->AX->820X->8X0X->A" -> Str 2
I = 34 ⇒ "02->32->3200X->3X->3X->D2->3π->3200X->3X->3X->C" -> Str 2
I = 35 ⇒ "02->7200X->7X->D2->7200X00XgX00X->C" -> Str 2
I = 36 ⇒ "02->8X0X->8X->AX0π->8X0X->8X->AX" -> Str 2
IfEnd
If J = 25
Then I = 23 ⇒ "θ4Z6->9﹣﹣->9﹣Y7->9﹣00e(6->66Z{15" -> Str 2
I = 24 ⇒ "θ4Z6->9﹣﹣->9﹣->B﹣->3f0ge(500605" -> Str 2
I = 25 ⇒ "θ406->9﹣﹣->9﹣->AY﹣X->7X605" -> Str 2
I = 26 ⇒ "θ4Z6->9﹣﹣->9﹣Y->3f4g->4﹣->4X->46Z5" -> Str 2
I = 27 ⇒ "00D->AD->8B﹣DX->32200111->8﹣﹣DX->322->4D->8" -> Str 2
I = 28 ⇒ "->7W->522200W->9K->BK->522200W->AW->3" -> Str 2
I = 33 ⇒ "X->AX->AX->840X->7πX0X->AXXXXXXXXXXX" -> Str 2
I = 34 ⇒ "->N2->32π00200X->3X->3X->CXXXXXXXXXXX" -> Str 2
I = 35 ⇒ "->N2->32π00200X->3X->3X->CXXXXXXXXXXX" -> Str 2
I = 36 ⇒ "->AX->AX->AX->84XX->8X7XXXXXXXXXXXX" -> Str 2
IfEnd
If J = 26
Then I = 23 ⇒ "θ4Z{16->9﹣﹣->9﹣Y->9Y﹣->3X9X->36Z5" -> Str 2
I = 24 ⇒ "θ406->9﹣﹣->9﹣Y->3XXX->3Y﹣->4π->46Z5" -> Str 2
I = 25 ⇒ "θ406->9﹣﹣->9﹣Y->9Y﹣π->746Z5" -> Str 2
I = 27 ⇒ "00D->AD->AD->AD00d(4->6BDWW4WKKKK00D->8" -> Str 2
I = 28 ⇒ "->7K->AW->AW->5W00W0K->3KKWKKWW0W->D" -> Str 2
IfEnd
IfEnd
If K = 1
Then If J = 26
Then I = 23 ⇒ "θ4Z6->9﹣﹣->9﹣Y->A﹣->3X7X->36Z5" -> Str 2
I = 24 ⇒ "θ4Z6->9﹣﹣->9﹣->B﹣X9->6X6Z5" -> Str 2
I = 25 ⇒ "θ4Z6->9﹣﹣->9﹣->AY﹣π->786Z5" -> Str 2
IfEnd
IfEnd
If K = 2
Then If J = 26
Then I = 24 ⇒ "θ4Z6->9﹣﹣->9﹣Y->9Y﹣X7->59X6Z5" -> Str 2
IfEnd
IfEnd
If K = 3
Then If J = 26
Then I = 24 ⇒ "θ4Z6->9﹣﹣->9﹣Y->9Y﹣π->67X605" -> Str 2
IfEnd
If J = 27
Then I = 24 ⇒ "θ406->9﹣﹣->9﹣Y->9Y﹣0XX0e(2|130XX06Z|135" -> Str 2
IfEnd
If J = 28
Then I = 24 ⇒ "θ406->3X0X->3﹣﹣->9﹣Y0XX->3XX0Y﹣0XX0a(10XX06Z5" -> Str 2
IfEnd
IfEnd
'zone
If StrSrc(Str 2, "»") :Then
StrSrc(Str 3, StrMid(Str 2, 2, 1)) -> A
If R != A :Then
0 -> 
A -> R
IfEnd
StrMid(Str 2, 3) -> Str 2
IfEnd
Do
StrSrc(Str 2, "->") -> A
A => StrLeft(Str 2, A - 1) + StrLeft("000000000000000000000000000000000", StrSrc(Str 3, StrMid(Str 2, A + 1, 1))) + StrMid(Str 2, A + 2 -> Str 2
LpWhile A
Do
StrSrc(Str 2, "") -> A
If A :Then
Exp(StrMid(Str 2, A + 1, 1)
StrLeft(Str 2, A - 1) + StrLeft("﹣﹣﹣﹣﹣﹣﹣﹣﹣", Ans) + StrMid(Str 2, A + 2 -> Str 2
IfEnd
LpWhile A
If StrSrc(Str 2, "(") :Then
StrSrc(Str 2, "(") -> A
StrSrc(Str 3, StrMid(Str 2, A + 1, 1)) -> O
StrLeft(Str 2, A - 1) + StrMid(Str 2, A + 2) -> Str 2
'si le pnj a été tué...
StrSrc(Str 9, StrMid(Str 3, O, 1)) => StrLeft(Str 2, A - 2) + "0" + StrMid(Str 2, A) -> Str 2
IfEnd
While StrSrc(Str 2, "{")
StrSrc(Str 2, "{") -> A
Exp(StrMid(Str 2, A + 1, 1)) -> B
StrLeft(Str 2, A - 1) + StrMid(Str 2, A + 2, 2) -> Str 2
If Not StrCmp(StrMid(Str 2, A - 1, 1), "6") :Then
B -> N
Else
Int 10Frac ( / (B + 1 => StrLeft(Str 2, A - 3) + StrMid(Str 2, A - 1, 1) + "0" + StrMid(Str 2, A) -> Str 2
IfEnd
WhileEnd
'"...C|A5...00" Le premier caractère décrit le numéro de quête ([1;D...?]. Le deuxième ([1;9]) son avancée nécessaire.
If StrSrc(Str 2, "A") :Then
StrSrc(Str 2, "A") -> A
'Ligne suivante = I + iJ -> Thêta.
StrSrc(Str 3, StrMid(Str 2, A + 1, 1)) + StrSrc(Str 3, StrMid(Str 2, A + 2, 1)) -> θ
StrLeft(Str 2, A) + StrMid(Str 2, A + 3) -> Str 2
IfEnd
While StrSrc(Str 2, "|")
StrSrc(Str 2, "|") -> A
StrSrc(Str 3, StrMid(Str 2, A + 1, 1)) -> B
Exp(StrMid(Str 2, A + 2, 1)) -> C
If C <= Int (MOD(List 5[13], B) / (B - 1 :Then
StrLeft(Str 2, A - 3) + StrMid(Str 2, A - 1, 1) + "0" + StrMid(Str 2, A + 3) -> Str 2
Else
StrLeft(Str 2, A - 1) + StrMid(Str 2, A + 3) -> Str 2
IfEnd
WhileEnd
If StrSrc(Str 2, "π") :Then
StrSrc(Str 2, "π") - 1 -> A
1 + MOD(A, 11 -> G
1 + Int (A / 11 -> H
StrLeft(Str 2, A) + "0" + StrMid(Str 2, A + 2) -> Str 2
Else
0 -> G~H
IfEnd
R = 1 => "Chateau Poudingue" -> Str 6
R = 2 => "Foret Verturielle" -> Str 6
R = 3 => "Lac Clement" -> Str 6
R = 4 => "Temple de l'eau" -> Str 6
R = 5 => "Donjon Sornel" -> Str 6
R = 6 => "Cimetiere" -> Str 6
If K :Then
K > 0 => Str 6 + " Nv. " -> Str 6
K < 0 => Str 6 + " Ss " -> Str 6
Str 6 + StrMid(Str 3, Abs K, 1) -> Str 6
IfEnd
If StrSrc(Str 2, "θ") :Then
BG-Pict 6
Else
BG-Pict 5
IfEnd
#End of part
#Program name: MA
#Password: <no password>
'Le programme de dessin de Map'
'Correspond au "Bloc Map" de l'architecture.'
Prog "HC"
'Appelle le programme dans lequel les maps sont hardcodées'
'MSS -> Map Saving System. Classe comme nom, hein ?'
For 1 -> A To 2
I + J = List 3[A => Break
Next
If I + J != List 3[A :Then
Prog "DR"
List 3[3 -> A
StoPict A
I + J -> List 3[A
1 + (A = 1 -> List 3[3
IfEnd
Cls
RclPict A
Prog "S"
StoPict 4
BG-Pict 4
#End of part
#Program name: ME
#Password: <no password>
BG-Pict 5
Prog "SK"
1 -> Tθmin
Dim List 4 -> Tθmax
Graph(X,Y)=(8 + Int List 4[T], 18 + 2Frac List 4[T
Text 3, 3, "~" + StrUpr(Str 1) + "~"
"Puis.Vits.Tech.Neut." -> Str 5
Text 3, 88, StrMid(Str 5, 50Frac List 5[1] - 4, 5)
For 1 -> A To 3
Text 6 + 7A, 50, StrMid("Pui.Vit.Tec.", 4A - 3, 4) + " =>"
Text 6 + 7A, 78, List 5[A + 3
Next
For 1 -> A To 3
Text 30 + 7A, 50, StrMid("M.P.M.V.M.T.", 4A - 3, 4) + " =>"
Text 30 + 7A, 78, List 5[A + 9
Next
F-Line 1, 55, 112, 55
Prog "S"
While Not GetKey
WhileEnd
#End of part
#Program name: MI
#Password: <no password>
ClrText
"===================== Pressez ALPHA !"
While GetKey != 77
WhileEnd
While GetKey
WhileEnd
0 -> A~C
ClrText
"====================="
If W = 79 : Then 'F1 - Cogne'
For 1 -> A To 21
If A >= 15 And A < 20 : Then Locate A, 4, "■"
Else
Locate A, 4, "□"
IfEnd
GetKey => Break
Next
Locate A, 4, "⊠"
A + 3(A >= 15) - 4 + 2(A = 19 -> P
A >= 20 => 5 -> P
IfEnd
If W = 69
Then "Martèle !!!"
For 1 -> B To 40
If GetKey : Then Isz A
Locate 10, 4, A
While GetKey
WhileEnd
IfEnd
Next
2√9 * √A -> P
P > 20 => 20 -> P
IfEnd
'___________________
If W = 59 : Then 'F3 - Estoc'
"" -> Str 5
For 0 -> A To 8
Not MOD(A, 3 => RanInt#(1, 3 -> B
Dsz B
StrJoin(Str 5, "□") -> Str 5
Not B => StrJoin(Str 5, "■") -> Str 5
Locate 9 + MOD(A, 3), 5 - Int (A / 3), StrMid(Str 5, A + 1, 1)
Next
1 -> P
For 99 -> A To 1 Step -1
Locate 1, 2, A
GetKey
If Ans : Then -.1Ans + 2 + 31Frac (.1Ans -> B
B > 9 Or B < 1 => Break
If StrCmp(StrMid(Str 5, B, 1), "□") : Then StrLeft(Str 5, B - 1) + "□" + StrRight(Str 5, 9 - B) -> Str 5
Locate 9 + MOD(B - 1, 3), 5 - Int ((B - 1) / 3), "□"
Isz P
B -> C
Else
B != C => Break
IfEnd
IfEnd
Not StrSrc(Str 5, "■") => Break
Next
6P * A / 99 -> P
P > 20 => 20 -> P
IfEnd
If W != 49
Then Not P => 1 -> P
P < 20 => "Excellent !" -> Str 5
P < 17 => "Super !" -> Str 5
P < 14 => "Pas mal." -> Str 5
P < 10 => "Mauvais..." -> Str 5
P >= 20 => "Fantastique !" -> Str 5
Locate 1, 2, Str 5
7 - Int .1W -> A
﹣3Int P + List 5[10 + A -> List 5[10 + A
For 1 -> B To 2
10 + MOD(A + B, 3
List 5[Ans] - .005 -> List 5[Ans
Next
Else
Locate 2, 3, "Entrez le Sort-Code !"
Locate 10, 4, "__"
0 -> D
For 1 -> A To 0 Step -1
Do
GetKey -> W
(W != 71)( - .1W + 2 + 31Frac (.1W -> B
LpWhile Not W Or B > 9 Or B < 0
D + B * 10 ^ A -> D
Locate 11 - A, 4, B
While GetKey
WhileEnd
Next
IfEnd
While GetKey
WhileEnd
While Not GetKey
WhileEnd
#End of part
#Program name: MO
#Password: <no password>
'la "largeur" et la "longueur" de la mappemonde dans A et B, à changer.'
BG-None
50 -> B
128(1 - J / B -> B
For 1 -> E To 5
Cls
RclPict E + 10
B - 16E <= 32 => Break
Next
Do
Cls
RclPict E + 10
Text 1, 56 - 2StrLen(Str 6), Str 6
B - 16E
While GetKey
WhileEnd
Do
GetKey -> W
LpWhile Not W
W = 28 => Dsz E
W = 37 => Isz E
E > 5 => 1 -> E
E < 1 => 5 -> E
W = 78 => Break
LpWhile 1
#End of part
#Program name: S
#Password: <no password>
Text 11, 115, " "
Text 11, 115, Int List 5[3
Text 24, 117, Int List 5[2
Text 39, 117, 2Frac List 5[2
.2I -> A
.2(1 - J -> B
PlotOff 116 + Int A, 2 - Int B
#End of part
#Program name: SK
#Password: <no password>
'skin
{17.05, 19.07, 21.05, 19.03, 16.06, 16.03, 15.03, 14.02, 5.02, 4.03, 3.03, 3.13, 8.18, 11.18, 16.13, 16.03, 9, 15.11, 9, 12.11, 9 -> List 4
Int List 5[1
10Frac (Ans / 10 -> B
'lunettes
B = 1 => {3.12, 16.12, 15.1, 14.11, 9, 9.11, 12.11, 11.1, 10.1, 9
'garde
B = 2 => {10.11, 15.11, 14.1, 14.03, 13.1, 13.03, 12.1, 12.03, 9
'bandeau
B = 3 => {8.14, 15.14, 9, 16.12, 1.12, 9, 1.15, 3.13, 9
'blazé
B = 4 => {15.12, 9, 15.09, 9, 13.12, 10.12, 10.1, 11.09, 12.09, 9
'vieux
B = 5 => {11.11, 9, 14.11, 9, 9.1, 10.09, 9, 13.04, 15.06, 15.07, 14.08, 12.08, 11.07, 11.06, 13.04, 9
B => Augment(List 4, List Ans -> List 4
Int List 5[1
Int (10Frac (Ans / 2 -> B
'Epee
B = 1 => {18.09, 23.04, 9, 20.07, 24.10, 35.21, 35.13, 31.11, 32.09, 22.05
'Dague
B = 2 => {19.08, 21.05, 23.04, 22.06, 25.08, 26.09, 26.11, 24.09, 20.07
'Hache
B = 3 => {21.06, 25.10, 24.10, 20.06, 20.07, 24.11, 23.12, 27.16, 28.16, 32.12, 30.07, 25.05, 25.09, 26.08, 30.12
'rapière
B = 4 => {30.15, 21.06, 21.04, 20.04, 18.06, 18.07, 20.07, 29.16, 30.16
'claymor
B = 5 => {19.12, 18.11, 18.09, 23.04, 25.04, 26.05, 9, 22.06, 34.18, 34.20, 32.20, 20.08
B => Augment(List 4, List Ans -> List 4
9 -> List 4[1 + Dim List 4
#End of part
#Program name: SP
#Password: <no password>
'Sous-Programme contenant tous les sprites pour les maps'.
ClrList 1
If D < 23 : Then D = 1 => {0, 11, 9, 0, 11, 9} + {1, 1, 0, 10, 10, 0 -> List 1
D = 2 => {4, 6, 7, 8, 9, 8, 9} + {3, 1, 5, 6, 5, 4, 0 -> List 1
D = 3 => {1, 2, 2, 6, 9, 9, 10, 9, 1, 3, 9, 8, 10, 9, 1, 10, 9} + {1, 1, 5, 10, 4, 1, 1, 0, 7, 7, 0, 7, 7, 0, 10, 10, 0 -> List 1
D = 4 => {3, 9, 7, 9, 4, 9} + {3, 0, 4, 0, 7, 0 -> List 1
D = 5 => {1, 1, 9, 10, 10, 9} + {0, 11, 0, 0, 11, 0 -> List 1
D = 6 => {10, 1, 1, 10, 10, 9, 9, 2, 9} + {10, 10, 1, 1, 10, 9, 2, 2, 0 -> List 1
D = 7 => {1, 1, 10, 10, 1, 7, 1, 7, 7, 4, 4, 1, 3, 3, 2, 9} + {10, 1, 1, 10, 10, 9, 9, 8, 1, 1, 8, 8, 6, 7, 6, 0 -> List 1
D = 8 => {4, 5, 7, 8, 4, 3, 7, 6, 2, 3, 7, 8, 6, 5, 9} + {3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 0 -> List 1
D = 9 => {3, 1, 1, 10, 10, 7, 7, 4, 4, 7, 9} + {6, 6, 1, 1, 10, 10, 1, 1, 8, 8, 0 -> List 1
D = 10 => {1, 4, 1, 1, 9, 10, 10, 7, 10, 9, 10, 7, 10, 10, 9, 1, 1, 4, 1, 9, 5, 6, 6, 5, 9} + {1, 1, 4, 1, 0, 1, 4, 1, 1, 0, 10, 10, 7, 10, 0, 10, 7, 10, 10, 0, 5, 5, 6, 6, 0 -> List 1
D = 11 => {5, 5, 9, 7, 7, 9} + {7, 8, 0, 3, 4, 0 -> List 1
D = 12 => {3, 3, 4, 4, 3, 3, 9, 9, 9, 9} + {1, 2, 3, 5, 6, 10, 0, 8, 9, 0 -> List 1
D = 13 => {8, 8, 7, 7, 8, 8, 9, 3, 3, 9} + {1, 4, 5, 7, 8, 10, 0, 4, 5, 0 -> List 1
D = 14 => {1, 2, 3, 3, 9} + {8, 8, 9, 10, 0 -> List 1
D = 15 => {8, 8, 5, 1, 9} + {10, 6, 3, 3, 0 -> List 1
D = 16 => {1, 2, 3, 5, 6, 10, 9, 5, 6, 9} + {3, 3, 4, 4, 3, 3, 0, 8, 8, 0 -> List 1
D = 17 => {1, 2, 3, 7, 8, 10, 9, 6, 7, 9} + {8, 8, 9, 9, 8, 8, 0, 6, 6, 0 -> List 1
D = 18 => {3, 3, 6, 10, 9} + {1, 5, 8, 8, 0 -> List 1
D = 19 => {8, 8, 9, 10, 9} + {1, 2, 3, 3, 0 -> List 1
D = 20 => {5, 5, 2, 5, 6, 9, 6, 6, 9} + {1, 3, 5, 10, 10, 5, 3, 1, 0 -> List 1
D = 21 => {1, 10, 9, 1, 10, 9, 1, 10, 9} + {1, 1, 0, 7, 7, 0, 10, 10, 0 -> List 1
D = 22 => {10, 9, 10, 9, 7, 7, 9, 10, 8, 3, 3, 9} + {10, 0, 7, 7, 9, 10, 0, 1, 1, 8, 10, 0 -> List 1
Else
D = 23 => {3, 3, 9, 7, 7, 9, 9, 9, 9} + {1, 10, 0, 1, 10, 0, 1, 10, 0 -> List 1
D = 24 => {2, 2, 9, 4, 4, 9, 8, 8, 9} + {1, 10, 0, 1, 10, 0, 1, 10, 0 -> List 1
D = 25 => {1, 9, 1, 2, 4, 4, 9, 1, 3, 8, 8, 9} + {10, 0, 7, 7, 9, 10, 0, 1, 1, 8, 10, 0 -> List 1
D = 26 => {1, 2, 9, 7, 7, 4, 1, 9, 9, 9, 6, 1, 9} + {1, 1, 0, 1, 3, 7, 7, 0, 1, 6, 10, 10, 0 -> List 1
D = 27 => {10, 9, 9, 4, 4, 7, 10, 9, 2, 2, 5, 10, 9} + {1, 1, 0, 1, 3, 7, 7, 0, 1, 6, 10, 10, 0 -> List 1
D = 28 => {1, 5, 8, 8, 9} + {8, 8, 5, 1, 0 -> List 1
D = 29 => {8, 8, 9, 10, 9} + {10, 9, 8, 8, 0 -> List 1
D = 30 => {3, 3, 6, 10, 9} + {10, 6, 3, 3, 0 -> List 1
D = 31 => {1, 2, 3, 3, 9} + {3, 3, 2, 1, 0 -> List 1
D = 32 => {7, 6, 4, 3, 6, 9, 8, 6, 9} + {5, 7, 7, 4, 2, 3, 9, 7, 0 -> List 1
D = 33 => {2, 9, 8, 3, 2, 9, 7, 7, 4, 4, 9} + {1, 1, 2, 2, 3, 3, 3, 9, 9, 4, 0 -> List 1
D = 34 => {5, 5, 9} + {1, 10, 0 -> List 1
D = 35 => {1, 10, 9} + {5, 5, 0 -> List 1
D = 36 => {1, 10, 10, 8, 5, 3, 1, 1, 1, 10, 5, 5, 9, 3, 4, 9, 6, 7, 9} + {1, 1, 10, 8, 10, 8, 10, 1, 6, 6, 6, 7, 0, 4, 4, 0, 4, 4, 0 -> List 1
D = 37 => {1, 2, 5, 6, 9, 9, 2, 2, 1, 4, 4, 5, 7, 7, 8, 9} + {8, 7, 10, 10, 7, 1, 1, 5, 6, 6, 5, 6, 6, 5, 6, 0 -> List 1
D = 38 => {5, 2, 2, 5, 7, 10, 10, 7, 6, 4, 5, 7, 8, 7, 9, 4, 5, 9, 7, 8, 9} + {1, 1, 7, 10, 10, 7, 1, 1, 0, 3, 4, 4, 3, 1, 0, 6, 6, 0, 6, 6, 0 -> List 1
D = 39 => {2, 9, 9, 6, 5, 2, 2, 9, 4, 9, 7, 9} + {1, 1, 7, 10, 10, 7, 1, 0, 6, 0, 6, 0 -> List 1
D = 40 => {2, 9, 9, 6, 5, 2, 2, 9, 4, 5, 5, 6, 6, 7, 9} + {1, 1, 7, 10, 10, 7, 1, 0, 6, 6, 2, 2, 6, 6, 0 -> List 1
D = 41 => {2, 9, 8, 3, 2, 3, 3, 8, 8, 9, 7, 8, 7, 8, 7, 5, 9, 5, 9, 5, 9} + {1, 1, 2, 2, 3, 3, 10, 10, 3, 3, 4, 5, 6, 7, 8, 8, 0, 6, 0, 4, 0 -> List 1
D = 42 => {2, 3, 5, 5, 2, 9, 8, 3, 2, 9, 6, 6, 8, 9, 9} + {7, 8, 6, 1, 1, 1, 2, 2, 3, 3, 3, 6, 8, 7, 0 -> List 1
IfEnd
'New sprites 6 Button 7 Downstairs 8 Hole 9 Upstairs 10 Warp
#End of part
#Program name: ST
#Password: <no password>
'Status Check + changes.
'C = 0 malus. C = 1 Bonus. F = 1 Adv F = 0 Joueur
'01234 'Gros malus, Petit malus, Neutre, Petit bonus, Gros bonus
5 + F -> B
C And Q < 5 => 5 + E -> B
List B[0 -> Str 5
For 7 -> A To 9
1 -> List B[A
Next
Not C => StrLeft(Str 5, 5) + StrMid(Str 7, S + 2, 3) -> List B[0
C => StrLeft(Str 5, 1) + StrMid(Str 7, S + 2, 3) + StrRight(Str 5, 4) -> List B[0
For 0 -> D To 1
List B[0 -> Str 5
Int (StrSrc("...RagHatMacGluEffIdiDebSurBerBruGelTonPoi", StrMid(Str 5, 2 + 4D, 3)) / 3) -> A
"222" -> Str 5
A = 1 => "421" -> Str 5
A = 2 => "142" -> Str 5
A = 3 => "214" -> Str 5
A = 4 => "202" -> Str 5
A = 5 => "022" -> Str 5
A = 6 => "220" -> Str 5
A = 7 => "112" -> Str 5
A = 8 => "333" -> Str 5
A = 9 => "440" -> Str 5
A = 10 => "221" -> Str 5
A = 11 => "212" -> Str 5
A = 12 => "232" -> Str 5
For 1 -> A To 3
List B[A + 6] + .25(Exp(StrMid(Str 5, A, 1)) - 2 -> List B[A + 6
1.5 < List B[A + 6 => 1.5 -> List B[A + 6
0.5 > List B[A + 6 => 0.5 -> List B[A + 6
Next
Next
#End of part
#Program name: T
#Password: <no password>
'Displays Str 5.'
" " + Str 5 + " " -> Str 5
StrLen(Str 5) -> A
For 0 -> B To 1
Text 11 - B, 1 + (A <= 31)(62 + B - 2A), Str 5
Next
While GetKey
WhileEnd
Do
If A > 31 : Then For 0 -> B To A Step .5
Text 10, 1, StrRotate(Str 5, Int B)
GetKey => Break
Next
IfEnd
LpWhile Not GetKey
ViewWindow 1, 127, 0, 1, 63, 0, 1, 1, 1
RclPict 4
If Not Z :Then
0 < List 5[3 => SketchThick F-Line 2, 2, 2, 2 + 15List 5[3] / 2
0 < List 6[3 => SketchThick F-Line 126, 2, 126, 2 + 15List 6[3] / 2
For 5 -> A To 6
For 0 -> B To 1
List A[0 -> Str 5
StrMid(Str 5, 2 + 4B, 3) -> Str 5
A - 5
StrCmp(Str 5, "...") => Text 51 + 6B, 5 + 106Ans, Str 5
Next
Next
IfEnd
#End of part
#Program name: TI
#Password: <no password>
"123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefgh" -> Str 3
ViewWindow 1, 127, 0, 1, 63, 0, 1, 1, 1
AxesOff
GridOff
BG-Pict 7
File1
{0, 0, 1 -> List 3
File2
Do
"ContinuerNouv. Jeu-Credits-" -> Str 5
0 -> A~Z
Do
Cls
'A égale 0 pour Continuer, 1 pour un nouveau jeu et 2 pour les crédits.'
Text 50, 44, StrMid(Str 5, 1 + 9A, 9)
While GetKey
WhileEnd
Do
GetKey -> W
LpWhile Not W
W = 27 => Isz A
W = 38 => Dsz A
A > 2 => 0 -> A
A < 0 => 2 -> A
LpWhile Not (W = 77)
'Alpha'
If A = 1 :Then
ClrList
'Si le joueur choisit Nouveau Jeu'
File1 : ClrList
{0, 0, 1 -> List 3
"00" -> Str 9
{0, 3, 2, 6, 6, 6, 1, 1, 1, .5, .5, .5, 0 -> List 5
Do
"Votre nom"? -> Str 1
LpWhile StrLen(Str 1)>8
StrUpr(StrLeft(Str 1, 1)) + StrLwr(StrMid(Str 1, 2)) -> Str 1
25 -> I
24 -> J
1 -> S
0 -> 
Cls
BG-None
64
Graph Y>X(X < Ans) + (2Ans - X)(X >= 64
Text 2, 51, "Choisis !"
25
Text Ans, 2, "F1=Arme"
Text Ans, 94, "F6=Visage"
StoPict 4
BG-Pict 4
While 1
Prog "SK"
Dim List 4 -> Tθmax
Graph(X,Y)=(48 + Int List 4[T], 9 + 2Frac List 4[T
Do
GetKey -> W
LpWhile Not W
W = 79 => MOD(C + 1, 6 -> C
W = 29 => MOD(D + 1, 6 -> D
10C + D + .4 -> List 5[1
W = 77 Or W = 31 => Break
WhileEnd
ClrList 4
Break
IfEnd
If Not A
Then "A" -> List 1[0
If Dim List 1 < 13
Then "Aucune sauvegarde"◢
Stop
IfEnd
List 2[1 -> I
List 2[2 -> J
List 2[3 -> K
List 2[4 -> 
List 2[5 -> R
List 1
'Si le joueur choisit Continuer'
File1
List Ans -> List 5
Break
IfEnd
A = 2 => Prog "CR"
LpWhile 1
'Mettre le skin dans la List 4'
'For 1 -> A To 32 Step 2
'SketchThick Horizontal 63 - A
'SketchThick Horizontal A
'Next
4 -> U~V
BG-None
#End of part
#Program name: VI
#Password: <no password>
'Victory and calculations.
List 5[2] + Frac List 6[2] * Int List 6[2] / Int List 5[2 -> List 5[2
.01Int 2List 5[2 -> List 5[2
For 4 -> B To 6
Int (5 + List 5[2] * List 5[B + 6 -> List 5[B
List 5[B < 1 => 1 -> List 5[B
Next
4 -> D
For 4 -> A To 6
List 5[A
Ans > List 5[4 + MOD(A - 2, 3)] And Ans > List 5[4 + MOD(A, 3 => A - 3 -> D
Next
.1D + Int List 5[1 -> List 5[1
Prog "SK"
15 + List 4 -> List 4
1 -> Tθmin
Dim List 4 -> Tθmax
Graph(X,Y)=(Int List 4[T], 2Frac List 4[T
ClrList 4
Text 10, 45, "Victoire !"
While Not GetKey
WhileEnd
If ImP M :Then
Str 9 + StrMid(Str 3, Int ReP M, 1) -> Str 9
{0, 0, 1 -> List 3
IfEnd
If I = 24 And J = 23 And K = -2
Then 0 -> G~H
3 -> List 5[13
IfEnd
If I = 28 And J = 21 And K = -1
Then 0 -> G~H
39 -> List 5[13
IfEnd
#End of part
#Picture name: PICT11
#Size: 0x100
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ ▄ ▄ ▄▄█ █ ▀█ █
█ ▄ █ ▀█▄▄ ▀██▄▄▄▄▄▄██▀ ▄▄▄▄ ▀█▄ ▄ ▀▄▄▀ █
█ ██ █▄▄ ███▄ ▀▀▀▀▀▀▀▀ ▄███▀▀▀▀ ▄▀ █ ██▄▄ █
█ ██▄▄ ▀██▄▄▄ ▄▄▄██▀▀▀▀██▄▄▄ ██▀ ▀▄ ██ ▀ ▀██▄ █
█ ▄▄▄██▀▀▀███▄▄██▀ ▀▀▀█████▀▀ ▄▄███▀▀▀▀ █ ▄▄▄▄▄▄▄▄▄▄▄███████▀▄ ▀██ █
█ ▀▄▄██▀▀▀ ▄▄ ▀▀ ▄▄▀▀▄▄▄██▀▀ ▀▀▀▄ █▄ █ ▄▀▀▀▀███████▀▀▀▄ █ ██ █
█ ▄▄██▄▄ ▀▀ ▄▄▄▀▀▀▄▄ ██ ▀█▄ ▄▄▄▄▄ ▄█ █ █ █ ▀█ █ █
█ ▀▀▀██▄▄ ▄▄▄ ▄█▀ ██ ▀▀▀█████ ▀ █▄ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT12
#Size: 0x100
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ ▀██ ▀▀ ▀▀ ▄▄███████▀▀▀▄ ██ ▄ ▄ ▀▀██▄ ▄▄▄▄▄▄▄▄ █ █
█ ██ ▄▄▄▄▄▄███▀▀ ██ ██▄▄▄▄███▄▄ ▀██▄██▀▀▀▀▀▀▀██▄ ▄█████▄▄▄ █
█ █████▀▀▀██ ▀ ████▄▄▄▄▄██▀▀▀▀▀ ▀██ ██▀ ▀▀████▀ ▀▀██ █
█ ██▀ ██ █ ██ ▀▀▀▀▀▀ ██ █ ▀█▀ ▀ █
█ ██ ▀ ██▄ ▄██ ▄▄▀██ ▄▀ █
█ ▄██▀ ▄▄▄ ██▀██▄▄▄ ▄██▀ ▄▄▄▀▀▀▄▄ ▄█▀ ▀██▄ ▄▄▄▀ ▄ █
█ ▀ ▀██▄ ▄█▀ ▀▀▀████▀ ▄█ ▄ ▀▀████████████▄ ▄█▀ ▄▀ █
█ ▀████████▀ ▀ ▄▄▄▄██▀ ▄▀ ▀ ▀██▄ ███▄▄▄██▀██▄ ▄▄▄▀ ▄▄▄█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT13
#Size: 0x100
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ ▄ ▀██▄ ▀██ ▄▄ ▄▄▀▀▀▄▄ ▄ ▄█▀ ▀▀██ ▀ ████▄▄ ▀▀▀▀▀ ▀████▀▀█████▀██▄ █
█ ██ ██▄ ██ ▀▀ ▀▀ ▄▄▀ ▄ ███▄ ▄▄ ▀█████▀█▄▄ ▄ ██ █
█ ██ ██ ▄█▀ ▄ ▀ ▄ ▄▀ ▄▀ ▀████▄ ██▄ ▀▀▄███████▄▄▄ ▀█▄ ▀█▄ █
█ ▄██ ██ ▄██▀ ▀ ▄█▀ ████▄ ███▄▀█▄ ▀█▄ ▀▀▄█████████▄▄▄ ▀█▀ ▀██▀▀█
█ ███ ██▀ ▄█▀ ▀ ▀ ▄▄▀ ▀█████▄▄▀▀▀▀▀▄▄▄ ▀ █ ██▀█ ▀██▄ ▀█████████████▄▄▄ ▄██▀ █
█ ██▀ ▀▀ ▄█▀ ▄ ▀ ▄█▀ ▀██████▄ ▀▀▄ ▀ ▀▀ ███▄ ▀██▀█▄██████▄▄▀▀ ▄█▀ █
█ ▄█▀ ▄██▀ ▄█▀▀▀██▄▄ ▀█▀▄████▄ ▀▀▄ ▀███▄ ▀▀▀▄████▀▀▀▀ ▄██ █
█ ▄██▀ ▀ ▄█▀ ▀███▄▄ ▄▄▄▀ ▀▀██ ▀▄ ▄▄ ▀ ▀▀ ▄██ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT14
#Size: 0x100
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ ▄▄████▀▀ ▄▄▄██ ▀▄███▄▄ █▄▄▀▀ ▀▀ ▀▀▀▀▄▄▄▄ ▀▀ ██ █
█ ▄████▀▀ ▄▄▀▀▀ ▀██▄ ▀█▀▀▀▄ ▄█▄ █▄▄▄ ▀▀▀▀▀▀▀▀▀▀████████████▄▄ ██ █
█ ▀▀▀ ▀██▄▄▀▀ ▀ ▀▀███▄ ▄▄ ██▄ █ ▀▀▀▀ ▄▀ ▄▄▄ ▄▄ ▀█▄▀▀▄ ██▄▄ █
█ ▀██▄ ▀█▄ ██ █ ▄▄▀▀▀▀▀▀▀▀▀▀▀▄▄ ▄▄▄▄▀▀▀ ▀▀▀▀▀▀▄▄▄▄▄▄▄▄▀▀▀▀▀▀ ▀▄ ▀▀▄ ▀▀█▄▄▀ █
█ █▄ ▀█▄ ▄▄ ▀█▄ ████▄█▄▀ ▀▀▀ ▄▄▄▄ ▀▄ ▄█▀▄ ▄ ▄▄▄ ▄▄▄ ▀▀▄ ▀▄▄▄▄██ █
█ ██ ██▄ ▄██ ███ █ ▄ █ ▀▀▀▀ ▄▄▄▄ ██▀▄ ██▄███ █ ▄▄█▀█▄█▄█▀█▀▄███▄▀▄▄ ▄█▀▄▀▄ ▄██▀ █
█ ▀██ ▄ ▄██▀ █▀ ██▀ █ █ ▀▀ ▄▄▄ ▄▄ ▀▀ ██▄█ ▀ ▀ ▀█▀ ▄▄█ ██▄███▄███▄█████▄█████▄█▄ ▀▄██ █
█ ██ ▀█▄█▀▀ ▄▀ ▀▀ █▀▄▀▄▀█▀▄▀█ ▄ ▄ ▄ ▄ ▄ ▄ █▀▄▀█▀█▀▄▀█ ██ ▀▄ █▄██▀█▀█▀▀█▀█▀ ▀ ▀ █▀█▀██▀█▀█▄██▄██ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT15
#Size: 0x500
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ ██ ▀██ ▄██ █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ █ ▀▄ ▀ ▀ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄▀▄ ▄ █ ▀▀██ █
█ ██ ██▄▄▄▄ ▄▄ ▄▄████ █ █ ▀▀ ▄ ▀▀ █ █ █▄▀▄▀▄█ ▄▀▄ ▄▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀▄ ██ █
█ ██ ████▀▀█████▄██▀███▀ █ ▄ █ ▀▀ ▄███▄ ▀▀ █ ▄ █ ▄▀ ███ ▄▀ ▄ ▄ ▄ ▄ ▄ ▄ ██ ▀▄ ██ █
█ ██ ▄█▀ ▀██ ▀ ▄▀ ▄ █▄ ▀▄█▀▄▀▄ █████ ▄▀▄▀█▄▀ ▄█▀▄ ▄▀ ▄▀▄ ▄▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀▄ ██▄▄ █
█ ▀ ▄▀ ██ ▀ ▄▀ ▄ ▀ █▄▀▄▀▄▀▄█▀▀▀▀▀█▀▀▀█▀▀▀▀▀█▄▀▄▀▄▀▄█ ▀▄ ▄▀ ▀█▀ ▄▀ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▀▄ █ ▀██▄▄█
█ ██▄ ▀▄ ▀ ▀▀▀▀▀ ▄▄▀▀▄▄█ █▄▄▀▀▄ ▀▀▀▀▀ ▄▄▀ ▀▀▀▀▀▀▀▀▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀▄ █ ▀▄▀██
█ ██ █ █▀▀▄▄▀▀▀▀▀ █ █ ▀▀▀▄▄▀▀▀ █▀▀▀▀▀▀█▀ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▀▄ █ █ █
█ ▄██ ▄ █ ▄ ▀▄ ▄ ▄▄ ▄▄ ▄██▄▄ ▄▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀▄ █ █ █ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT16
#Size: 0x100
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ ▄██▀ ▄▀ █ ▄▀ ▄█▀▄▄█▄▀▄▄▄▄ ▄██▄ ██▄ █▄▀▀▄▄▄█▀▄ ██▀▀▀▀█▄▄▄▀▄ ▀▄ █ ▄▀ █
█ ▄▄██▀ ▄ █ █ █▀██ ███████ █ ████████▄████▄███▄█ ██ ▀▀█▀██▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀ █ █ █
█ ▀▀██▄▄ ▀ ▄ █ ▄ ███▄████▀█▀███▄█ ▄▄ ██▄▀██▀██████▀███ ▀█▄ ▄█▀ ▄ ▄▄▄▀ ▄▀ █
█ ▀█▄▄ ██ ▄ █ ▀ ▀▄▀█▀ ▀▄▄▄▄ ▀ ▀ ▀▀ ▄██████ ████▄▄▀▀ ▄██▀ ▀███▄ ▄ ▀ ▄ ▄▀▀▀ ▄▄▄▀ ▀ █
█ ██▄ ▄███▄ ▄▀ █ ▄█ ▄▄█ ▀▀▀▄ ██▀██▀█▀█▀█ █▀█ ██ ▀█▄ ▄ ▄ █ ▄ ▄▀▀ ▀ █
█ ███ ▀██ ▀ █ ▀ █ ▀▀ ▀▄▄▄▄▄▀▀ ▀ ▀ █ ▀▀▀▀██ ██ ▀ ▄ ▀▄ █ ▀▀ ▀ █
█ ▀██▄ ██ █ █ ▄▄ ▄ ▄ ▀▀▀▀▀▀██▄█ ▄▄█ ▄▄▄▀▀▀█▄▄ ▄▀ ▄▀ ▄ ▀█
█ ███ ██ █ ▄ ▀▄ ▄▀▀▄▄▀▄ ▄█▄▄█▄██▄█▄▄ ▄▀▄ ▄█▀ █▀█▄ ▄▀ ▄▄▄ ▀▀ ▀▀▀▀▀▄ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT17
#Size: 0x100
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ ███ ██▄▀▄▀▄▀ ▀ ▄▀ ██ ██▀███▄▀ ▀█▀█▀███▄█▄█ ██▄█ ██ ▀ ██▀ ▀▀ ▄▀ █ ▀▀▄ ▀ █
█ ███ ██▀█▀ █▄▀▄▀▄█▄▄▄ ██▄█▀█ ▄▄ ▀ ▀ ▀ ▀█▀ ██ ▄ ▄ ██ ▀ ▀▀▀▄ █ █
█ ███ ▄██▀ ▄▀ █ █ █▄ █ ▀ ▀ ▀▀ ▄▄▄ ▀██▀ ████▀ ▀▀▀▄█
█ ██ ▄▄██▀▀ ▄ █ ▄ █ █ █ ▄▄▀▄█▀▀▄ ▄ ▄▀▄▄ ▄▀██▄▀▄▀▄ ▄█▀ ▀█▄ ▄▄ ▄ █
█ █ ▄▀▀▀▀██▄ █▄█ █ ▀ ▀ █ █ █ ▄▀██████▄█▀█ ██▄█▄█ ▀████▄█▄█ ██ ██ ▄▀ ▄▄▄▄▄▄ █ █ ▄▄██████▄▄█
█ ▀█▄▀█▀ ▀▄ █ █ █ ██▄███████▄▀██████ █ ▀ ▀█▀█▀ ██ ▀██ █ █▄▀▄▀▄ █ ▀ ▀ █▀▀▄▄▄▄▄▄▀▀█
█ ██ █ █ █ █ ▀█▀█████████████████ ▀█▄▄ ▄██ █ █▀▀▀▀█▀▀▀▀▀▀█ █ ████ █ █
█ ██ ▀ █ █ █ █ ▀▄ ▀█ █▀ █▀█ █▀▀ ▀ ▄▄ ▄█▀▀ ▀█▄ ▄ ▀▀▀▀▀▀ ▄█▄▄▀▀▄ ▀▀▀▀▀▀▀▀▀▀█
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT18
#Size: 0x100
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ ▄▄▄ ██ ▄ █ █ ▀▄ ▀▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▀▀ ▄██ ██ ▀▀▀ █ ██ █ ▀▀▀ █
█ ▀██▄ ██ █ █ █▀▄▀▄▀▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▀▀▀▀ ██ ▄█▀ ▄ ▀▀▀▄▄▄▄▀ █
█ ▀██▄ ▄▄▄ ▄██ ▄ █ █▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀█▀█▀█▀▄▀███▄ ▀██▄▄▄▄▄▄▄▄▄ ▀▀ ▄▄ ▄▄▀▀▀▀█
█ ▀██▄ ▀▀███ ▄▄█████████▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄█▀▀ ▀▀█▄▄▄▄ ▀▀▄▄▄▄▄▄▀▀▀▀▀▀ ▀▀ ▄█████
█ ██▄ ▀███▀▀ ▀██▄█████████▄▀▄▀▄█▄█▄█▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄██▀ ▀▀████████▄▄ ▄▄▄▄▄ ▄██▀ █
█ ██ ██ ██▀ ▀▀███▀▀▀▀▀▀██████▄▀▄██████▀ ▄████▄ ▄██▀ ▀█████▀▀▀▀████▀ █
█ ▀▄ ██ ▀ ▀ ██▀ ▀ ▀ █▀ ▀█ █
█ ▀ ▀ ▀ ▀ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT5
#Size: 0x400
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█▄▀███████████████████████████████████████████████████████████████████████████████████████████████████████████████▀ ▄▄ ▄▄ █
███ ▀▄ ████▄ █ █
███ █ ███████ ▄ ▄ █
███ ▀▄ ▀███▀ ▄▀ █
███ █ ▀ █ ▄ █
███ █ █
███ ▄▀ █
███ █ █
███ ▀▄ █
███ █ ▄ ▄ █
███ █ █▀▄█ █ █ █
███ █ ▀ ▀ ▀ ▀ █
███ █ █
███ █▀ █
███ █ █
███ ▀▄ █
███ █ ▄▄▄ █
███ █▄ █▀ ▀▄▀ █▀▄ █
███ █ ▀▀▀ ▀ ▀ █▀ █
███ ▀▄ █
███ █ █
███ █ █
███ █ █
███ ▀▄ █
███ █ █
███ █▄ ▄▄▄▄▄▄▄▄▄▄ █
███ ▀▄ ████████████ █
███ █ ████████████ █
███ █ ████████████ █
███ ▀▄ ████████████ █
███ ▄▀ ████████████ █
█▀▄███████████████████████████████████████████████████████████████████████████████████████████████████████████████ ▀▀▀▀▀▀▀▀▀▀ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT6
#Size: 0x400
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█▄▀███████████████████████████████████████████████████████████████████████████████████████████████████████████████▀ ▄▄ ▄▄ █
███▀▄ ▄▄▀▀▄▄ ▄▀▀▄ ████▄ █ █
███ ▀▄ ▄▀ ▀▄ ▄▀ █ ███████ ▄ ▄ █
███ █▀▀▀▀█▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀█ █▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀█▀▀▀▀▀█ ▀▄ ▀███▀ ▄▀ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ ▀ █ ▄ █
███ █▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄█ █ █
███ █ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ █ ▄▀ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ █
███ █ █ █ █ █ █ █ █ █ █ █ █ ▀▄ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ ▄ ▄ █
███ █▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄█ █ █▀▄█ █ █ █
███ ▄▀▀ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▀▀▄ █ ▀ ▀ ▀ ▀ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ █
████ █ █ █ █ █ █ █ █ █ █ █ █▀ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ █
███ ▀▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▀ ▀▄ █
███ █ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ █ █ ▄▄▄ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █▄ █▀ ▀▄▀ █▀▄ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ ▀▀▀ ▀ ▀ █▀ █
███ █ █ █ █ █ █ █ █ █ █ █ █ ▀▄ █
███ █▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄█ █ █
███ █ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ █ █ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ █
███ █ █ █ █ █ █ █ █ █ █ █ █ ▀▄ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ █
███ █▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄▄▄▄▄▀ ▄▄▄▄█ █▄ ▄▄▄▄▄▄▄▄▄▄ █
███ █ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ ▄ █ ▀▄ ████████████ █
███ █ █ █ █ █ █ █ █ █ █ █ █ █ ████████████ █
███ █▄▄▄▄█▄▄▄▄▄▄▄▄▄█▄▄▄▄▄▄▄▄▄█▄▄▄▄▄▄▄▄▄█▄▄▄▄▄▄▄▄▄█▄ █▄▄▄▄▄▄▄▄▄█▄▄▄▄▄▄▄▄▄█▄▄▄▄▄▄▄▄▄█▄▄▄▄▄▄▄▄▄█▄▄▄▄▄█ █ ████████████ █
███ ▄▀ ▀▄ ▄▀ ▀▄ ▀▄ ████████████ █
███▄▀ ▀▀▄▄▀▀ ▀▄▄▀ ████████████ █
█▀▄███████████████████████████████████████████████████████████████████████████████████████████████████████████████ ▀▀▀▀▀▀▀▀▀▀ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT7
#Size: 0x400
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
████████████▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀██████████████████████████████████████████████████▀▀▀██████████████████████████████████████████████████
█████████▀ ▄████████████████████████████████████████████████ ██████████████████████████████████████████████████
████████▀ ▄███▄ ████ █ ████▀ ▀▀█████▀▀ █▀ ▀███▀ ████▀ ███▀▀ █████▀ ▀ ▀███▀ ▀███████
████████ ██████ ▄ ▀████▄ ███ ▄███▀ ▄▄▄ ▀███ ███▄▄▄ ▄▄▄███ ██ ████ ▄▄ ███▄▄▄███ ███████
████████ ▀▀▀██ ██ █████ ▀█▀ ▄████ ▀▀▀▀ █████ ▄███ ██████ ███████ ███▄ ██████ ██▄▄████▀▀ ███████
█████████ ▀ ▄██▄ ▀█████ █ █████ ▄▄▄▄▄▄▄██████ ████ ██████ ███████ ████ ██████ ███████ ▄███ ███████
███████████▄▄▄▄█ █████▄ ██████▄ ▀▀▀ █████▀ ████ █████ ▀ ████ ▀▀▀ █████▀ ▀██████ ▀▀▀█ ▀██████
███████████████ ▄▄▄▄▄▄ ██████▄ ▄████ ███▄ ▄▄██▀█ █ ▄██████▄ ▄████▄▄ ▄▄ ███ █████▄ ▄█ ██████
██████████████▀ ▄██████ ▀████▀███▀▄▀▄▀ ▀▄██████████▀▄▀███▀█▀█▀▄▄██▀███▀█████████▄▀███████████████████████████████████████████
█████████████▀ ███████ ▄████▄▀▄▀ ▄▄▄▄ ▀▄▀█▀███▀▄▀▄▀ ▄▄▄▄ ▀▄▀▄▀▄▀▄▀█▀▄▀███▀▄▀▄▀█████▀█▀█ ███▀▄▀███▀▄▀▄▀█▀██▀█████████▀█
██████▀▀▀▀▀ ▄███████▀ ▄████▀▄▀ ▄██▀▀▀ ▀▄▀▄▀ ▄▄█▀ ██ ▀ ▀ ▀ ▀▄▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀▄▀▄▀███████▀▄█
█████ ▄████████ ▄████▀█▀ ██ ▄▄▄ ▄█▀ █ ▄▄▀▀ ▄▄▄ ▄▄ ▄ ▄▄▄ ▄▄ ▄▄ ▄▄ ▄▄ ▄▄ ▄▄▄ ▄▀▄▀█▀█▀▄▀▄█
█▀███▄▄ ▄▄███████████▀████▀▄▀ █ █ ▄█ ██▀ █▀█ █▀██ ▀█ ██ ▄▀ █▀ █▀ ██ ▄█▄▀██▄▀██ █ ▄█ ▀▄▀▄▀▄▀▄▀ █
█▄▀█████▀█████ █████████▀▄▀█▀▄▀ █ ██▀▀ ██ █▀ █ ██ ██ █ ██ ██ ▄█ ▄█ █▀ ██ ██ ▄█ ██▀▀ ▀ ▀ ▀ █
█▄▀▄▀█▀▄▀▄▀█▀▄▀███ ███▀▄▀▄▀▄▀▄▀ ▄█▀▀▀▀▀██ ██▄ ██▀ ██ ██▄▀ ██▀█ ██▀ █ ▀█▄██ ▄▀ ▄▀ █▀ ██▄ █
█ ▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀█▀▄▀▄▀ ▀ ▀ ▄▄▄▄ ▄▄ ▀██ ▄█▀ ▄▀▄▀▄▄ █
█ ▀▄▀ ▀ ▀ ▀ ▀▄▀▄▀▄▀▄▀ ▄██ ██ ▀██▄ ▀▀ ▀▀▀ ▀▀▀▀ █
█ ▄ ▀ ▀ ▄█▀██ ▄██ ▄▄▄ ▄▄ ▄▄ ▄██ ▄▄ ▄ ▄ ▄██ ▄▄ ▄▄ ▄▄▄ █
█ ▄▀▄▀▄█ ▄▀ ██▄█▀ █▀██ █▀ ██ ▄█▀ █ ██ ███▄█ ▄█ ██ █▀ ██ █ ▄█ ▄▀▄▀▄ ▄ ▄ ▄▀▄▀▄▀ █
█ ▀▀▀ ▄ ▄ █ █ ██ ██ ▄█ █▀ ██ ▄▀ █▀ █▀ ██ ██ ▄██ ▄█ █▀ ██▀▀ ▀▀▀▀█▄█▄█▄▀▀▀ █
█ ▄▀▄ ▀▄█▄▀ █▄▄▀ ██▄▀ ▀█▄██ ▀██▀ █ ██ █▀ ▀▀▀ █ ▀█▄██ ██▄ ▄▀▄▀▄ █
█▄▀▄ ▄ ▄▀▄█▀▀ █▀ ▄ ▀▀▀ █
█▀▀▄█▄█▄█▀ ▀▀▀ ▄ ▄▀▄▀ ▄ █
█ ▄ ▄ ▄ ▄ ▄█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█▄█▄▀▄▀▄██▀▄ ▄▀█▀▄ ▄█▄ ▄ █ ▄█
█▄▀▄▀▄██▀▄ ▄ ▄▀▄ ▄█▄▀▄▀▄█▄▀█ █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀███▀█████▀▀█▄▀▄ ▄ ▄▀▄███▄███▄▀▄▀▄███▄█
█▀████▀▀█▄█▄█▄█▀▄▀▄▀▄█▀███▀▀███ █ ▄▀█ █▀▄ ███ ▀█▄█▄█▄██▀ ▀▀ ▀███▀▀█ ▀█
█ ▀▀▀▀▀██████▀ █ █ ▀▄██ ███▀ ███ ▀▀▀▀▀ ▄▄█▄▄█
█ ▄▄▄▄▄ █ █ ▀▀ ▀▀ ███ ▄ ▄ █ ▄ ▄ █
█ ▄███▀ ▀▄ █▄███████████████████████████████████████████████████████████████ ▀ █▀██▄▄▄▄▄█
█ ███▀ ▄ █ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀ ▀ ▄ █ █ ▄▄ █
███▀▄▀ ▀ █ ▀ ▄▀▄ █ █ ▄█▄█▄▄██▄▄█
███▀▄▀▄ █ █▄█▄▄▄▀█▀█▀█▀█▀▄▀▄▀▄▀▄▀▄▀█
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT8
#Size: 0x2c0
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
███▀▀▀████████████████ █▀▀▀███████▀▀████▀█████ █▀▀▀▀█████▀██████████ ██▀▀▀█████████▀██████ █▀▀▀███▀▀▀███▀▀▀██ ██▀▀▀▀████▀█▀███████
██▀▄██ ▄▀█ ▄▀█ ▄▀█▀▄ ███ █▀ █▄ ▀█ ▀█▄ ▀█ █▀▄ ███ ▀▀██ ▄█ ▄█ ▄▀█▀▄▄███▄▀▀██ ▄▀█ ▄ █ ▄█ ▄███▄█▀ ██▄█▀ ██▄█▀ ████ ▀▀█ █ █▀█ ▄▀▄ ███
██ ███▄▀ ██▄ █ █ █▄ ▀███ ▄▀██ ▀▄█ ██ ▀▄█ ▀▄ ▀███ ████▀▀▄█ ██▄▀ █ ▀▀██████ █▄▀ █ ███ ██▀▀▄████▄█████▄█████▄██████ ███▄▀ █ █ █▄ ▀███
███▄▄▄████▄▄██████████ █▄██▄██████████████████ ██▄▄▄████████████████ █▄▄▄█████████████████ ██▄█████▄█████▄███ ██▄█████████████████
█▄▀█▀███████████▄████▄▀▀████▀██████▄████▄████▀ ▀████ ███▀███▀▄█████▀ ▀███▀████▀▄▀███████▄▀ ▄█████▄██████████▀▄▀██▄████████▄███████
█████████▄▀▄█████████▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀██▄▀▄█▄ ▄▀▄▀▄██▀▄▀▄▀▄▀▄▀▄▀▄▀▄███████████▄████████████████████
████████████▀█▀████████▄█▄█▄▀▄▀▄█▄▀▄▀███▀▄▀█▄ █▀▄▀███▀▄▀▄█▄▀▄▀▄█▄██████████▀███████████████████████
███████████▄█▄▀▄▀████████████▄█▄███▄▀▄███▄▀▄▀██ ▄ ▄█▀▄▀▄███▄█▄███▄█▄████████████▀▄████████████▀███████████
███████████████▄█▄▀████████████████▄▀▄▀████▄▀▄▀█▀█▀▄▄▄ ▄▄▄▀▄▀█▀▄▀▄████████████████████████▀▄▀▄█████▀████▀▄█ ██████████
█████████████████████████████████████▄█▄█████▄▀▄▀▄▀▄▀▄▀▄ █▄▀▄▀▄▀▄▀▄████████▀▄████████████████▀▄██████▄▀▄▄▀ ██ ▄█▀████████
████▀▀▀▀█████████████████▀███████████████████▄▀▄▀██▄▀▄▀▄▀▄▄▄████▄█▀▄▀▄▀▄▀▄▀▄██████▀▄▀▄█████████████████████████ ██ █▄██ █ █████▀█
██▀▄███▀▄███▀▀▄▀███████▀ █▄▀▄▄▄▀██████████████▀▄▀▄▀█▀██▄▀▄▀▄▀▄▀▄▀▄████▀▄█▄████▀████▄███████████▀▄▀▀▄▄▄▀█▀██▀▀███ ██▄█▄▀ ██ ███▀▄██
█▀ ████ ▀▀▀▄███ ▀█▀▄▄▀ ██████ ▀▄▄▀███████████▄▀▄█▄▀▄▀▄▀▄█▄█▄█▄▀▄███▄██████▀▄▀█████████▀▄▀▀▄▀▀▄█ ███▄█ ██▄▀█ █████ ██ ▀▀▄ ███
████████████▀█▄▄█ ██▀ ██████▄ ▄██ ▀▄▄▀▀██▀█▀█████████▄█▄█████▄▀██▀██████▀▄▀▄███▀▄▄▀▀▄▀ ██ █▄███ ▀ ████▀ █▄▀██▄██████████ █████
████████▀▀▀▀ ██▀ ██ ▄██████████▀ ██▄▀▄ █ █ ██▀▀ ▀█▀█▀█▀███▀▀▀█ █▄▀█████▀▄▄▀▀▀ ██▄██▀ ██ ▀█████ ███ ██ ▀▀▀▀████████ █████
█████▀ ▄█ ██ ██▀ ███████▀▀ ▄██▀ ███ ▀ ██ ▄ ▄█ ▄▀ ▄▀█ █ █▄▀▀▀▄▄█ █ ████ ██▀ █████ ███ ██ █▄ ██████ █████
█████ ██ ███ ███ ▄███████▀ ███ ▀██ █▄ ▀ ██ █ ▀ █ ▀ ▀█ ██ █ ████ ███ █████▄ ███ ██▄ ██ ▀██████ █████
████ ▄█ ███▄██▀ ███▀█▀█▀▄ ████ ▄███▄ ▄▄▄▄▄▀▄▄▄▄█ ▀ █▄▄▀▀▀▀▄▄▄▀▄ ██ ██▀ ███▀ ███ ████▀██ ████ ██ ▄█▄ ██████▄ ▀██▀█
████ ██ █████▀ ▀ ▄ ▀ ▄▄▄▄▄▄▄▀▄ ▄████ ▄▄▄ ▀▀ █ ▄▄▄▄▄▄ ▀▀▀ ▄▄▄▄▄▄ ▀▄▄▄▄▄▄▄ ███ ▀█▀ ▀ ▄ █▀ ▄▄▄▄▄▄▄ ▀█████▀██ ▄ ▄██████▀ ▄▄▄█
████ ▀▀███▀ ▄▄█▀▀ ▀▀▀▀ ▀▀▄▄▄ ▀ ▄█▀ ▀▀▀▀ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄ █ ▀▀ ▄▄▄▄▀▀▀▀▄▄▄▀▀ ▀▄▄▄▄▄▄▄▄▄▄▀▄▄ ▀▀██▀ █ █
███▀ ▄▀▄▄▄▄▄█▀ ▀▀▀▀ ▄▄▄▄▄▄▄▄▄▄▄ ▀▀▀▀ ▀▀▄▄▄▄▀ █
██▀▄▄█▀ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part
#Picture name: PICT9
#Size: 0x290
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
███▀▀▀██████████████████▀▀▀███████▀▀████▀███████▀▀▀▀█████▀█████████████▀▀▀█████████▀████████▀▀▀███▀▀▀███▀▀▀█████▀▀▀▀████▀█▀███████
██▀▄██ ▄▀█ ▄▀█ ▄▀█▀▄ ███ █▀ █▄ ▀█ ▀█▄ ▀█ █▀▄ ███ ▀▀██ ▄█ ▄█ ▄▀█▀▄▄███▄▀▀██ ▄▀█ ▄ █ ▄█ ▄███▄█▀ ██▄█▀ ██▄█▀ ████ ▀▀█ █ █▀█ ▄▀▄ ███
██ ███▄▀ ██▄ █ █ █▄ ▀███ ▄▀██ ▀▄█ ██ ▀▄█ ▀▄ ▀███ ████▀▀▄█ ██▄▀ █ ▀▀██████ █▄▀ █ ███ ██▀▀▄████▄█████▄█████▄██████ ███▄▀ █ █ █▄ ▀███
███▄▄▄████▄▄██████████ █▄██▄██████████████████ ██▄▄▄████████████████ █▄▄▄█████████████████ ██▄█████▄█████▄███ ██▄█████████████████
█▄▀▀▀▀▀▀▀▀▀▀▀▀▀▀▄▀▀▀▀▄▄▄▀▀▀▀▀▀▀▀▀▀▀▄▀▀▀▀▄▀▀▀▀▄▄▄▀▀▀▀▄▀▀▀▀▀▀▀▀▄▀▀▀▀▀▄▄▄▀▀▀▀▀▀▀▀▀▄▀▀▀▀▀▀▀▀▄▄▄▄▀▀▀▀▀▄▀▀▀▀▀▀▀▀▀▀▄▄▄▀▀▄▀▀▀▀▀▀▀▀▄▀▀▀▀▀▄█
██████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████
████████████████████████████████████▀█▀█▀███▀█▀█▀█▀█▀███▀█████▀█▀█▀█▀█▀█▀█▀███▀█▀█▀█▀█▀█▀█▀█▀█▀███████████████████████████████████
██████████████████████████▀▄█▄█▄█▄█▄█▄█▄███▄█▄█▄█▄█▄███▄█▄█▄███▄█▄█▄█▄█▄█▄█████████▄█▄█▄█▄█▄█▄█▄███▄█▄█▄██████████████████████████
██████████▀█▀█▀▄▀▄▀▄██▀████████▄█▄█████▄█▄█▄███ ▀ ▀▀ ▀█ ▀▄██ ▄███▄█ █▄▀▄▀▄▀▄▀██▄▀▄▀██▄▀▄▀▄▀▄▀▄▀█▀█▀█████████
████▀█▀▄▀▄▀▄▀▄▀▄▀▄▀██████▄▀▄█ ▀ ▀ ▄█ ▄▄▄▄▄██▄▄▄▄▄▄▄▄ ▄██▀▀ █ ▄ ▀▀▀██▀▀ ▀ ▀▄▀▄▀▄▀██▄▀▄▀▄ ▄▀▄▀▄▀▄▀▄▀█▀███
█▄▀▄▀▄▀ ▀▄▀ ▀ ▀▄████▀█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▄█ █▄▄██▄▄▄▄▄▄█▄▄▄▄▄██▄▄▄▀█████████▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀▀█▀▀▀▀███▀█▀█▀████▄█▄█▄█▄▀█
█▄▀▄▀▄▀▄ ▄ ▄▀▄███ ▀ ██ ▄ ▄ ██ ▄▄███▀▀▀▀ ▀█▄ █▀▄▄ █▄ ▀▄ ▀██▄▀ ▀▄▀████▄▀▄▀▄▀█
███████▄█▄█▄████▄▄ ▄▄▄█▀ ▄▄▄██▄▄▄▄▄▄▄█▀ █▄ ▄ ██ ▀▄▄▄██▄▄▄▄▄▄██▄▄▄███▄▄█▄█▄▀▄██▀█▀█▀█
█▄▀▄▀▄▀█▀█▀▀ ████████████████▀█▀▀ ▀▀▀▀▀▀▀▀███▀▀▀▀▀▀▀▀ ▀▀▀▀▀██▄▄▄▄▄▄▄▄▄ ██▄▄▄██▄▄▄▄▄███ ▀▄▀█▀▄▀▄▀█
█▄ ▄▀ ██▀ █▀ █ ▀▀▀▀▀█▀▀▀▀▀ ▀▀▄ ▄ ▀▄█▄█▄▀█
█▄▀ █▀██ ██▀▄ ▄ ▀ ██▄ ▀ ██ █▄ ▀██▄ ▄ ▀ ▄██████
█▄▀ ▄▄▄ ▀ ▄▄██ ▄ ▀█▄▄▄██▀▀▀▄▄▀▀█▄▄▄█▀ █▄ ▀█ ▀ ▀▄███▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▀▀▀▀█▀█
██▀▀█████████████████████████████▄▄▄▄▄▄▄▄██▄█▀████████████▄▄▄▄▄▄▄███▀▀▀▀▀▀▀██▀▀▀▀▀▀▀█▄▄▄▄▄▄▄▄▄▄▄█▄▄▄███▀▀▀▀▀▀▀█▀ ▀█
█ ▀ ▀▀██▄█▀▀ ▄ ▀▀▀ ▀ ▄ ▀ ▀▀▀▀▀▀▀▀▀▀▀ ▄█ █▄ ▄ ██ ▀ ▀█
█ ▄▄ ▄▄▀▀▀ ▄▄▄▄██▀ ▀ ▄▀ ▄ ▄▄▄▄▀██▄▄▄██▄▄▄▄▄▄▄▄▄▄█
█ ▀▀▀▀ ▀ ▀ ▀ ▀▀ ▀▀▀▀▀▀▀█
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
'
'DO NOT EDIT THE PICTURE BELOW, unless you are an advanced user!
'
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
█ █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
#End of part