Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'FreeSNAKE v0.4
- 'Maxwell Hansen
- '12/30/2010
- SCREEN 16
- LOCATE 10,17
- PRINT "FreeSNAKE Practice Edition"
- GOUP$ = "w"
- GODOWN$ = "s"
- GOLEFT$ = "a"
- GORIGHT$ = "d"
- GOQUIT$ = "q"
- NOTHING$ = ""
- COUNT% = 1
- X% = 50
- Y% = 50
- SCORE% = 0
- 'MAIN GAME LOOP
- DO
- 'GET KEY AND ADJUST SNAKE DIRECTION ACCORDINGLY
- K$ = INKEY$
- IF (K$ <> "") THEN
- TMP$ = K$
- ENDIF
- SELECT CASE K$
- CASE GOUP$
- Y% = Y% - 5
- CASE GODOWN$
- Y% = Y% + 5
- CASE GORIGHT$
- X% = X% + 5
- CASE GOLEFT$
- X% = X% - 5
- CASE NOTHING$
- IF (COUNT% = 2) THEN
- SELECT CASE TMP$
- CASE GOUP$
- Y% = Y% - 16
- CASE GODOWN$
- Y% = Y% + 16
- CASE GORIGHT$
- X% = X% + 16
- CASE GOLEFT$
- X% = X% - 16
- END SELECT
- END IF
- END SELECT
- CIRCLE (X%, Y%), 1, 2
- COUNT% = COUNT% + 1
- 'END LOOP IF INKEY$ RETURNED THE QUIT SEQUENCE
- LOOP UNTIL K$ = GOQUIT$
- SCORE% = COUNT%
- PRINT COUNT%
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement