GhostManSD 
 
 
		
		
		
			
			
			
 
 
			
Posts: 1054 
	
		
	 | 
	
		
			
			 
			
				Массовая работа с ресурсами 
!!FU90100:Px1/x2/x3/x4/x5/x6/x7/x8/x9/x10; 
В v900-v907 заносятся итоги операций для игроков: 0 - операция не выполнена, 1 - операция выполнена    x1=0 - установить ресурсы, x2 - номер игрока, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил    x1=1 - добавить ресурсы, x2 - номер игрока, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил    x1=2 - отнять ресурсы, x2 - номер игрока, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил    x1=3 - установить ресурсы, x2 - номера игроков побитно, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил    x1=4 - добавить ресурсы, x2 - номера игроков побитно, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил    x1=5 - отнять ресурсы, x2 - номера игроков побитно, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил  
!!FU90100:P0/0/10/5/10/5/5/5/5000/5;      Красный игрок теперь имеет по 10 ед. дерева и руды, по 5 прочих ресурсов и 5000 золота 
 
!!FU90100:P1/2/5/0/5/0/0/0/1500/0;      Коричневый игрок получит по 5 ед. дерева и руды и 1500 золота 
 
!!FU90100:P2/3/0/5/0/5/5/5/2500/5; 
!!IF&v503=0:M^У вас не хватает ресурсов для операции!^; 
!!IF&v503=1:M^Операция проведена успешно!^;      Зеленый игрок потеряет 5 единиц ресурсов, кроме дерева и руды, а также 2500 золота 
 
!!FU90100:P5/18/0/5/0/5/5/5/2500/5; 
!!IF&v502=0:Q1/10/2/1^У синего игрока не хватает ресурсов для операции!^; 
!!IF&v504=0:Q1/10/4/1^У оранжевого игрока не хватает ресурсов для операции!^; 
!!IF&v502=1:Q1/10/2/1^Операция для синего игрока проведена успешно!^; 
!!IF&v504=1:Q1/10/4/1^Операция для оранжевого игрока проведена успешно!^;      Отнять у синего и оранжевого игроков по 5 единиц каждого ресурса, кроме дерева и руда, а также 2500 золота  
Code: 
 ******************************************************************************** 
; Название: Массовая работа с ресурсами 
; Автор: GhostManSD 
; Переменные: v900-v907 
; Функции: 90100-90106 
******************************************************************************** 
; Функция 90100: Изменение ресурсов игроков 
   ; Функции: 90100-90109 
   ; x1=0 - установить ресурсы, x2 - номер игрока, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил 
   ; x1=1 - добавить ресурсы, x2 - номер игрока, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил 
   ; x1=2 - отнять ресурсы, x2 - номер игрока, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил 
   ; x1=3 - установить ресурсы, x2 - номера игроков побитно, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил 
   ; x1=4 - добавить ресурсы, x2 - номера игроков побитно, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил 
   ; x1=5 - отнять ресурсы, x2 - номера игроков побитно, x3 - дерево, x4 - ртуть, x5 - руда, x6 - сера, x7 - кристаллы, x8 - самоцветы, x9 - золото, x10 - мифрил 
!?FU90100; Изменение ресурсов игрока 
   !!FU90101&x1=0:Px1/x2/x3/x4/x5/x6/x7/x8/x9/x10; Установить ресурсы 
   !!FU90102&x1=1:Px1/x2/x3/x4/x5/x6/x7/x8/x9/x10; Добавить ресурсы 
   !!FU90103&x1=2:Px1/x2/x3/x4/x5/x6/x7/x8/x9/x10; Отнять ресурсы 
   !!FU90104&x1=3:Px1/x2/x3/x4/x5/x6/x7/x8/x9/x10; Установить реурсы побитно 
   !!FU90105&x1=4:Px1/x2/x3/x4/x5/x6/x7/x8/x9/x10; Добавить ресурсы побитно 
   !!FU90106&x1=5:Px1/x2/x3/x4/x5/x6/x7/x8/x9/x10; Отнять ресурсы побитно 
!?FU90101; Установить ресурсы 
   !!VRv1:S500 +x2; Вычислить переменную игрока 
   !!VRvv1:S1; Установить флаг успешного выполнения 
   !!OW:Rx2/0/x3 Rx2/1/x4 Rx2/2/x5 Rx2/3/x6 Rx2/4/x7 Rx2/5/x8 Rx2/6/x9 Rx2/7/x10; Изменить ресурсы игрока 
!?FU90102; Добавить ресурсы 
   !!OW:Rx2/0/?y3 Rx2/1/?y4 Rx2/2/?y5 Rx2/3/?y6 Rx2/4/?y7 Rx2/5/?y8 Rx2/6/?y9 Rx2/7/?y10; Запомнить текущие ресурсы игрока 
   !!VRy1:S0; Обнулить первую контрольную переменную 
   !!VRy3:+x3; Добавить дерево 
   !!VRy4:+x4; Добавить ртуть 
   !!VRy5:+x5; Добавить руду 
   !!VRy6:+x6; Добавить серу 
   !!VRy7:+x7; Добавить кристаллы 
   !!VRy8:+x8; Добавить драгоценные камни 
   !!VRy9:+x9; Добавить золото 
   !!VRy10:+x10; Добавить мифрил 
   !!OW:Rx2/0/y3 Rx2/1/y4 Rx2/2/y5 Rx2/3/y6 Rx2/4/y7 Rx2/5/y8 Rx2/6/y9 Rx2/7/y10; Изменить ресурсы игрока 
!?FU90103; Отнять ресурсы 
   !!OW:Rx2/0/?y3 Rx2/1/?y4 Rx2/2/?y5 Rx2/3/?y6 Rx2/4/?y7 Rx2/5/?y8 Rx2/6/?y9 Rx2/7/?y10; Запомнить текущие ресурсы игрока 
   !!VRy1:S0; Обнулить контрольную переменную 
   !!VRy1&x3>y3:S1; Если не хватает дерева 
   !!VRy1&x4>y4:S1; Если не хватает ртути 
   !!VRy1&x5>y5:S1; Если не хватает руды 
   !!VRy1&x6>y6:S1; Если не хватает серы 
   !!VRy1&x7>y7:S1; Если не хватает кристаллов 
   !!VRy1&x8>y8:S1; Если не хватает драгоценных камней 
   !!VRy1&x9>y9:S1; Если не хватает золота 
   !!VRy1&x10>y10:S1; Если не хватает мифрила 
   !!VRv1&y1=1:S900 +x2; Вычислить переменную игрока 
   !!VRvv1&y1=1:S0; Установить флаг ошибки 
   !!FU&y1=1:E; Завершить функцию, если не хватает ресурсов 
   !!VRy3&x3<y3:-x3; Отнять дерево 
   !!VRy4&x4<y4:-x4; Отнять ртуть 
   !!VRy5&x5<y5:-x5; Отнять руду 
   !!VRy6&x6<y6:-x6; Отнять серу 
   !!VRy7&x7<y7:-x7; Отнять кристаллы 
   !!VRy8&x8<y8:-x8; Отнять драгоценные камни 
   !!VRy9&x9<y9:-x9; Отнять золото 
   !!VRy10&x4<y4:-x10; Отнять мифрил 
   !!VRv1:S900 +x2; Вычислить переменную игрока 
   !!VRvv1:S1; Установить флаг успешного выполнения 
   !!OW:Rx2/0/y3 Rx2/1/y4 Rx2/2/y5 Rx2/3/y6 Rx2/4/y7 Rx2/5/y8 Rx2/6/y9 Rx2/7/y10; Изменить ресурсы игрока 
!?FU90104; Установить ресурсы побитно 
   !!VRy1:Sx2&1; Проверить на наличие бита красного игрока 
   !!FU90140&y1=1:Px1/0/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&2; Проверить на наличие бита синего игрока 
   !!FU90140&y1=2:Px1/1/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&4; Проверить на наличие бита коричневого игрока 
   !!FU90140&y1=4:Px1/2/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&8; Проверить на наличие бита зеленого игрока 
   !!FU90140&y1=8:Px1/3/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&16; Проверить на наличие бита оранжевого игрока 
   !!FU90140&y1=16:Px1/4/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&32; Проверить на наличие бита пурпурного игрока 
   !!FU90140&y1=32:Px1/5/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&64; Проверить на наличие бита бирюзового игрока 
   !!FU90140&y1=64:Px1/6/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&128; Проверить на наличие бита голубого игрока 
   !!FU90140&y1=128:Px1/7/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
!?FU90105; Добавить ресурсы побитно 
   !!VRy1:Sx2&1; Проверить на наличие бита красного игрока 
   !!FU90141&y1=1:Px1/0/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&2; Проверить на наличие бита синего игрока 
   !!FU90141&y1=2:Px1/1/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&4; Проверить на наличие бита коричневого игрока 
   !!FU90141&y1=4:Px1/2/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&8; Проверить на наличие бита зеленого игрока 
   !!FU90141&y1=8:Px1/3/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&16; Проверить на наличие бита оранжевого игрока 
   !!FU90141&y1=16:Px1/4/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&32; Проверить на наличие бита пурпурного игрока 
   !!FU90141&y1=32:Px1/5/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&64; Проверить на наличие бита бирюзового игрока 
   !!FU90141&y1=64:Px1/6/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&128; Проверить на наличие бита голубого игрока 
   !!FU90141&y1=128:Px1/7/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
!?FU90106; Отнять ресурсы побитно 
   !!VRy1:Sx2&1; Проверить на наличие бита красного игрока 
   !!FU90142&y1=1:Px1/0/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&2; Проверить на наличие бита синего игрока 
   !!FU90142&y1=2:Px1/1/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&4; Проверить на наличие бита коричневого игрока 
   !!FU90142&y1=4:Px1/2/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&8; Проверить на наличие бита зеленого игрока 
   !!FU90142&y1=8:Px1/3/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&16; Проверить на наличие бита оранжевого игрока 
   !!FU90142&y1=16:Px1/4/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&32; Проверить на наличие бита пурпурного игрока 
   !!FU90142&y1=32:Px1/5/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&64; Проверить на наличие бита бирюзового игрока 
   !!FU90142&y1=64:Px1/6/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
   !!VRy1:Sx2&128; Проверить на наличие бита голубого игрока 
   !!FU90142&y1=128:Px1/7/x3/x4/x5/x6/x7/x8/x9/x10; Изменить ресурсы 
********************************************************************************
  
 
			 
			
			
  
Κακῆς ἀπ' ἀρχῆς γίγνεται τέλος κακόν.
			
				
(This post was last modified: 15.11.2010 02:39 by GhostManSD.)
 
			 
		 |  
	 
 |