Forum Graph100

MLC:

#FNCT MAIN

%XBAL=.4
%YBAL=.32
%P1P=.26
%P2P=.26
%XBI=.1
%YBI=.1
%T=.0
%P1S=.0
%P2S=.0

#FRUN DRAW
#TEXT .44 .25 "PONG V0.5" .3

#TEXT .40 .32 "PRESS A KEY" .1
#DRAW
#WKEY %TMP
#FRUN STG
#FEND


#FNCT STG
#IIFF %XBAL>.120&%YBAL>%P2P&%YBAL<%P2P+.15%XBI=.-1
#RNDM .-1 .-2 %XBI

#IIFF %XBAL>.126
#FRUN P1W

#IIFF %YBAL>.60
%YBI=.-1

#IIFF %YBAL<.1
%YBI=.1

#IIFF %XBAL<.5&%YBAL>%P1P&%YBAL<%P1P+.15
#RNDM .1 .2 %XBI

#IIFF %XBAL<.1
#FRUN P2W

#IIFF %P2P+.7<%YBAL&%XBI=.1&%P2P<.47
%P2P=%P2P+.1

#IIFF %P2P+.7>%YBAL&%XBI=.1&%P2P>.1
%P2P=%P2P-.1

#IIFF %XBI=.2
#FRUN MVH

#IIFF %XBI=.-1&%P2P<.25&%T=.0
%P2P=%P2P+.1

#IIFF %XBI=.-1&%P2P>.25&%T=.0
%P2P=%P2P-.1

%T=.1-%T

%XBAL=%XBAL+%XBI
%YBAL=%YBAL+%YBI

#GKEY .25 %KUP
#GKEY .34 %KDWN
#IIFF %KUP=.1&%P1P>.1
%P1P=%P1P-.1
#IIFF %KDWN=.1&%P1P<.47
%P1P=%P1P+.1

#FRUN DRAW
#DRAW
#FGOB
#FEND

#FNCT END
#TEXT .54 .29 "PERDU!" .1
#TEXT .55 .30 "PERDU!" .3
#DRAW
#PAUS
#HALT
#FEND

#FNCT MVH
#RNDM .0 .3 %TMP
#IIFF %TMP!.1&%P2P+.7<%YBAL
%P2P=%P2P+.1
#IIFF %TMP!.1&%P2P+.7>%YBAL
%P2P=%P2P-.1
#FEND

#FNCT DRAW
#CLRS
#RECT .1 %P1P .3 %P1P+.15 .2 .1
#RECT .125 %P2P .127 %P2P+.15 .2 .1

#RECT %XBAL %YBAL %XBAL+.2 %YBAL+.2 .3 .1
#TEXT .120 .1 %P2S .1
#TEXT .10 .1 %P1S .1
#DRAW
#FEND

#FNCT P1W
%P1S=%P1S+.1
%XBAL=.4
%YBAL=.32
%P1P=.26
%P2P=.26
%XBI=.1
%YBI=.1
#FRUN DRAW
#WKEY %TMP
#FRUN STG
#FEND

#FNCT P2W
%P2S=%P2S+.1
%XBAL=.4
%YBAL=.32
%P1P=.26
%P2P=.26
%XBI=.1
%YBI=.1
#FRUN DRAW

#WKEY %TMP
#FRUN STG
#FEND