equal
deleted
inserted
replaced
508 with CurrentHedgehog^.Gear^ do |
508 with CurrentHedgehog^.Gear^ do |
509 begin |
509 begin |
510 Message:= Message or gm_Weapon; |
510 Message:= Message or gm_Weapon; |
511 MsgParam:= byte(s[1]); |
511 MsgParam:= byte(s[1]); |
512 end; |
512 end; |
513 |
|
514 {$IFDEF IPHONEOS} |
|
515 savedAmmoType:= TAmmoType(s[1]); |
|
516 {$ENDIF} |
|
517 end; |
513 end; |
518 |
514 |
519 procedure chTaunt(var s: shortstring); |
515 procedure chTaunt(var s: shortstring); |
520 begin |
516 begin |
521 if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
517 if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
614 OutError('got /put while not being in choose target mode', false) |
610 OutError('got /put while not being in choose target mode', false) |
615 end; |
611 end; |
616 |
612 |
617 procedure chPut(var s: shortstring); |
613 procedure chPut(var s: shortstring); |
618 begin |
614 begin |
619 s:= s; // avoid compiler hint |
615 s:= s; // avoid compiler hint |
620 doPut(0, 0, false) |
616 doPut(0, 0, false); |
621 end; |
617 end; |
622 |
618 |
623 procedure chCapture(var s: shortstring); |
619 procedure chCapture(var s: shortstring); |
624 begin |
620 begin |
625 s:= s; // avoid compiler hint |
621 s:= s; // avoid compiler hint |
802 end; |
798 end; |
803 |
799 |
804 procedure chZoomIn(var s: shortstring); |
800 procedure chZoomIn(var s: shortstring); |
805 begin |
801 begin |
806 s:= s; // avoid compiler hint |
802 s:= s; // avoid compiler hint |
807 {$IFDEF IPHONEOS} |
803 if ZoomValue < cMinZoomLevel then |
808 if ZoomValue < 4.0 then |
804 ZoomValue:= ZoomValue + cZoomDelta; |
809 {$ELSE} |
|
810 if ZoomValue < 3.0 then |
|
811 {$ENDIF} |
|
812 ZoomValue:= ZoomValue + 0.20; |
|
813 end; |
805 end; |
814 |
806 |
815 procedure chZoomOut(var s: shortstring); |
807 procedure chZoomOut(var s: shortstring); |
816 begin |
808 begin |
817 s:= s; // avoid compiler hint |
809 s:= s; // avoid compiler hint |
818 {$IFDEF IPHONEOS} |
810 if ZoomValue > cMaxZoomLevel then |
819 if ZoomValue > 0.5 then |
811 ZoomValue:= ZoomValue - cZoomDelta; |
820 {$ELSE} |
|
821 if ZoomValue > 1.0 then |
|
822 {$ENDIF} |
|
823 ZoomValue:= ZoomValue - 0.20; |
|
824 end; |
812 end; |
825 |
813 |
826 procedure chZoomReset(var s: shortstring); |
814 procedure chZoomReset(var s: shortstring); |
827 begin |
815 begin |
828 s:= s; // avoid compiler hint |
816 s:= s; // avoid compiler hint |