то непонятное нечто,это на самом деле игра-стратегия!Я типо в visual basic это сделала.нам просто задали это по инфе,я дома сделала,сюда перекачала,а на уроке,вместо того, чтобы все это писать заново,просто открою жж и скопирую в программу.Вот такая я ленивая ))).я тут вообще первый раз,но и не планирую писать много,я в общем и создала свой аккаунт только ради д.з по инфе.ну посмотрим,может и напишу чего...

Private Sub Form_Load()
MsgBox "привет,я-великий магистр Анрик, я единственный, кто спасся из королевства Ролатник, которое захватили злые урюпики.ты должен помочь мне спасти Ролатник и его жителей!!!", "6"
a = InputBox("согласен?")
If a = "да" Then
MsgBox "тогда вперед!"
Else
MsgBox "возвращайся к себе,ты не спас мой народ, жалкий трус!"
End If
MsgBox "итак начнем!вначале нужно проникнуть в замок. Можно на машине(но могут услышать)или пешком(но так дольше и опаснее)?", "6"
a = InputBox("на машине или пешком?")
If a = "на машине" Then
MsgBox "ну поехали, скоро ты узнаешь правильно ли ты поступил(а)"
Else
MsgBox "ты утонул бы в болоте,если бы не я.Возвращайся к себе,ты не спас мой народ, жалкий трус!"
End If
MsgBox "слушай,ты действительно был прав!!!Если бы мы пошли пешком,то утанули бы в болоте!Но нужно еще попасть внутрь.Что же делать?можно влезть по лестнице, но она не очень крепкая или попытаться обхитрить охраников замка и пройти через главные ворота?"
a = InputBox("Так по лестнице или через главные ворота")
If a = "по лестнице" Then
MsgBox "а я смотрю ты смелый(ая)!Смотри не упади"
Else
MsgBox "жалкий трус!Мне не нужен помошник, который боиться высоты и решает проблемы обманом!возвращайся к себе,ты не спас мой народ,!"
End If
MsgBox "и так мы в замке!Начинается самое опасное!везде охрана и в любой момент нас могут схватить,и тогда пощады не будет!О, чтос я слышу за дверью голос какой-то девушки и нескольких урюпиков.она не отдает им какой-то мешок и они хотят убить её!Пойдем спасать её или нет,ведь урипов много и они не такие уж и слабаки..."
a = InputBox("спасем или нет")
If a = "спасем" Then
MsgBox "молодец!!!победа над урюпиками была сложной но вместе мы спасли девушку."
Else
MsgBox "жалкий трус!они убили девушку,а потом учуяли нас!возвращайся к себе,ты не спас мой народ,!"
End If
MsgBox "спасенная девушка рассказала мне все об урюпиках!Оказывается у них есть одно слабое место-они не выносят солнечного света,как только они видят его,так сразу умирают!Но откуда нам взять свет,урюпики сломали все светильники и заколотили все окна!можно поискать в замке хоть какие-то лампы или спуститься по той-же лестнице на улицу и искать там"
a = InputBox("улица или замок")
If a = "замок" Then
MsgBox "ну конечно!!как я мог не догаться!!!ведь женщина,которую мы спасли делает лампы,и в мешке их полно!!!мы правильно сделали, сто спасли её и не пошли на улицу!"
Else
MsgBox "в этот раз лестница вниз не выдержала и оборвалась-мы упали,звук услышали охранники и схватили нас.Возвращайся к себе,ты не спас мой народ,!"
End If
MsgBox "Теперь давай решать, как будем использовать эти фонари...ты что-нибудь придумал?...О!Эврика!!!Давай будем светить каждому проходящему мимо урюпику,тогда урюпики все помрут,пока будут ходить по замку....или вот еще идея,если мы проберемся в их оружейню(там склад всего обарудования и там же они проводят все время кроме сна), то можно ночью,когда все или спят или на карауле пойти в оружейню и повесить туда фонари,а когда все придут мы их включим...но решать тебе."
a = InputBox("светить каждому отдельно или повесить на стены")
If a = "повесить на стены" Then
MsgBox "конечно ты прав!!!конечно ты прав,так и безопаснее и мы точно убьем всех.а если светить каждому,мы и через год всех не дождемся!!!"
Else
MsgBox "дурак!!!мы и за год не управимся!!!возвращайся к себе,ты не спас мой народ,!"
End If
MsgBox "Ну вот,все урюпики испарились,как только увидели свет,мы победили их и освободили всех жителей!!!спасибо дорогой друг.ты настоящий герой!!!"
End Sub