当我达到游戏中的这一点时,屏幕会不断刷新

时间:2019-04-03 20:58:21

标签: qb64

在我的游戏“黑暗/迷失的森林”中,我正在努力获得盟友和/或武器的部分,但是当我进入该区域时,文字会不断刷新,并且我无法输入任何命令

我曾尝试将check_1%设置为1,但这没用

smithery:

CLS

Saythis "As you walk into the smithery you notice swords, axes, hammers and tools used for forging are lining the walls, some newer than others but none of them have rusted or gone uncleaned, smith must care about his works, you also smell coals burning as you notice smith is flattening a rod of hot iron which looks like a sword,"
IF check_1% = 1 THEN PRINT "(1) Hello Smith, are the weapons I requested done?" ELSE PRINT "(1) Hello Smith, I would like to buy some weapons"
IF check_1% = 1 THEN PRINT "(2) Hello Smith, I would like to buy some weapons." ELSE PRINT "(2) Hello Smith, I would like to requst you to make some weapons."
PRINT "(3) Hey Smith, do you wanna joinme in my adventure?"
PRINT ""
PRINT "what will you do/say?"

SELECT CASE smithery$

    CASE "1"
        IF check_1% = 1 GOTO smithery1a ELSE GOTO smithery1b
    CASE "2"
        GOTO smithery2a
    CASE "3"
        GOTO smithery3a
    CASE ELSE
        GOTO smithery

END SELECT

我要它做的不是像疯子一样刷新屏幕

我记得发生这种情况的原因,我没有添加input

smithery:

CLS

Saythis "As you walk into the smithery you notice swords, axes, hammers and tools used for forging are lining the walls, some newer than others but none of them have rusted or gone uncleaned, smith must care about his works, you also smell coals burning as you notice smith is flattening a rod of hot iron which looks like a sword,"
IF check_1% = 1 THEN PRINT "(1) Hello Smith, are the weapons I requested done?" ELSE PRINT "(1) Hello Smith, I would like to buy some weapons"
IF check_1% = 1 THEN PRINT "(2) Hello Smith, I would like to buy some weapons." ELSE PRINT "(2) Hello Smith, I would like to requst you to make some weapons."
PRINT "(3) Hey Smith, do you wanna joinme in my adventure?"
PRINT ""
INPUT "what will you do/say?", smithery$

SELECT CASE smithery$

    CASE "1"
        IF check_1% = 1 GOTO smithery1a ELSE GOTO smithery1b
    CASE "2"
        GOTO smithery2a
    CASE "3"
        GOTO smithery3a
    CASE ELSE
        GOTO smithery

END SELECT

1 个答案:

答案 0 :(得分:0)

添加input可行,我通常会忘记添加