hedgewars/uFLTeams.pas
branchqmlfrontend
changeset 11455 96decedd9400
parent 11454 3c5d99013baf
child 11456 ab77e2ea2f82
equal deleted inserted replaced
11454:3c5d99013baf 11455:96decedd9400
    49 var i: Longword;
    49 var i: Longword;
    50 begin
    50 begin
    51     with team do
    51     with team do
    52     begin
    52     begin
    53         ipcToEngine('eaddteam <hash> ' + colorsSet[color] + ' ' + teamName);
    53         ipcToEngine('eaddteam <hash> ' + colorsSet[color] + ' ' + teamName);
       
    54 
    54         if extDriven then
    55         if extDriven then
    55             ipcToEngine('rdriven');
    56             ipcToEngine('erdriven');
       
    57 
    56         for i:= 0 to Pred(hogsNumber) do
    58         for i:= 0 to Pred(hogsNumber) do
    57         begin
    59         begin
    58             ipcToEngine('eaddhh ' + inttostr(botLevel) + ' 100 ' + hedgehogs[i].name);
    60             ipcToEngine('eaddhh ' + inttostr(botLevel) + ' 100 ' + hedgehogs[i].name);
    59             ipcToEngine('ehat ' + hedgehogs[i].hat);
    61             ipcToEngine('ehat ' + hedgehogs[i].hat);
    60         end;
    62         end;