equal
deleted
inserted
replaced
33 SendIPC('Q'); |
33 SendIPC('Q'); |
34 GameState:= gsExit |
34 GameState:= gsExit |
35 end; |
35 end; |
36 |
36 |
37 procedure chCheckProto(var s: shortstring); |
37 procedure chCheckProto(var s: shortstring); |
38 var i, c: integer; |
38 var i, c: LongInt; |
39 begin |
39 begin |
40 if isDeveloperMode then |
40 if isDeveloperMode then |
41 begin |
41 begin |
42 val(s, i, c); |
42 val(s, i, c); |
43 if (c <> 0) or (i = 0) then exit; |
43 if (c <> 0) or (i = 0) then exit; |
95 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
95 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
96 CurrentTeam^.FortName:= s |
96 CurrentTeam^.FortName:= s |
97 end; |
97 end; |
98 |
98 |
99 procedure chColor(var id: shortstring); |
99 procedure chColor(var id: shortstring); |
100 var c: integer; |
100 var c: LongInt; |
101 begin |
101 begin |
102 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true); |
102 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true); |
103 val(id, CurrentTeam^.Color, c); |
103 val(id, CurrentTeam^.Color, c); |
104 CurrentTeam^.AdjColor:= CurrentTeam^.Color; |
104 CurrentTeam^.AdjColor:= CurrentTeam^.Color; |
105 AdjustColor(CurrentTeam^.AdjColor) |
105 AdjustColor(CurrentTeam^.AdjColor) |
106 end; |
106 end; |
107 |
107 |
108 procedure chAddHH(var id: shortstring); |
108 procedure chAddHH(var id: shortstring); |
109 var s: shortstring; |
109 var s: shortstring; |
110 c: integer; |
110 c: LongInt; |
111 Gear: PGear; |
111 Gear: PGear; |
112 begin |
112 begin |
113 if (not isDeveloperMode)or(CurrentTeam=nil) then exit; |
113 if (not isDeveloperMode)or(CurrentTeam=nil) then exit; |
114 with CurrentTeam^ do |
114 with CurrentTeam^ do |
115 begin |
115 begin |
131 AddAmmoStore(descr) |
131 AddAmmoStore(descr) |
132 end; |
132 end; |
133 |
133 |
134 procedure chBind(var id: shortstring); |
134 procedure chBind(var id: shortstring); |
135 var s: shortstring; |
135 var s: shortstring; |
136 b: integer; |
136 b: LongInt; |
137 begin |
137 begin |
138 if CurrentTeam = nil then exit; |
138 if CurrentTeam = nil then exit; |
139 SplitBySpace(id, s); |
139 SplitBySpace(id, s); |
140 if s[1]='"' then Delete(s, 1, 1); |
140 if s[1]='"' then Delete(s, 1, 1); |
141 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
141 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |