1 HP%=30
2 AT%=3
3 DEF=0.0
4 POG=DEF/100*20
5 M$="kr.mob"
6 X%=16
7 Y%=77
9 CLS
10 GE%=0
20 FOR I%=0 TO GE%
30 READ A$
40 READ B$
50 GELLOAD A$,B$
60 NEXT I%
70 SPRITEGEL "KUR","KUR"
80 SPRITEMOVE "KUR",1000,1000
90 OPEN #1,M$,"INPUT"
100 INPUT #1,MH%
110 INPUT #1,MPOG%
120 INPUT #1,MAT%
130 DRAWSTRING "HP:"+STR$(HP%),5,5:DRAWSTRING "HP врага:"+STR$(MH%),140,5
140 DRAWSTRING "Атаковать",30,75
150 DRAWSTRING "Убежать",30,100
160 SPRITEMOVE "KUR",X%,Y%:REPAINT
170 IF UP(0) THEN Y%=Y%-27
180 IF DOWN(0) THEN Y%=Y%+27
190 IF Y%<77 THEN Y%=77
200 IF Y%>102 THEN Y%=102
210 IF Y%=77 AND FIRE(0) THEN GOTO 240
220 IF Y%=102 AND FIRE(0) THEN GOTO 160
230 GOTO 160:SLEEP 100
240 CLS:SPRITEMOVE "KUR",1000,1000
250 PRINT "Вы атакуете":REPAINT
251 SLEEP 1000
255 CLS
260 RAND1%=AT%/2:RAND2%=AT%+AT%/2
265 UR%=RAND(RAND1%,RAND2%)
270 DRAWSTRING "урон:"+STR$(UR%),90,130:REPAINT
280 PRINT "Противник атакует":REPAINT
290 SLEEP 1000
300 MR1%=MAT%/2
310 MR2%=MAT%+MAT%/2
320 MUR%=RAND(MR1%,MR2%)
330 DRAWSTRING "Урон:"+STR$(MUR%),90,120:REPAINT
5000 DATA KUR,KUR.png