1 GELLOAD "logo","logo2.png"
2 DRAWGEL "logo",0,0: SLEEP 3500: CLS : GOTO 10
10 A%=SELECT("Legends of warriors","новая игра","продолжить","об игре","выход")
15 IF A%=0 THEN  GOTO 300
20 IF A%=1 THEN  GOTO 5000
30 IF A%=2 THEN  GOTO 50
35 IF A%=3 THEN  BYE 
40 GOTO 10
50 PRINT "автор vapigor. Сохраняемся в городе у магистра магии"
60 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 10
70 GOTO 60
300 SCOINS%=0:COINS%=10:OD%=0:OR%=0:SP%=0:SL%=0:OB%=5
301 RES1%=0:RES2%=0:RES3%=0:LVL%=0:OP%=0:SLVL%=100:MAG1%=0:MAG2%=0:MAG3%=0:Q1%=0:Q2%=0:Q3%=0:DEF%=OB%+DSP%+DOD%+DSL%
302 OR$="ничего":OD$="ничего":SP$="ничего":SL$="ничего":Q4%=0
310 RASSA%=SELECT("расса","человек","эльф","орк","мертвец","гном","мутант","северный человек","пещерный орк","назад")
315 IF RASSA%=0 THEN PLIFE%=100:LIFE%=PLIFE%:PMANA%=20:SILA%=10:OB%=2:MANA%=PMANA%:OD%=1:SLVL%=100:RASSA$="человек": GOTO 500
320 IF RASSA%=1 THEN PLIFE%=100:LIFE%=PLIFE%:PMANA%=30:MANA%=PMANA%:SILA%=10:OB%=0:SLVL%=100:RASSA$="эльф": GOTO 500
325 IF RASSA%=2 THEN PLIFE%=110:LIFE%=PLIFE%:SILA%=9:OB%=0:PMANA%=15:MANA%=PMANA%:SLVL%=120:SP%=1:RASSA$="орк": GOTO 500
330 IF RASSA%=3 THEN PLIFE%=130:LIFE%=PLIFE%:SILA%=12:OB%=1:PMANA%=10:MANA%=PMANA%:SLVL%=100:OD%=1:RASSA$="мертвец": GOTO 500
335 IF RASSA%=4 THEN PLIFE%=125:LIFE%=PLIFE%:SILA%=12:OB%=4:PMANA%=5:MANA%=PMANA%:SLVL%=150:OD%=1:SL%=1:RASSA$="гном": GOTO 500
340 IF RASSA%=5 THEN PLIFE%=85:LIFE%=PLIFE%:SILA%=14:OB%=3:PMANA%=25:MANA%=PMANA%:SLVL%=125:RASSA$="мутант": GOTO 500
345 IF RASSA%=6 THEN PLIFE%=120:LIFE%=PLIFE%:SILA%=12:OB%=3:PMANA%=10:MANA%=PMANA%:SLVL%=115:RASSA$="северный человек": GOTO 500
350 IF RASSA%=7 THEN PLIFE%=115:LIFE%=PLIFE%:SILA%=11:OB%=2:PMANA%=0:MANA%=PMANA%:SLVL%=120:RASSA$="пещерный орк": GOTO 500
355 IF RASSA%=8 THEN  GOTO 10
360 GOTO 310
500 PRINT "вы прибыли в Вридорг в поисках работы. Хорошенько осмотритесь."
510 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 530
520 GOTO 510
530 JOB%=SELECT("ваш класс","воин","рыцарь","маг","паладин","мастер","магистр","некромант","красный маг")
535 IF JOB%=0 THEN CLAS%=1:CLAS$="воин":LIFE%=PLIFE%:PMANA%=10:SILA%=SILA%+3:OB%=OB%+3:MANA%=PMANA%: GOTO 600
540 IF JOB%=1 THEN CLAS%=2:CLAS$="рыцарь":LIFE%=PLIFE%:PMANA%=0:SILA%=SILA%+2:OB%=OB%+4:MANA%=PMANA%: GOTO 600
545 IF JOB%=2 THEN CLAS%=3:CLAS$="маг":LIFE%=PLIFE%:PMANA%=PMANA%+30:SILA%=SILA%-1:OB%=OB%-1:MANA%=PMANA%: GOTO 600
547 IF JOB%=3 THEN CLAS%=4:CLAS$="паладин":LIFE%=PLIFE%:PMANA%=0:SILA%=SILA%+4:OB%=OB%+2:MANA%=PMANA%: GOTO 600
550 IF JOB%=4 THEN CLAS%=5:CLAS$="мастер":LIFE%=PLIFE%:PMANA%=25:SILA%=SILA%+3:OB%=OB%+1:MANA%=PMANA%: GOTO 600
555 IF JOB%=5 THEN CLAS%=6:CLAS$="магистр":LIFE%=PLIFE%:PMANA%=70:SILA%=SILA%+1:OB%=OB%-4:MANA%=PMANA%: GOTO 600
560 IF JOB%=6 THEN CLAS%=7:CLAS$="некромант":LIFE%=PLIFE%:PMANA%=40:SILA%=SILA%+3:OB%=OB%+2:MANA%=PMANA%: GOTO 600
565 IF JOB%=7 THEN CLAS%=8:CLAS$="кр. маг":LIFE%=PLIFE%:PMANA%=50:SILA%=SILA%+2:OB%=OB%-4:MANA%=PMANA%: GOTO 600
570 GOTO 530
600 LAND%=SELECT("куда идти?","Вридорг","катакомбы","развалины")
610 IF LAND%=0 THEN  GOTO 700
615 IF LAND%=1 AND Q3%=0 THEN  GOTO 5500
616 IF LAND%=1 AND Q3%=1 AND RES1%>19 THEN  GOTO 5600
620 IF LAND%=2 AND Q4%=0 THEN  GOTO 5700
621 IF LAND%=2 AND Q4%=1 THEN  GOTO 6500
630 GOSUB 900: GOTO 600
700 VRID%=SELECT("Вридорг","твой герой","таверна","торговец","магистр магии","арена","назад")
701 ATK%=WN%+SILA%
705 IF VRID%=0 THEN  GOTO 755
710 IF VRID%=1 THEN  GOTO 1200
720 IF VRID%=2 THEN  GOTO 1500
730 IF VRID%=3 THEN  GOTO 2400
740 IF VRID%=4 THEN  GOTO 3600
745 IF VRID%=5 THEN  GOTO 600
750 GOTO 700
755 MYH%=SELECT("герой","хар-ки","вещи","ресы","спать","назад")
756 IF MYH%=0 THEN  GOTO 805
757 IF MYH%=1 THEN  GOTO 1000
758 IF MYH%=2 THEN  GOTO 1100
759 IF MYH%=4 THEN  GOTO 700
800 IF MYH%=3 THEN  GOTO 4800
801 GOSUB 900: GOTO 755
805 SETCOLOR 140,0,0: GOSUB 900
810 FILLRECT 0,0,240,320
820 SETCOLOR 0,0,0
830 DRAWSTRING "здоровье:"+STR$(LIFE%)+"/"+STR$(PLIFE%),10,10
840 DRAWSTRING "мана:"+STR$(MANA%)+"/"+STR$(PMANA%),10,22
850 DRAWSTRING "атака"+STR$(ATK%),10,34
860 DRAWSTRING "защита:"+STR$(DEF%),10,46
872 DRAWSTRING "уровень:"+STR$(LVL%),10,58
873 DRAWSTRING "опыт:"+STR$(OP%)+"/"+STR$(SLVL%),10,70
874 DRAWSTRING "расса:"+RASSA$,10,94
875 DRAWSTRING "серебрo:"+STR$(SCOINS%)+"/"+"медные:"+STR$(COINS%),10,82
876 DRAWSTRING "класс:"+CLAS$,10,106
895 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 700
897 GOSUB 900: GOTO 895
900 IF OR%=1 THEN WN%=5:OR$="дубина"
902 IF OR%=2 THEN WN%=8:OR$="кинжал"
904 IF OR%=3 THEN WN%=12:OR$="топор"
906 IF OR%=4 THEN WN%=18:OR$="к. меч"
908 IF OR%=5 THEN WN%=25:OR$="дл. меч"
910 IF OD%=1 THEN DOD%=2:OD$="к. доспех"
912 IF OD%=2 THEN DOD%=5:OD$="л. доспех"
914 IF OD%=3 THEN DOD%=8:OD$="ж. доспех"
916 IF OD%=4 THEN DOD%=15:OD$="м. доспех"
918 IF OD%=5 THEN DOD%=25:OD$="т. доспех"
920 IF SP%=1 THEN DSP%=1:SP$="галоши"
922 IF SP%=2 THEN DSP%=4:SP$="ботинки"
924 IF SP%=3 THEN DSP%=8:SP$="сапоги"
926 IF SP%=4 THEN DSP%=15:SP$="в. сапоги"
928 IF SL%=1 THEN DSL%=2:SL$="шапка"
930 IF SL%=2 THEN DSL%=5:SL$="шлем"
932 IF SL%=3 THEN DSL%=10:SL$="р. шлем"
934 IF SL%=4 THEN DSL%=15:SL$="в. шлем"
935 ATK%=WN%+SILA%
937 DEF%=DOD%+DSP%+DSL%+OB%
940 RETURN 
1000 SETCOLOR 140,0,0: GOSUB 900
1010 FILLRECT 0,0,240,320
1015 SETCOLOR 0,0,0
1020 DRAWSTRING "оружие:"+OR$,10,10
1030 DRAWSTRING "тело:"+OD$,10,22
1040 DRAWSTRING "голова:"+SL$,10,34
1050 DRAWSTRING "обувь:"+SP$,10,46
1060 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 755
1070 GOSUB 900: GOTO 1060
1100 SETCOLOR 140,0,0
1110 FILLRECT 0,0,240,320
1120 SETCOLOR 0,0,0
1130 DRAWSTRING "древесина:"+STR$(RES1%),10,10
1140 DRAWSTRING "железо:"+STR$(RES2%),10,22
1150 DRAWSTRING "еда:"+STR$(RES3%),10,34
1160 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 755
1170 GOTO 1160
1200 TAV%=SELECT("таверна","поесть(10g)","работа есть?","назад")
1210 IF TAV%=0 AND COINS%>9 THEN  GOTO 1260
1215 IF TAV%=1 AND Q1%=0 THEN  GOTO 1300
1216 IF TAV%=1 AND Q1%=1 AND RES3%>9 THEN  GOTO 1350
1217 IF TAV%=1 AND Q1%=1 AND RES3%<9 THEN  GOTO 1400
1220 IF TAV%=2 THEN  GOTO 700
1230 GOTO 1200
1260 PRINT "заплатив 10 монет, вы неплохо подкрепились"
1270 COINS%=COINS%-10:LIFE%=PLIFE%:MANA%=PMANA%
1280 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1200
1290 GOTO 1280
1300 PRINT "хм, принеси мне 10 ед. еды и получишь деньги"
1310 Q1%=1
1320 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1200
1330 GOTO 1320
1350 PRINT "спасибо, держи деньги, принеси столько же"
1360 RES3%=RES3%-10:SCOINS%=SCOINS%+4
1370 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1200
1380 GOTO 1370
1400 PRINT "я жду, 10ед. еды"
1410 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1200
1420 GOTO 1410
1500 TRAD%=SELECT("торговец","оружие","доспехи","сапоги","шлемы","работа?","назад")
1510 IF TRAD%=5 THEN  GOTO 700
1520 IF TRAD%=0 THEN  GOTO 1560
1525 IF TRAD%=1 THEN  GOTO 1700
1530 IF TRAD%=2 THEN  GOTO 1850
1535 IF TRAD%=3 THEN  GOTO 2000
1540 IF TRAD%=4 AND Q2%=0 THEN  GOTO 2150
1542 IF TRAD%=4 AND Q2%=1 AND RES2%<30 THEN  GOTO 2200
1544 IF TRAD%=4 AND Q2%=1 AND RES2%>29 THEN  GOTO 2300
1550 GOSUB 900: GOTO 1500
1560 SETCOLOR 140,0,0
1570 FILLRECT 0,0,240,320
1580 SETCOLOR 0,0,0
1590 DRAWSTRING "1-дубина 2с",10,10
1600 DRAWSTRING "2-кинжал 3с,45м",10,22
1610 DRAWSTRING "3-топор 5с,50м",10,44
1620 DRAWSTRING "4-к. меч 7с",10,66
1630 DRAWSTRING "золото:"+STR$(SCOINS%)+"с/"+STR$(COINS%)+"м",10,88
1640 IF  INKEY(0)=49 AND SCOINS%>1 THEN  SLEEP 300:OR%=1:SCOINS%=SCOINS%-2: CLS : GOTO 1560
1650 IF  UP (0) AND SCOINS%>2 AND COINS%>44 THEN  SLEEP 300:OR%=2:SCOINS%=SCOINS%-3:COINS%=COINS%-45: CLS : GOTO 1560
1660 IF  INKEY(0)=51 AND SCOINS%>4 AND COINS%>49 THEN  SLEEP 300:OR%=3:SCOINS%=SCOINS%-5:COINS%=COINS%-50: CLS : GOTO 1560
1670 IF  LEFT (0) AND SCOINS%>6 THEN  SLEEP 300:OR%=4:SCOINS%=SCOINS%-7: CLS : GOTO 1560
1680 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1500
1690 GOTO 1680
1700 SETCOLOR 140,0,0
1710 FILLRECT 0,0,240,320
1720 SETCOLOR 0,0,0
1730 DRAWSTRING "1-к.доспех 2с",10,10
1740 DRAWSTRING "2-л.доспех 3с,50м",10,22
1750 DRAWSTRING "3-ж.доспех 5с",10,44
1760 DRAWSTRING "4-м.доспех 8с",10,66
1770 DRAWSTRING "золото:"+STR$(SCOINS%)+"с/"+STR$(COINS%)+"м",10,88
1780 IF  INKEY(0)=49 AND SCOINS%>1 THEN OD%=1:SCOINS%=SCOINS%-2: CLS : GOTO 1700
1782 IF  UP (0) AND SCOINS%>2 AND COINS%>49 THEN OD%=2:SCOINS%=SCOINS%-3:COINS%=COINS%-50: CLS : GOTO 1700
1784 IF  INKEY(0)=51 AND SCOINS%>4 THEN OD%=3:SCOINS%=SCOINS%-5: CLS : GOTO 1700
1790 IF  LEFT (0) AND SCOINS%>7 THEN OD%=4:SCOINS%=SCOINS%-8: CLS : GOTO 1700
1800 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1500
1810 GOTO 1780
1850 SETCOLOR 140,0,0
1860 FILLRECT 0,0,240,320
1870 SETCOLOR 0,0,0
1880 DRAWSTRING "1-галоши 1с",10,10
1890 DRAWSTRING "2-ботинки 2с",10,22
1900 DRAWSTRING "3-сапоги 4с",10,34
1910 DRAWSTRING "золото:"+STR$(SCOINS%)+"с/"+STR$(COINS%)+"м",10,88
1920 IF  INKEY(0)=49 AND SCOINS%>0 THEN SP%=1:SCOINS%=SCOINS%-1: CLS : GOTO 1850
1930 IF  UP (0) AND SCOINS%>1 THEN SP%=2:SCOINS%=SCOINS%-2: CLS : GOTO 1850
1940 IF  INKEY(0)=51 AND SCOINS%>3 THEN SP%=3:SCOINS%=SCOINS%-4: CLS : GOTO 1850
1950 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1500
1960 GOTO 1920
2000 SETCOLOR 140,0,0
2010 FILLRECT 0,0,240,320
2020 SETCOLOR 0,0,0
2030 DRAWSTRING "1-шапка 1с",10,10
2040 DRAWSTRING "2-шлем 2с",10,22
2050 DRAWSTRING "3-р.шлем 4с",10,34
2070 DRAWSTRING "золото:"+STR$(SCOINS%)+"с/"+STR$(COINS%)+"м",10,88
2080 IF  INKEY(0)=49 AND SCOINS%>0 THEN SL%=1:SCOINS%=SCOINS%-1: CLS : GOTO 2000
2090 IF  UP (0) AND SCOINS%>1 THEN SL%=2:SCOINS%=SCOINS%-2: CLS : GOTO 2000
2100 IF  INKEY(0)=51 AND SCOINS%>3 THEN SL%=3:SCOINS%=SCOINS%-4: CLS : GOTO 2000
2110 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1500
2120 GOTO 2080
2150 PRINT "за 30ед. железа я отдам тебе лучший меч, такой нигде не купишь."
2160 Q2%=1
2170 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1500
2180 GOTO 2170
2200 PRINT "всего лишь 30ед. железа и меч твой"
2210 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1500
2220 GOTO 2210
2300 PRINT "ну как договорились, держи меч."
2310 OR%=5:Q2%=2
2320 RES2%=RES2%-30
2330 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 1500
2340 GOTO 2330
2400 MAGS%=SELECT("магистр","обмен денег","магия","сохраниться","назад")
2410 IF MAGS%=0 THEN  GOTO 2460
2420 IF MAGS%=1 THEN  GOTO 3000
2430 IF MAGS%=2 THEN  GOTO 3100
2440 IF MAGS%=3 THEN  GOTO 700
2450 GOTO 2400
2460 SETCOLOR 150,0,0
2470 FILLRECT 0,0,240,320
2480 SETCOLOR 0,0,0
2490 DRAWSTRING "1-100м в 1с",10,10
2500 DRAWSTRING "2-1с в 100м",10,22
2510 DRAWSTRING "золото:"+STR$(SCOINS%)+"с/"+STR$(COINS%)+"м",10,88
2520 IF  INKEY(0)=49 AND COINS%>99 THEN  SLEEP 300:COINS%=COINS%-100:SCOINS%=SCOINS%+1: CLS : GOTO 2460
2530 IF  UP (0) AND SCOINS%>0 THEN  SLEEP 300:SCOINS%=SCOINS%-1:COINS%=COINS%+100: CLS : GOTO 2460
2540 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 2400
2550 GOTO 2520
3000 PRINT "чтобы изучить магию, подними свой уровень."
3010 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 2400
3020 GOTO 3010
3100 OPEN #1,"s.dat","output"
3110 PRINT #1,SCOINS%
3120 PRINT #1,COINS%
3130 PRINT #1,OD%
3140 PRINT #1,OR%
3150 PRINT #1,SP%
3160 PRINT #1,SL%
3170 PRINT #1,RES1%
3180 PRINT #1,RES2%
3190 PRINT #1,RES3%
3200 PRINT #1,LVL%
3210 PRINT #1,OP%
3220 PRINT #1,SLVL%
3230 PRINT #1,MAG1%
3240 PRINT #1,MAG2%
3250 PRINT #1,MAG3%
3260 PRINT #1,Q1%
3270 PRINT #1,Q2%
3280 PRINT #1,Q3%
3290 PRINT #1,OR$
3300 PRINT #1,OD$
3310 PRINT #1,SP$
3320 PRINT #1,SL$
3330 PRINT #1,LIFE%
3340 PRINT #1,PLIFE%
3350 PRINT #1,PMANA%
3360 PRINT #1,MANA%
3370 PRINT #1,SILA%
3380 PRINT #1,RASSA%
3390 PRINT #1,RASSA$
3400 PRINT #1,CLAS%
3410 PRINT #1,CLAS$
3415 PRINT #1,OB%
3416 PRINT #1,Q4%
3420 CLOSE #1
3430 PRINT "ваше состояние сохранено"
3440 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 2400
3450 GOTO 3440
3600 AR%=SELECT("арена","крыса","гоблин","скелет","огрол","вервольф","троль","великан","дракон","назад")
3610 IF AR%=8 THEN  GOTO 700
3620 IF AR%=0 THEN VAT%=15:VLIF%=60:AR$="крыса": GOTO 4000
3625 IF AR%=1 THEN VAT%=35:VLIF%=100:AR$="гоблин": GOTO 4000
3630 IF AR%=2 THEN VAT%=45:VLIF%=150:AR$="скелет": GOTO 4000
3640 IF AR%=3 THEN VAT%=55:VLIF%=200:AR$="огрол": GOTO 4000
3642 IF AR%=4 THEN VAT%=65:VLIF%=350:AR$="вервольф": GOTO 4000
3644 IF AR%=5 THEN VAT%=80:VLIF%=480:AR$="троль": GOTO 4000
3646 IF AR%=6 THEN VAT%=100:VLIF%=600:AR$="великан": GOTO 4000
3648 IF AR%=7 THEN VAT%=150:VLIF%=1000:AR$="дракон": GOTO 4000
4000 SETCOLOR 160,0,0
4010 FILLRECT 0,0,240,320
4020 SETCOLOR 0,0,0
4030 DRAWSTRING "враг:"+AR$,10,10
4040 DRAWSTRING "ваше хп:"+STR$(LIFE%)+"/"+STR$(PLIFE%),10,25
4050 DRAWSTRING " хп врага:"+STR$(VLIF%),10,40
4060 DRAWSTRING "ваша атака:"+STR$(ATK%),10,55
4070 DRAWSTRING "атака врага:"+STR$(VAT%),10,70
4080 DRAWSTRING "1-удар",10,85
4090 DRAWSTRING "2-магия",10,100
4100 DRAWSTRING "3-сбежать",10,115
4101 URON%=VAT%-DEF%
4102 IF URON%<0 THEN URON%=0
4110 IF  INKEY(0)=51 THEN  SLEEP 300: CLS : GOTO 700
4120 IF  UP (0) THEN  SLEEP 300: CLS : GOTO 4200
4130 IF  INKEY(0)=49 THEN LIFE%=LIFE%-URON%:VLIF%=VLIF%-ATK%: SLEEP 300: CLS : GOTO 4000
4140 IF LIFE%<1 THEN  CLS : PRINT "поражение": SLEEP 2000: CLS : GOTO 10
4150 IF LIFE%>PLIFE% THEN LIFE%=PLIFE%
4160 IF VLIF%<1 THEN  GOTO 4500
4170 GOTO 4110
4200 MAG%=SELECT("магия","фаербол","хипы","ад","назад")
4210 IF MAG%=3 THEN  GOTO 4000
4220 IF MAG%=0 AND MAG1%=0 THEN  GOTO 4200
4230 IF MAG%=1 AND MAG2%=0 THEN  GOTO 4200
4240 IF MAG%=2 AND MAG3%=0 THEN  GOTO 4200
4250 IF MAG%=0 AND MAG1%=1 AND MANA%>9 THEN MANA%=MANA%-10:VLIF%=VLIF%-30: GOTO 4200
4260 IF MAG%=1 AND MAG2%=1 AND MANA%>19 THEN MANA%=MANA%-20:LIFE%=LIFE%+50: GOTO 4200
4270 IF MAG%=2 AND MAG3%=1 AND MANA%>39 THEN MANA%=MANA%-40:VLIF%=VLIF%-80: GOTO 4200
4280 GOTO 4200
4500 SETCOLOR 140,0,0
4510 FILLRECT 0,0,240,320
4515 SETCOLOR 0,0,0
4520 DRAWSTRING AR$+"повержен",10,10
4521 IF AR%=0 THEN DOB%=15:POP%=10
4522 IF AR%=1 THEN DOB%=30:POP%=20
4523 IF AR%=2 THEN DOB%=60:POP%=40
4524 IF AR%=3 THEN DOB%=100:POP%=80
4525 IF AR%=4 THEN DOB%=150:POP%=120
4526 IF AR%=5 THEN DOB%=200:POP%=160
4527 IF AR%=6 THEN DOB%=350:POP%=200
4528 IF AR%=7 THEN DOB%=500:POP%=300
4530 DRAWSTRING "медь +"+STR$(DOB%),10,25
4540 DOB1%=2+MOD(RND(0),2)
4550 IF DOB1%=1 THEN RES1%=RES1%+1
4560 IF DOB1%=2 THEN RES2%=RES2%+1
4570 IF DOB1%=3 THEN RES3%=RES3%+1
4575 COINS%=COINS%+DOB%
4580 DRAWSTRING "захвачен ресурс",10,75
4590 OP%=OP%+POP%
4600 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 700
4610 GOSUB 4700: GOTO 4600
4700 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=250:LVL%=1:PMANA%=PMANA%+5:MANA%=PMANA%
4710 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=450:LVL%=2:MAG1%=1:PMANA%=PMANA%+5:MANA%=PMANA%
4720 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=700:LVL%=3:PMANA%=PMANA%+5:MANA%=PMANA%
4730 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=1000:LVL%=4:PMANA%=PMANA%+10:MANA%=PMANA%
4740 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=1500:LVL%=5:MAG2%=1:PMANA%=PMANA%+5:MANA%=PMANA%
4750 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=2000:LVL%=6:PMANA%=PMANA%+5:MANA%=PMANA%
4760 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=3000:LVL%=7:PMANA%=PMANA%+5:MANA%=PMANA%
4770 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=3200:LVL%=8:PMANA%=PMANA%+5:MANA%=PMANA%
4780 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=4000:LVL%=9:MAG3%=1:PMANA%=PMANA%+5:MANA%=PMANA%
4790 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=5000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4791 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=10000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4792 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=17000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4793 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=27000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4794 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=38000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4795 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=50000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4796 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=65000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4797 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=80000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4798 IF OP%>SLVL% THEN PLIFE%=PLIFE%+10:SILA%=SILA%+1:OB%=OB%+1:SLVL%=100000:LVL%=10:PMANA%=PMANA%+10:MANA%=PMANA%
4799 RETURN 
4800 PRINT "вы спите. Жди": SLEEP 5000
4810 LIFE%=PLIFE%:MANA%=PMANA%
4820 GOTO 755
5000 OPEN #2,"s.dat","input"
5010 INPUT #2,SCOINS%
5020 INPUT #2,COINS%
5030 INPUT #2,OD%
5040 INPUT #2,OR%
5050 INPUT #2,SP%
5060 INPUT #2,SL%
5070 INPUT #2,RES1%
5080 INPUT #2,RES2%
5090 INPUT #2,RES3%
5100 INPUT #2,LVL%
5110 INPUT #2,OP%
5120 INPUT #2,SLVL%
5130 INPUT #2,MAG1%
5140 INPUT #2,MAG2%
5150 INPUT #2,MAG3%
5160 INPUT #2,Q1%
5170 INPUT #2,Q2%
5180 INPUT #2,Q3%
5190 INPUT #2,OR$
5200 INPUT #2,OD$
5210 INPUT #2,SP$
5220 INPUT #2,SL$
5230 INPUT #2,LIFE%
5240 INPUT #2,PLIFE%
5250 INPUT #2,PMANA%
5260 INPUT #2,MANA%
5270 INPUT #2,SILA%
5280 INPUT #2,RASSA%
5290 INPUT #2,RASSA$
5300 INPUT #2,CLAS%
5310 INPUT #2,CLAS$
5320 INPUT #2,OB%
5325 INPUT #2,Q4%
5350 CLOSE #2
5360 GOTO 600
5500 PRINT "гоблин:принеси мне 20ед. древесины, дам 1 серебро"
5510 Q3%=1
5520 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 600
5530 GOTO 5520
5550 PRINT "1 серебро за 20 ед. древесины"
5560 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 600
5570 GOTO 5560
5600 PRINT "спасибо, принеси ещQ, я заплачу"
5610 RES1%=RES1%-20:SCOINS%=SCOINS%+1
5620 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 600
5630 GOTO 5620
5700 PRINT "мудрец: я дам тебе лучшие сапоги, если отгадаешь загадку"
5710 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 5800
5720 GOTO 5710
5800 PRINT "имя завхатчика Вридорга в fantasy reign 1 от vapigor?"
5810 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 5900
5820 GOTO 5810
5900 PRINT "1-Коргар,2-Торлеф,3-Зорг,4-Воледар"
5910 IF  INKEY(0)=49 THEN  GOTO 6000
5920 IF  UP (0) THEN  GOTO 6000
5930 IF  INKEY(0)=51 THEN  GOTO 6100
5940 IF  LEFT (0) THEN  GOTO 6000
5950 GOTO 5910
6000 PRINT "не угадал, удача прошла мимо"
6010 Q4%=1
6020 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 600
6030 GOTO 6020
6100 PRINT "ты неплохо знаешь историю Тиверна, держи сапоги"
6110 Q4%=1:SP%=4
6120 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 600
6130 GOTO 6120
6500 PRINT "мудрец молчит"
6510 IF  FIRE (0) THEN  SLEEP 300: CLS : GOTO 600
6520 GOTO 6510