Обновил программку. Сделал ограничение во всех полях, кроме коэффициентов и даты очень большим (2 миллиарда с фигом). Осторожно, если вводить большие числа, в программе может возникнуть переполнение и выйдет полная чушь, например, отрицательное значение количества драконов. Последняя версия лежит в драконьем архиве.
Обновил скрипт. Сделал описание покороче.
Code:
ZVSE
;Кристальный дракон.
!#MA : X133/d+131056;Делаем кристального дракона неживым и неподверженным боевому духу и страху.
;Настройка описания для кристального дракона.
!?PI;Триггер на пост-инструкцию.
!!VRz754 : S^Неживой. Сопротивление магии 50%. Бесстрашен. Производит кристаллы.^;Записываем описание кристального дракона в переменную.
!!UN : G1/133/2/z754;Установить описание для кристального дракона.
;Убираем гномье сопротивление.
!?MR2;Когда срабатывает гномье сопротивление.
!!MR : M?y-1;Запоминаем, у кого срабатывает сопротивление.
!!MR&y-1=133 : F0;Если сопротивление сработало у кристальных драконов, делаем шанс на срабатывание нулевым.
;Добавляем сопротивление, как у големов.
!?MR1;При срабатывании големового сопротивления.
!!MR : M?y-1 D?y-2;Запоминаем, у кого срабатывает сопротивлениеи его урон.
!!VRy-2 : Sy-2:2;Делим запомненный урон на 2.
!!MR&y-1=133 : Fy-2;Если сопротивление сработало у кристальных драконов, изменяем урон на новое, (уменьшенное в 2 раза) значение.
;Прибавка кристаллов по новой формуле.
!#TM65 : S8/999/7/255;Таймер каждому игроку на первый день каждой недели, начиная со второй.
!?TM65;При срабатывании таймера.
!!FU9005 : P;Вызываем функцию прибавки кристаллов.
;Функция счёта кристаллов, прибавляемых игроку.
!?FU9005;Функция прибавки кристаллов.
!!VRv6001 : C0;Очищаем переменную для счёта общего кол-ва кристальных драконов.
!!OW : O-1/?y9/?y1/?y2/?y3/?y4/?y5/?y6/?y7/?y8;Записываем номера активных героев игрока в переменные.
!!DO9001/1/y9/1 : Py1/y2/y3/y4/y5/y6/y7/y8;Запускаем цикл, проверяющий героев игрока.
!!OW : C?y1;Считываем цвет игрока.
!!UN : U98/-1/?y2;Считаем количество городов на карте.
!!VRy2 : Sy2-1;Считаем номер последнего города.
!!DO9003/0/y2/1 : Py1;Запускаем цикл, проверяющий все города на карте.
!!OW&v6001>0 : R-1/4/d-3;Забираем 3 кристалла у игрока, если у него есть кристальные драконы.
!!FU9006 : Pv6001/?v6001;Вызываем функцию, вычисляющую целочисленный квадратный корень из числа кристальных драконов (с округлением вниз).
!!VRv6001 : Sv6001*5:2;Умножаем целочисленный квадратный корень из числа кристальных драконов на 2,5.
!!OW : R-1/4/dv6001;Прибавляем кристаллы за кристальных драконов.
;Функции счёта кристальных драконов в городе.
!?FU9003;Функция определения хозяина города и проверки слотов его гарнизона или армии гарнизонного героя.
!!CA0/x16 : O?y1;Узнаём цвет хозяина города.
!!CA0/x16 : H0/?i;Проверяем, нет ли героя на гарнизоне города, если есть, запоминаем его номер.
!!DO9004/0/6/1&x1=y1/i<0 : Px16;Если хозяин города - текущий игрок, и на гарнизоне городе нет героя, запускаем цикл, считающий кристальных драконов в городе.
!!DO9002/0/6/1&x1=y1/i>=0 : Pi;Если хозяин города - текущий игрок, и на гарнизоне города городе есть герой, запускаем цикл, считающий кристальных драконов в армии этого героя.
!?FU9004;Функция вычисления кол-ва кристальных драконов в слоте гарнизона города.
!!CA0/x1 : M2/x16/?y1/?y2;Считываем информацию о типе существ в слоте гарнизона города и их количестве.
!!VRv6001&y1=133 : Sv6001+y2;Если существа - кристальные драконы, то прибавляем их количество к переменной для счёта общего кол-ва драконов.
;Функции вычисления кол-ва кристальных драконов у героя.
!?FU9001;Функция проверки слотов армии героя.
!!DO9002/0/6/1 : Pxx16;Запускаем цикл, проверяющий количество кристальных драконов в слотах армии героя.
!?FU9002;Функция вычисления кол-ва кристальных драконов в слоте армии героя.
!!HEx1 : C0/x16/?y1/?y2;Считываем информацию о типе существ в слоте армии героя и их количестве.
!!VRv6001&y1=133 : Sv6001+y2;Если существа - кристальные драконы, то прибавляем их количество к переменной для счёта общего кол-ва драконов.
;Функции вычисления целочисленного квадратного корня числа (с округлением вниз).
!?FU9006;Функция настройки и запуска цикла вычисления целочисленного квадратного корня числа.
!!VRy1 : Sx1+2;
!!DO9007/1/y1/2 : Py1/?y1/x1;Настраиваем первую разность и запускаем цикл, вычисляющий целочисленный квадратный корень числа.
!!VRx2 : Sy1;Возвращаем значение целочисленного квадратного корня.
!?FU9007;Функция шага вычисления целочисленного квадратного корня числа.
!!VRx3 : Sx3-x16;Отнимаем текущее нечётное число от текущей разности, что даёт новую текущую разность.
!!VRx2&x3<0 : Sx16:2;Если текущая разность отрицательна, записываем половину текущего нечётного числа (с округлением вниз) в переменную возвращаемого значения.
!!VRx16&x3<0 : Sx1;Если текущая разность отрицательна, завершаем цикл.
Также обновил предыдущую ссылку на скрипт.
(This post was last modified: 10.07.2010 15:07 by Sav.)
Search
Member List
Help
