5 X%=25:Y%=99
50 CLS
55 GOTO 20000
60 READ A$
70 READ B$
80 G%=2
90 FOR I%=0 TO G%-1
100 GELLOAD A$,B$
10000 DATA GE,GE.png
20000 DIM HERO%(50):DIM MOB%(50)
20010 DIM MOB%(50)
20020 HERO%(1)=50:HERO%(2)=HERO%(3)+HERO%(4)
20030 HERO%(3)=5:HERO%(4)=10
20040 HERO%(5)=10:HERO%(6)=HERO%(5)/100*20
20050 MOB%(1)=30:MOB%(2)=5
20060 MOB%(3)=7:MOB%(4)=MOB%(3)/100*17
20070 MOB%(3)=7:MOB%(4)=MOB%(3)/100*17
20080 MOB%(4)=MOB%(3)/100*17
20090 DRAWSTRING "HP:"+STR$(HERO%(1)),5,5
20100 DRAWSTRING "HP âðàãà:"+STR$(MOB%(1)),140,5
20110 DRAWSTRING "Àòàêîâàòü",35,100:DRAWSTRING "Óáåæàòü",35,125
20120 DRAWSTRING ">",X%,Y%
20130 IF UP(0) THEN Y%=Y%-25
20140 IF DOWN(0) THEN Y%=Y%+25
20150 IF Y%<99 THEN Y%=99
20160 IF Y%>124 THEN Y%=124
20170 IF Y%=99 AND FIRE(0) THEN GOTO 20220
20175 IF Y%=124 AND FIRE(0) THEN GOTO 20190
20180 REPAINT:CLS:GOTO 20090
20190 RND%=RAND(0,9)
20200 IF RND%=0 OR RND%=1 THEN CLS:PRINT "Íåóäà÷à":REPAINT:SLEEP 1000:GOTO 20090
20210 CLS:PRINT "Ïîáåã óäàëñÿ!":REPAINT:SLEEP 1000:GOTO 5
20220 MOB%(5)=RND(MOB(2)/2,MOB(2)+MOB(2)/2)
20230 HERO%(7)=RND(HERO%(2)/2,HERO%(2)+HERO(2)/2)
20240 CLS:PRINT "Âû àòàêóåòå":MOB%(1)=MOB%(1)-(HERO%(7)-MOB%(4)):REPAINT
20245 SLEEP 1000
20250 CLS:PRINT "Ìîíñòåð àòàêóåò":HERO%(1)=HERO%(1)-(MOB%(5)-HERO%(6)):REPAINT
20255 SLEEP 1000
20260 CLS:GOTO 20090
