equal
deleted
inserted
replaced
26 |
26 |
27 var UserNick: shortstring = ''; |
27 var UserNick: shortstring = ''; |
28 showAll: boolean = false; |
28 showAll: boolean = false; |
29 |
29 |
30 implementation |
30 implementation |
31 uses uMisc, uStore, uConsts, SDLh, uConsole, uKeys, uGears, uTeams; |
31 uses uMisc, uStore, uConsts, SDLh, uConsole, uKeys, uTeams; |
32 |
32 |
33 const MaxStrIndex = 27; |
33 const MaxStrIndex = 27; |
34 |
34 |
35 type TChatLine = record |
35 type TChatLine = record |
36 s: shortstring; |
36 s: shortstring; |
116 and (InputStr.Tex <> nil) then |
116 and (InputStr.Tex <> nil) then |
117 DrawTexture(8, visibleCount * 16 + 10, InputStr.Tex); |
117 DrawTexture(8, visibleCount * 16 + 10, InputStr.Tex); |
118 end; |
118 end; |
119 |
119 |
120 procedure AcceptChatString(s: shortstring); |
120 procedure AcceptChatString(s: shortstring); |
|
121 var i: TWave; |
|
122 b: boolean; |
121 begin |
123 begin |
122 if (s = '/sad') and not CurrentTeam^.ExtDriven then |
124 if s[1] = '/' then |
123 with CurrentHedgehog^.Gear^ do |
125 begin |
124 begin |
126 if CurrentTeam^.ExtDriven then exit; |
125 Message:= Message or gm_Animate; |
127 |
126 MsgParam:= Longword(waveSad) |
128 for i:= Low(TWave) to High(TWave) do |
127 end |
129 if (s = Wavez[i].cmd) then |
128 else |
130 begin |
129 ParseCommand('/say ' + s, true); |
131 ParseCommand('/taunt ' + char(i), true); |
|
132 exit |
|
133 end; |
|
134 end |
|
135 else |
|
136 ParseCommand('/say ' + s, true); |
130 end; |
137 end; |
131 |
138 |
132 procedure KeyPressChat(Key: Longword); |
139 procedure KeyPressChat(Key: Longword); |
133 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0); |
140 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0); |
134 var i, btw: integer; |
141 var i, btw: integer; |