var
WeaponResetted : Boolean;

procedure InitHooks;
begin
RegisterHook('TurnBegin', On_Turn_begin);
RegisterHook('Frame', On_Frame);
end;

{ ------------------------- }

procedure TurnBegin;
begin
WeaponResetted := False;
end;

procedure Frame;
var
CurW : TWorm;
begin
CurW := GetTekWormObj;
if CurW = nil then exit;
if CurW.SelWeapon <> nil then begin
if not WeaponResetted then CurW.WeapAngle := 0.5;
WeaponResetted := True;
end;
end;