hedgewars/uScript.pas
changeset 14618 7c5a9c1b9d4e
parent 14611 3cf7799e04b5
child 14619 03033213e800
equal deleted inserted replaced
14617:244699a97734 14618:7c5a9c1b9d4e
  2539                             AddVisualGear(hwRound(HHGear^.X) - 16 + Random(32), hwRound(HHGear^.Y) - 16 + Random(32), vgtSmokeWhite);
  2539                             AddVisualGear(hwRound(HHGear^.X) - 16 + Random(32), hwRound(HHGear^.Y) - 16 + Random(32), vgtSmokeWhite);
  2540                             AddVisualGear(hwRound(HHGear^.X) - 16 + Random(32), hwRound(HHGear^.Y) - 16 + Random(32), vgtSmokeWhite);
  2540                             AddVisualGear(hwRound(HHGear^.X) - 16 + Random(32), hwRound(HHGear^.Y) - 16 + Random(32), vgtSmokeWhite);
  2541                             AddVisualGear(hwRound(HHGear^.X) - 16 + Random(32), hwRound(HHGear^.Y) - 16 + Random(32), vgtSmokeWhite);
  2541                             AddVisualGear(hwRound(HHGear^.X) - 16 + Random(32), hwRound(HHGear^.Y) - 16 + Random(32), vgtSmokeWhite);
  2542                             end;
  2542                             end;
  2543                         HHGear^.Message:= HHGear^.Message or gmDestroy;
  2543                         HHGear^.Message:= HHGear^.Message or gmDestroy;
       
  2544                         HHGear^.Active:= true;
       
  2545                         AllInactive:= false;
  2544                         end;
  2546                         end;
  2545                     end;
  2547                     end;
  2546                 // can't dismiss more than one team
  2548                 // can't dismiss more than one team
  2547                 break;
  2549                 break;
  2548                 end;
  2550                 end;