Отправлено: 18.09.09 10:42. Заголовок: Затухание текста
Плавное появление и затухание текста. (FireURQ)
Использование:
fadein=0 fadeout=1
proc _fade(" _ В голове моей мозг изсыхает,#/$ _ и все руки моих плеч дрожат,#/$ _ вбаш я лолзы свои отсылаю#/$ _а в ответ только вопли и мат..#/$ _ ")
:_fade ;умеренно фейдин и быстро фейдаут всего текста proc _fadein_screen(_fade_1) proc _fadeout_screen(_fade_1) end
:_fadein_screen fadein_screen=1 :fadein_screen fadein_screen=fadein_screen+5 if fadein_screen>254 then pause #(1000 + #_fadein_screen_1$*10)$ & cls & end cls proc _color(fadein_screen, 242, 242, 242) textcolor = _result pln #%_fadein_screen_1$ pause 50 goto fadein_screen
:_fadeout_screen fadeout_screen=255 :fadeout_screen fadeout_screen=fadeout_screen-10 cls if fadeout_screen<10 then end proc _color(fadeout_screen, 242, 242, 242) textcolor = _result pln #%_fadeout_screen_1$ pause 50 goto fadeout_screen end
Код второго варианта, с параметрами:
:_fade ;умеренно фейдин и быстро фейдаут всего текста proc _fade_screen(_fade_1,5,fadein,242,242,242) proc _fade_screen(_fade_1,10,fadeout,242,242,242) end
:_fade_screen /*
Параметры: текст, инкремент(чем больше тем быстрее), fadein/fadeout (0/1), r, g, b
if _fade_screen_3=fadein then fade_screen=1 else fade_screen=255 :_fade_screen_loop if _fade_screen_3=fadein then fade_screen=fade_screen+_fade_screen_2 else fade_screen=fade_screen-_fade_screen_2 if _fade_screen_3=fadein and fade_screen>254 then pause (1000 + #_fade_screen_1$*10) & cls & end cls if _fade_screen_3=fadeout and fade_screen<10 then end proc _color(fade_screen, _fade_screen_4, _fade_screen_5, _fade_screen_6) textcolor = _result pln #%_fade_screen_1$ pause 50 goto _fade_screen_loop
Отправлено: 18.09.09 11:52. Заголовок: Я у тебя в исходника..
Я у тебя в исходниках несколько грубейших ошибок нашел. Не "руки" а "все пальцы моих рук дрожат" И не "а в ответ только вопли и мат", а "спасибо мне не говорят".
;--------------------[fadein/fadeout, text, time, alpha, r, g, b] :fade if fade_1=1 then part=255/(#fade_3$/10) & alpha=1 else part=-255/(#fade_3$/10) & alpha=255 :cycle if fade_1=1 and alpha>254 then end if fade_1=0 and alpha<2 then end pause 10 proc _color(alpha, fade_4, fade_5, fade_6) textcolor = _result cls pln #%fade_2$ alpha=alpha+part goto cycle
textalign=2 proc random instr txt = М. Тарловский. "Иронический сад" proc fade (1, txt, 500, r, b, g) pause 1000 btn poetry, С начала end
:fade if fade_1=1 then part = 255/(#fade_3$/10) & alpha=1 else part = -255/(#fade_3$/10) & alpha=255 :cycle if fade_1=1 and alpha>254 then end if fade_1=0 and alpha<2 then end pause 10 proc _color(alpha, fade_4, fade_5, fade_6) textcolor = _result cls pln #%fade_2$ alpha=alpha+part goto cycle
:random r=#rnd150$+105 b=#rnd150$+105 g=#rnd150$+105 end
Отправлено: 29.11.11 12:31. Заголовок: Задачка от Чикаги: ..
Задачка от Чикаги: нужно управлять перемещениями символа Х, который "бегает" по строке туда сюда. Код для FURQ, используются токены и параметры в кнопках и проках.
Сама идея простая - токенами разбиваем строчку на символы, нужный символ заменяем на Х, потом объединяем полученные символы обратно в строчку и выводим. Кнопками вправо/влево просто меняем номер символа который нужно заменить.
:join_tokens #%join_tokens_1$="" join_tokens_i=1 :join_tokens_loop if join_tokens_i>tokens_num then end #%join_tokens_1$="#% #%join_tokens_1$ $#% token#join_tokens_i$ $" join_tokens_i=join_tokens_i+1 goto join_tokens_loop end
Все даты в формате GMT
3 час. Хитов сегодня: 1
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
Отправлено: 18.09.09 10:39. Заголовок: Полезные исходники
- участник сейчас на форуме
- участник вне форума