Реализация системы дипломатии - VB
Формулировка задачи:
Суть вопроса такова: есть движок на VB6.0 надо в нем реализовать систему дипломатии. То есть, есть 3 гос-ва, если человек из гос-ва А убивает человека из гос-ва Б то отношения ухудшаются. Как можно реализовать такую систему? Есть функции проверки кто бьет и кого, чтение из бд... Я думал сделать такую систему: В БД такие записи
............гос-во1......гос-во2.......гос-во3
гос-во1....50000...............0................0
гос-во2..........0.........50000................0
гос-во3..........0...............0..........50000
цифры это очки, за убийство перса отнимается 1 очко допустим. меньше 0 - вражда, 0-50000 нейтралитет, 50000+ союз. Мне нужна идея как все это реализовать, я не знаю как делать отношение одного гос-ва к другому... миллион иф прописывать не тема... типа
если гос-во игрока такое, а жертвы такое, то отнимать от этого, столько то...
какой, может быть, массив можно сделать или что? если не очень ясно, напишите мне в асю 498495939 постараюсь подробнее объяснить...
Решение задачи: «Реализация системы дипломатии»
textual
Листинг программы
relations (b.kingdom_num, a.kingdom_num) = relations (b.kingdom_num, a.kingdom_num) - 1;