Forum.iFiction.Ru

<<if команда1_играет_дома>>
    <<set $K = 1>> (коэф. влияния морали)
<<else>>
    <<set $K = 0.5>>
<<endif>>
<<set $Сила1 = Math.round(Math.max(1, $Атк1 - $Защ2 + $Мор1 * $К))>> (при помощи max ограничиваем силу, чтобы не получилась меньше 1, round - округление до целого)
<<set $Сила2 = Math.round(Math.max(1, $Атк2 - $Защ1 + $Мор2 * (1.5 - $К)))>> (если первая команда играет у себя, то вторая в гостях, и наоборот)

<<set $жизнь = $жизнь>>
<<set $жизнь1 = $жизнь1>>

# Две верхние строчки не нужны

Мое здоровье - ''<<print $жизнь>>''
Здоровье вора - ''<<print $жизнь1>>''
Вор поворачивается ко мне. Его лицо скрывает балахон.  Не говоря ни слова, гость направляется на меня...
<<if $успех eq 1>>
    [[Ударить в лицо|БойВорНеус {$успех = 2}]]
    [[Ударить в живот|БойВорНеус {$успех = 3}]]
    [[Кинуть в вора стул|БойВорНеус {$успех = 4}]]
<<endif>>

# Советую выделять внутренности блока if-endif
# при помощи табуляции, код будет легче читать

<<if $успех eq 2>>
    <<clrscr>>
    <<random $кубик = 6>>
    <<if $кубик gte 5>>
        Я ударяю вора в голову. Великолепный удар!
        <<set $жизнь1 = $жизнь1 - 3>>
        Мое здоровье - ''<<print $жизнь>>''
        Здоровье вора - ''<<print $жизнь1>>''
    <<else>>
        Вор ставит блок и проводит ответный удар!
        <<set $жизнь = $жизнь - 1>>
        Мое здоровье - ''<<print $жизнь>>''
        Здоровье вора - ''<<print $жизнь1>>''
    <<endif>>

    # Выше дважды написано одно и то же (про жизни гг и противника)
    # такого быть не должно. Лучше вынести эти две строки за endif,
    # вот прям сюда

    <<if $жизнь1 lte 0>>
        <<goto 'ОсмотретьсяЖив'>>    
    <<else>>
        <<goto 'БойВорНеус' {$успех = 1}>>    
    <<elseif $жизнь lte 0>>
        <<goto 'Конец1'>>
    <<else>>
        <<goto 'БойВорНеус' {$успех = 1}>>    
    <<endif>>

    # Программа никогда не дойдёт до двух нижних goto,
    # поскольку при истинности первого условия выполнится первый goto,
    # а второй goto выполнится во всех остальных случаях.
    # В блоке if-endif внутри может быть сколько угодно elseif,
    # но всегда только один else, причём стоять он должен самым последним!

<<endif>>

<<if $жизнь lte 0>>
<<goto 'Конец'>>
<<elseif $жизнь1 lte 0>>
<<display 'Пещера'>>
<<elseif $жизнь2 lte 0>>
<<display 'Пещера'>>
<<elseif $жизнь1 + $жизнь2 lte 0>> (1)
<<goto 'пещера2'>> (2)
<<else>>

<<if $жизнь lte 0>>
<<goto 'Конец'>>
<<elseif ($жизнь1 lte 0) and ($жизнь2 lte 0)>>
<<goto 'пещера2'>>
<<elseif $жизнь1 lte 0>>
<<display 'Пещера'>>
<<elseif $жизнь2 lte 0>>
<<display 'Пещера'>>
<<else>>

<<input '0' $адрес>>

<<if $адрес eq '12марта130'>>
<<set $адрес = 1>>
<<elseif $адрес eq 'калинина215'>>
<<set $адрес = 2>>    
<<endif>>
<<goto '2'>>

<<if $адрес eq 1>>
Черемушки    
<<elseif $адрес eq 2>>
Вокзал
<<else>>
Район не определен!    
<<endif>>

<<set $зап = 0>> ---- переменная дающая понять попалась уже запятая в цикле или нет. 0 - не попадалась, 1 - попадалась
<<set $i = -1>> ---- эта переменная будет обозначать индекс символа в строке $адрес
<<loop $адрес.length>> ---- объявление цикла, цикл будет выполняться столько раз, сколько символов в строке $адрес
<<set $i++>> ---- увеличиваем $i, таким образом в первый раз $i будет равен 0, а индекс в строке как раз и начинается с нуля
<<if $адрес[$i] eq ",">> ---- проверяем не является ли символ в строке $адрес с индексом $i запятой и если да, то
    <<set $зап = 1>> ---- устанавливаем значение переменной $зап = 1
    <<continue>> ---- не выполняем все что ниже идет по циклу, а снова возвращаемся на его начало. Еще существует полезная штукенция как <<break>>, которая вообще полностью прекращает цикл. О ней и вообще о всем остальном можно прочитать в справке
<<endif>>
<<if $зап eq 0>> ---- если $зап равен 0, то
    <<set $улица = $улица + $адрес[$i]>> ---- прибавляем к строке $улица символ с индексом $i из строки $адрес
<<else>> ---- иначе
    <<set $дом = $дом + $адрес[$i]>> ---- прибавляем к строке $дом символ с индексом $i из строки $адрес
<<endif>>
<<endloop>> ---- конец цикла

<<if $улица eq "калинина" and $дом gte 1 and $дом lte 50>>
Вокзал
<<elseif $улица eq "калинина" and $дом gte 51 and $дом lte 200>>
Черемушки
<<elseif $улица eq "красныхпартизан" and $дом gte 1 and $дом lte 100>>
Центральный район
<<else>>
Район не определен!    
<<endif>>