Q B a s i c N i b b l e s

END SUB

''''StillWantsToPlay:
''''  Determines if users want to play game again.
FUNCTION StillWantsToPlay

    COLOR colorTable(5), colorTable(6)
    Center 10, "圻哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌?
    Center 11, "?      G A M E   O V E R       ?
    Center 12, "?                              ?
    Center 13, "?     Play Again?   (Y/N)      ?
    Center 14, "圮苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘?

    WHILE INKEY$ <> "": WEND
    DO
        kbd$ = UCASE$(INKEY$)
    LOOP UNTIL kbd$ = "Y" OR kbd$ = "N"

    COLOR 15, colorTable(4)
    Center 10, "                                 "
    Center 11, "                                 "
    Center 12, "                                 "
    Center 13, "                                 "
    Center 14, "                                 "

    IF kbd$ = "Y" THEN
        StillWantsToPlay = TRUE
    ELSE
        StillWantsToPlay = FALSE
        COLOR 7, 0
        CLS
    END IF

END FUNCTION

上一页  [1] [2] [3] [4] [5] [6] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18