1140 hpk$=hpk$-at$
1150 hp$=hp$-atk$
1160 repaint
1170 goto 1110

Как сделать таймер в игре (типо за 2 секунды восстанавливается 1 хп)?

MisterN,
ts% можно не инициализировать

доброго времени суток.
подскажите почему собраный мидлет вылитает с ошибкой нул поинтер экспоинт.

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

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

9 CLS
10 DIM MENU$(4)
20 MENU$(0)="file"
30 MENU$(1)="local"
40 MENU$(2)="Hello world"
50 MENU$(3)="Exit"
60 C%=0
70 W%=SCREENWIDTH(0):H%=SCREENHEIGHT(0)
80 SETCOLOR 200,200,200:FILLRECT 0,0,W%,H%
90 SETCOLOR 50,50,50
100 FOR I%=0 TO 3
110 DRAWSTRING MENU$(I%),W%/2-STRINGWIDTH(MENU$(I%))/2,I%*STRINGHEIGHT(MENU$(I%))
120 NEXT I%
125 SETCOLOR 50,50,50
126 FILLRECT 0,C%*STRINGHEIGHT("A"),W%,STRINGHEIGHT("A")
130 SETCOLOR 255,0,0
140 DRAWSTRING MENU$(C%),W%/2-STRINGWIDTH(MENU$(C%))/2,C%*STRINGHEIGHT(MENU$(C%))
141 REPAINT
150 IF UP(0) THEN C%=C%-1:GOTO 170
160 IF DOWN(0) THEN C%=C%+1:GOTO 170
164 IF FIRE(0) THEN GOTO 210
165 GOTO 80
170 IF C%<0 THEN C%=3
180 IF C%>3 THEN C%=0
190 IF INKEY(0)=0 THEN GOTO 70
200 GOTO 190
210 IF C%=0 THEN CALL "file:///C:/Data/Images/MobileBasic/snow/snow.bas"
220 IF C%=1 THEN CALL "/snow.bas"
230 IF C%=2 THEN CALL REM
240 IF C%=3 THEN GOTO REM
250 END
путь в фс CALL "file:///" нормально работает.
Внутри мидлета CALL "/*.bas" вылетает

Alexandr, Когда тестил на МБ не вылетало?

В какой строке?

vl@volk, 220 строке

Fantastik, вылитает только с путём внутри архива call "/*.bas" и "*.bas"
с путем из фс всё работает..

Alexandr, С мб вечные проблемы. Пишешь хороший алгоритм, но прога дает сбой.

У тебя нокиа, поэтому вылетает возможно. На Се и сименсах работает норм

похоже я в коде накосячил, и возможно call сдесь непричем.
Написал так, собрал в мидлет вроде работает

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

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

10 CLS
20 DRAWSTRING "run hello world bas..",1,1
30 REPAINT
40 SLEEP 3000
50 CALL "/hello.bas"
60 END