Filename:DEMINEUR
MLC:
#FNCT MAIN
#ARRY @LIST .240
#FRUN R
#FEND

#FNCT R
%COUP=.0
%A=.0
#CLRS
#RECT .1 .0 .126 .21 .3 .3
#RECT .1 .0 .96 .21 .3 .3
#RECT .0 .41 .127 .64 .3 .3
#RECT .0 .41 .96 .64 .3 .3
#RECT .0 .21 .127 .41 .1 .1
#RECT .0 .21 .96 .41 .1 .1
#READ .0 %TB
#TEXT .2 .7 "SCORE:" .1
#TEXT .25 .7 %TB .1
#TEXT .54 .52 "[EXE]" .1
#FRUN A
#STOP
%A=.0
#FRUN F
#RNDM .5 .50 %A
#RNDM .6 .100 %B
%B=.2
%C=.1
%D=.1
%Z=.-1
#FRUN INTR
%A=.0
#FRUN C
#FRUN DEBU
%A=.0
#FRUN E
%A=.0
#CLRS
#FRUN GRI1
#STOP
#RECT .0 .0 .127 .64 .3 .3
#RECT .0 .0 .96 .64 .3 .3
#TEXT .28 .28 "LOADING..." .0
#DRAW
%A=.0
#FRUN INIT
%A=.0
#FRUN INI2
%A=.-1
#FRUN INI3
%DRAP=%E
%BON=.0
#CLRS
#RCLP
#IIFF %E>.9
#TEXT .103 .1 %E .3
#IIFF %E<.10
#TEXT .107 .1 %E .3
#TEXT .110 .1 ":" .3
#TEXT .114 .1 %E .3
#TEXT .106 .50 "SHIFT" .2
#TEXT .109 .57 "CTRL" .2
#DBMP [DRAP .122 .1
#DBMP [CONT .108 .25
#STOP
%A=.0
#FRUN F
%X=.1
%Y=.1
#FRUN DEPL
#FEND

#FNCT F
#CLRS
#RCLP
#RECT .0 .0 .127 .32-%A .3 .3
#RECT .0 .32+%A .127 .64 .3 .3
#RECT .0 .0 .96 .32-%A .3 .3
#RECT .0 .32+%A .96 .64 .3 .3
%A=%A+.1
#DRAW
#WAIT .200
#IIFF %A<.33
#FGOB
#FEND

#FNCT E
#LINE .0 %A .127 %A .3
#LINE .0 .64-%A .127 .64-%A .3
#LINE .0 %A .94 %A .3
#LINE .0 .64-%A .94 .64-%A .3
%A=%A+.1
#DRAW
#WAIT .200
#IIFF %A<.33
#FGOB
#FEND

#FNCT C
#SHFT .0 .1 .0
#DRAW
#WAIT .50
%A=%A+.1
#IIFF %A<.64
#FGOB
#FEND

#FNCT A
#DBMP [VIDE %A .0
#DBMP [VIDE %A .58
#DBMP [VIDE %A .16
#DBMP [VIDE %A .41
%A=%A+.5
#IIFF %A<.127
#FGOB
#STOP
#FEND

#FNCT INTR
%A=.1*%C+%A
%B=.2*%D+%B
#CLRS
#RCLP
#GKEY .95 %U
#DBMP [CONT %B %A
#RECT .29 .27 .63 .35 .3 .2
#PIXL .29 .35 .1
#PIXL .63 .27 .1
#TEXT .31 .29 "DEMINEUR" .0
#TEXT .2 .52 "BY SAMY" .0
#IIFF %Z=.1
#RECT .0 .0 .127 .63 .4 .4
#DRAW
#IIFF %A=.0
%C=%C*.-1
#IIFF %A=.0
%Z=%Z*.-1
#IIFF %B<.0
%D=%D*.-1
#IIFF %B<.0
%Z=%Z*.-1
#IIFF %A=.51
%C=%C*.-1
#IIFF %A=.51
%Z=%Z*.-1
#IIFF %B>.113
%D=%D*.-1
#IIFF %B>.113
%Z=%Z*.-1
#WAIT .50
#IIFF %U!.1
#FGOB
#FEND

#FNCT GAGN
#SHFT .0 .1 .0
#DRAW
%Z=%Z+.1
#IIFF %Z<.64
#FGOB
#RECT .0 .19 .127 .39 .3 .0
#RECT .2 .21 .125 .37 .3 .3
#TEXT .54 .27 "WIN" .4
#TEXT .54 .57 "[EXE]" .2
%TC=%C*%D*%E+.240-%COU
#IIFF %TB<%TC
#TEXT .19 .41 "BEST" .2
#IIFF %TB<%TC
#WRTE .0 %TC
#TEXT .39 .41 "SCORE:" .2
#TEXT .63 .41 %TC .2
#DRAW
#PAUS
%A=.0
#FRUN E
#FRUN R
#FEND

#FNCT DRAP
#CLRS
#RCLP
%A=%Y-.1*%D+%X-.1
%I=@LIST(%A)
#IIFF %I>.59
#FEND
%COU=%COU+.1
#WAIT .200
#IIFF %I<.30
#FRUN DRA1
#IIFF %I>.29
#FRUN DRA2
#FEND

#FNCT DRA1
#DBMP [DRAP .5*%X-.4 .5*%Y-.4
@LIST(%A)=%I+.30
%DRAP=%DRAP-.1
#IIFF %I=.20
%BON=%BON+.1
%Z=.0
#IIFF %BON=%E
#FRUN GAGN
#FEND

#FNCT DRA2
@LIST(%A)=%I-.30
#DBMP [VIDE .5*%X-.4 .5*%Y-.4
%DRAP=%DRAP+.1
#IIFF %I=.50
%BON=%BON-.1
#FEND

#FNCT PER1
#RECT .0 .0 .127 .64 .4 .4
#DRAW
#WAIT .1000
#RECT .0 .0 .127 .64 .4 .4
#DRAW
%A=.0
%B=.0
%G=.0
#FRUN PERD
#FEND

#FNCT PERD
#IIFF %B=%D
%B=.0
#IIFF %B=.0
%G=%G+.1
%B=%B+.1
#IIFF @LIST(%A)=.50
#DBMP [BOMB .5*%B-.4 .5*%G-.4
#IIFF @LIST(%A)=.20
#DBMP [BOMB .5*%B-.4 .5*%G-.4
%A=%A+.1
#IIFF %A<%C*%D
#FGOB
#DBMP [TRIS .108 .25
#TEXT .54 .57 "[EXE]" .3
#DRAW
#PAUS
%A=.0
#FRUN E
#FRUN R
#FEND

#FNCT SHIF
#CLRS
#RCLP
%A=%Y-.1*%D+%X-.1
%H=@LIST(%A)
#IIFF %H>.29&%H<.60
@LIST(%A)=%H-.30
#IIFF %H>.29&%H<.60
%H=%H-.30
#IIFF %H=.20
#FRUN PER1
#IIFF %H<.59
@LIST(%A)=@LIST(%A)+.60
#IIFF %H=.0
#RECT .5*%X-.3 .5*%Y-.3 .5*%X .5*%Y .0 .0
#IIFF %H=.1
#DBMP [1 .5*%X-.4 .5*%Y-.4
#IIFF %H=.2
#DBMP [2 .5*%X-.4 .5*%Y-.4
#IIFF %H=.3
#DBMP [3 .5*%X-.4 .5*%Y-.4
#IIFF %H=.4
#DBMP [4 .5*%X-.4 .5*%Y-.4
#IIFF %H=.5
#DBMP [5 .5*%X-.4 .5*%Y-.4
#IIFF %H=.6
#DBMP [6 .5*%X-.4 .5*%Y-.4
#IIFF %H=.7
#DBMP [7 .5*%X-.4 .5*%Y-.4
#IIFF %H=.8
#DBMP [8 .5*%X-.4 .5*%Y-.4
#IIFF %H=.9
#DBMP [9 .5*%X-.4 .5*%Y-.4
#IIFF %H=.20
#DBMP [BOMB .5*%X-.4 .5*%Y-.4
#STOP
#IIFF %H<.60
%COU=%COU+.1
#FEND

#FNCT DEPL
#CLRS
#RCLP
#RECT .5*%X-.4 .5*%Y-.4 .5*%X+.1 .5*%Y+.1 .0 .4
%W=@LIST(%Y-.1*%D+%X-.1)
%T=%W-.60
#IIFF %W<.60
#TEXT .113 .12 "?" .3
#IIFF %W>.59
#TEXT .113 .12 %T .3
#DRAW
#WKEY %DEPL
#IIFF %DEPL=.95
#FEND
#IIFF %DEPL=.22
#FRUN DRAP
#RECT .103 .1 .110 .7 .0 .0
#IIFF %DRAP>.9
#TEXT .103 .1 %DRAP .3
#IIFF %DRAP<.10
#TEXT .107 .1 %DRAP .3
#DRAW
#IIFF %DEPL=.22
#STOP
#IIFF %DEPL=.21
#FRUN SHIF
#IIFF %DEPL=.26
%X=%X+.1
#IIFF %DEPL=.24
%X=%X-.1
#IIFF %DEPL=.25
%Y=%Y-.1
#IIFF %DEPL=.34
%Y=%Y+.1
#IIFF %Y=.0
%Y=%C
#IIFF %Y=%C+.1
%Y=.1
#IIFF %X=.0
%X=%D
#IIFF %X=%D+.1
%X=.1
#WAIT .300
#FGOB
#FEND

#FNCT H1
#IIFF @LIST(%A-%D)=.20
%B=%B+.1
#FEND

#FNCT H2
#IIFF @LIST(%A+%D)=.20
%B=%B+.1
#FEND

#FNCT G10
#IIFF @LIST(%A-%D-.1)=.20
%B=%B+.1
#FEND

#FNCT G11
#IIFF @LIST(%A+%D-.1)=.20
%B=%B+.1
#FEND

#FNCT G12
#IIFF @LIST(%A-.1)=.20
%B=%B+.1
#FEND

#FNCT INI3
%B=.0
%G=.0
%H=.0
%A=%A+.1
#IIFF %A=%C*%D
#FEND
#IIFF @LIST(%A)!.0
#FGOB
#IIFF %A<%D
%H=.1
#IIFF %A>%C*%D-.1-%D
%H=.2
#IIFF %H!.1
#FRUN H1
#IIFF %H!.2
#FRUN H2
#IIFF %A!.0&%A!%D&%A!.2*%D&%A!.3*%D&%A!.4*%D&%A!.5*%D&%A!.6*%D&%A!.7*%D&%A!.8*%D&%A!.9*%D&%A!.10*%D&%A!.11*%D
%G=.1
#IIFF %H!.1&%G=.1
#FRUN G10
#IIFF %H!.2&%G=.1
#FRUN G11
#IIFF %G=.1
#FRUN G12
%G=.0
#IIFF %A!%D-.1&%A!.2*%D-.1&%A!.3*%D-.1&%A!.4*%D-.1&%A!.5*%D-.1&%A!.6*%D-.1&%A!.7*%D-.1&%A!.8*%D-.1&%A!.9*%D-.1&%A!.10*%D-.1&%A!.11*%D-.1&%A!.12*%D-.1
%G=.2
#IIFF %H!.1&%G=.2&@LIST(%A-%D+.1)=.20
%B=%B+.1
#IIFF %H!.2&%G=.2&@LIST(%A+%D+.1)=.20
%B=%B+.1
#IIFF %G=.2&@LIST(%A+.1)=.20
%B=%B+.1
@LIST(%A)=%B
#FGOB
#FEND

#FNCT INI2
#RNDM .0 %C*%D-.1 %B
%F=@LIST(%B)
#IIFF %F!.0
#FGOB
@LIST(%B)=.20
%A=%A+.1
#IIFF %A<%E
#FGOB
#FEND

#FNCT INIT
@LIST(%A)=.0
%A=%A+.1
#IIFF %A<%C*%D
#FGOB
#FEND

#FNCT GRI1
%A=%A+.1
%B=.0
#FRUN GRI2
#IIFF %A<%C
#FGOB
#FEND

#FNCT GRI2
%B=%B+.1
#DBMP [VIDE .5*%B-.4 .5*%A-.4
#IIFF %B<%D
#FGOB
#FEND

#FNCT DEBU
#CLRS
#TEXT .1 .1 "NUMBER OF ROWS?" .3
#TEXT .20 .8 "(04/12)" .3
#DRAW
#FRUN TOUC
%C=.10*%B
#TEXT .1 .8 %B .2
#DRAW
#FRUN TOUC
#TEXT .5 .8 %B .2
#DRAW
%C=%C+%B
#IIFF %B=.10
#FGOB
#IIFF %C<.4
#FGOB
#IIFF %C>.12
#FGOB
#TEXT .1 .17 "NUMBER OF COLUMNS?" .3
#TEXT .20 .24 "(04/20)" .3
#DRAW
#FRUN TOUC
%D=.10*%B
#TEXT .1 .24 %B .2
#DRAW
#IIFF %B=.10
#FGOB
#FRUN TOUC
#TEXT .5 .24 %B .2
#DRAW
%D=%D+%B
#IIFF %B=.10
#FGOB
#IIFF %D<.4
#FGOB
#IIFF %D>.20
#FGOB
#TEXT .1 .33 "NUMBER OF BOMBERS?" .3
#TEXT .20 .40 "(01/  )" .3
%F=%C*%D*.4/.10
#IIFF %F>.9
#TEXT .36 .40 %F .3
#IIFF %F<.10
#TEXT .36 .40 "0" .3
#IIFF %F<.10
#TEXT .40 .40 %F .3
#DRAW
#FRUN TOUC
%E=.10*%B
#TEXT .1 .40 %B .2
#DRAW
#IIFF %B=.10
#FGOB
#FRUN TOUC
#TEXT .5 .40 %B .2
#DRAW
%E=%E+%B
#IIFF %B=.10
#FGOB
#IIFF %E<.1
#FGOB
#IIFF %E>%F
#FGOB
#FEND

#FNCT TOUC
%B=.11
#WKEY %A
#IIFF %A=.61
%B=.10
#IIFF %A=.91
%B=.0
#IIFF %A=.82
%B=.1
#IIFF %A=.83
%B=.2
#IIFF %A=.84
%B=.3
#IIFF %A=.72
%B=.4
#IIFF %A=.73
%B=.5
#IIFF %A=.74
%B=.6
#IIFF %A=.62
%B=.7
#IIFF %A=.63
%B=.8
#IIFF %A=.64
%B=.9
#IIFF %B=.11
#FGOB
#WAIT .600
#FEND

#DATA
#BITM [VIDE 8
0078787878000000
FC848C8CBCFC0000
030303030303FFFF
#BITM [1 8
0010101010000000
FC94949494FC0000
030303030303FFFF
#BITM [2 8
0030081038000000
FCB48C94BCFC0000
030303030303FFFF
#BITM [3 8
0070301060000000
FCF4B494E4FC0000
030303030303FFFF
#BITM [4 8
0040503010000000
FCC4D4B494FC0000
030303030303FFFF
#BITM [5 8
0038300830000000
FCBCB48CB4FC0000
030303030303FFFF
#BITM [6 8
0030407070000000
FCB4C4F4F4FC0000
030303030303FFFF
#BITM [7 8
0038081010000000
FCBC8C9494FC0000
030303030303FFFF
#BITM [8 8
0038283838000000
FCBCACBCBCFC0000
030303030303FFFF
#BITM [9 8
0038380830000000
FCBCBC8CB4FC0000
030303030303FFFF
#BITM [DRAP 8
0020303820000000
FC84848484FC0000
030303030303FFFF
#BITM [BOMB 8
0048303048000000
FC84848484FC0000
030303030303FFFF
#BITM [CONT 6
07001FC03FE073307BB0FFF8FFF8FFF87FF07FF03FE01FC00700000000000000
070018C020204010489080088008800848904710202018C00700000000000000
F8FFE03FC01F800F800F000700070007800F800FC01FE03FF8FFFFFFFFFFFFFF
#BITM [TRIS 6
07001FC03FE073307BB0FFF8FFF8FFF87FF07FF03FE01FC00700000000000000
070018C020204010489080088008800847104890202018C00700000000000000
F8FFE03FC01F800F800F000700070007800F800FC01FE03FF8FFFFFFFFFFFFFF
#DEND
