Как можно это сократить?

Дата: Среда, 13 Октября 2010, 14:38:18 | Сообщение # 1

У меня есть такой код.

Code

loop
          exitwhen i > 4 * lvl + 5
          if i <= 3 then
              set d[i] = -240. * i * i + 1040. * i - 640.
              set h[i] = 70. * i - 30.
          elseif i > 3 and i <= 6 then
              set d[i] = -240. * (i - 3) * (i - 3) + 1040. * (i - 3) - 640.
              set h[i] = 70. * (i - 3) - 30.
          elseif i > 6 and i <= 9 then
              set d[i] = -240. * (i - 6) * (i - 6) + 1040. * (i - 6) - 640.
              set h[i] = 70. * (i - 6) - 30.
          elseif i > 9 and i <= 12 then
              set d[i] = -240. * (i - 9) * (i - 9) + 1040. * (i - 9) - 640.
              set h[i] = 70. * (i - 9) - 30.
          elseif i > 12 and i <= 15 then
              set d[i] = -240. * (i - 12) * (i - 12) + 1040. * (i - 12) - 640.
              set h[i] = 70. * (i - 12) - 30.
          elseif i > 15 and i <= 18 then
              set d[i] = -240. * (i - 15) * (i - 15) + 1040. * (i - 15) - 640.
              set h[i] = 70. * (i - 15) - 30.
          elseif i > 18 and i <= 21 then
              set d[i] = -240. * (i - 18) * (i - 18) + 1040. * (i - 18) - 640.
              set h[i] = 70. * (i - 18) - 30.
          endif
          set i = i + 1
      endloop

Как можно его ЕЩЁ сократить?

НУ И ЧТО ТЕПЕРЬ?

Кликайте на дракошку ;)

Сообщение отредактировал [DUОS] - Среда, 13 Октября 2010, 14:39:20

Enforcer

Дата: Среда, 13 Октября 2010, 14:50:02 | Сообщение # 2

Энф
Когда-то смотрел за порядком

Группа: Ветераны

Сообщений: 3127

Награды: 7

Репутация: 981

Блокировки:

Code

loop
exitwhen i > 4 * lvl + 5
           if i <= 3 then
                 set d[i] = -240. * i * i + 1040. * i - 640.
                 set h[i] = 70. * i - 30.
    else
     set A = 3
     loop
     exitwhen A > 18
              if i > A and i <= 3+A then
                  set d[i] = -240. * (i - A) * (i - A) + 1040. * (i - A) - 640.
                  set h[i] = 70. * (i - A) - 30.
      end if
          set A = A + 3
          endloop
    end if
set i = i + 1
endloop

Точный синтаксис не помню но примерно так.

Что вы теряете, тупо зависая на Инфо?

Сообщение отредактировал Enforcer - Среда, 13 Октября 2010, 15:12:45

H_A_PK

Дата: Среда, 13 Октября 2010, 15:43:30 | Сообщение # 3

Быдлокодер

Группа: Проверенные

Сообщений: 2605

Награды: 1

Репутация: 822

Блокировки:

Code

    local integer i2=3
     loop
            exitwhen i > 4 * lvl + 5
            loop
              exitwhen i2 > 18
                if  i <=  i2  or i > i2-3 then
                 set d[i] = -240. * (i - (i2-3)) * (i - (i2-3)) + 1040. * (i - (i2-3)) - 640.
                 set h[i] = 70. * (i - (i2-3)) - 30.
               set i2 = i2 + 3
               endloop
            endif
            set i = i + 1
        endloop

проклятье ляжет на любого
кто дочитает до конца
нет не дочитывай не надо
остановись ну всё капец

Сообщение отредактировал H_A_PK - Среда, 13 Октября 2010, 15:44:53

DragoN

Дата: Среда, 13 Октября 2010, 18:03:28 | Сообщение # 4

Инквизитор

Группа: Стримеры

Сообщений: 4348

Награды: 7
Репутация: 2776
Блокировки:

не юзать we совсем

El Psy Congroo

[DUОS]

Дата: Среда, 13 Октября 2010, 18:04:22 | Сообщение # 5

Dragon93,
...
Юзать j файлы, ога?

НУ И ЧТО ТЕПЕРЬ?

Кликайте на дракошку ;)