equal
deleted
inserted
replaced
921 shell^.Frame := 0 |
921 shell^.Frame := 0 |
922 end; |
922 end; |
923 Gear^.State := Gear^.State or gstAnimation |
923 Gear^.State := Gear^.State or gstAnimation |
924 end; |
924 end; |
925 exit |
925 exit |
926 end |
926 end else |
|
927 if(Gear^.Hedgehog^.Gear = nil) or ((Gear^.Hedgehog^.Gear^.State and gstMoving) <> 0) then |
|
928 begin |
|
929 DeleteGear(Gear); |
|
930 AfterAttack; |
|
931 exit |
|
932 end |
927 else |
933 else |
928 inc(Gear^.Timer); |
934 inc(Gear^.Timer); |
929 |
935 |
930 i := 200; |
936 i := 200; |
931 repeat |
937 repeat |