╔═══════════════════════════════════╤═══╗
║ Демо код                          │ x ║
╠═══════════════════════════════════╧═══╣
║ ┌───────────────────────────────────┐ ║
║ │Один мой ЛуРу-друг соблазняет меня │ ║
║ │Демо-кодом. А я все не соберусь.   │ ║
║ │А надо-бы потом можно ехать на тоже│ ║
║ │assembly в качестве демо-сценера)) │ ║
║ │И вообще буду знать D3D, DSound,...│ ║
║ │Пишите в комментах кто хотя-бы ви- │ ║
║ │дел демки... (тока не игр!!)       │ ║
║ └───────────────────────────────────┘ ║
║ ┌───────────┐           ┌───────────┐ ║
║ │    Да     │           │    Нет    │ ║
║ └───────────┘           └───────────┘ ║
╚═══════════════════════════════════════╝

Так как я обожаю заниматься всякими глупостями то, держите:
\\ Скрипт для одниго шага человека...
\\ После шага делается еще раз

if (Пьяный) <= 10% then

 if Случайность(1000) = 1 then Упасть() else СделатьШаг()
else
 if (Пьяный >= 50%) then

  if (Пьяный >= 90%) then
   if Случайность(50%) then     СделатьПолзокВперед()
   else Случайность(10%)
    НичегоНеДелать()
   else
    Орать()
   endif
  endif
 else
  if Случайность(10) = 1 then
   Упасть()
  elseif Счайность(10) = 5 then
   Оступится()
  else
   СделатьШаг()
  endif
 endif
endif

Музыка - Что только не играло

(08.06.06)
Вечером все просто зашибись сначала поиграл в игру Syndicate на Sega, затем поиграл в Super Tux, потом решил продолжить свой проект:
ScriptLangTest2 - первый как-то не очень прижился... Там жестокие глюки при использвании Do... и все переменные типа String... Поэтому функция EOF фозвращает, то "True", то 1 и из-за этого я решил закрыть первый тест и начать второй, в котором я разчитываю будет GoTo, Do, If и может быть For...

Сейчас парился над функцией Calc(CodeStr as String, Wnd as Object) as Variant
Решил использовать для переменных тип Variant, пусть это занимает больше памяти зато работает нормально... Эта функция считает так 2+2*2 она вернет 6, хотя ответ 8, он просто сгребает все значения и выполняет действия... она поддерживает скобки (но только одни) можно написать так (2+2)*2 и она вернет 8...

Эта расчитываю вставить сюда еще проверку на функции... Еще создал функцию CalcA(Val1, Val2, ValA). В первое и второе значаение а третий параметр это действие там лежит строка типа +-*&^\| она может складывать(+), отнимать(-), умножать(*), делить(\), возводить в степень(^), OR (|) и соединять строки (& ) в принципе строки можно соединять и оператором сложения, он я предпочитаю &, так как если использовать + то и в первом параметре лежит строка а во втором число, произойдет ошибка...

В колонках играет - на работе нет колонок)))
Настроение сейчас - ±

Сижу пишу програмку на паскале (да-да и не кидать в меня тухлые помидоры). Вот задание это ваааще кадр:

Составить прогу содержащую процедуру, исходными данными которой являeтся массив C из n элементов...
Массив Р получают из С по правилу: заменить на 0 все элементы до 1 отрицательного, который заменить на 1, а все остальные заменить их модулями

хз половина что значит, так еще тут опрос можно устраивать для чего она нужна... Да и языка этого не знаю)) ну ладно начем что такое модули.. явно что-то не програмное. Так оказалось это такая хрень: было -1 стало +1 было +1 так и осталось (так Detonator обьяснил, ему он кстати и нужна [для лабы]), ну вроде все легко... делаем функцию в ней for и готово, так куда возвращать значания, помоему не один язык не умеет возвращать из функции массив.. Буду использовать страрый проверенный метод возврещения через параметр)))
Отлично все готово (вроде) ;) , пора тестировать...
theret:=CheckArray(c,p);
writeln(theret);
readln(tmp);

ИДИОТСКИЙ НЕ НУЖНЫЙ (уже) ЯЗЫК...

... ВСЕ!!! отлично пара исправлений и все вроде пашет)))

теперь просто отлично))

Я создал ОтЛивИнтернета))