X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=games%2Fmario%2Fsmario.bas;h=b4e14325f468167beb161fcbf04d5c648b22a9da;hp=fc1e3bd11e405b039c14f474844c598daa860f94;hb=ddf99a87d8ab4fc3a1e3bbeba50aba45db84b455;hpb=a4472b203a8591f710a4f27f414075f9c656ba49 diff --git a/games/mario/smario.bas b/games/mario/smario.bas index fc1e3bd..b4e1432 100755 --- a/games/mario/smario.bas +++ b/games/mario/smario.bas @@ -1,6 +1,5 @@ ' Super Mario style game ' by Svjatoslav Agejenko 1999 -' E-mail: svjatoslavagejenko@gmail.com DECLARE SUB CL () DECLARE SUB esc () @@ -291,7 +290,7 @@ LOCATE 1, 1 PRINT "You are " LOCATE 2, 1 PRINT " killed! " - + FOR x = 0 TO 80 FOR y = 0 TO 16 IF POINT(x, y) > 0 THEN LINE (x * 5, y * 5 + 50)-(x * 5 + 4, y * 5 + 54), 4, BF @@ -606,4 +605,3 @@ NEXT b NEXT a CLOSE END SUB -