equal
deleted
inserted
replaced
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uTeams; |
21 unit uTeams; |
22 interface |
22 interface |
23 uses uConsts, uInputHandler, uRandom, uFloat, uStats, |
23 uses uConsts, uInputHandler, uRandom, uFloat, uStats, |
24 uCollisions, uSound, uStore, uTypes, uScript |
24 uCollisions, uSound, uStore, uTypes, uScript |
25 {$IFDEF USE_TOUCH_INTERFACE}, uWorld{$ENDIF}; |
25 {$IFDEF USE_TOUCH_INTERFACE}, uWorld{$ENDIF}; |
26 |
26 |
27 |
27 |
28 procedure initModule; |
28 procedure initModule; |
565 |
565 |
566 procedure loadTeamBinds(s: shortstring); |
566 procedure loadTeamBinds(s: shortstring); |
567 var i: LongInt; |
567 var i: LongInt; |
568 begin |
568 begin |
569 for i:= 1 to length(s) do |
569 for i:= 1 to length(s) do |
570 if s[i] in ['\', '/', ':'] then s[i]:= '_'; |
570 if ((s[i] = '\') or |
|
571 (s[i] = '/') or |
|
572 (s[i] = ':')) then |
|
573 s[i]:= '_'; |
571 |
574 |
572 s:= cPathz[ptTeams] + '/' + s + '.hwt'; |
575 s:= cPathz[ptTeams] + '/' + s + '.hwt'; |
573 |
576 |
574 loadBinds('bind', s); |
577 loadBinds('bind', s); |
575 end; |
578 end; |
591 Color:= Color or $FF000000; |
594 Color:= Color or $FF000000; |
592 AddTeam(Color); |
595 AddTeam(Color); |
593 CurrentTeam^.TeamName:= ts; |
596 CurrentTeam^.TeamName:= ts; |
594 CurrentTeam^.PlayerHash:= s; |
597 CurrentTeam^.PlayerHash:= s; |
595 loadTeamBinds(ts); |
598 loadTeamBinds(ts); |
596 |
599 |
597 if GameType in [gmtDemo, gmtSave, gmtRecord] then |
600 if GameType in [gmtDemo, gmtSave, gmtRecord] then |
598 CurrentTeam^.ExtDriven:= true; |
601 CurrentTeam^.ExtDriven:= true; |
599 |
602 |
600 CurrentTeam^.voicepack:= AskForVoicepack('Default') |
603 CurrentTeam^.voicepack:= AskForVoicepack('Default') |
601 end |
604 end |