projects
/
qbasicapps.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
updated license and email addresses
[qbasicapps.git]
/
games
/
mario
/
smario.bas
diff --git
a/games/mario/smario.bas
b/games/mario/smario.bas
index
fc1e3bd
..
b4e1432
100755
(executable)
--- a/
games/mario/smario.bas
+++ b/
games/mario/smario.bas
@@
-1,6
+1,5
@@
' Super Mario style game
\r
' by Svjatoslav Agejenko 1999
\r
' Super Mario style game
\r
' by Svjatoslav Agejenko 1999
\r
-' E-mail: svjatoslavagejenko@gmail.com
\r
\r
DECLARE SUB CL ()
\r
DECLARE SUB esc ()
\r
\r
DECLARE SUB CL ()
\r
DECLARE SUB esc ()
\r
@@
-291,7
+290,7
@@
LOCATE 1, 1
PRINT "You are "
\r
LOCATE 2, 1
\r
PRINT " killed! "
\r
PRINT "You are "
\r
LOCATE 2, 1
\r
PRINT " killed! "
\r
-
\r
+
\r
FOR x = 0 TO 80
\r
FOR y = 0 TO 16
\r
IF POINT(x, y) > 0 THEN LINE (x * 5, y * 5 + 50)-(x * 5 + 4, y * 5 + 54), 4, BF
\r
FOR x = 0 TO 80
\r
FOR y = 0 TO 16
\r
IF POINT(x, y) > 0 THEN LINE (x * 5, y * 5 + 50)-(x * 5 + 4, y * 5 + 54), 4, BF
\r
@@
-606,4
+605,3
@@
NEXT b
NEXT a
\r
CLOSE
\r
END SUB
\r
NEXT a
\r
CLOSE
\r
END SUB
\r
-
\r