550 val(y, t, c); |
550 val(y, t, c); |
551 CurrentHedgehog^.Gear^.Y:= int2hwFloat(t) |
551 CurrentHedgehog^.Gear^.Y:= int2hwFloat(t) |
552 end; |
552 end; |
553 |
553 |
554 procedure chBind(var id: shortstring); |
554 procedure chBind(var id: shortstring); |
555 var s: shortstring; |
555 var KeyName, Modifier, tmp: shortstring; |
556 b: LongInt; |
556 b: LongInt; |
557 begin |
557 begin |
558 s:= ''; |
558 KeyName:= ''; |
|
559 Modifier:= ''; |
|
560 |
559 if CurrentTeam = nil then |
561 if CurrentTeam = nil then |
560 exit; |
562 exit; |
561 SplitBySpace(id, s); |
563 |
562 if s[1]='"' then |
564 if(Pos('mod:', id) <> 0)then |
563 Delete(s, 1, 1); |
565 begin |
564 if s[byte(s[0])]='"' then |
566 tmp:= ''; |
565 Delete(s, byte(s[0]), 1); |
567 SplitBySpace(id, tmp); |
566 b:= KeyNameToCode(id); |
568 Modifier:= id; |
|
569 id:= tmp; |
|
570 end; |
|
571 |
|
572 SplitBySpace(id, KeyName); |
|
573 if KeyName[1]='"' then |
|
574 Delete(KeyName, 1, 1); |
|
575 if KeyName[byte(KeyName[0])]='"' then |
|
576 Delete(KeyName, byte(KeyName[0]), 1); |
|
577 b:= KeyNameToCode(id, Modifier); |
567 if b = 0 then |
578 if b = 0 then |
568 OutError(errmsgUnknownVariable + ' "' + id + '"', false) |
579 OutError(errmsgUnknownVariable + ' "' + id + '"', false) |
569 else |
580 else |
570 CurrentTeam^.Binds[b]:= s |
581 CurrentTeam^.Binds[b]:= KeyName; |
571 end; |
582 end; |
572 |
583 |
573 procedure chTeamGone(var s:shortstring); |
584 procedure chTeamGone(var s:shortstring); |
574 var t: LongInt; |
585 var t: LongInt; |
575 begin |
586 begin |