Kirillza, Шта. Не понял

При нажатии у a%-d% а b%-c%, что непонятного?

Нажимаешь 2 у врага отнимается Hp и у тебя.

Открыть спойлер

Закрыть спойлер

430 drawstring "HP:"+str$(a%),20,20:drawstring "HP:"+str$(b%),120,20:drawstring "[1] Атаковать",20,220
440 drawstring "[2] Сбежать",20,240
450 if inkey(0)=49 then sleep 200: goto 510
460 if inkey(0)=50 then sleep 200: goto 140
500 repaint:goto 450
510 a%=a%-d%:b%=b%-c%:repaint:goto 450

как?

if up(0) then a%=a%-d%:b%=b%-c%

все что после ":" на строке с if выполняется только если условие верно

У тебя же мать его сделано. Через goto. Что не так то?

А вот за строку 500 можно башку проломить

Открыть спойлер

Закрыть спойлер

10 a%=100:c%=RAND(0,20)
20 drawstring str$(a%),20,20
30 if inkey(0)=49 then a%=a%-c%
40 repaint:goto 40Упращено всё равно не робит .

HoldFast, Без слипа?

Там все равно будет не однократно отниматься, а пока кнопку держишь. Надо сделать еще эту хрень, которая зажимание блокирует