| changeset 3445 | 1ce844170014 |
| parent 3440 | dee31c5149e0 |
| child 3460 | d957d5f7b58d |
| 3444:9d501dc22f71 | 3445:1ce844170014 |
|---|---|
182 1, |
182 1, |
183 0, |
183 0, |
184 DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + dAngle); |
184 DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + dAngle); |
185 with HH^ do |
185 with HH^ do |
186 if (HatTex <> nil) then |
186 if (HatTex <> nil) then |
187 begin |
|
187 DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 0, i, 32, 32, |
188 DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 0, i, 32, 32, |
188 i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle); |
189 i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle); |
190 if HatTex^.w > 32 then |
|
191 begin |
|
192 Tint(HH^.Team^.Clan^.Color); |
|
193 DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 32, i, 32, 32, |
|
194 i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle); |
|
195 Tint($FF, $FF, $FF, $FF) |
|
196 end |
|
197 end |
|
189 end; |
198 end; |
190 DrawAltWeapon(Gear, sx, sy); |
199 DrawAltWeapon(Gear, sx, sy); |
191 defaultPos:= false |
200 defaultPos:= false |
192 end; |
201 end; |
193 gtBlowTorch: begin |
202 gtBlowTorch: begin |
197 3, |
206 3, |
198 HH^.visStepPos div 2, |
207 HH^.visStepPos div 2, |
199 0); |
208 0); |
200 with HH^ do |
209 with HH^ do |
201 if (HatTex <> nil) then |
210 if (HatTex <> nil) then |
202 DrawTextureF(HatTex, |
211 begin |
203 1, |
212 DrawTextureF(HatTex, |
204 sx, |
213 1, |
205 hwRound(Gear^.Y) - 8 + WorldDy, |
214 sx, |
206 0, |
215 hwRound(Gear^.Y) - 8 + WorldDy, |
207 hwSign(Gear^.dX), |
216 0, |
208 32, |
217 hwSign(Gear^.dX), |
209 32); |
218 32, |
219 32); |
|
220 if HatTex^.w > 32 then |
|
221 begin |
|
222 Tint(HH^.Team^.Clan^.Color); |
|
223 DrawTextureF(HatTex, |
|
224 1, |
|
225 sx, |
|
226 hwRound(Gear^.Y) - 8 + WorldDy, |
|
227 32, |
|
228 hwSign(Gear^.dX), |
|
229 32, |
|
230 32); |
|
231 Tint($FF, $FF, $FF, $FF) |
|
232 end |
|
233 end; |
|
210 defaultPos:= false |
234 defaultPos:= false |
211 end; |
235 end; |
212 gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180); |
236 gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180); |
213 gtFirePunch: begin |
237 gtFirePunch: begin |
214 DrawHedgehog(sx, sy, |
238 DrawHedgehog(sx, sy, |
476 HatVisibility:= HatVisibility - 0.2; |
500 HatVisibility:= HatVisibility - 0.2; |
477 |
501 |
478 if (HatTex <> nil) |
502 if (HatTex <> nil) |
479 and (HatVisibility > 0) then |
503 and (HatVisibility > 0) then |
480 if DefaultPos then |
504 if DefaultPos then |
505 begin |
|
481 DrawTextureF(HatTex, |
506 DrawTextureF(HatTex, |
482 HatVisibility, |
507 HatVisibility, |
483 sx, |
508 sx, |
484 hwRound(Gear^.Y) - 8 + WorldDy, |
509 hwRound(Gear^.Y) - 8 + WorldDy, |
485 (RealTicks div 128 + Gear^.Pos) mod 19, |
510 (RealTicks div 128 + Gear^.Pos) mod 19, |
486 hwSign(Gear^.dX), |
511 hwSign(Gear^.dX), |
487 32, |
512 32, |
488 32) |
513 32); |
514 if HatTex^.w > 32 then |
|
515 begin |
|
516 Tint(HH^.Team^.Clan^.Color); |
|
517 DrawTextureF(HatTex, |
|
518 HatVisibility, |
|
519 sx, |
|
520 hwRound(Gear^.Y) - 8 + WorldDy, |
|
521 (RealTicks div 128 + Gear^.Pos) mod 19 + 32, |
|
522 hwSign(Gear^.dX), |
|
523 32, |
|
524 32); |
|
525 Tint($FF, $FF, $FF, $FF) |
|
526 end |
|
527 end |
|
489 else |
528 else |
529 begin |
|
490 DrawTextureF(HatTex, |
530 DrawTextureF(HatTex, |
491 HatVisibility, |
531 HatVisibility, |
492 sx, |
532 sx, |
493 hwRound(Gear^.Y) - 8 + WorldDy, |
533 hwRound(Gear^.Y) - 8 + WorldDy, |
494 0, |
534 0, |
495 hwSign(Gear^.dX)*m, |
535 hwSign(Gear^.dX)*m, |
496 32, |
536 32, |
497 32); |
537 32); |
538 if HatTex^.w > 32 then |
|
539 begin |
|
540 Tint(HH^.Team^.Clan^.Color); |
|
541 DrawTextureF(HatTex, |
|
542 HatVisibility, |
|
543 sx, |
|
544 hwRound(Gear^.Y) - 8 + WorldDy, |
|
545 32, |
|
546 hwSign(Gear^.dX)*m, |
|
547 32, |
|
548 32); |
|
549 Tint($FF, $FF, $FF, $FF) |
|
550 end |
|
551 end |
|
498 end; |
552 end; |
499 if (Gear^.State and gstHHDriven) <> 0 then |
553 if (Gear^.State and gstHHDriven) <> 0 then |
500 begin |
554 begin |
501 (* if (CurAmmoGear = nil) then |
555 (* if (CurAmmoGear = nil) then |
502 begin |
556 begin |