equal
deleted
inserted
replaced
571 val(y, t, c); |
571 val(y, t, c); |
572 CurrentHedgehog^.Gear^.Y:= int2hwFloat(t) |
572 CurrentHedgehog^.Gear^.Y:= int2hwFloat(t) |
573 end; |
573 end; |
574 |
574 |
575 procedure chBind(var id: shortstring); |
575 procedure chBind(var id: shortstring); |
576 var KeyName, Modifier, tmp: shortstring; |
576 var KeyName, Modifier, tmp : shortstring; |
577 b: LongInt; |
577 b : LongInt; |
|
578 i : Integer; |
578 begin |
579 begin |
579 KeyName:= ''; |
580 KeyName:= ''; |
580 Modifier:= ''; |
581 Modifier:= ''; |
581 |
582 |
582 if CurrentTeam = nil then |
583 if CurrentTeam = nil then |
583 exit; |
584 exit; |
584 |
585 |
585 if(Pos('mod:', id) <> 0)then |
586 i := Pos('mod:', id); |
|
587 |
|
588 if(i <> 0)then |
586 begin |
589 begin |
587 tmp:= ''; |
590 tmp:= ''; |
588 SplitBySpace(id, tmp); |
591 SplitBySpace(id, tmp); |
589 Modifier:= id; |
592 Modifier:= id; |
590 id:= tmp; |
593 id:= tmp; |