19.3. Как сделать так, чтобы текст появлялся на экране постепенно? По буквам?

В: Как сделать так, чтобы текст появлялся на экране постепенно? По буквам?

О: В самом простом виде это можно реализовать через цикл с задержкой:

! вносим текст в переменную

$stroka='А можно ли сделать так, чтобы текст появлялся постепенно?'
! выставляем счётчик

i=1
loop local i=1 while i<len($stroka)+1 step i+=1:
! пока значение счётчика не превысило длину строки

    ! задержка 250 мс

    wait 250
    ! выводим следущую букву из нашей строки

    *p $mid($stroka,i,1)
end

Однако оператор wait "подвешивает" игру на время задержки, в результате чего игрок не может ничего сделать, пока текст не будет выведен полностью. Если нужно вывести текст побуквенно, но при этом сохранить для игрока возможность взаимодействовать с игрой, необходимо использовать локацию-счётчик.

Для начала нужно создать локацию-счётчик (если ещё не создана):

• создаём локацию, название может быть любым, например "реалтайм".
• указываем плееру, какую локацию ему нужно использовать, как локацию-счётчик. Пишем, например, на самой первой локации в игре:

  $counter="реалтайм"

На локации-счётчик можно написать вот такой код:

if $stroka<>'':
! если в переменной строка есть какое либо значение

    ! выставляем контрольную переменную (она же значение таймера)

    control=50
    ! выставляем период обращения к локации-счётчику

    settimer control
    ! выводим первую букву из оставшейся строки

    *p $mid($stroka,1,1)
    ! если длина строки больше 1

    if len($stroka)>1:
        ! вырезаем из неё все буквы, начиная со второй

        ! и присваиваем той же переменной

        $stroka=$mid($stroka,2)
    else
        ! иначе

        ! выводим перевод строки

        *pl
        ! присваиваем пустое значение

        $stroka=''
    end
elseif control=50:
! иначе если в контрольной переменной стоит значение 50

    ! меняем значение контрольной переменной

    control=500
    ! выставляем период обращения к локации-счётчику

    settimer control
end

Теперь, чтобы строка вывелась побуквенно, достаточно присвоить текст переменной $stroka на любой локации:

$stroka = "А можно ли сделать так, чтобы текст появлялся постепенно, но игрок продолжал взаимодействовать с игрой?"