equal
deleted
inserted
replaced
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 begin |
121 begin |
122 if (s = '/rollup') and not CurrentTeam^.ExtDriven then |
122 if (s = '/sad') and not CurrentTeam^.ExtDriven then |
123 with CurrentHedgehog^.Gear^ do |
123 with CurrentHedgehog^.Gear^ do |
124 begin |
124 begin |
125 Message:= Message or gm_Animate; |
125 Message:= Message or gm_Animate; |
126 MsgParam:= Longword(sprKowtow) |
126 MsgParam:= Longword(waveSad) |
127 end |
127 end |
128 else |
128 else |
129 ParseCommand('/say ' + s, true); |
129 ParseCommand('/say ' + s, true); |
130 end; |
130 end; |
131 |
131 |