0→A~Z
[gray]"Ωôcu>"[/gray]→Str [maroon]2[/maroon]
[green]'Les symboles sont adaptées pour vous donné une idée de ce que sera le jeu. Str [maroon]1[/maroon] est la chaîne de fond qui fait la carte. List [maroon]8[/maroon] contient les [brown]coordon[/brown]nées des fantômes[/green]
List [maroon]7[/maroon][2→I
Int ((I+20)/21→B
I-21B+21→A
1+Mat P[1,[maroon]12[/maroon]→Y
[b][blue]Do[/blue][/b]
Getkey→G
0→R~W
[b][blue]If[/blue][/b] G
[b][blue]Then[/blue][/b] G=[maroon]47[/maroon]⇒[b][blue]Return[/blue][/b]
1+MOD(A+(G=[maroon]27[/maroon])-(G=[maroon]38[/maroon])-1,[maroon]21[/maroon]→V
1+MOD(B+(G=[maroon]37[/maroon])-(G=[maroon]28[/maroon])-1,[maroon]7[/maroon]→W
V+21(W-1→S
[b][blue]If[/blue][/b] StrSrc(StrMid(Str [maroon]1[/maroon],S,[maroon]1[/maroon]),[gray]"#"[/gray])=[maroon]0[/maroon] And S=!I
[b][blue]Then[/blue][/b] [b][brown]Locate[/brown][/b] A,B,StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon])
V→A
W→B
S→I
[b][brown]Locate[/brown][/b] A,B,StrMid(Str [maroon]2[/maroon],G-8Intg .1G-8,[maroon]1[/maroon])
[b][blue]IfEnd[/blue][/b]
[b][blue]Else[/blue][/b] [b][brown]Locate[/brown][/b] A,B,[gray]"o"[/gray]
[b][blue]IfEnd[/blue][/b]
StrCmp(StrMid(Str [maroon]1[/maroon],I,[maroon]1[/maroon]),[gray]"."[/gray])→E
[green]'c'est le point avec le trou[/green]
[b][blue]If[/blue][/b] E>=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] E=[maroon]1[/maroon]⇒[b][blue]Isz[/blue][/b] M
[b][blue]If[/blue][/b] Not E
[b][blue]Then[/blue][/b] [b][blue]Isz[/blue][/b] N
25→L
[b][blue]IfEnd[/blue][/b]
StrLeft(Str [maroon]1[/maroon],I-1)+[gray]" "[/gray]+StrRight(Str [maroon]1[/maroon],[maroon]147[/maroon]-I→Str [maroon]1[/maroon]
[b][blue]IfEnd[/blue][/b]
[b][blue]Dsz[/blue][/b] L
[b][blue]Isz[/blue][/b] K
K+1-YIntg (K/Y→H
List [maroon]8[/maroon][H→Z
Int ((Z+20)/21→D
Z-21(D-1→C
10Ran#→P
C→T
D→U
[red]Lbl[/red] [maroon]1[/maroon]
P>5⇒C+(A>C)-(A<C)→T
P<5⇒D+(B>D)-(B<D)→U
[b][blue]If[/blue][/b] C=T And D=U And R=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] [maroon]10[/maroon]-P→P
1→R
[red]Goto[/red] [maroon]1[/maroon]
[b][blue]IfEnd[/blue][/b]
T+21(U-1→V
[b][blue]If[/blue][/b] StrSrc(StrMid(Str [maroon]1[/maroon],V,[maroon]1[/maroon]),[gray]"#"[/gray])=[maroon]0[/maroon] And Z=!V
[b][blue]Then[/blue][/b] [b][brown]Locate[/brown][/b] C,D,StrMid(Str [maroon]1[/maroon],Z,[maroon]1[/maroon])
V→List [maroon]8[/maroon][H
T→C
U→D
[b][blue]IfEnd[/blue][/b]
[b][brown]Locate[/brown][/b] C,D,StrMid(Str [maroon]2[/maroon],[maroon]1[/maroon]+(L>0),[maroon]1[/maroon])
[b][blue]If[/blue][/b] L=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] [b][blue]For[/blue][/b] [maroon]1[/maroon]→E [b][blue]To[/blue][/b] Y
List [maroon]8[/maroon][E→R
Int ((R+20)/21→F
[b][brown]Locate[/brown][/b] R-21F+21,F,[gray]"Ω"[/gray]
[b][blue]Next[/blue][/b]
[b][blue]IfEnd[/blue][/b]
Prod (List [maroon]8[/maroon]-I)→F
F=[maroon]0[/maroon]⇒L<0⇒[red]Goto[/red] P
[b][blue]If[/blue][/b] F=[maroon]0[/maroon]
[b][blue]Then[/blue][/b] [b][blue]For[/blue][/b] [maroon]1[/maroon]→Q [b][blue]To[/blue][/b] Y
List [maroon]8[/maroon][Q→X
[b][blue]If[/blue][/b] X=I
[b][blue]Then[/blue][/b] List [maroon]7[/maroon][3→List [maroon]8[/maroon][Q
[b][blue]Isz[/blue][/b] O
[b][blue]IfEnd[/blue][/b]
[b][blue]Next[/blue][/b]
[b][blue]IfEnd[/blue][/b]
[b][blue]LpWhile[/blue][/b] M=!List [maroon]7[/maroon][1
[brown]ClrText[/brown]
1→G
[red]Lbl[/red] P