Мертвый анархист
Участник
СПС!!! Попробую...
-
Уважаемый посетитель!!!
Если Вы уже являетесь зарегистрированным участником проекта "миХей.ру - дискусcионный клуб",
пожалуйста, восстановите свой пароль самостоятельно, либо свяжитесь с администратором через Телеграм.
Предложение написать свою игру на Бейсике - Объединяемся!
- Автор темы Мертвый анархист
- Дата начала
Мертвый анархист
Участник
Смортрите, какую я игру наваял! Конечно, неполная, по городу еще перемещаться нельзя...
Суть изначальная - выбраться в город, отгадав загадки во всех пяти домах, зайти в шестой и ввести полученный пароль... И опа на!!! Только жаль, что версия Бэйсика у мну не графическая...
DECLARE SUB parol ()
DECLARE SUB gorod ()
DECLARE SUB gost ()
DECLARE SUB home ()
DECLARE SUB ibm ()
DECLARE SUB dom5 ()
DECLARE SUB start ()
DECLARE SUB konec ()
DECLARE SUB dom1 ()
DECLARE SUB dom2 ()
DECLARE SUB dom3 ()
DECLARE SUB dom4 ()
DECLARE SUB dom6 ()
10 CLS
a$ = INKEY$
LOCATE 2, 20
INPUT "1. Ќ®ў*п ЁЈа*, 2. ‚л室"; a$
IF ASC(RIGHT$(a$, 1)) = 49 THEN
CALL start
END IF
IF ASC(RIGHT$(a$, 1)) = 50 THEN
CALL konec
END IF
SUB dom1
30 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ЇҐаўго ЎгЄўг Є®¤*."
PRINT "Ћ¤*® ге®, ®¤Ё* Ј«*§, Ї®« Їпв®зЄ* -"
PRINT "1 - Џ®«бўЁ*мЁ."
PRINT "2 - ‘ўЁ*мп Ё§-§* гЈ«* ўлЈ«п*г«*."
INPUT "’*Є зв® ¦Ґ нв®? ;-)"; a
IF a = 1 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 30
END IF
IF a = 2 THEN
PRINT "ЏҐаў*п ЎгЄў* - Q. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom2
40 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ўв®аго ЎгЄўг Є®¤*."
PRINT "ЉҐ¬ ®Ўлз*® пў«пҐвбп ?ў**гиЄ* ў ђ.- Ќ. бЄ*§Є*е?"
PRINT "1 - „га*зЄ®¬."
PRINT "2 - Ља*б*ўжҐ¬."
INPUT "’*Є ЄҐ¬ ¦Ґ ;-)"; a
IF a = 2 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 40
END IF
IF a = 1 THEN
PRINT "‚в®а*п ЎгЄў* - U. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom3
50 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ваҐвмо ЎгЄўг Є®¤*."
PRINT "џ ¦ ў*¬ *Ґ ... ЌҐ Єв® ®* Ќ*¤Ґ ?ҐўҐ«Ґў®©, Є®Ј¤* ®** Ї®«Ёў*«* ҐЈ® Ё§ з*©*ЁЄ* ў Є\д ?а®*Ёп бг¤мЎл Ё«Ё б «ҐЈЄЁ¬ Ї*஬."
PRINT "1 - Љ«г¬Ў*."
PRINT "2 - ђҐ¤ЁбЄ*."
INPUT "ЌҐ Єв® ®* Ќ*¤Ґ ;-)"; a
IF a = 2 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 50
END IF
IF a = 1 THEN
PRINT "’аҐвмп ЎгЄў* - E. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom4
60 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм зҐвўҐавго ЎгЄўг Є®¤*."
PRINT "‘Є®«мЄ® 䨫쬮ў б*пв® ® Ља®Є®¤Ё«Ґ „**¤Ё?"
PRINT "1 - 2."
PRINT "2 - 3."
INPUT "„лЄ бЄ®«мЄ® ;-)"; a
IF a = 1 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 60
END IF
IF a = 2 THEN
PRINT "—ҐвўҐав*п ЎгЄў* - S. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom5
70 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ўв®аго ЎгЄўг Є®¤*."
PRINT "Љ*Є **§лў*Ґвбп Є®аЇ®а*жЁп, Ё§ Є®в®а®© ‹Ґ®*Ё¤ гЄа*« «ҐЄ*абвў® ®в **ᬮаЄ*?"
PRINT "1 - Ђ«м-Љ*Ў*а."
PRINT "2 - IBM."
INPUT "’*Є ®вЄг¤* ;-)"; a
IF a = 2 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 70
END IF
IF a = 1 THEN
PRINT "Џпв*п ЎгЄў* - T. ?¤Ё ў иҐбв®© ¤®¬ Ё Їа®Ўг© Є®¤. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom6
END SUB
SUB gorod
CLS
PRINT "|-----------------|"
PRINT "| 0 0 0 0 0 0 0 0 | __ "
PRINT "| | _( )_ "
PRINT "| 0 0 0 0 0 0 0 0 | \|/ _( )_"
PRINT "| | -( )- ( ‚®§¤ге )"
PRINT "| 0 0 0 0 0 0 0 0 | /|\ (_ 2 _) "
PRINT "| | } (_ _)"
PRINT "| 0 0 0 0 0 0 0 0 | } (__)"
PRINT "| | } ||"
PRINT "| 0 0 0 0 0 0 0 0 | ||"
PRINT "| | |--| _||_"
PRINT "| 0 0 0 0 0 0 0 0 | |0 | |AIR |"
PRINT "| | |0 | |____|"
PRINT "| 0 0 0 0 0 0 0 0 | |0 |"
PRINT "| | |----------|"
PRINT "| 0 0 0 0 0 0 0 0 | | 0 0 0 0 0|"
PRINT "| | | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 | | 0 0 0 0 0|"
PRINT "| | | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 | O | 0 0 0 0 0|"
PRINT "| | | | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 | | | 0 0 0 0 0|"
PRINT "| |/---------\ | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 || 0 0 0 0 | | 0 0 0 0 0|"
PRINT "| || | | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 || 0 0 0 0 | | 0 0 0 0 0| 000"
PRINT "| || | | 0 0 0 0 0| ^ 00|00 /\ "
PRINT "| 0 ______ 0 0 0 || 0 0 0 0 | | 0 0 0 0 0| (|) 00|00 /\ "
PRINT "| _|__ | || | | 0 0 0 0 0| (|) 0|0 //\\ "
PRINT "| |______| |-| || 0___0 0 | | 0 0 0 0 0| (|) | /||\ "
PRINT "| 0 0 | | ||__|2|____| | |-| | | | / || \ "
PRINT "------------|1|----=-- ------------|3|------------------------------"
PRINT "______________________________________________________________________"
LOCATE 37, 20
INPUT "Љг¤* вл е®зҐим ў®©вЁ? 1 - ѓ®бвЁ*Ёж*, 2 - ’ў®© ¤®¬, 3 - IBM"; a
IF a = 1 THEN
CALL gost
END IF
IF a = 2 THEN
CALL home
END IF
IF a = 3 THEN
CALL ibm
END IF
END SUB
SUB gost
END SUB
SUB home
END SUB
SUB ibm
END SUB
SUB konec
END
END SUB
SUB parol
72 CLS
LOCATE 1, 20
INPUT "?в*Є, вл Ј®в®ў ўўҐбвЁ Ї*а®«м? 1 - ¤*, 2 - *Ґв."; b
IF b = 1 THEN
75 INPUT "Џ*а®«м -"; b$
IF b$ = "QUEST" THEN
PRINT "’л ўлЁЈа*«! ’ҐЇҐам г вҐЎп Ґбвм ў®§¬®¦*®бвм ўл©вЁ ў Ј®а®¤."
INPUT "‚л©вЁ ў Ј®а®¤? 1 - ¤*, 2 - *Ґв."; c
IF c = 1 THEN
CALL gorod
ELSE
END
END IF
ELSE
GOTO 72
END IF
ELSE
CALL start
END IF
END SUB
SUB start
CLS
LOCATE 2, 10
PRINT "/\"
LOCATE 3, 9
PRINT "/ \"
LOCATE 4, 8
PRINT "/ 1 \"
LOCATE 5, 8
PRINT "------"
LOCATE 6, 8
PRINT "| __ |"
LOCATE 7, 8
PRINT "| || |"
LOCATE 8, 8
PRINT "| -- |"
LOCATE 9, 8
PRINT "------"
LOCATE 2, 20
PRINT "/\"
LOCATE 3, 19
PRINT "/ \"
LOCATE 4, 18
PRINT "/ 2 \"
LOCATE 5, 18
PRINT "------"
LOCATE 6, 18
PRINT "| __ |"
LOCATE 7, 18
PRINT "| || |"
LOCATE 8, 18
PRINT "| -- |"
LOCATE 9, 18
PRINT "------"
LOCATE 2, 30
PRINT "/\"
LOCATE 3, 29
PRINT "/ \"
LOCATE 4, 28
PRINT "/ 3 \"
LOCATE 5, 28
PRINT "------"
LOCATE 6, 28
PRINT "| __ |"
LOCATE 7, 28
PRINT "| || |"
LOCATE 8, 28
PRINT "| -- |"
LOCATE 9, 28
PRINT "------"
LOCATE 2, 40
PRINT "/\"
LOCATE 3, 39
PRINT "/ \"
LOCATE 4, 38
PRINT "/ 4 \"
LOCATE 5, 38
PRINT "------"
LOCATE 6, 38
PRINT "| __ |"
LOCATE 7, 38
PRINT "| || |"
LOCATE 8, 38
PRINT "| -- |"
LOCATE 9, 38
PRINT "------"
LOCATE 2, 50
PRINT "/\"
LOCATE 3, 49
PRINT "/ \"
LOCATE 4, 48
PRINT "/ 5 \"
LOCATE 5, 48
PRINT "------"
LOCATE 6, 48
PRINT "| __ |"
LOCATE 7, 48
PRINT "| || |"
LOCATE 8, 48
PRINT "| -- |"
LOCATE 9, 48
PRINT "------"
LOCATE 2, 60
PRINT "/\"
LOCATE 3, 59
PRINT "/ \"
LOCATE 4, 58
PRINT "/ 6 \"
LOCATE 5, 58
PRINT "------"
LOCATE 6, 58
PRINT "| __ |"
LOCATE 7, 58
PRINT "| || |"
LOCATE 8, 58
PRINT "| -- |"
LOCATE 9, 58
PRINT "------"
LOCATE 10, 10
PRINT "\\________________________________________________//"
LOCATE 11, 11
PRINT "\________________________________________________/"
LOCATE 14, 20
20 b$ = INKEY$
25 PRINT "‚л ¤®«¦*л **©вЁ Ї*а®«м ¤«п ўе®¤* ў иҐбв®© ¤®¬."
INPUT "‚ Є*Є®© ¤®¬ ўл §*©¤ҐвҐ б**з*«*, Єа®¬Ґ иҐбв®Ј®. „«п ўл室* **¦¬Ё 0"; b
IF b = 1 THEN
CALL dom1
END IF
IF b = 2 THEN
CALL dom2
END IF
IF b = 3 THEN
CALL dom3
END IF
IF b = 4 THEN
CALL dom4
END IF
IF b = 6 THEN
CALL parol
END IF
IF b = 5 THEN
CALL dom5
END IF
IF b = 0 THEN
END
END IF
END SUB
Суть изначальная - выбраться в город, отгадав загадки во всех пяти домах, зайти в шестой и ввести полученный пароль... И опа на!!! Только жаль, что версия Бэйсика у мну не графическая...
DECLARE SUB parol ()
DECLARE SUB gorod ()
DECLARE SUB gost ()
DECLARE SUB home ()
DECLARE SUB ibm ()
DECLARE SUB dom5 ()
DECLARE SUB start ()
DECLARE SUB konec ()
DECLARE SUB dom1 ()
DECLARE SUB dom2 ()
DECLARE SUB dom3 ()
DECLARE SUB dom4 ()
DECLARE SUB dom6 ()
10 CLS
a$ = INKEY$
LOCATE 2, 20
INPUT "1. Ќ®ў*п ЁЈа*, 2. ‚л室"; a$
IF ASC(RIGHT$(a$, 1)) = 49 THEN
CALL start
END IF
IF ASC(RIGHT$(a$, 1)) = 50 THEN
CALL konec
END IF
SUB dom1
30 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ЇҐаўго ЎгЄўг Є®¤*."
PRINT "Ћ¤*® ге®, ®¤Ё* Ј«*§, Ї®« Їпв®зЄ* -"
PRINT "1 - Џ®«бўЁ*мЁ."
PRINT "2 - ‘ўЁ*мп Ё§-§* гЈ«* ўлЈ«п*г«*."
INPUT "’*Є зв® ¦Ґ нв®? ;-)"; a
IF a = 1 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 30
END IF
IF a = 2 THEN
PRINT "ЏҐаў*п ЎгЄў* - Q. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom2
40 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ўв®аго ЎгЄўг Є®¤*."
PRINT "ЉҐ¬ ®Ўлз*® пў«пҐвбп ?ў**гиЄ* ў ђ.- Ќ. бЄ*§Є*е?"
PRINT "1 - „га*зЄ®¬."
PRINT "2 - Ља*б*ўжҐ¬."
INPUT "’*Є ЄҐ¬ ¦Ґ ;-)"; a
IF a = 2 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 40
END IF
IF a = 1 THEN
PRINT "‚в®а*п ЎгЄў* - U. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom3
50 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ваҐвмо ЎгЄўг Є®¤*."
PRINT "џ ¦ ў*¬ *Ґ ... ЌҐ Єв® ®* Ќ*¤Ґ ?ҐўҐ«Ґў®©, Є®Ј¤* ®** Ї®«Ёў*«* ҐЈ® Ё§ з*©*ЁЄ* ў Є\д ?а®*Ёп бг¤мЎл Ё«Ё б «ҐЈЄЁ¬ Ї*஬."
PRINT "1 - Љ«г¬Ў*."
PRINT "2 - ђҐ¤ЁбЄ*."
INPUT "ЌҐ Єв® ®* Ќ*¤Ґ ;-)"; a
IF a = 2 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 50
END IF
IF a = 1 THEN
PRINT "’аҐвмп ЎгЄў* - E. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom4
60 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм зҐвўҐавго ЎгЄўг Є®¤*."
PRINT "‘Є®«мЄ® 䨫쬮ў б*пв® ® Ља®Є®¤Ё«Ґ „**¤Ё?"
PRINT "1 - 2."
PRINT "2 - 3."
INPUT "„лЄ бЄ®«мЄ® ;-)"; a
IF a = 1 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 60
END IF
IF a = 2 THEN
PRINT "—ҐвўҐав*п ЎгЄў* - S. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom5
70 CLS
LOCATE 1, 8
PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ўв®аго ЎгЄўг Є®¤*."
PRINT "Љ*Є **§лў*Ґвбп Є®аЇ®а*жЁп, Ё§ Є®в®а®© ‹Ґ®*Ё¤ гЄа*« «ҐЄ*абвў® ®в **ᬮаЄ*?"
PRINT "1 - Ђ«м-Љ*Ў*а."
PRINT "2 - IBM."
INPUT "’*Є ®вЄг¤* ;-)"; a
IF a = 2 THEN
PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
GOTO 70
END IF
IF a = 1 THEN
PRINT "Џпв*п ЎгЄў* - T. ?¤Ё ў иҐбв®© ¤®¬ Ё Їа®Ўг© Є®¤. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
a$ = INKEY$
INPUT a
IF a = 0 THEN
CALL start
END IF
END IF
END SUB
SUB dom6
END SUB
SUB gorod
CLS
PRINT "|-----------------|"
PRINT "| 0 0 0 0 0 0 0 0 | __ "
PRINT "| | _( )_ "
PRINT "| 0 0 0 0 0 0 0 0 | \|/ _( )_"
PRINT "| | -( )- ( ‚®§¤ге )"
PRINT "| 0 0 0 0 0 0 0 0 | /|\ (_ 2 _) "
PRINT "| | } (_ _)"
PRINT "| 0 0 0 0 0 0 0 0 | } (__)"
PRINT "| | } ||"
PRINT "| 0 0 0 0 0 0 0 0 | ||"
PRINT "| | |--| _||_"
PRINT "| 0 0 0 0 0 0 0 0 | |0 | |AIR |"
PRINT "| | |0 | |____|"
PRINT "| 0 0 0 0 0 0 0 0 | |0 |"
PRINT "| | |----------|"
PRINT "| 0 0 0 0 0 0 0 0 | | 0 0 0 0 0|"
PRINT "| | | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 | | 0 0 0 0 0|"
PRINT "| | | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 | O | 0 0 0 0 0|"
PRINT "| | | | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 | | | 0 0 0 0 0|"
PRINT "| |/---------\ | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 || 0 0 0 0 | | 0 0 0 0 0|"
PRINT "| || | | 0 0 0 0 0|"
PRINT "| 0 0 0 0 0 0 0 0 || 0 0 0 0 | | 0 0 0 0 0| 000"
PRINT "| || | | 0 0 0 0 0| ^ 00|00 /\ "
PRINT "| 0 ______ 0 0 0 || 0 0 0 0 | | 0 0 0 0 0| (|) 00|00 /\ "
PRINT "| _|__ | || | | 0 0 0 0 0| (|) 0|0 //\\ "
PRINT "| |______| |-| || 0___0 0 | | 0 0 0 0 0| (|) | /||\ "
PRINT "| 0 0 | | ||__|2|____| | |-| | | | / || \ "
PRINT "------------|1|----=-- ------------|3|------------------------------"
PRINT "______________________________________________________________________"
LOCATE 37, 20
INPUT "Љг¤* вл е®зҐим ў®©вЁ? 1 - ѓ®бвЁ*Ёж*, 2 - ’ў®© ¤®¬, 3 - IBM"; a
IF a = 1 THEN
CALL gost
END IF
IF a = 2 THEN
CALL home
END IF
IF a = 3 THEN
CALL ibm
END IF
END SUB
SUB gost
END SUB
SUB home
END SUB
SUB ibm
END SUB
SUB konec
END
END SUB
SUB parol
72 CLS
LOCATE 1, 20
INPUT "?в*Є, вл Ј®в®ў ўўҐбвЁ Ї*а®«м? 1 - ¤*, 2 - *Ґв."; b
IF b = 1 THEN
75 INPUT "Џ*а®«м -"; b$
IF b$ = "QUEST" THEN
PRINT "’л ўлЁЈа*«! ’ҐЇҐам г вҐЎп Ґбвм ў®§¬®¦*®бвм ўл©вЁ ў Ј®а®¤."
INPUT "‚л©вЁ ў Ј®а®¤? 1 - ¤*, 2 - *Ґв."; c
IF c = 1 THEN
CALL gorod
ELSE
END
END IF
ELSE
GOTO 72
END IF
ELSE
CALL start
END IF
END SUB
SUB start
CLS
LOCATE 2, 10
PRINT "/\"
LOCATE 3, 9
PRINT "/ \"
LOCATE 4, 8
PRINT "/ 1 \"
LOCATE 5, 8
PRINT "------"
LOCATE 6, 8
PRINT "| __ |"
LOCATE 7, 8
PRINT "| || |"
LOCATE 8, 8
PRINT "| -- |"
LOCATE 9, 8
PRINT "------"
LOCATE 2, 20
PRINT "/\"
LOCATE 3, 19
PRINT "/ \"
LOCATE 4, 18
PRINT "/ 2 \"
LOCATE 5, 18
PRINT "------"
LOCATE 6, 18
PRINT "| __ |"
LOCATE 7, 18
PRINT "| || |"
LOCATE 8, 18
PRINT "| -- |"
LOCATE 9, 18
PRINT "------"
LOCATE 2, 30
PRINT "/\"
LOCATE 3, 29
PRINT "/ \"
LOCATE 4, 28
PRINT "/ 3 \"
LOCATE 5, 28
PRINT "------"
LOCATE 6, 28
PRINT "| __ |"
LOCATE 7, 28
PRINT "| || |"
LOCATE 8, 28
PRINT "| -- |"
LOCATE 9, 28
PRINT "------"
LOCATE 2, 40
PRINT "/\"
LOCATE 3, 39
PRINT "/ \"
LOCATE 4, 38
PRINT "/ 4 \"
LOCATE 5, 38
PRINT "------"
LOCATE 6, 38
PRINT "| __ |"
LOCATE 7, 38
PRINT "| || |"
LOCATE 8, 38
PRINT "| -- |"
LOCATE 9, 38
PRINT "------"
LOCATE 2, 50
PRINT "/\"
LOCATE 3, 49
PRINT "/ \"
LOCATE 4, 48
PRINT "/ 5 \"
LOCATE 5, 48
PRINT "------"
LOCATE 6, 48
PRINT "| __ |"
LOCATE 7, 48
PRINT "| || |"
LOCATE 8, 48
PRINT "| -- |"
LOCATE 9, 48
PRINT "------"
LOCATE 2, 60
PRINT "/\"
LOCATE 3, 59
PRINT "/ \"
LOCATE 4, 58
PRINT "/ 6 \"
LOCATE 5, 58
PRINT "------"
LOCATE 6, 58
PRINT "| __ |"
LOCATE 7, 58
PRINT "| || |"
LOCATE 8, 58
PRINT "| -- |"
LOCATE 9, 58
PRINT "------"
LOCATE 10, 10
PRINT "\\________________________________________________//"
LOCATE 11, 11
PRINT "\________________________________________________/"
LOCATE 14, 20
20 b$ = INKEY$
25 PRINT "‚л ¤®«¦*л **©вЁ Ї*а®«м ¤«п ўе®¤* ў иҐбв®© ¤®¬."
INPUT "‚ Є*Є®© ¤®¬ ўл §*©¤ҐвҐ б**з*«*, Єа®¬Ґ иҐбв®Ј®. „«п ўл室* **¦¬Ё 0"; b
IF b = 1 THEN
CALL dom1
END IF
IF b = 2 THEN
CALL dom2
END IF
IF b = 3 THEN
CALL dom3
END IF
IF b = 4 THEN
CALL dom4
END IF
IF b = 6 THEN
CALL parol
END IF
IF b = 5 THEN
CALL dom5
END IF
IF b = 0 THEN
END
END IF
END SUB
Мертвый анархист
Участник
Моя игра, написанная в VB 6.0
Попробуйте мою игру, написанную в VB 6.0. Суть - победить врага, оставшись при своих жизнях...
Покупайте оружие, латы, поножи и шлемы! Атакуйте врага, как только ваша атака больше, чем у противника! Не забывайте о защите! Копите деньги!!! Без них никак...
Попробуйте мою игру, написанную в VB 6.0. Суть - победить врага, оставшись при своих жизнях...
Покупайте оружие, латы, поножи и шлемы! Атакуйте врага, как только ваша атака больше, чем у противника! Не забывайте о защите! Копите деньги!!! Без них никак...
Мертвый анархист
Участник
Мixei, на бой влияют следующие факторы: твоя атака и атака противника.
Количество жизней, вычитаемых у потивника в случае вашей победы равно ваша атака минус его защита. Я во время тестирования я обнаружил самый быстрый способ победы: покупаешь первые наборы оружия, лат и шлемов. Затем наносишь врагу 6 (7) ударов, зарабатываешь деньги и покупаешь второй набор оружия, лат и первый набор шлема... Дальше развиваешься в зависимости от обстоятельств... Желательно, купи третий набор лат... Третья версия игры с возможностью выбора склонности. Главное - правильно сделать покупки!
Количество жизней, вычитаемых у потивника в случае вашей победы равно ваша атака минус его защита. Я во время тестирования я обнаружил самый быстрый способ победы: покупаешь первые наборы оружия, лат и шлемов. Затем наносишь врагу 6 (7) ударов, зарабатываешь деньги и покупаешь второй набор оружия, лат и первый набор шлема... Дальше развиваешься в зависимости от обстоятельств... Желательно, купи третий набор лат... Третья версия игры с возможностью выбора склонности. Главное - правильно сделать покупки!
Мертвый анархист
Участник
А теперь вопрос: Что МОжно Интересного Добавить? Желательно писать на мыло...
