add em together, then add a string/boolean or something in declare players where each player can choose which (string or cut) feature it wants to use. Have two separate mainloops, and a case statement that corresponds to the users choice something like....
SCAR Code:
procedure DeclarePlayers;
//add the other stuff here
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Booleans[0] := True; // True = String, False = Cut;
//other stuff down here
end;
Procedure ChooseLoop;
begin
if Players[CurrentPlayer].Booleans[0] then MainloopA else MainloopB;
end;
or
Procedure ChooseLoop;
begin
case Lowercase(Players[CurrentPlayer].Strings[0]) of
'stringer': MainloopA;
'cutter': MainLoopB;
end;
end;